write all lines except the first one!

[tuananh87vn]

i'm about to use perl to read the content of a text file then write all lines in this file, except the first line, into another text file. Reading and writing file I think is ok to me, but I don't know how to make the first line as exception :|

any help?

[Ganon11]

If you know how to write all lines in a loop, just read from the file once before entering the loop. Essentially, you need to get the first line, then enter into a loop that prints everything (remaining) in the file.

[numberwhun]

That's what I love about Perl..... TMTOWTDI !!!

my $counter = 0;

open(FILE, "<file.txt") or die "$!";

LOOP: while(<FILE>) {
    if($counter = 0){
        $counter++;
        next LOOP;
    }

    .... the rest of your code...
}

Just another way of doing it using a counter. The first time through it will read a line, check the counter, which is equal to zero, iterate the counter and then grab the next line and continue processing.

Regards,

Jeff

[tuananh87vn]

my bad,
just when I put the question on the forum, the answer rushed into my head:

open <FILE, 'text1'>;
open <FILE2, 'text2'>;

$i = 0;

while (<FILE>) {
   if ($i != 0) {
       print FILE2 "$_\n";
   }
   $i++;
}

close (FILE1);
close(FILE2);

do u think this way is ok?

thanx so much for your help :D

[numberwhun]

my bad,
just when I put the question on the forum, the answer rushed into my head:

open <FILE, 'text1'>;
open <FILE2, 'text2'>;

$i = 0;

while (<FILE>) {
   if ($i != 0) {
       print FILE2 "$_\n";
   }
   $i++;
}

close (FILE1);
close(FILE2);

do u think this way is ok?

thanx so much for your help :D

It does look to pretty much do the same thing, yes. Nice job. All in all though, remember, Perl's motto has always been..... TMTOWTDI !!!

Nice job!

Regards,

Jeff

[tuananh87vn]

a mistake, it should be

open(FILE2, '>text2')

so that we can write on file text2

[KevinADC]

This is much more efficient:

open(IN, "<file.txt") or die "$!";
open (OUT, ">", 'outfile.txt') or die "$!";
<IN>; #<-- discard first line
print OUT <IN>;
close(IN);
close(OUT);

[KevinADC]

That's what I love about Perl..... TMTOWTDI !!!

my $counter = 0;

open(FILE, "<file.txt") or die "$!";

LOOP: while(<FILE>) {


        $counter++;
        next LOOP;
    }

    .... the rest of your code...
}

Just another way of doing it using a counter. The first time through it will read a line, check the counter, which is equal to zero, iterate the counter and then grab the next line and continue processing.

Regards,

Jeff

This line is wrong:

    if($counter = 0){

I think you can see why Jeff.

[numberwhun]

This line is wrong:

    if($counter = 0){

I think you can see why Jeff.

He he, my quick, on the fly, untested code. Yes, it should be ==, sorry. :)