Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl
$pid = 0;
open I, "ps -axww -U $ENV{'USER'} |";
while (<I>)
{
if (/Aquamacs/ && !/grep/)
{
#!/usr/bin/perl
$pid = 0;
open I, "ps -axww -U $ENV{'USER'} |";
while (<I>)
{
if (/Aquamacs/ && !/grep/)
{

Keybase proof

I hereby claim:

  • I am johnthebastard on github.
  • I am jdh (https://keybase.io/jdh) on keybase.
  • I have a public key whose fingerprint is E68D 59B6 9A8F 6C1E 4829 2A2B 835E 82EF 58CF 2B12

To claim this, I am signing this object: