Shell Programming and Scripting

#!/usr/bin/perl
$localfilen= "test.log";
open(LOG, ">$localfilen") ||
        die "Sorry, could not open test.log $!";
 
print LOG "STEPONE\n";
close LOG;

$
$ # show the content of the input csv file
$
$ cat input.csv
aaaa,13455
bbbb,23465
cccc,26689
$
$ # Perl one-liner to move the files to respective directories, if the latter exist
$ # otherwise log error to a file
$
$ perl -M"File::Copy" -F"," -lane 'BEGIN {open(F,">","output.log")}
                                   if (-d $F[1]) {move($F[0], $F[1]); print "=> Moved $F[0] to $F[1]"}
                                   else {print F "=> $F[1] does not exist, cannot move $F[0] in there!"}
                                   END {close(F)}
                                  ' input.csv
=> Moved aaaa to 13455
=> Moved cccc to 26689
$
$
$ # check the log file
$
$ cat output.log
=> 23465 does not exist, cannot move bbbb in there!
$
$
$

!/usr/bin/perl
use File::Copy;
use warnings;
use strict;

my ($debug);
$debug = 0;
$debug = 1;
my $fp = "/temp/filespath/";
my $dp = "/temp/folderpath/";
my $dn = "/content/";  -- This folder will reside under each foldername, so actually file should goes inside this----
chomp( my (%hash) = map { split "#" } my (@a) = <> );

foreach my $fname ( keys %hash ) {
        copy($fp . $fname,$dp . $hash{$fname} . $dn) or die "Copy Failed for $fname, $hash{$fname} $!";
}

exit(0);

filename                    foldername
firstname, lastname # 12345
firstname, lastname # 23545

perl scriptname.pl textfile 2>>Errolog