Hello beginners,
Here is a very basic question:
I am trying to print only the zip code of massachusets
Even though this works, i am pretty sure there is a
better way doing this. Any ideas?
#!/usr/bin/perl
while (<DATA>) {
($name, $phone, $address, $dob, $salary) = split(":",
$_);
($add1, $city, $statezip) = split(",",$address);
($state, $zip) = split(' ',$statezip);
print "$zip\n" if $statezip =~/MA/;
}
__DATA__
Tomy Savage:408-724-0140:1222 Oxbow Court,
Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408-456-1234:4 Harvard Square, Boston,
MA 02133:4/22/62:52600
JonDeLoach:408-253-3122:123 Park St., san Jose, CA
94086:7/25/53:85100
Ephram Hardy:293-259-5395:235 Carlton Lane, Joliet, IL
73858:8/12/20:56700
Betty Boop:245-836-8357:635 Cutesy Lane, Hollywood, CA
91464:6/23/23:14500
William Kopf:846-836-2837:6937 Ware Road, Milton, PA
93756:9/21/46:43500
Norma Corder:397-857-2735:74 Pine Street, Dearborn, MI
23874:3/28/45:245700
James Ikeda:834-938-8376:23445 Aster Ave., Allentown,
NJ 83745:12/1/38:45000
Lori Gortz:327-832-5728:3465 Mirlo Street, Peabody, MA
34756:10/2/65:35200
Barbara Kerz:385-573-8326:832 Ponce Drive, Gary, IN
83756:12/15/46:268500
__________________________________________________
Do You Yahoo!?
Yahoo! Sports - sign up for Fantasy Baseball
http://sports.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
