Re: How do i get EOF to work?


Perl Monk, Perl Meditation
	PerlMonks

Re: How do i get EOF to work?

by vxp (Pilgrim)

on Aug 16, 2002 at 16:19 UTC ( [id://190696]=note: print w/replies, xml )

Need Help??

in reply to How do i get EOF to work?

#!/usr/bin/perl
use strict;
my $file = "/etc/passwd";
open(PASSWD, $file) or die "Couldn't open $file: $!\n";
unless(eof(PASSWD))
{
 print $_;
}
[download]

Hope this helps.

Comment on Re: How do i get EOF to work? Download Code

Replies are listed 'Best First'.

Re: Answer: How do i get EOF to work?
by zentara (Archbishop) on Aug 17, 2002 at 22:20 UTC

I'm sure it's just a minor overlook, but the above code
gives me an error: "Uninitialized value in print....".

#!/usr/bin/perl
use warnings;
use strict;
my $file = "/etc/passwd";
open(PASSWD,"<$file") or die "Couldn't open $file: $!\n";
while (<PASSWD>){
print $_ unless eof PASSWD;
}
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom