Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
Do you know where your variables are?
 
PerlMonks  

use slack;

by thabenksta (Pilgrim)
on Apr 11, 2001 at 23:47 UTC ( #71831=poem: print w/ replies, xml ) Need Help??

#!/usr/local/bin/perl -w use slack; $hurry++; if ($project{'completiontime'} < $project{'estimate'}) { $bonus++; } else { die "canned"; } if ($project eq 'complete') { my $schedule = ''; my $activity = slack::new('IRC'); $activity->start('/join #perlmonks'); } else { my $schedule = 'full'; while (my $boss != 'looking') { my $activity = slack::new('IRC'); $activity->start('/join #perlmonks'); } }

thabenksta

my $name = 'Ben Kittrell'; $name=~s/^(.+)\s(.).+$/\L$1$2/g; my $nick = 'tha' . $name . 'sta';

Comment on use slack;
Select or Download Code
(redmist) Re: use slack;
by redmist (Deacon) on Apr 12, 2001 at 01:53 UTC

    Reminds me of the snippet that I have on my home node from h0mee:

    #!/usr/bin/perl use Slack qw(:standard); my $yeti = new Slack; praise q{Bob}; $yeti->stark_fist('GLOBAL');

    Praise "Bob" and Fuck 'Em if They Can't Take a Joke!

    redmist
    Silicon Cowboy

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://71831]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2014-04-20 17:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls