topic Re: Perl script question in Operating System - HP-UX

Perl script question

Anthony khan — Mon, 03 Nov 2003 11:22:01 GMT

Hi everyone,

I need to do some modification in perl script here's the syntex

if ($ftpid eq "zzz"){
foreach $file (@{$ftpFileL{$ftpid}}){
$basename = basename($file);
copy($file,"./$basename.$mydate[4]$mydate[3]$mydate[5]");
}
}

Right now we are putting the time stamp on each file but for 4 specific files we don't want to put time stamp and for other we want. So can someone help me out here.

Thanks

Re: Perl script question

Mark Grant — Mon, 03 Nov 2003 11:30:04 GMT

Why not keep a hash of filenames instead of an array and then just delete the ones you dont want to process.

Load you hash with $filename{$file}=$file;

delete them with something like delete $filename{myfile1};delete $filename{myfile2} etc;

go through them with

foreach $hashfile ( keys %filenames){
do something with $hashfile which is the name of the file
}

Just a thought

Re: Perl script question

Steven E. Protter — Mon, 03 Nov 2003 11:35:22 GMT

Slight change will do the job:

if ($ftpid eq "zzz"){
foreach $file (@{$ftpFileL{$ftpid}}){
$basename = basename($file);
$filename = "./$basename"

if ( condition for these 4 files){
else
$filename = "./$filename.$mydate[4]$mydate[3]$mydate[5]");
}
copy($file,"$filename");
}
}

You will have to play a bit to get it to work.

SEP