Josimar Nunes De Oliveira wrote:
> Hi,
> Pablo, you should write this at line of IF command:
> if($count>0 && $count<$#archivo) {
> I hope you get the right thing you want.
Hi Pablo.
Josimar's right, and it also looks like you're not
using 'strict'? You may prefer the following, which
avoids the $count variable altogether, and uses
the IO::Handle module to avoid the cryptic $|=1
Cheers,
Rob
use strict;
use warnings;
my @archivo;
use IO::Handle;
autoflush STDOUT;
foreach my $i (@archivo[1 .. $#archivo-1]) {
my ($correo, $clave, $nombre, $registro, $id, $sexo, $password) = split(/\|/, $i);
my ($user, $host) = split(/\@/, $correo);
print $host, "\n";
sleep 1;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
