Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"


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
Domain Nodelet?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2023-09-30 16:18 GMT
Find Nodes?
    Voting Booth?

    No recent polls found