This somewhat simpler regex works for me:
#!/usr/bin/env perl use strict; use warnings; use Test::More tests => 1; my $line = 'root 1435 0.0 0.0 147236 7548 ? Ss 08:46 + 0:02 /usr/local/httpd-2.4.16/bin/httpd -k start'; my $processName = 'httpd'; my $owner = 'root'; my ($pid) = $line =~ qr|$owner\s+(\d*)\s+\d.+$processName|; is ($pid, '1435', 'Match');
In reply to Re: Regex and PID issue
by hippo
in thread Regex and PID issue
by JonesyJones
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |