Re: [PERL] Tilføj streng til alle filnavne i et

[Kim Schulz <sslug@sslug>]

On Thu, 09 Jan 2003 14:19:04 GMT
Michael Schmidt <sslug@sslug> wrote:
> Thu, 9 Jan 2003 14:28:33 +0100, Kim Schulz <sslug@sslug> skrev:
> [snip]
> > 
> > #!/bin/perl
> > 
> > foreach $file (@ARGV){
> >     rename $file, 20030107_$file;
> > }
> 
> Tak skal du ha' (men jeg er nød til at sætte "" om TS_$file).
> 
> Hvordan for jeg filens tidsstempel som min dato-variable?
> Kan kun finde en funktion til formålet i Win32-special funktionerne.
> -Hvor i perldoc skal jeg lede?

du kan bruge stat() ellers må du kunne bruge fil test operatorerne -M
(dage siden modificeret), -C (Dage siden inode ændring), og -A (dage
siden sidste tilgang). 

MVH
Kim