Help for this page

Select Code to Download


  1. or download this
    
#!/usr/local/bin/perl -w
...
{
(my $path = shift) =~  s![\\/]+!\\!g;  return $path; 
}
  2. or download this
    c:\20090127\A\01.TXT
c:\20090127\A\02.TXT
...
c:\20090127\B\04.TXT
c:\20090127\B\05.TXT
c:\20090127\C\06.TXT
  3. or download this
    C:\>perl program.pl c:\20090127\ C:\targetdirectory\
  4. or download this
    c:\targetdirectory\01.TXT
c:\targetdirectory\02.TXT
...
c:\targetdirectory\04.TXT
c:\targetdirectory\05.TXT
c:\targetdirectory\06.TXT