The Three Great Virtues of a Programmer: Laziness, Impatience, and Hubris
c2.com
c2.com
This project has a code base written in Perl which seemingly violates all programming best practices: files of 50k LoC,functions of several thousands of lines, there are frequently 5-6+ levels of nested ifs. It contains all the technical debt it acquired during these 12+ years.
However, it took me less than an hour from the moment I got access to a working vm to make the first fix - display the correct currency on invoices which were not paid in usd. And this, in the context that it was the first time I logged into the app and I also had to find such a buggy invoice.
Now, tell me again how unreadable and hard to understand Perl is?
Codebases that are cleverly factored to within an inch of their life are much, much worse. There's no guarantee that the original factoring successfully decoupled anything, and all the additional content allows for new bugs to slip in "between the cracks" - parameters left accidentally unset, a hierarchy of functions getting called in the wrong order, etc. The original programmer has to spend more time coming up with ways to name and enumerate these details, allowing their eyes and thoughts to be taken off of the domain problem. Because more powerful programming tools are used, more powerful debugging techniques become necessary. And when the architecture breaks, the call stacks just get deeper as the heavy metaprogramming guns are brought out to make increasingly clever workarounds to the resulting issues - after all, nobody really wants to try to disentangle the code after it hits the point of architectural meltdown.
Of the two, copy-paste coding is definitely the lesser evil. So I allow some of that first and then clean up the low-hanging fruit.
Perversely your first fixes are often easier than your later ones as you're not trying to make things better, you want to show off his good you are to your new boss/client.
The problems with bad code come when you have to make bigger changes and you're constrained by the existing design like a straight jacket.
Adding a £ or a $ or a € is really easy for any experienced programmer.
//Here be dragons!
Means, look at the commit history and Grock it, before messing with this.
A prudent coder might go to great detail about how they think this worked five years ago when they wrote the comment which can be worse than useless.
Have you used Git extensively outside of GitHub or done much with Mercurial? Patch-based/commit-only workflows are the right solution to, I dunno, probably 75% of fixes and don't get in the way like the aforementioned approach, which tends to be misapplied (read: used 100% of the time because GitHub demands it).
Commit-only workflows are very light on ritual, since it's got about the same overhead as leaving a two-line comment. Mercurial makes it even lighter, because you don't have to futz around with the index like you do in Git (so long as you're only changing an existing file and haven't introduced a new one).
> -a, --all
> Tell the command to automatically stage files that have been modified and deleted, but new files you have not told Git about are not affected.
But this wasn't supposed to be a Git vs Mercurial post. It was supposed to be a GitHub vs sanity one, where Git-based solutions exist in the latter, too, which is why I mentioned use of Git outside of GitHub.
Let's be honest, the term lazy is loaded. I use the phrase "long-term lazy" because it elicits conversation. "You're looking for a trait that's considered negative? Why?" It's much easier to pull someone in by saying good programmers are lazy (in the long term) than good programmers are prudent.
The whole Perl 6 thing is the ultimate in this form of lazy; 15 years of design work on both the culture and the technology just so he can die in peace in his old age rather than worry about having to be reborn to continue tinkering with Perl 5.
So autovivification such as:
my $larry;
$larry->{Please}->{Add}->{Feature}++;
Won't incant a commit in Perl 6?:-)
...
Unsupported use of ->(), ->{} or ->[] as postfix dereferencer; in Perl 6 please use .(), .[] or .{} to deref ...
Following the advice leads to: my $larry;
$larry.{Please}.{Add}.{Feature}++;
which leads to another compile-time error: ...
Undeclared names:
Add used at line 1
Feature used at line 1
Please used at line 1
...
Those "undeclared names" were probably meant to be string hash keys. So try that: my $larry;
$larry.{'Please'}.{'Add'}.{'Feature'}++;
Bingo.By the way, that's an unusual way to write such code. The periods are optional, so this is equivalent:
$larry{'Please'}{'Add'}{'Feature'}++;
And the braces, which support any expression, such as strings as used in this example, are typically not used. Instead, typical code uses angle brackets, which assume the words within are strings: $larry<Please><Add><Feature>++;
Finally, in Perl 6 it's often useful to use an array sigil (@) or hash sigil (%) instead of the general purpose scalar sigil ($): my %larry;
%larry<Please><Add><Feature>++;
I don't know if I've incanted a commit in Perl 6 by writing this, but ya never know... :)----
An old sig of mine (slightly reworded) from the 90s:
If I could live my life again I think I'd believe in reincarnation.
Well played good sir, well played indeed...
:-D
Laziness:
The quality that makes you go to great effort to reduce overall energy expenditure. It makes you write labor-saving programs that other people will find useful, and document what you wrote so you don't have to answer so many questions about it. Hence, the first great virtue of a programmer. Also hence, this book. See also impatience and hubris. (p.609)
Impatience:
The anger you feel when the computer is being lazy. This makes you write programs that don't just react to your needs, but actually anticipate them. Or at least pretend to. Hence, the second great virtue of a programmer. See also laziness and hubris. (p.608)
Hubris:
Excessive pride, the sort of thing Zeus zaps you for. Also the quality that makes you write (and maintain) programs that other people won't want to say bad things about. Hence, the third great virtue of a programmer. See also laziness and impatience. (p.607) "
At my last job I was always getting bugged by support people asking me the same questions over and over. So I wrote documentation/guides telling how to solve the common issues.
TL;DR: it's not so much "robots are awesome" as "ain't nobody got time for that!".
There are misfeatures in Perl, certainly, but there are roughly as many misfeatures in JavaScript. It's silly to dismiss it as "awful" when there's so much that is clearly nice about the language for many categories of problem.
Your comparison to Javascript is apt but I think a lot of us also find Javascript to be a bit of a horror. Recently I learned that Javascript doesn't handle modulus on a negative number correctly among other things.
Certainly a matter of personal preference, but a sprinkling of operators isn't so bad once you're acquainted with the language. Yes it's possible to weave a mess in perl, but most of the time you're just dealing with code that might have a few sigils preceeding an identifier, not ASCII soup.
I'd say the real issue is weak typing (implicit conversions between primitives, using strings for many things where some more specialized data type would have been more appropriate) and variable scope problems. These can lead to hard to locate bugs. Worse is the culture in the perl community of manipulating the VM's internals and generating code at runtime and all kinds of other extremely dynamic behaviors. It's amazing what perl lets you accomplish there, but when some package you got off CPAN does something weird and then something goes wrong, it can get really weird.
Recently I learned that Javascript doesn't handle modulus on a negative number correctly among other things.
That's not really true. Javascript doesn't have a modulus operator, it has a remainder operator, and it is completely valid as a remainder operator. The "%" operator is usually called the modulus operator, but it originated in C where prior to C99 its behavior on signed integers was undefined, and on signed integers modulo and remainder are equivalent. So javascript didn't want undefined behavior so they picked one definition and ran with it, it just so happens that C99 chose the other definition and it stuck.
[There's a class of mistake where you typo a variable name which you can make in those languages which gets caught in a language where you have to declare variables.]
But, perhaps discussion of scope problems in Perl is just when talking about very old code. Perl had some scope atrocities back in Perl 4 and some weirdness in early Perl 5 days. But, for the past 15 years or so, it's been very predictable and has improved (like the syntactic sugar of "my" declarations in foreach or while expressions).
sub a {
my $v;
sub b {
# captures only the first
# instance of $v
}
}
This is because named subroutines are created once and variable captures are resolved at that time. I expected the more normal capture semantics you get with anonymous subs, like sub a {
my $v;
my $b = sub {
# a new $b each time
# captures each $v
}
}It's little different than this block defined outside of any function:
{
my $v;
sub b { ... }
}
Whereas an anonymous function is "defined" each time the enclosing scope is evaluated.For more info, see: http://www.perlmonks.org/?node_id=389319
HTH
I personally like sigils but, afaict, one can almost eliminate sigils in Perl 6 if one wants to.
Instead of $ sigil on scalar (single item) variables:
a scalar =$= 42; # uses a fictional feature [1]
say scalar;
# 42
scalar--; # decrement scalar
scalar.say;
# 41
Instead of % sigil on dicts (hashes): a dict =%= pi, i, e, now;
say dict;
# 2.71828182845905 => Instant:1435371876.325275,
# 3.14159265358979 => 0+1i
dict<pi>--;
say dict.invert;
# Instant:1435371876.325275 => 2.71828182845905
# -1+1i => 3.14159265358979
Instead of @ on lists (arrays): a list =@= 10,20;
say list >>+>> scalar;
# 51 61
> I'd say the real issue is weak typingIn Perl 6 everything is (implicitly) nominally typed. One can optionally add explicit nominal type info.
It's certainly not HoTT and it has weaknesses that look unlikely to be addressed this year[2] but it's also one of the most advanced gradual typing implementations in any language.[3]
> implicit conversions between primitives
In Perl 6 conversions are generally explicit. If you name a couple implicit conversions in Perl 5 we could compare with Perl 6 (and, say, Python).
> using strings for many things where some more specialized data type would have been more appropriate
Can you provide an example?
> variable scope problems.
Scope features are very much a Perl 6 strength.
Again, perhaps describe a scenario where it's a weakness in Perl 5 and we can compare with Perl 6 and perhaps other langs?
> manipulating the VM's internals
The "reference" Rakudo Perl 6 compiler is a front-end to the NQP compiler toolchain. The NQP toolchain targets several VMs including the JVM. It does not manipulate the JVM's internals!
(NQP also targets MoarVM[4] but it uses the same principled ways to communicate with MoarVM that it does with the JVM.)
> and generating code at runtime and all kinds of other extremely dynamic behaviors.
Ah yes. Perl 6 has upped the ante on that. It is statically compiled in a lot of ways but it also has very powerful dynamic features, carefully designed. [5]
----
[1] I made up the term 'a'. In reality it's 'constant'. But that name is kinda surprising for the purposes to which I've put it -- the terms it declares aren't very constant! But 'constant' is much longer than 'a' and this sort of declaration is supposed to be harder than using other scopes such as 'my' or 'has'. See http://irclog.perlgeek.de/perl6/2015-06-27#i_10812609 and following for a tiny bit more discussion.
[2] https://news.ycombinator.com/item?id=9771718
[3] https://en.wikipedia.org/wiki/Gradual_typing
[5] See this example and my comment about static/dynamic aspects of Perl 6 interop: http://www.reddit.com/r/perl6/comments/399o82/python_matplot...
From a recent talk[1], what are x, y, z in the following?
x = 7 ÷ 2;
y = -7 ÷ 2;
z = .1 + .2 - .3
x y z
3.5 -3.5 0 # human
3 ? tiny number # c89; ? depends on compiler
3 -4 tiny number # ruby
3 -4 tiny number # python 2/3
3 -3 0 # bc
3.5 -3.5 tiny number # perl5
3.5 -3.5 0 # perl6
----It isn't just basic math.
How "long" is the following string?
ปฏิบัติจริง
7 characters # human
len("ปฏิบัติจริง") = 33 # python 2
len("ปฏิบัติจริง") = 11 # python 3
"ปฏิบัติจริง".length = ? # ruby
(For Ruby, I've found "the core language does not provide a way to count [human perceived characters]". [3] Is that still correct or out of date?)----
> Perl suffers from having too many magical operators that makes it hard to reason about a snippet of code. I feel Python strikes the right balance.
To quote Larry Wall, "Perl 6 ... has been rethought and rebalanced on every level".[4]
It might be interesting for you to pick a couple Perl 5 operators that you consider too magical; then we could look at the merits and demerits of those ops in Perl 5 and their equivalents in Python and Perl 6.
> It's very easy to express ideas I have in mind without worrying about the details [of Python, now, and Perl, back in the day]
This, of course, has explicitly been a deliberate focus of all the Perls. Part of the point of Perl 6 was to remove the bits in Perl 5 that were problematic (including some "too cute/weird" stuff) and to introduce much nicer higher level abstractions (eg grammars instead of just regexes[5]).
----
I've long encountered vocal folk who underestimate or misunderstand Larry Wall and Perl to an absurd degree. Perl has been focused for over two decades on making it easy to get the right results when doing basic practical things (like integer division and counting characters) and, imo, that ought to be obvious to anyone who looks at the matter carefully.
----
[1] http://www.slideshare.net/Ovid/perl-6-for-mere-mortals and https://www.youtube.com/watch?v=lpu-3UF_b48
[2] http://www.reddit.com/r/perl/comments/2szv7m/beginner_progra...
[3] http://unicode-programming.readthedocs.org/en/latest/count-c...
[4] http://www.infoworld.com/article/2882300/perl/perl-creator-l...
[5] https://github.com/moritz/json/blob/master/lib/JSON/Tiny/Gra...
I think my experience with Perl ended at Perl 5 so my comment is a bit dated but the sentiment stayed with me, which I admit is unfair.
I also forgot to give Perl credit for another thing: introduction to regex.
Perl was a great language for me to learn and I should revisit my sentiments about it.
In some ways, contemporary Perl 5 (eg this year's 5.22 release) is quite unlike older Perl 5s. For example Moose -- which first arrived in 2005 -- is a powerful and relatively clean OO and "roles" system which has matured in to a huge ecosystem of its own within CPAN. (It was/is a kind of back port of the Perl 6 OO model which itself built upon the notions found in systems such as CLOS.[1])
But my personal focus is Perl 6.
> I also forgot to give Perl credit for another thing: introduction to regex.
Perl 6 unifies "regexes", PEGs, and lexical closures. [2].
> Perl was a great language for me to learn and I should revisit my sentiments about it.
Anyone who joins the freenode IRC channel #perl6 and says hi will be welcomed.[3] If you visit, feel free to paste a link to my comment. :)
----
[1] https://en.wikipedia.org/wiki/Common_Lisp_Object_System
[2] https://en.wikipedia.org/wiki/Perl_6_rules
[3] https://kiwiirc.com/client/irc.freenode.net/perl6 (today's log at http://irclog.perlgeek.de/perl6/today)
"ปฏิบัติจริง".chars = 7 # Perl 6 3 -4 tiny number # python 2
3.5 -3.5 tiny number # python 3People often attack the appearance and readability of Perl code ("write-only" code), but lot's of Ruby code I come across has the exact same problem, except that people seem to love adding 4 or 5 extra layers of abstraction on top of that.
And the opposite is true, too, of course. I have seen some fairly messy Python code and some marvelously clean Perl code. And I am fairly certain that over time, some people have written beautiful PHP code and ugly Lisp code.
In my humble experience, it is not so much a property of the programming language as it is of the programmer(s).
I have used Python at every opportunity since, and am happy to use Python 3 everywhere possible.
That killed it on shared hosting and for small projects that may not have a server admin's support.
Also devs are used to having named arguments for their functions. Not supporting that is just silly.
And finally it's difficult to google things like $/, $", $% and $_ when you're confused.
> admin rights and a gcc build environment in order to
> install correctly.
> That killed it on shared hosting and for small projects
> that may not have a server admin's support.
I install Perl apps on shared hosts all the time. The great majority I work on are cPanel-powered. They have a CPAN module installer right from within the cPanel.
Compiler support is an option, and is usually enabled by default. If it's not, it's easy enough to enable that in WHM (the cPanel for cPanel accounts basically)
cPanel is available on hosts like Bluehost, Hostmonster, (dog help us) GoDaddy. Most hosts that built their own control panel for hosting accounts have thus moved to cPanel. cPanel, no surprise, is a Perl shop themselves.
So, the 800lb gorilla of shared hosting control panels presently does what you say you can't.
I also ship Perl apps that specifically do not require outside CPAN Perl modules that require compilation, but have support for features, if they're present. Throw up the .gzip distro, throw up, "install.cgi", chmod 755, and visit the thing in your browser. It wasn't impossible ;)
(They're making sure that installation is practical. For example, NativeCall, for calling C libs, does not require a C compiler.)
> Also devs are used to having named arguments for their functions. Not supporting that is just silly.
The latest Perl 5s have this ("signatures").
Signatures are a central element of Perl 6. (They are way more powerful than in Perl 5, even the latest.)
> it's difficult to google things like $/, $", $% and $_ when you're confused.
Yes.
Fwiw Perl 6 only keeps three of these oddly named variables (removing dozens of others) and they are simple in practice:
name concept formally means the current/latest
$_ it topic (Nil or any value/object)
$! oh noes! error (Nil or unthrown exception)
$/ /regex/ match (Nil or parse tree)See this thread:
http://www.perlmonks.org/?node_id=630026
For how to install CPAN modules in alternate locations. Be sure to note the setting of PERL5LIB to the location you choose when running Perl in order to resolve the modules in the custom location.
> Also devs are used to having named arguments for their functions. Not supporting that is just silly.
There are some idioms available to address this. If you are interested, reply and we'll discuss them :-).
> And finally it's difficult to google things like $/, $", $% and $_ when you're confused.
If you have access to a Unix machine with perl installed, then running:
man perlvar
Will produce a man page enumerating the predefined variables which are difficult to use a search engine to find.
HTH
Take for example the developers of a word processor. Would all that effort spent on that office-automation software really cancel against the probably few letters and/or documents that a developer would write using it?
Too soon?
Getting hammered by the votes was quite disheartening. I assumed indirect reference to one of Larry Wall's most famous quotes would be obvious.
Ah well, I guess what happens when I "assume" is it makes an ass out of micro-me ;-).