| Public Scratchpad | Download, Select Code To D/L |
Here's an attempt at making it easier to communicate with Perl Monks.
This is formatted text and also some code which we'll ask Word to convert into HTML and then paste it to my area. In particular I'd like to be able to spruce up my home node with things like lists.
Now some Perl code:-
#!/usr/bin/perl -w # # Module to test ability to age files and delete them # if they're older than a certain time. # @FileList = `dir /B ..\\reports`; # /B lists just the file name. foreach $FileName ( @FileList ) { chomp $FileName; $FileAge = ( -M "..\\reports\\$FileName" ); # -M - time since modified. if ($FileAge gt 3) { print "$FileAge, I'll delete this:- "; print " $FileName\n"; } else { print "$FileAge, But these are too young:- "; print " $FileName\n"; } }</CODE></FONT><FONT FACE="Courier New" SIZE=1><P>#!/usr/bin/perl -w <P>}</P>
I wonder if graphics get included.
</BODY> </HTML>