On my system, stuff read from /proc/*/cmdline comes complete with a trailing null character (chr 0) and also nulls separating the command from its arguments. I might rewrite your code this way: 

use strict;
use warnings;

opendir my $proc_dh, '/proc'
    or die "Can't opendir '/proc': $!";
my @every_pid = grep /\d/, readdir $proc_dh;
closedir $proc_dh;

chomp @every_pid;
my @every_cmd;

foreach my $pid ( @every_pid ) {
    open my $cmdline_fh, '<', "/proc/$pid/cmdline"
        or die "Can't open '/proc/$pid/cmdline': $!\n";
    my ($cmd) = split /\0/, scalar <$cmdline_fh>;
    push @every_cmd, $cmd if defined $cmd;
    close $cmdline_fh;
}

if ( grep { '/usr/sbin/sshd' eq $_ } @every_cmd ) {
    print "found\n";
}
else {
    print "not found\n";
}

[download]

Notice that,

I would point out also that you may be able to say "ps -C sshd" at your command prompt and find out what you want.

In reply to Re: Equal strings don't match! by kyle
in thread Equal strings don't match! by pl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.