no save
Assistance
Achat
News

Forum | Linux/Unix
[Perl] souci lecture fichier csv
Vince17, le ven. 26 janv. 2007 à 14:41:25
maintenant j'ai un autre souci
j'ai plusieurs de zone reverse dns dans mon fichier csv les adresses ne sont pas trié donc je cherche comment faire pour qu'il compare l'adresse et rentre bien dans son fichier reverse dans ma config.

j'ai fait

while($i<$j)
{
if ($adr[$i] eq 128)
{
print REV2 "$adr[$i]\tIN\tPTR\t$nom[$i]\n";
}
elsif ($adr[$i] eq 194)
{
print REV3 "$adr[$i]\tIN\tPTR\t$nom[$i]\n";
}
else
print REV1 "$adr[$i]\tIN\tPTR\t$nom[$i]\n";
$i++;
}

close REV1; close REV2; close REV3

Bien sur j'intègre ça au script ci-dessus ;) (et j'ai bien ouvert les 3 REV)
Au résultat il me mets toutes les ip dans le REV1
PrécédentVince17
janv. 07
lami20j
janv. 07
Suivant
REPONSES
Vince17
janv. 07
bob031
janv. 07
lami20j
janv. 07
Vince17
janv. 07
lami20j
janv. 07
Vince17
janv. 07
Vince17
janv. 07
lami20j
janv. 07
Vince17
févr. 07
Version Web
Réalisé par RedShift
no save