This list is for beginners, right?  =)

I read in a file, then strip all lines that start with "#" or "\n".  When I
print them out, though, the first line is left justified correctly but the
rest have a single space in front of them.  Any ideas why?

$file = "somefile.dat";
open (FILE, $file)  || die("Couldn't open $file: $!\n");
@_ = <FILE>;
close(FILE);
while ($_[1] =~ /^[#\n]/) { push(@comments, shift(@_)); }
print "@comments";

TIA.

- B


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to