Hi monks (specially tye && tilly),

Sorry I took long to give you feed back, but I try a lot your suggetions, getting sometimes very close without never found the way to get trought that problem. I finally get a ISO certified head hack x:- {

But after a good sleep (+ 1 hour for time changing), I did few last test and tought that this is really a Windows problem who have problem dealing with filenames with non-standard characters. I was about to write you all I've done since when ... Surprise! It works find?!?!?!

I have been induced in error by corrupted files and not because they were containing special characters. And the trace I wrote make me tought I was right,... but I wasn't.

I'm putting the code I wrote for those who are sceptical like I was and certify that I used it to copy files with French accents on Win2k sp4 and XP sp2, from FAT32 and/or NTFS to Fat32 and/or NTFS.

===========================================================================================
#!/usr/bin/perl -w

 use Cwd;
 use Win32API::File 0.08 qw( :ALL );
 use Encode qw(from_to);


 sub ScanDirectory{
  my ($workdir) = shift;
  my ($prefix) = shift;
  my ($startdir) = &cwd;

  chdir($workdir) or die "Unable to enter dir $workdir:$!\n";
  opendir(DIR, ".") or die "Unable to open $workdir:$!\n";
  my @names = readdir(DIR) or die "Unable to read $workdir:$!\n";
  closedir(DIR);

  foreach my $name (@names) {

   next if ($name eq ".");
   next if ($name eq "..");

   push(@liste, $prefix."/".$name);
   if (-d $name) {
    &ScanDirectory($name, $prefix."/".$name, @liste);
    next;
   }
  }
  chdir($startdir);
 }

 @liste = ();
 my $sourcedir = "C:/A";
 my $destdir = "D:/B";

 #Getting the liste of files in source dir.
 ScanDirectory($sourcedir, "");
 @liste1 = sort @liste;
 @liste = ();

 #Getting the liste of files in destination dir.
 ScanDirectory($destdir, "");
 @liste2 = sort @liste;

 #Create a liste of files that are in source but not in destination dir.
 foreach my $l1_item (@liste1) {

  if (@liste2) {

   $l2_item = $liste2[0];

   if ("/i$l1_item" lt "/i$l2_item") {
    # Copier l1_item dans rep2
    push @liste3, $l1_item;
   }

   if ("/i$l1_item" eq "/i$l2_item") {
    shift @liste2;
   }

   if ("/i$l1_item" gt "/i$l2_item") {
    shift @liste2;
    unshift @liste1, $l1_item;
   }
  } else {
   # Copier l1_item dans rep2
   push @liste3, $l1_item;   # Copier l1_item dans rep2
  }
 }


 # Copy the missing files
 foreach my $item (@liste3) {
  if (-d $sourcedir.$item) {
   mkdir($destdir.$item) unless -e $destdir.$item;
  } else {
   CopyFile( $sourcedir.$item, $destdir.$item, 1 );
  }
 }

 printf("liste3 contient : ".@liste3."\n");
 foreach my $item (@liste3) {
  from_to($item, "iso 8859 1", "cp437");
  printf( $item."\n" );
 }
===========================================================================================

Note :
 from_to($item, "iso 8859 1", "cp437");

is use to see that at the screen :

/New Text Document
/New Text Document/La légende du cheval blanc.mp3
/New Text Document/New Text Document.txt
/New Text Document/pod2htmd.tmp
/New Text Document/pod2htmi.tmp
/Newtest.pl
/Newtest.pl.exe
/éäàåçêëèïîìÄûù
/éäàåçêëèïîìÄûù/é
/éäàåçêëèïîìÄûù/éäàåçêëèïîìÄûù.txt

instead of :

liste3 contient : 10
/New Text Document
/New Text Document/La lTgende du cheval blanc.mp3
/New Text Document/New Text Document.txt
/New Text Document/pod2htmd.tmp
/New Text Document/pod2htmi.tmp
/Newtest.pl
/Newtest.pl.exe
/TSastOdFne8-v·
/TSastOdFne8-v·/T
/TSastOdFne8-v·/TSastOdFne8-v·.txt

Thank you very much!

Jhoule

In reply to Re: Cannot copy files when filenames got French accentuated character by jhoule
in thread Cannot copy files when filenames got French accentuated character by jhoule

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.