Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: A Macro System for Perl?

by cramdorgi (Acolyte)
on Mar 25, 2008 at 21:41 UTC ( #676248=note: print w/ replies, xml ) Need Help??


in reply to A Macro System for Perl?

Is this the solution to my problem? I've been trying to write a Modulino, and wondered what to do if it calls exit...
Tried that:

#!/usr/bin/perl -w sub testrun() { my $r = run('noexit'); print "ret: $r\n"; } sub run { my $noexit = shift; my $retorexit = $noexit ? \&return : \&exit; &$retorexit(1); } testrun();
...but got
Undefined subroutine &main::return called at ./foo line 10.
retorexit could indeed be a macro...
No?

Marc


Comment on Re: A Macro System for Perl?
Download Code
Re^2: A Macro System for Perl?
by samtregar (Abbot) on Mar 25, 2008 at 21:47 UTC
    No.
      2 letter reply... Could it be that I was too terse?

      I meant obviously:

      macro retorexit() { if ($noexit) { return $_; } else { exit $_; } }

      As I see this as a good example of a useful macro, the only other way I can interpret your reply is that you know an obvious other way to do this elegantly.
      May I ask which?

      Marc

        Oh sure, that could work. Except that this conversation happened 6 years ago! And went no where!

        -sam

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (10)
As of 2014-12-28 03:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (178 votes), past polls