I solve it as follows:
its work.
and I'll convert PxT script to bourne soon........

[Edited by tamer on 01-30-2001 at 09:37 AM]
added code tags for readability --oombera

Here is Perl Script that could solve your problem:

#/bin/perl

use File::Copy;

$directory = ".";
$moveto = "/var/dist";
$prefix = "access-log";
$ignoredFiles = "";
$count=0;

my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime;
$month=$month+1;
if($mon < 10) { $month="0".$month; }
$year =~ s/1/20/;

$today = join("-", ($year, $month, $mday));


opendir (DIR, "$directory") || die "Can't open $directory,Reson$!";
@dir = grep(/.log$/,readdir(DIR));
closedir (DIR);

# Now, for every file in the directory...
foreach $file (@dir) {
# If it contains today's date ignore it
# If it is older than 'n' day (-M "$directory/$file" > n)

if ("$directory/$file" =~ $today) {
$ignoredFiles .= "$file\n"; }
else {
copy("$directory/$file", "$directory/$moveto/$prefix-$file") || die("Can't Copy. Reason:$!\n");
$count = $count+1;
}
}


print "\n$count files moved";
print "\nFiles ignored(Today's file): $ignoredFiles";

I know perl prides itself on the fact that "There is more than one way to do it", but why do you do a string substitution here, when simple arithmetic would work just as well?

$year +=1900;


Using a string sub. is really just obfuscation. And as an added benefit, the arithmetic method will ensure that your scripts continue to work in the 22nd century and beyond.

Thank you for Pointing out the blunder in my script Pxt. I were unaware of that method


As you said I want to run that script 22nd century people and email me "oh man what a script"