Mega Code Archive

 

Categories / Perl / Regular Expression

 

The word metasymbols

while(<DATA>){     print if / \w\w\w\w \d/ } __DATA__     Tom 101     Jack 201     Jason 301