i need to know where to put a new line in.........i keep getting errors......?
here is what the code looks like, if anyone can help with the newline....i
would much appreciate it.
#!/usr/bin/perl -w
$file = 'dnsbills.06-09-2001';
open FILE, $file;
@lines = <FILE>;
close (FILE);
for ($line=0;$line <=$#lines;$line++){
if ($lines[$line] =~ /^Reg Date/) {
print STDERR $lines[$line+2];
@columns = split " ", $lines[$line+2];
print $columns[1];
}
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]