in reply to array newbie...(sigh)

Hmmm ... i _think_ i see what you are trying to do ...

Would this be better for you? 

my @occupation = qw(netman jobman mailman batchman writer);

foreach my $pation (@occupation) {
   `ps -ef|grep -i $pation|grep -v grep|wc -l`;
}

[download]
Each call to ps is exactly the same except who you are grepping for, so you only need to store what is different in your array.

Also, there may be a CPAN module for interacting with ps...

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re: (jeffa) Re: array newbie...(sigh)
by PrakashK (Pilgrim) on Mar 15, 2002 at 20:03 UTC 
    foreach my $pation (@occupation) {
   `ps -ef|grep -i $pation|grep -v grep|wc -l`;
}

    [download]
    Why throw away the results of ps? (What's wrong with using backticks in a void context?)

    If the intention is to count the number of instances of interesting programs from the process list, there is no need to repeat the execution of the ps command. 

    my @programs = qw(netman jobman mailman batchman writer);
my @all_procs = `ps -ef`;

my %counts;
for (@programs) {
    $counts{$_} = scalar grep {/$_/i} @all_procs;
}

print "$_ $counts{$_}," for keys %counts;
print "\n";

    [download]
    /prakash
[reply]
[d/l]
[select]
Re: (jeffa) Re: array newbie...(sigh)
by ddrumguy (Acolyte) on Mar 15, 2002 at 19:40 UTC
    Well i tried it but it just gives me a list like this: netmanjobmanmailmanbatchmanwriter (acts like the grep isn't even working?) also how do is store the output from the array into a variable ( I need the final number to read: 1113112 
    my @arraylist = qw(netman jobman mailman batchman writer);

foreach my $process (@arraylist) {
  `ps -ef|grep -i $process|grep -v grep|wc -l`;
}
chomp @arraylist;
#\s+/ /g for @h;
print @arraylist;

#@h = ($netman= `ps -ef|grep -i netman|grep -v grep|wc -l`,
#        $jobman= `ps -ef|grep -i jobman|grep -v grep|wc -l`,
#        $mailman= `ps -ef|grep -i mailman|grep -v grep|wc -l`,
#        $batchman= `ps -ef|grep -i batchman|grep -v grep|wc -l`,
#        $writer= `ps -ef|grep -i writer|grep -v grep|wc -l`
#       );



#%h = ("a", "$netman", "b", "$jobman", "c", "$mailman", "d", "$batchma
+n", "e", "$writer");


#@h = ("$netman","$jobman","$mailman","$batchman","$writer");
#chomp @h;
#\s+/ /g for @h;
#@h > ;

    [download]
[reply]
[d/l]
      Wow. I can honestly say that you have completely lost me! :D

      I recommed you do what PrakashK offered for you. He is absolutely correct in his method, and i think you should really study that. The snippet that i gave you is unfortunately not very practical, i just wanted to demonstrate how to iterate through an array.

      jeffa

      L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
[reply]

In Section Seekers of Perl Wisdom