Programming Forums > Script Programming > Perl

bobfox · Aug 18th, 2005, 9:06 AM

Hello everyone...

I'm writing a program in Perl. I am trying to handle errors using the warn function.

Problem is... I want it to do more than one thing in the event of an error... During a warn I need it to execute a block of code.

Everything I try { } and ( ) doesn't seem to work.

$sock or warn ("print something");

Needs to be something like:

$sock or {
warn ("print something");
logfunction (logError);
}

I keep getting errors doing it this way.

Any suggestions?

Thanks.

skuinders · Aug 18th, 2005, 10:14 AM

if block?

assuming $sock is boolean

(Toggle Plain Text)

if (!$sock) {
  warn ("print something");
  logfunction (logError);
}

sykkn · Aug 18th, 2005, 10:48 AM

if you are trying to use the warn in the case of a function call failure ... then something like this might work for you

(Toggle Plain Text)

function() || warn('error message') && warnFunction();

as illustrated here:

(Toggle Plain Text)

#!/usr/bin/perl -w

use strict;

sub doSomething() {
        return(0);
}

sub warnFunction() {
        print "Warn Function\n";
}

doSomething() || warn('called warn()',"\n") && warnFunction();

otherwise ... if you are just trying to test the value of a variable ... then use an 'if' as stated above.

bobfox · Aug 18th, 2005, 4:12 PM

Thanks for your help. I had if !($sock) instead of if (!$sock)

Aug 18th, 2005, 9:06 AM	#1
bobfox Newbie Join Date: Aug 2005 Posts: 17 Rep Power: 0	Perl Error Handling Hello everyone... I'm writing a program in Perl. I am trying to handle errors using the warn function. Problem is... I want it to do more than one thing in the event of an error... During a warn I need it to execute a block of code. Everything I try { } and ( ) doesn't seem to work. $sock or warn ("print something"); Needs to be something like: $sock or { warn ("print something"); logfunction (logError); } I keep getting errors doing it this way. Any suggestions? Thanks.

Aug 18th, 2005, 10:14 AM	#2
skuinders Hobbyist Programmer Join Date: Jun 2005 Location: MA, US Posts: 204 Rep Power: 4	if block? assuming $sock is boolean (Toggle Plain Text) if (!$sock) { warn ("print something"); logfunction (logError); } if (!$sock) { warn ("print something"); logfunction (logError); } __________________ "A stupid man's report of what a clever man says can never be accurate, because he unconciously translates what he hears into something he can understand." - B. Russell http://web.bryant.edu/~srk2

Aug 18th, 2005, 10:48 AM	#3
sykkn Hobbyist Programmer Join Date: Apr 2004 Location: Texas Posts: 106 Rep Power: 5	if you are trying to use the warn in the case of a function call failure ... then something like this might work for you (Toggle Plain Text) function() \|\| warn('error message') && warnFunction(); function() \|\| warn('error message') && warnFunction(); as illustrated here: (Toggle Plain Text) #!/usr/bin/perl -w use strict; sub doSomething() { return(0); } sub warnFunction() { print "Warn Function\n"; } doSomething() \|\| warn('called warn()',"\n") && warnFunction(); #!/usr/bin/perl -w use strict; sub doSomething() { return(0); } sub warnFunction() { print "Warn Function\n"; } doSomething() \|\| warn('called warn()',"\n") && warnFunction(); otherwise ... if you are just trying to test the value of a variable ... then use an 'if' as stated above. __________________ [ [ SykkN alloc ] initWithThePowerTo: destroyYouAll ]; /* Don't make me use it! */

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Aug 18th, 2005, 4:12 PM	#4
bobfox Newbie Join Date: Aug 2005 Posts: 17 Rep Power: 0	Thanks for your help. I had if !($sock) instead of if (!$sock)

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

Perl Error Handling