Shell Programming and Scripting

#!/usr/bin/perl

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

my @files;
my @file_name;
my $folder = "./scratch" #please use absolute path
my $my_file = "makefile"; #please use absolute path
open(HANDLE,"<$my_file");

while(<HANDLE>)
{
    if(/check_geomtools.exe:/./\.lib$/)
    {
     @libs = split(/: /);
     push (@files, $libs[1]);
     }
}
     if ( -d $folder ) {
     mkdir ($folder, 0700);
     print "Created $folder\n";
     }
     
     foreach my $file (@files){
          @filename = split(/\\/,$file);
          copy($file,$folder.$filename[-1]);
    }
         
}

close HANDLE;

copy(absolute_name<$file>, new_name<$folder.$filename[-1]>)

@filename = split(/\\/,$file);
my new_file = $folder . $filename[-1];
copy($file,$new_file) or die "Copy Failed";

#!/usr/bin/perl

use File::Copy qw(copy);
use Archive::Zip qw/ :ERROR_CODES :CONSTANTS/;


my @files;
my $folder = "scratch"; 
my $my_file = "makefile"; 
open(HANDLE,"<$my_file");

while(<HANDLE>)
{
    if(/check_geomtools.exe:/./\.lib$/)
    {
     @libs = split(/: /);
     push (@files, $libs[1]);
     }
}
close HANDLE;
     if ( -d $folder )
	 {	
		print"$folder already exists..\ndeleting..\n";
		rmdir "$folder";
		print"$folder deleted..\ncreating new $folder\n";
		mkdir $folder;
		print "Created $folder\n";
	}
     
     foreach (@files)
	{
		chomp;
		copy($_,$folder);
    }