| |||||||||||
| |||||||||||
Read all but the first line from a file Posted by hemant (hemant), 30 November 2004 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 Posted by Custard (Custard), 30 November 2004 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, Posted by dcorking (David Corking), 30 November 2004 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 Posted by Custard (Custard), 30 November 2004 on 11/30/04 at 19:00:36, David Corking wrote:
You raise a good point, m'lud. Of course there should be tests for definedness of the opened filehandles. Fair cop. ![]() B This page is a thread posted to the opentalk forum
at www.opentalk.org.uk and
archived here for reference. To jump to the archive index please
follow this link.
|
| ||||||||||
PH: 01144 1225 708225 • FAX: 01144 1225 793803 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho |