develooper Front page | perl.beginners | Postings from March 2002

Newbie question

Thread Next
From:
suraj rajendran
Date:
March 3, 2002 18:15
Subject:
Newbie question
Message ID:
20020304021509.46696.qmail@web21206.mail.yahoo.com
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

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About