Help for this page

Select Code to Download


  1. or download this
    foreach my $file(@array){
... get filenames ...
}
  2. or download this
    foreach my $file(@array){
get_filenames($file);
...
my ($filename ) = @_;
foreach ($filename)      
copy($filename, "copied_files/$dest"); #this is the tricky part, which
+ i will try to describe <.<
  3. or download this
    open my $temp, '>', "loopfile"
;
...
'}', "\n";
$num1++;
}