Revision: 2306
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at February 1, 2007 07:06 by olive
Initial Code
#open(SQL2, "> $SQL2") or die "maj_studio108.pl : impossible de creer le fichier $SQL2 \n";
#open(SQL, "$SQL") || die "Problème à l\'ouverture : $!";
#my $i = 0;
#while(<SQL>)
#{
#$i ++;
#my $ligne="$_";
#$ligne =~ s/\x19/\\\'/g;
#print SQL2 $ligne;
#}
#print "\nNombre de lignes : $i\n";
#close SQL || die "Problème à la fermeture : $!";
#close(SQL2);
Initial URL
Initial Description
Initial Title
Lecture ecriture fichier
Initial Tags
file
Initial Language
Perl