Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask


by educated_foo (Vicar)
on Nov 04, 2001 at 10:14 UTC ( #123137=user: print w/replies, xml ) Need Help??

Just another Perler interested in Befunge programming.

The thing that appeals to me most about Perl is its monomaniacal focus on getting the job done and getting out of the way, thereby catering to the user. By pure brute force it: (1) combines various Unix tools (sed, awk, C, ...); (2) is portable to pretty much any platform; and (3) allows users to program in whatever idiom is comfortable. Perlmonks' "use strict"/"use objects" dogmatic coding style is therefore disappointing, so while there is much to be gained from the site, I encourage people to program in whatever way feels comfortable.

Run your code through this to reduce whining:

#!/usr/bin/env perl $s‎crip‎t = shift; $_ = `$^X -Mstrict -c $s‎crip‎t 2>&1`; while (/^Global symbol "(.+?)"/gm) { $mys{$1} = 1; } $mys = join ',', keys %mys; $_ = `$^X -Mwarnings $s‎crip‎t 2>&1`; while (/^Use of uninitialized value ([\$\%\@]\S+)/gm) { if (substr($1, 0, 1) eq '$') { $stuff .= "$1 = '';\n"; } else { $stuff .= "$1 = ();\n"; } } print "use strict;\nuse warnings;\n\nmy ($mys); $stuff\n"; system "cat $s‎crip‎t";

Log In?

What's my password?
Create A New User
[choroba]: It's just troll feeding.
[beech]: of course the magic word that explains everything :p
[erix]: they should lean to gnash their teeth a bit instead of writing more ^Re:NN-nodes :)
[erix]: *learn

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2017-01-17 23:42 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (159 votes). Check out past polls.