<div dir="ltr"><div dir="ltr">On Thu, 11 Jun 2020 at 22:20, John Elliot V | ProgClub <<a href="mailto:jj5@progclub.org">jj5@progclub.org</a>> wrote:<br></div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">That is rather more perl than I had imagined!<br></blockquote><div><br></div><div> Why would someone that held up sloccount as an example of ... something or other ... need to imagine what it was going to reveal?</div><div><br></div><div> And yes, a disturbing amount of perl.</div><div><br></div><div> Curiously:</div><div><br></div><div><span style="font-family:monospace"><b><span style="color:rgb(84,255,255)">royksopp:/usr/bin$ </span><span style="color:rgb(0,0,0)">( for i in `file * | grep -i perl | awk -F':' '{print $1}'`; do head -1 ${i}; done  ) | sort | uniq -c</span><br></b></span><span style="font-family:monospace"><b><span style="color:rgb(0,0,0)">     7 #! /usr/bin/perl
</span><br>    235 #!/usr/bin/perl
<br>      1 #!/usr/bin/perl  <br>      1 #!/usr/bin/perl5.26-x86_64-linux-gnu
<br>      1 #!/usr/bin/perl5.28-x86_64-linux-gnu
<br>      1 #!/usr/bin/perl5.30-x86_64-linux-gnu
<br>      6 #!/usr/bin/perl -T -w
<br>     15 #! /usr/bin/perl -w
<br>     63 #!/usr/bin/perl -w
<br>      1 #!/usr/bin/perl -wl
<br>      1 #!/usr/bin/perl -w -pi.old
<br>      5 #!/usr/bin/perl -wT<br></b>
<br></span></div><div> (plus one ELF that seems to have been caught out incorrectly, which we'll ignore here)</div><div><br></div><div> So, there's 7 files that misunderstand how hash bang works, three that still rely on perl v5, and 91 that use the -w (warnings) flag ... which is an odd thing to use in these circumstances.</div><div><br></div><div> What a time to be alive.</div><div><br></div><div><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">jj5@tact:/usr/bin$ ll *.pl *.rb *.sh *.py<br></blockquote><div><br></div><div> Not everyone has your aliases.</div><div><br></div><div> But you're right - there's these 6 occurrences on my system:</div><div><br></div><div><b><span style="font-family:monospace;color:rgb(84,255,255)">royksopp:/usr/bin$ </span><span style="font-family:monospace;color:rgb(0,0,0)">ls | grep  "\.sh$" </span></b></div><span style="font-family:monospace"><b>amuFormat<span style="color:rgb(255,84,84)">.sh</span><span style="color:rgb(0,0,0)">
</span><br>gettext<span style="color:rgb(255,84,84)">.sh</span><span style="color:rgb(0,0,0)">
</span><br>gvmap<span style="color:rgb(255,84,84)">.sh</span><span style="color:rgb(0,0,0)">
</span><br>kdevplatform_shell_environment<span style="color:rgb(255,84,84)">.sh</span><span style="color:rgb(0,0,0)">
</span><br>kpa-backup<span style="color:rgb(255,84,84)">.sh</span><span style="color:rgb(0,0,0)">
</span><br>nvidia-bug-report<span style="color:rgb(255,84,84)">.sh</span><br><span style="color:rgb(0,0,0)">
</span><br></b></span><div>  .... out of <b><font color="#0000ff"><u>4138</u></font></b> files in /usr/bin.</div><div><br></div><div> Undeniably, one of our points has been spectacularly well made.</div><div><br></div><div> j.</div><div><br></div><div><br></div><div><br></div></div></div>