紧急求助,这句话shell语句如何写成perl语句

ni_pon

cop_pid=`ps -ed | grep sp_cop | awk '{print $1}'`

谢谢拉

apile

cop_pid=`ps -ed | grep sp_cop | awk '{print $1}'`
=====================================
@foo=`/usr/bin/ps -ed`;
@bar=grep(/sp_cop/,@foo);
for(@bar){
  @a = split;
  print "$a[0]\n";
}

or
#!/usr/bin/perl
@a = map{ my @a=split; $a[0]; }  grep {/sp_cop/} `/usr/bin/ps -ed`;
print "$_\n" for @a;