Posted By

olive on 02/01/07


Tagged

file io


Versions (?)

Lecture ecriture fichier


 / Published in: Perl
 

  1. #open(SQL2, "> $SQL2") or die "maj_studio108.pl : impossible de creer le fichier $SQL2 \n";
  2. #open(SQL, "$SQL") || die "Problème à l\'ouverture : $!";
  3. #my $i = 0;
  4. #while(<SQL>)
  5. #{
  6. #$i ++;
  7. #my $ligne="$_";
  8. #$ligne =~ s/\x19/\\\'/g;
  9. #print SQL2 $ligne;
  10. #}
  11. #print "\nNombre de lignes : $i\n";
  12. #close SQL || die "Problème à la fermeture : $!";
  13. #close(SQL2);

Report this snippet  

You need to login to post a comment.