Advanced Search

Return to Snippet

Revision: 2306
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