Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

perl sucks

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

'no more Perl for me, unless less than 40 lines'

Comment on perl sucks
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
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? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2015-07-28 02:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (251 votes), past polls