première découverte d'un script Perl

[Tchucky]

Bonjour je n'ai jamais programmer en Perl, mais pour mon mémoire, il me faut utiliser un script Perl qu'on m'a envoyé. J'ai plusieurs questions concernant ce script

première question toute bête

voici le début du code :

#$attsurf = "/home/manu/hybrid/bin/attsurf";

$attsurf = "/mnt/win_d/hybrid/bin/attsurf";

die "Error: $attsurf not found" unless (-e $attsurf);

le fichier attsurf peut être de quel type ? sachant que le seul endroit où on l'utilise est :

`$attsurf $file_y $file_z | tr -s '\n' > $file_att`;

où

$file_y="$dirs[$y2]/$instance/$prefix[$p]${tests[$x][$y]}.dat";

$file_z="$dirs[$z2]/$instance/$prefix[$p]${tests[$x][$z]}.dat";

$file_att = "$$/att.${outfile}.dat";

deuxième question , elle concerne la signification de qqes lignes qui suivent l'inscription en gras dans le script

$nruns = `head --line=1 $file_att | wc --words ` - 2;

$nruns_by_two = $nruns / 2;

$nruns_by_four = $nruns / 4;

open(ATT, "<$file_att");

open(DIFF, ">$file_diff");

while(<ATT>) {

($num1, $num2, @line) = split;

$count1=0;

foreach $i (0 .. ($nruns_by_two -1)) {

if($line[$i] ne "0") {

$count1++;

}

}

$count2=0;

foreach $j (($nruns_by_two) .. ($nruns-1)) {

if($line[$j] ne "0") {

$count2++;

}

}

print DIFF "$num1 $num2\t$count1\t$count2\n";

}

close DIFF;

close ATT;

`rm -f $file_att`;

je voudrais quelle est la forme du fichier ATT et du fichier DIFF, comment sont organisées les données

[theocrite]

le fichier attsurf peut être de quel type ? sachant que le seul endroit où on l'utilise est :

`$attsurf $file_y $file_z | tr -s '\n' > $file_att`;

Les backquotes (`) servent à exécuter une commande dans le shell, dont ton fichier doit être un binaire avec les droits d'exécution bien settés.

je voudrais quelle est la forme du fichier ATT et du fichier DIFF, comment sont organisées les données

Ça semble être de simples fichiers textes.

Pour t'aider :

perldoc -f open

http://sylvain.lhullier.org/publications/perl.html