Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^4: Do not understand code

by Laurent_R (Canon)
on Oct 01, 2017 at 09:37 UTC ( #1200451=note: print w/replies, xml ) Need Help??

in reply to Re^3: Do not understand code
in thread Do not understand code

Come on, sundialsvc4, do you really think that this:
unlink $file if /.BGV/;
is too clever? Or that it is not clear?

How so? If we set aside the fact that the regex pattern /.BGV/ may very well be an error and that, perhaps, /\.BGV/ or even /\.BGV$/ might better express the developer's real intent (but we can't know for sure and that's obviously not what you're concerned about), what's wrong with this? Is it the statement modifier (with postfix conditional)? Is it the use of a regular expression? Or is it the default match against the topical variable $_? Or something else?

But statement modifiers, regexes and implicit uses of $_ are all fairly basic features of the Perl language. If you don't know these or if you think they are too advanced, then maybe we should conclude that you just don't know Perl. Or that you know only a very small subset of it.

I certainly think that we should not try to be too clever. But that's not the case here. This code is fairly basic and well in accordance with Perl's philosophy.

And, BTW, I would be very interested to see how you would suggest to rewrite it. But can you?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1200451]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2020-08-15 13:52 GMT
Find Nodes?
    Voting Booth?
    Which rocket would you take to Mars?

    Results (78 votes). Check out past polls.