Hello,

    I want to read a file in PERL. I want to skip the first line. All the lines except the first line should be written to another file.

    Can anybody suggest me how to do this?

Thanks and regards,
Hemant

How about something like..

use IO::File;
my $fdin=   new IO::File( '<InFile.txt' );
my $fdout= new IO::File( '>OutFile.txt' );

my $firstLine = <$fdin>;

while( <$fdin> ) {
   print $fdout $_;
}

Untested, but looks promising....

Let us know how you get on,

HTH,

Tut tut - coding without testing  

In my quest to gain a little Perl literacy I pasted this in and ran it in v5.8.0 with four test cases that I could think of  (no lines, only one line, one line with no terminator, several lines)

They all worked so I have nothing to debug

(provided that the spec is to produce no error messages in any of those cases, and quietly overwrite existing files, but that wasn't hemant's question, was it?)

David


on 11/30/04 at 19:00:36, David Corking wrote:

Tut tut - coding without testing   <snip> (provided that the spec is to produce no error messages in any of those cases, and quietly overwrite existing files, but that wasn't hemant's question, was it?) David

You raise a good point, m'lud.  Of course there should be tests for definedness of the opened filehandles.
Fair cop.



B

---