removing first line from a text file

[tanveer91]

Hi all,

I have a text file containing records of vehicles, i would like to display these records on the web browser. My problem is the first line of the file contains the system date, how can i display the details without including the date line??

e.g. text file:-

09.46 02 2002 April
FORD ,ESCORT ,1600,CL ,5DR,BLUE , 6.995,98,861649,S906FNWMPSAL
FORD ,ESCORT ,1600,CL ,5DR,DIAMOND , 6.495,98,863816,S244AUAM HBK
FORD ,ESCORT ,1600,CL ,5DR,RED , 5.495,98,859781,R543FCAMPEST

 

[yauncin]

#!/usr/bin/perl -w

print "content-type: text/html\n\n";
open FILE, 'file';
while (<FILE>)
{
next if /09.46 02 2002 April/;
print;
}
close FILE;
exit(0);

 

[Coderifous]

Better:

#==== Code =====

use CGI;
my $j = new CGI;
print $j->header;

$\ = &quot;<br />\n&quot;; # makes it pretty on the browser.

open FILE, 'path/to/file';
<FILE>; #effectively tosses the first line...
print while(<FILE>);
close FILE;

#==== END CODE =====

This will skip the first line no matter what.
Johnny's code will work for that particular example, but change the date (happens all the time and your seeing it in the output again.

--Jim

 

[FredrikN]

This is the easiest one (and most dirty)

print &quot;content-type: text/html\n\n&quot;;
$tmp = `awk 'NR==2,/[*]/ {print $0}' test.txt`;
print &quot;$tmp&quot;;

done.

It will remove the first line and then print the rest.

 

[FredrikN]

This is the correct one, did't try the code above, but is works fine

#!/usr/bin/perl
$tmp = `awk 'NR==2,/[*]/' test.txt`;
print &quot;$tmp&quot;;

 

[FredrikN]

This is the correct one, did't try the code above, but this code works fine

#!/usr/bin/perl
$tmp = `awk 'NR==2,/[*]/' test.txt`;
print &quot;$tmp&quot;;

 

[PerlIsGood]

Modifying yauncin's piece a bit, you could also do this:

while ( ($system, @data) = <FILE> ) { #add code }
#$system contains first line w/ the rest in @data
#and bypasses date problem

 

[scoon]

This will work as long as your timestamp keeps the same format that you displayed earlier:

#!/usr/bin/perl -w

use strict;

my @file = ();
open(FILE, &quot;./bar.txt&quot || die &quot;file i/o err: $!&quot;;
chomp(@file = (<FILE>));
close FILE;

foreach(@file){
print &quot;$_<br>\n&quot; unless $_ =~ m/^\d+/;
}

 

[toolkit]

In Perl:

while(<>) {
    print unless $. == 1;
}

Or from the command line:
[tt]
perl -n -e 'print unless $. == 1' file
[/tt]
Cheers, Neil