Discussion :

[Kinethe]

Bonjour,

je travaille sur MAC et je fais du CGI et du perl.

dans mon CGI, je créée un fichier ( qui contient les données saisies par l'utilisateur ds le formulaire) Mon pbl est que ce fichier, je ne sais pourquoi, est un fichier DOS et je voudrais qu'il soit un fichier Unix.
dc on m'a dit de changer les news lines DOS contre des news lines Unix
avec la commande

tr '\015' '\012' < mac.txt > unix.txt

mais je ne sais pas comment l'introduire dans mon code qui est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
open F2, "> /Users/audrey/Sites/tmp/fichier_saisie" or 
        die "erreur d'ouverture dans le fichier_saisie \n";
print F2 "$input{'fichier_saisie'}";
close F2;

Merci

[Tuxico]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
open F2, "> /Users/audrey/Sites/tmp/fichier_saisie" or 
        die "erreur d'ouverture dans le fichier_saisie \n"; 
tr '\015' '\012' < mac.txt > unix.txt;
print F2 "$input{'fichier_saisie'}"; 
close F2;

[Kinethe]

en fait la ligne

tr '\015' '\012' < mac.txt > unix.txt;

ne marche pas à cause des quotes, il faut que j'insère des caractères d'échappement mais je ne les connais pas en perl.

qlq'1 peut me renseigner?

merci

[vic]

Il faut plutôt insérer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

system( "tr '\015' '\012' < mac.txt > unix.txt" );

Le problème si tu fais du CGI c'est que tu n'auras peut être pas le droit d'utiliser la commande "tr", dans ce cas il faudra faire une boucle avec un "s/\r$//;".

P.S. : évite le crosspost

[Kinethe]

Je ne comprends pas trop ce que tu veux dire par

il faut faire une boucle avec un "s/\r$//;"

pouvez- vous m'en dire plus merci?

ou avez-vous une autre proposition à me faire?


merci vraiment

[Kinethe]

merci j'ai pu résoudre mon pbl.