Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Tux vs. Daemon

by jdube (Initiate)
on Dec 30, 1999 at 21:11 UTC ( #1596=poem: print w/replies, xml ) Need Help??

#!/usr/bin/perl #A Perl poem by the masked JAPH BATTLE: $tux chop($daemon); die $daemon; $daemon dump($tux, $garbage); $tux eval($daemon) && $daemon study($tux); $daemon tell($tux) #You will fall before me. $tux warn($daemon) #Back off, man. $daemon chomp $tux; $tux kill $daemon; $daemon die, bless(ed by-God), $daemon connect $fist, $tux; $tux close(garage-door on $daemon); $tux $feels alarm(because-daemon-gets-up); $daemon bind($tux, railway-tie); $daemon exec(ute) $tux; but $tux(is-immortal) && so-is-daemon; so-battle-rages-forever; $withoutEndAndNoOneIsHappy; __END__

Replies are listed 'Best First'.
RE: Tux vs. Daemon
by Anonymous Monk on Feb 10, 2000 at 03:30 UTC
    Isn't it kind of cheating to use comments? I mean, why not just write a poem and put #s before every line?
      It doesn't compile either
        I know, I know... but it was my first try. If I have time I'll actually write a _good_ one :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://1596]
This node hasn't been approved yet
help
Chatterbox?
[Cosmic37]: now I have tried another blunder - can anyone explain why I am such a dunderhead?
[Cosmic37]: if ( $line =~ /$mydt/ ) { print $line; }
[Cosmic37]: I try to match successive date times stored in variable $mydt
[Cosmic37]: I guess it is searching for the string "$mydt"
[Corion]: Indeed cool, erix ;)
[Cosmic37]: rather than the value of $mydt which is a date time strong such as 2016-01-01 12:30:56
[Corion]: Cosmic37: No, but maybe $mydt doesn't contain what you think it does, or it contains characters that are special in a regular expression? Try if( $line =~ /\Q$mydt\E/) { ... for a literal match
[Cosmic37]: I mean string grrr
[Corion]: Maybe add an else branch in which you print what the values of $line and $mydt are?
[Cosmic37]: ah thank you I will try

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2017-06-29 17:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (673 votes). Check out past polls.