You didn't explain what the problem was, and you didn't explain why your "solution" worked. $a is a special variable, using it for anything else than to sort is dangerous and confusing. The last supported Perl version is 5.26. If your hobby or job is to support older versions, I'm fine with that, but please try not to hijack a thread to propagate the 16 years old version.
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
| [reply]
[d/l]
[select] |
Please don't tell people to use $a just so they can avoid having to properly declare a real variable name. $a is a piss-poor variable name in general, completely antithetical to writing clear code, and the only reason that works is because of magic which you didn't bother to explain - magic which would one day bite the new guy in the ass if he took your ill-conceived advice and made a habit of using undeclared $as and $bs on a regular basis.
If you're really fixated on not having to properly declare your variables, it's much saner to turn strict off. And "it's much saner to turn strict off" is not something I say lightly, it's a reflection of just how astonishingly bad the advice "change your variable name to $a so you don't have to declare it" is. | [reply]
[d/l]
[select] |
Perl 5.8 is really old. If you're a Microsoft hacker, why not try Strawberry Perl? | [reply] |
| [reply] |
