Programmation Perl

De Le wiki de Fred sur gantzer.eu

Charger un fichier ascii dans un tableau

my $fichier1="fichier.txt";
my @champs;

-T $fichier1 or erreur("$fichier1: binaire !");

#Chargement dans le tableau 
open (F1, $fichier1) or erreur("Impossible d'ouvrir $fichier1: $!");
while(<F1>){
  if ( $_ =~ /^[0-9]*.[0-9]*.[0-9]*.[0-9]*\s[0-9]*.[0-9]*.[0-9]*.[0-9]*\s.*$/ ){
         push @champs, [ split ];
  }
}
close (F1);

# Lecture du tableau
my $i=0;
# Iteration sur le tableau contenant les logs formates
for $i ( 0 .. $#champs ) {
  print "$champs[$i][0] $champs[$i][1]";
}

sub erreur {
 my $msg = shift;
 $msg .= "\n";
 warn $msg;
 exit 2;

Calculer le reseau en fonction du masque

my @reseau;
my $ip="10.10.10.4"
my $m="255.255.224.0";

my @ip=split /\./,$ip;
my @masque = split /\./,$m;

push @reseau,0+$ip[$_] & $masque[$_] for 0 .. 3;
my $reseau=join ".",@reseau;
Outils personnels
Navigation