chomp, push @a, [split /:/, $_] for <DATA>; print "name? " and chomp($i = <STDIN>); @$_[0] =~/$i/i and print "\n@$_[0]\n@$_[1] (@$_[2]) @$_[3]\$\n" for @a +; __DATA__ Seamus McGuire:The Wishing Tree:09-14-2000:14.95 Pat Kilbride:Loose Cannon:07-02-2000:15.95 Kevin Crawford:Seasons of Mists:06-23-2000:16.95 Prince:Purple Rain:01-01-1995:3.95 Meat Loaf:Bat out of Jell:03-03-1980:11.95
In reply to Re: extraction of data
by Lennotoecom
in thread extraction of data
by crazyghost
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |