Shell Programming and Scripting

#!perl.exe

use strict;
use File::Copy;

my @sub_dir = ("sqr","src","user","nvision","winword","crw","excel","maint","projects","scripts","data");
my $source = "C:\\Test";
my $destination = "C:\\Test2";

foreach (@sub_dir) 
   {
   my $dir1 = glob($source . "\\" . $_ . "\\*");
   my $dir2 = glob($destination . "\\" . $_);
   
   print "$dir1\n";
   }

#!perl.exe

use strict;
use warnings;
#use File::Copy;

my @sub_dir = ("sqr","src","user","nvision","winword","crw","excel","maint","projects","scripts","data");
my $source = 'C:/Test';

foreach (@sub_dir) 
   {
   my @dir1 = glob("$source/$_/*");
   print $_\n" for @dir1;
   }

#!perl.exe

use strict;
use File::Copy;

my @sub_dir = ("sqr","src","user","nvision","winword","crw","excel","maint","projects","scripts","data");

print "\nEnter source directory";
chomp (my $source_dir = <STDIN>);

print "Enter destination directory";
chomp (my $dest_dir = <STDIN>);

foreach (@sub_dir) 
   {
   my @source = glob("$source_dir/$_/*");
   my $destination = "$dest_dir/$_";
   
      foreach my $file (@source)
      {
      print "copying files from $source_dir to $dest_dir... please wait.\n";
      copy ($file, $destination);
      }
   }

copy ($file, $destination) or do {
   print qq{Unable to copy '$file' to '$destination': $!\n};
};