Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Modified code...

by Rhose (Priest)
on Oct 10, 2001 at 19:53 UTC ( #118026=note: print w/replies, xml ) Need Help??


in reply to Reading in data that is

I simplified some of the logic, and threw together this example. I hope it helps.

#!/usr/bin/perl -w use strict; my @mField; #open(DATA," basicdez.dat") || die "Cannot open datfile: $!\n"; while(<DATA>) { unless (/^\s*\"EOS\"/) { @mField = (split(/\"\s*\"*/)); print $mField[1],', ',$mField[2],"\n"; print $mField[3],"\n"; print $mField[4],', ',$mField[5],"\n"; print $mField[6],"\n"; print "\n"; } } #close(DATA); __DATA__ "Jane""Doe" "123 W Beverly Ave" "Talahasee""Maine" "222-22-2222" "John""Doe" "456 W Beverly Ave" "Seattle""Washington" "333-33-3333" "EOS"

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://118026]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2019-08-21 22:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?