Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

hagen's scratchpad

by hagen (Friar)
on Jun 13, 2004 at 14:58 UTC ( #363860=scratchpad: print w/replies, xml ) Need Help??

<HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252"> <META NAME="Generator" CONTENT="Microsoft Word 97"> <TITLE>Here's an attempt at making it easier to communicate with Perl Monks</TITLE> </HEAD> <BODY>

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.

    • First
    • Second
    • And third

Now some Perl code:-

</FONT><FONT FACE="Courier New" SIZE=1><P>#!/usr/bin/perl -w <P>}</P>
#!/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>


I wonder if graphics get included.

Log In?

What's my password?
Create A New User
[Discipulus]: ah! just with my old system perl (5.8.8) was needed
[Corion]: Has anybody toyed around with Mastodon? There is a Perl module for it, but I'm not sure that it's a yak worth chasing
[Corion]: On the upside, maybe running that for my family would be interesting, or at least for myself
[Corion]: I'm not fond of using a server hosted by other people, even if they claim to be GNU ;)
[Discipulus]: gee a social network with the family.. is this a dread? ;=)

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2017-05-26 07:37 GMT
Find Nodes?
    Voting Booth?