> I am reading in a text file that has input similar to this.
> date|data|data|data\n
>
> I then read the file in and using a while loop I chomp off
> the new line. while (<IPO>){
> chomp;
> @line=split /\|/,$_;
> $line[2]=~s/ //g;
Do you mean $line[3] since that is the last one in the array in the example above?
date1|data2|data3|data4\n would become
0 data1
1 data2
2 data3
3 data4\n
If so remove any newlines and space also :
$line[3] =~ s/\n|\r| //g;
Or use '\s' instead of ' ' for the space.
Dan
> print "$_" foreach (@line);
> last;
> $count++;
> last if ($count == 7);
> }
>
> Here is the mystery. the output has a newline at the end of
> it. It should print
> "data data data data" and then my next prompt should be right
> here. instead it prints
> "data data data data
> "and my prompt is here.
>
> If I remove the initial chomp then I get a double space at the end.
>
> No matter what I print the last element gets a new line ?????
>
> Example if I
> print "$line[0] $line[1]";
> then right at the end of the print statement is a new line
> and the output is identical to what I previously described.
> the last elements always inherits a new line. It driving me
> crazy!!! thanks in advance :)
>
>
> Paul Kraus
> Network Administrator
> PEL Supply Company
> 216.267.5775 Voice
> 216-267-6176 Fax
> www.pelsupply.com
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
