perlからunixコマンドを実行する

こんな感じ。

use warnings;
use strict;

open(FI,"ls|")||die;
my @s = <FI>;
close(FI);

my $arg = $ARGV[0];

foreach my $i(@s){
    chop($i);
    if($i =~ /$arg/){
      print "$i.\n";
    }
}

ユーザーとかプロセス見たりとか、
システム管理に使えるかも。
でもrmとかしたら怖い。