Perl !

Retourner au contenu associé (journal : Créer un livre dont vous êtes le héros avec des outils libres + question sur les regex)

# Perl !

Posté par arthurr (site web personnel) le 17 juillet 2007 à 22:10. En réponse au journal Créer un livre dont vous êtes le héros avec des outils libres + question sur les regex. Évalué à 4.

#!/usr/bin/perl
use strict;
my $fichier=$ARGV[0];
open (FILE,"<$fichier") || die "ARGH : $!\n";
my $page;
while(){
chomp $_;
if($_=~/->/){
$page=$_;
}elsif($_=~m/;/){
@_=split ";",$_;
foreach(@_){
print "$page$_;\n";
}
}else{
print "$_\n";
}
}
close(FILE);