Tfe

Old stuff/ecole_etude_fac_de_pau/perl/ciel2.pl

#!/usr/bin/perl -w
my $rep;
my $url_br;
my $fic;
$rep = "/home/tfe/ecole";

opendir(DIR,"$rep") or die("IMPOSSIBLE D OUVRIR");
print "processing directory $rep\n";
while (defined($fic = readdir DIR)) {
 next if ($fic =~ /^\.\.?/);
 open (FIC, "$rep/$fic") or die "impossible d'ouvrir le fichier $rep/$fic : $!\n";
 print "processing $rep/$fic ... \n";
 while (my $ligne = <FIC>) {
 if ($ligne =~ m!(http:.*)/!) {  $url_br = $1}
 
 
 }
 }