I have a similar issue as the other person with the same subject but
with a twist..
I am reading an input file in that is pipe delimited and want to do
manipulation on one of the fields.
So far I have (and I'm only going to give you bits and pieces...
unless requested)
my @record = split (/\|/,$_); #split on '|' characters
Now I want to take $record[16] out and replace it by $record[16] /
$record[7] ONLY if $record[7] is not empty
if record[7] is empty, I want record[16] to remain.
$converted = $record[16];
$converted = ($record[16] / $record[7]) unless ($record[7] eq "");
$record[16]="$converted";
My question comes in, how do I put the |'s back in the line in memory
so that I can continue with my working script?
I print @record, and it comes up with the correct values without the
pipes.
Can I just do something like:
$stor2=print $_, "|" foreach @record;
Or how would I best do that?
Thanks much,
-Greg
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
