Shell Programming and Scripting

/folder/path/path2/pathX/file.lua,d/1.2699.gz
/folder/path/path4/pathX/file2.lua,d/1.2699.gz
/folder/path/path2/pathX/data/file3.lua,d/1.2699.gz

/mnt/cifs/folder/path/path2/pathX/file.lua,d/1.2699.gz
/mnt/cifs/folder/path/path4/pathX/file2.lua,d/1.2699.gz
/mnt/cifs/folder/path/path2/pathX/data/file3.lua,d/1.2699.gz

/folder/path/path2/pathX/file.lua,d/
/folder/path/path4/pathX/file2.lua,d/
/folder/path/path2/pathX/data/file3.lua,d/

xargs -n1 -I% sh -c 'test -f % && mv /mnt/cifs/% %' < infile

#!/bin/bash

file='1.2699.gz'
files=`cat cleanerror.txt`
filesdir=`sed -e 's/$file//g' cleanerror.txt`

for i in $filesdir; do
mkdir -p $i
done

for i in $files; do
cp "/mnt/cifs/$i" $i
chown user:group $i
done

#!/usr/bin/perl

use File::Basename;
use File::Copy;

$result = open (IN, "file.txt");
while (defined ($dataLine = <IN>)) {
        chomp ($dataLine);
        my $dir = dirname($dataLine);
        system("mkdir -p $dir");
        system("chown user:group $dir");
        my $oldPath = "/mnt/cifs" . $dataLine;
        copy($oldPath,$dataLine);
        system("chown user:group $dataLine");
        system("chmod 644 $dataLine");
}

sed 's|^|/mnt/cifs|' < cleanerror.txt | pax -rw -p e -s '|^/mnt/cifs||' /.