Gavin Henry wrote:
Hi all,
Hello,
Just a quickie. I think the answer is that th while loop is going through
the file twice?
--------------
Codes that does what I expect, i.e. prints out the 42 lines of my passwd
file, with the array spaces, due to the array in "", swapped for <was :>
and runs on $_:
#!/usr/bin/perl
use strict;
use warnings;
$" = '<was :>';
open PASSWD, "/etc/passwd"
or die "Eh? ($!)";
while (<PASSWD>) {
my @passwds = split /:/;
print "@passwds";
}
You could also do that with Perl's built-in functions:
#!/usr/bin/perl
use strict;
use warnings;
$" = '<was :>';
setpwent;
while ( my @passwds = getpwent ) {
print "@passwds";
}
endpwent;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>