You seem to be going to great lengths to read the file line by line, but the recontruct a single string only to split it back up again.
Why not keep the lines separate to start with? for example
while(<DATA>) {
chomp;
last if /^"EOS"$/;
push @data, $_
}
Also, in your output code you call split with no arguments. That will split $_ on whitespace. But from what you are expecting as output that is not what you want.
It would seem that your fields are contained within pairs of "'s
so you could just do
my($first_name,$last_name,$address,$city,$state,$phone) = /"([^"]*)"/g
Which will pick out each the strings between " pairs
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|