http://qs1969.pair.com?node_id=35121


in reply to regexp's

Don't hate me for this:
#!/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! ;)))