Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

snafu's scratchpad

by snafu (Chaplain)
on Jun 02, 2004 at 20:54 UTC ( #359739=scratchpad: print w/ replies, xml ) Need Help??

01/01/2005

(package main) 6 my $irc_handler = QsIRC->new ({ 7 'nick' => 'testnick', 8 'mode' => '+x', 9 'port' => 6667, 10 'email' => 'n@n.com', 11 'anick' => 'alt_nick', 12 'nsnick' => 'no', 13 'nspass' => 'no_again', 14 'server' => server.com', 15 'channels'=> '#zap',} +++ 1 package QsIRC; ... 27 sub new 28 { 29 my $deref = $_[8]; 30 31 #$nick = $$_[0]{nick}; 32 #$mode = $$_[0]{mode}; 33 #$port = $$_[0]{port}; 34 #$email = $$_[0]{email}; 35 #$anick = $$_[0]{anick}; 36 #$nsnick = $$_[0]{nsnick}; 37 #$nspass = $$_[0]{nspass}; 38 $server = $deref->server; 39 #$channels = $$_[0]{channels}; 40 41 POE::Session->new( 'QsIRC' =>

12/24/2004

1 package QsOutput; 2 3 use Env; 4 use POSIX; 5 use strict; 6 7 our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); 8 9 my $Revision = substr(q$Revision: $,1); 10 my $ts = sub { strftime('%c',localtime()); }; 11 12 @ISA = qw(Exporter); 13 $VERSION = $Revision; 14 @EXPORT_OK = qw($DEBUGLVL); 15 @EXPORT = qw(debug); 16 17 our $DEBUGLVL = 0; 18 print $DEBUGLVL,"\n"; 19 20 1; 21 22 # debug {{{ 23 # prints debug messages 24 # returns(void) 25 26 sub debug 27 { 28 my $msg = shift; 29 my $pdbg = shift || 0; 30 my $dlvl = shift || 0; 31 32 print "DBG -- dlvl: $dlvl\n"; 33 if ( $dlvl >= $DEBUGLVL ) 34 { 35 if ( $pdbg ) 36 { 37 if ( $msg =~ /\n$/ ) 38 { 39 print &$ts ." : Debug($dlvl): $msg";

And from my main:

379 use QsOutput qw($DEBUGLVL = 4);

What do I have wrong? -- I'm getting this error:

"=" is not exported by the QsOutput module Can't continue after import errors at /home/zap/frag/cmds/qservwatch l +ine 379 BEGIN failed--compilation aborted at /home/zap/frag/cmds/qservwatch li +ne 379.

-- END --

(from home node revision -- last revised 20040701)

Well, I said I would fill it out later so I am now filling it out...beit that it is later now.

I am from Los Angeles California. I graduated high school in 1991 from Tennessee of all places. Ever since I have been obsessed with becoming a police officer (go figure). However, that dream has never materialized. So, I, instead, started working in a field that, until I started working in it, was a hobby. That would be the computer industry.

I started out at Earthlink Network, moved on to Disney Corporation, then moved to North Carolina to get married which put me into the hands of a complete loser of a boss who knew every theory about my work but had no practical knowledge of what was going on. Isn't it just always the way? Anyway, so here I am now working for a telephone company in North Carolina and am quite happy. My job is developing scripts. Everything here was in ksh (88 not 93) and I can script pretty well in shell but I decided I wanted more power. So, I moved on to Perl. I am totally loving it but have a long way to go. This is why I am here among the monks. This site absolutely hands down rules!
How do I create a module?

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (12)
As of 2014-08-20 18:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (121 votes), past polls