Anyone knows how to make a perl script read 1 line in a file? - GoFuckYourself.com

Rod · 10-10-2001, 08:43 AM

Ok
I want to make a script that reads only the first line of a text file. The name of the text file is data.txt

Does any of you, programmers, knows how to do it?

The script is written in perl.

Thanks,
Steve

TheFLY · 10-10-2001, 11:33 AM

get the book

visual quickstart guide
perl and cgi for the world wide web
elizabeth castro

makes perl reaaaaaly easy

btw you could do the code in php to read one line w/ less code ;)

Rod · 10-10-2001, 12:10 PM

Thanks Fly, I'll try to find this book

I actually have one called: Perl Visual Pro

But there is nothing about what I ask into it

Thanks again,
Steve

Tuzz · 10-10-2001, 02:33 PM

There are lots of ways...here's one off the cuff

my $linecount = 0;
open FILE,"<file.txt" || die "Unable to open file: $!";
my @lines = <FILE>;
close(FILE);
my $line;
foreach $line(@lines) {
$linecount++;
while ($linecount<2) {
print "$line";
}
}

should work in most contexts.

Tuzz · 10-10-2001, 02:37 PM

never mind...the board won't print the code correctly

Rod · 10-10-2001, 03:20 PM

Well, I actually find a way to do it...
Thanks anyway guys

Lane · 10-10-2001, 06:09 PM

php code:

$stuff = file('filename.txt');
$line = $stuff[0];

TheFLY · 10-10-2001, 06:25 PM

yeah i can't believe how easy php is ;)

10-10-2001, 08:43 AM	#1
Rod Confirmed User Join Date: Apr 2001 Location: MTL, QC, CAN Posts: 1,243	Anyone knows how to make a perl script read 1 line in a file? Ok I want to make a script that reads only the first line of a text file. The name of the text file is data.txt Does any of you, programmers, knows how to do it? The script is written in perl. Thanks, Steve

10-10-2001, 11:33 AM	#2
TheFLY So Fucking Banned Join Date: Jan 2001 Location: http://www.thefly.net/ --- Quit your job and live off steady traffic. Posts: 11,856	get the book visual quickstart guide perl and cgi for the world wide web elizabeth castro makes perl reaaaaaly easy btw you could do the code in php to read one line w/ less code ;)

10-10-2001, 12:10 PM	#3
Rod Confirmed User Join Date: Apr 2001 Location: MTL, QC, CAN Posts: 1,243	Thanks Fly, I'll try to find this book I actually have one called: Perl Visual Pro But there is nothing about what I ask into it Thanks again, Steve

10-10-2001, 02:33 PM	#4
Tuzz Confirmed User Join Date: Aug 2001 Location: Sunny Florida Posts: 171	There are lots of ways...here's one off the cuff my $linecount = 0; open FILE,"<file.txt" \|\| die "Unable to open file: $!"; my @lines = <FILE>; close(FILE); my $line; foreach $line(@lines) { $linecount++; while ($linecount<2) { print "$line"; } } should work in most contexts.

10-10-2001, 02:37 PM	#5
Tuzz Confirmed User Join Date: Aug 2001 Location: Sunny Florida Posts: 171	never mind...the board won't print the code correctly

10-10-2001, 03:20 PM	#6
Rod Confirmed User Join Date: Apr 2001 Location: MTL, QC, CAN Posts: 1,243	Well, I actually find a way to do it... Thanks anyway guys

10-10-2001, 06:09 PM	#7
Lane Will code for food... Join Date: Apr 2001 Location: Buckeye, AZ Posts: 8,496	php code: $stuff = file('filename.txt'); $line = $stuff[0];

10-10-2001, 06:25 PM	#8
TheFLY So Fucking Banned Join Date: Jan 2001 Location: http://www.thefly.net/ --- Quit your job and live off steady traffic. Posts: 11,856	yeah i can't believe how easy php is ;)