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 !