in reply to regexp's
Don't hate me for this:
GrtZ! ;)))
#!/usr/bin/perl -w use strict; my %Hash; $Hash{substr($_,rindex($_," ")+1,-1)} = substr($_,0,index($_," ")), wh +ile(<>); print "key=$_, val=$Hash{$_}\n" foreach sort keys (%Hash);
GrtZ! ;)))
In Section
Seekers of Perl Wisdom