Hi,
<SNIP>
On Fri, 1 Apr 2005, Brett Williams wrote:
> The text file reads,
>
> :Weekly expenses...:
> :1002.00:
> :125.00:
> :61864.35:
> :890876.99:
> :9.99:
>
> I want to print to screen all text between ":" on a new line. I
> thought this would be easy :)
> The final code i came up with is,
>
> open (INPUT, "file.txt") or die "Error, can't find file\n";
> $line = readline(INPUT);
> while($line)
> {
> chomp($line);
> @pricelist = split (/\:/, $line);
> print @pricelist;
print "\n";
^^^^^^^^^^^^^
The above line should do the trick.
> $line = readline(INPUT);
> }
>
> For some reason this code prints out the entire contents of the text
> file (and fails to display every entry on a new line). Im completely
> lost, can anyone help?
</SNIP>
HTH,
Senthil
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
