;;
grep /^Completed\.archive\.\d{1,4}$/
&& -M "$dir"."$_" > 2, readdir $dh; };
foreach (@files) {
system ("compress -v $dir$_") == 0 or die $?;
# print "$_\n";
};
-Original Message-
From: Rob Dixon [mailto:
Thanks Rob Dixon and John W. Krahn for your help I really appreciate it.
This is what I came up with based on your examples and the code works
great. Thanks again.
Rob McGinness
#!/usr/bin/perl
my $dir = "/cert/ImpactServer-5_4/cl9/ctrl_sfm9/sfm9_sched/archives/";
my $dh
the rest. I know it's not a permissions issue
with the files because when I run the script a second time it will
compress the next file successfully and get errors on the remaining
files.
I am using AIX operating system.
Any help would be greatly appreciated. Thanks in advance.
