Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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 drinking their drinks and smoking their pipes about the Monastery: (11)
As of 2014-09-16 11:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (13 votes), past polls