Help for this page
#!/usr/bin/perl -w use strict; ... $somehash{$2} = $1; } }
/^ # Anchor to beginning of string ( # Capture to $1 ... [a-zA-Z]+ # One or more letters ) # $/x; # Anchor to end of string
while (<FILE>) { chomp; my ($value, $key) = (split /\s/, $_)[0,3]; $somehash{$key} = $value; }
www.com | www.net | www.org
No recent polls found