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
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
