Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

perl sucks

by qsl (Scribe)
on Sep 26, 2006 at 07:36 UTC ( [id://574871]=poem: print w/replies, xml ) Need Help??

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re: perl sucks
by ysth (Canon) on Sep 26, 2006 at 10:26 UTC
    $ perl no more Perl for me, unless less than 40 lines syntax error at - line 1, near "Perl for " Execution of - aborted due to compilation errors.
    Apparently you have trouble even with less than 40.
      $ perl 'no more Perl for me, unless less than 40 lines' Can't open perl script "no more Perl for me, unless less than 40 lines +": No such file or directory $ perl -w `no more Perl for me, unless less than 40 lines` ^D Can't exec "no": Permission denied at - line 2. $ perl -e "`no more Perl for me, unless less than 40 lines`" -bash: no: command not found $ which no which: no no in (/usr/local/bin:/usr/bin:/bin:~/bin:/opt/bin)

      ;-)

      We're building the house of the future together.
Re: perl sucks
by YuckFoo (Abbot) on Sep 26, 2006 at 16:32 UTC
    Smells like homework to me, but what about:
    do { unlink('perl') for ($me); } unless (__LINE__ < 40);
    SucksFoo
Re: perl sucks
by ciderpunx (Vicar) on Sep 27, 2006 at 13:58 UTC
Re: perl sucks
by Dietz (Curate) on Sep 27, 2006 at 06:02 UTC

    package ACME::WeightWatchers; use Carp; require Exporter; our @ISA = qw(Exporter); our @EXPORT = 'watchsize'; sub watchsize { local $/ = "\n"; my $caller = caller; open _, "$caller::$0"; while (<_>) { $. == 40 and confess "no more Perl for me, unless less than 40 lines\n"; } }

    #!/usr/bin/perl use strict; use warnings; use ACME::WeightWatchers; watchsize(); # your code here ... print "I made it under 40!\n";

Re: perl sucks
by demerphq (Chancellor) on Sep 27, 2006 at 11:17 UTC

    no more Perl for me, unless less than 40 lines

    Which is plenty of space. I mean, 40 chars would have been a restriction, but 40 lines?

    ---
    $world=~s/war/peace/g

Re: perl sucks
by chanio (Priest) on Mar 31, 2007 at 13:37 UTC

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2024-03-29 09:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found