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

Re: Newbie question

Thread Previous | Thread Next
From:
John W. Krahn
Date:
March 3, 2002 19:51
Subject:
Re: Newbie question
Message ID:
3C82EF65.61B097D4@acm.org
Suraj Rajendran wrote:
> 
> 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


#!/usr/bin/perl -w
use strict;

while ( <DATA> ) {
    print "$1\n" if /,\s*MA\s+([\d-]+)/;
    }



John
-- 
use Perl;
program
fulfillment

Thread Previous | 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