Discussion :

[fripette]

Bonjour,
Je voudrais faire quelque chose de plus efficace que ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
my ($file) =@_;	
	$file=~m/^.*(\\|\/)(.*)/ if ($file=~/\//); # strip the remote path and keep the filename
    open(LOCAL, ">".$$global{tmp}."/$file") or die $!; 	    
	while(my $line = <$file>) {  
		$line =~ s/\r/\n/g;
		print LOCAL $line;  
    }
    close(LOCAL); 
#   system("chmod 664 ".$$global{modassign_tmp}."/$file");	
	return $file;

avec un simple file::copy.
Mais je ne sais pas si ce module transforme les \r en \n (pour ne pas citer windaube).
Merci pour l'info !

[Lolo78]

A ma connaissance, le module File::Copy fournit les opérations système de copie et de renommage de fichier, mais ne fait pas de conversion de format.

J'ajoute que la conversion que tu envisages:

Code :

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

1
2
 
$line =~ s/\r/\n/g;

Ne me paraît pas correcte. Si tu désires, comme je l'imagine, convertir un fichier du format DOS au format Unix, il faut seulement supprimer le "\r", mais pas les remplacer par des "\n". Dans le format DOS (ou Win), les retours sont composés de deux caractères ("\r\n"), alors qu'au format Unix c'est seulement "\n". La conversion se fait donc en supprimant simplemeent les "\n". Voici un script uniligne effectuant les modifications "en place" (modifiant le fichier sans en créer de noouveau):

Code :

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

1
2
 
perl -pi -e 's/\r//g' nom_fic.txt

Il suffit de créer un alias (par ex. dos2unix) contenant la ligne ci-dessus dans ton fichier de configuration de ton shell pour résoudre une bonne fois pour toute le problème. A noter que sous Linux, bash fournit déjà généralement cet utilitaire.

[djibril]

Réponse dans la FAQ.

[fripette]

Merci Djibril et Lolo78,
J'avais effectivement vu dans la FAQ mais je me suis dit qu'un module existe exprès pour ça et que je pourrais éventuellement l'utiliser si les retour chariot étaient gérés.
Il semble que non donc je vais le faire en deux temps avec la solution de la FAQ et le module file::copy.

Merci pour vos réponses