Tag Archives: File Copy

Moving multiple filetype in a single loop

March 25, 2013 Bartle Doo Leave a comment

Hi,
I am using the below code to move *.sh files to another directory.

Code:

use File::Copy qw(move);
while()

{
move $_,"C:/Users/pandeesh/Desktop/Projects";

}

My requirement is i want to move *.sh,*.txt,*.xlsx,*.doc,*.pdf and *.epub files to the specified directory.

How i can specify the pattern in the while condition for achieving this?

Thanks

Linux

Blade 1500 Silver

February 13, 2013 Bartle Doo Leave a comment

By MadeInGermany

CPU/Speed: UltraSPARC-IIIi/1.5Ghz
Ram: 1GB
Motherboard: Sparc
Bus: PCI
Cache:
Controller:
Disk: ATA
Load: 1 user
Kernel: SunOS 5.10 Generic_137111-02
Kernel ELF?: yes
pgms: gcc 2.95.3 compiled

BYTE UNIX Benchmarks (Version 3.11)
System — SunOS aachen95 5.10 Generic_137111-02 sun4u sparc SUNW,Sun-Blade-1500
Start Benchmark Run: Tue Feb 12 18:36:33 MET 2013
10 interactive users.
Dhrystone 2 without register variables 2368680.4 lps (10 secs, 6 samples)
Dhrystone 2 using register variables 2138532.7 lps (10 secs, 6 samples)
Arithmetic Test (type = arithoh) 3047742.0 lps (10 secs, 6 samples)
Arithmetic Test (type = register) 145400.3 lps (10 secs, 6 samples)
Arithmetic Test (type = short) 126624.1 lps (10 secs, 6 samples)
Arithmetic Test (type = int) 143236.6 lps (10 secs, 6 samples)
Arithmetic Test (type = long) 157815.3 lps (10 secs, 6 samples)
Arithmetic Test (type = float) 444529.1 lps (10 secs, 6 samples)
Arithmetic Test (type = double) 407111.3 lps (10 secs, 6 samples)
System Call Overhead Test 247231.5 lps (10 secs, 6 samples)
Pipe Throughput Test 350931.2 lps (10 secs, 6 samples)
Pipe-based Context Switching Test 82263.6 lps (10 secs, 6 samples)
Process Creation Test 934.4 lps (10 secs, 6 samples)
Execl Throughput Test 273.1 lps (9 secs, 6 samples)
File Read (10 seconds) 711424.0 KBps (10 secs, 6 samples)
File Write (10 seconds) 1000.0 KBps (10 secs, 6 samples)
File Copy (10 seconds) 1004.0 KBps …read more
Source: FULL ARTICLE at The UNIX and Linux Forums

Linux

Perl string formation from array

December 7, 2012 Leave a comment

HI I ma using perl programming

my perl is like this

Code:

$InputFile = $ENV{UDE_TMP} . “/” .”cre_fmr_gen.temp_data_file_gen.dat”;
@duplicates = `cat $InputFile | cut -d “|” -f 1,1 | sort | uniq -c | awk ‘{ if($1>1) {print $2;}}’`;
my $cusiplist ;
foreach $cusip (@duplicates)
{
print(“instrument is $cusip”);
$cusiplist = $cusiplist . “|” . $cusip ;
}
print($cusiplist);
$tmp_file_1 = $ENV{UDE_TMP} . “/” .”prabhu1″;
$tmp_file_2 = $ENV{UDE_TMP} . “/” .”prabhu2″;
print($tmp_file_2 );
#$InputFile = $ENV{UDE_TMP} . “/” .”cre_fmr_gen.temp_data_file_gen.dat”;
print (“$InputFile “);
use File::Copy;
copy( “$InputFile” , “$InputFile.CP.Prabhu”);
$cmd = `cat $InputFile | egrep ‘$cusiplist’ > $tmp_file_1`;
#$cmd= `cat $InputFile >$tmp_file_I`;
system(cmd);
print($cmd);
so now i am getting the out put as

what needs to be done?
Source: The UNIX and Linux Forums

Linux

Perl string formation from arry

December 7, 2012 Leave a comment

HI I ma using perl programming

my perl is like this

Code:

what needs to be done?
Source: The UNIX and Linux Forums

Bartle Doo Article Archives

Tag Archives: File Copy

Moving multiple filetype in a single loop

Blade 1500 Silver

Perl string formation from array

Perl string formation from arry

Articles Archive