Help for this page

Select Code to Download


  1. or download this
    use File::Find;
...
...
finddepth(\&check_and_copy, $srcdir); 

# sub check_and_copy  check the time of file/dir and only copy the upd
+ated file/dir to $dstdir
  2. or download this
    $srcdir="d:\\perl\\source\\test";  
if(Encode::is_utf8($srcdir) ){    
...
    print " src is_NOT_utf8\n";
}
# I got "src is_NOT_utf8",  I heared Perl use UTF8 internal. but it se
+ems that's not so simple.
  3. or download this
    use utf8;
$srcdir="d:\\perl\\source\\test\\öa";  
# I got "Malformed UTF-8 character (unexpected non-continuation byte 0
+x61, immediately after start byte 0xf6)"