Solved;
Another case of buffering, the right code:
foreach $i (@archivo) {
#Dont count the first and last line
if($count>$size || $count<$size) {
($correo, $clave, $nombre, $registro, $id, $sexo, $password) = split(/\|/,
$i);
($user, $host) = split(/\@/, $correo);
print $host."\n";
$|=1;
sleep 1;
}
$count++;
}
;-), However, thanks
Pablo
--
Pablo Fischer Sandoval ([EMAIL PROTECTED])
http://www.pablo.com.mx
http://www.debianmexico.org
GPG FingerTip: 3D49 4CB8 8951 F2CA 8131 AF7C D1B9 1FB9 6B11 810C
Firma URL: http://www.pablo.com.mx/firmagpg.txt
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
