File::copy et retour chariot
Bonjour,
Je voudrais faire quelque chose de plus efficace que ce bout de code
Code:
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 !
