Re: windows XP copyfile

[John M. Dlugosz]

Seek the wisdom of the Perl Monks at www.perlmonks.org.
Short answer:  http://perldoc.perl.org/functions/-X.html
-M gives the file age.

--John

Tara taralish-at-yahoo.com |Perl 6| wrote:

I'm trying to do a Perl script (PC has Perl5 installed) in a BAT file
which will open the CMD prompt, interact with the user and copy files
from one location to other directories.  Does anyone know how to dir
the files in a directory into an array and sort by date and return the
ones within the past week?  So far I have this code and it returns all
the files:

   @files = `dir`;
   chomp (@files);
   print $#files \n;
   if ( @files =~ /[Qq]/ ) {
   exit 0;
   }
   if ( @files =~ /xml$/ ) {
   print Recently added XML files: $files \n;
   printf COPYLOG Recently added XML files: @files \n;
   $type = xml;
   }
   elsif ( @files =~ /tc$/ ) {
   print You are copying an expected result file \n ;
   printf COPYLOG You are copying an expected result file \n ;
   $type = tc;
   }
   else {
   print Invalid file type or @files doesn't exist in current
directory\n ;
   printf COPYLOG Invalid file type or @files doesn't exist in
current directory\n ;
   $type = bad;
   }


  
  

Re: windows XP copyfile

[Will Coleda]

On Thu, Aug 7, 2008 at 9:38 AM, Tara [EMAIL PROTECTED] wrote:
 I'm trying to do a Perl script (PC has Perl5 installed) in a BAT file
 which will open the CMD prompt, interact with the user and copy files
 from one location to other directories.  Does anyone know how to dir
 the files in a directory into an array and sort by date and return the
 ones within the past week?  So far I have this code and it returns all
 the files:

   @files = `dir`;
   chomp (@files);
   print $#files \n;
   if ( @files =~ /[Qq]/ ) {
   exit 0;
   }
   if ( @files =~ /xml$/ ) {
   print Recently added XML files: $files \n;
   printf COPYLOG Recently added XML files: @files \n;
   $type = xml;
   }
   elsif ( @files =~ /tc$/ ) {
   print You are copying an expected result file \n ;
   printf COPYLOG You are copying an expected result file \n ;
   $type = tc;
   }
   else {
   print Invalid file type or @files doesn't exist in current
 directory\n ;
   printf COPYLOG Invalid file type or @files doesn't exist in
 current directory\n ;
   $type = bad;
   }



Apologies, but this list is for the discussion about the next
generation of perl (perl 6).

For help with the current version (perl 5), I'd recommend starting at
http://www.perl.org/ and looking through the online documentation and
the various community links.

That said, I'd recommend taking a look at the output of the command
perldoc find2perl

Regards.

-- 
Will Coke Coleda

windows XP copyfile

[Tara]

I'm trying to do a Perl script (PC has Perl5 installed) in a BAT file
which will open the CMD prompt, interact with the user and copy files
from one location to other directories.  Does anyone know how to dir
the files in a directory into an array and sort by date and return the
ones within the past week?  So far I have this code and it returns all
the files:

   @files = `dir`;
   chomp (@files);
   print $#files \n;
   if ( @files =~ /[Qq]/ ) {
   exit 0;
   }
   if ( @files =~ /xml$/ ) {
   print Recently added XML files: $files \n;
   printf COPYLOG Recently added XML files: @files \n;
   $type = xml;
   }
   elsif ( @files =~ /tc$/ ) {
   print You are copying an expected result file \n ;
   printf COPYLOG You are copying an expected result file \n ;
   $type = tc;
   }
   else {
   print Invalid file type or @files doesn't exist in current
directory\n ;
   printf COPYLOG Invalid file type or @files doesn't exist in
current directory\n ;
   $type = bad;
   }