Hi all,
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";
}
--------------
This now only prints 21 lines?
I am not sure why? It misses the odd ones.
#!/usr/bin/perl
use strict;
use warnings;
$" = '<was :>';
open PASSWD, "/etc/passwd"
or die "Eh? ($!)";
while (<PASSWD>) {
my @passwds = split /:/, <PASSWD>;
print "@passwds";
}
--
Just getting into the best language ever...
Fancy a [EMAIL PROTECTED] Just ask!!!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
