2011-04-04から1日間の記事一覧
こんな感じ。 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とかし</fi>…
こんな感じ。 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とかし</fi>…
