Script na mazanie

[Jan Vitek]

#!/usr/bin/perl -w                                                              
                                                                                
my @cas=localtime(time);                                                        
my $dnes=$cas[5]+1900;                  
$dnes.=sprintf("%02d",$cas[4]+1).sprintf("%02d",$cas[3]);    

system (`cp $file $dnes`);

system (`echo > $file`);


treba takhle. ale jde to i lepe, pravdepodobne


-- Jan Vitek 



> 
> 
> Dobry den
> Chcem sa informovat ci niekto nema scipt ktory vymazava file 
> z adresara ale este predtym urobi zalohu a pomenuje ju podla 
> aktualneho datumu. 
> 
> Vdaka za kladnu odpoved
>