[初心者]perlで文字列抽出

質問

perlの超初心者です．

標準出力された文字の中から任意の文字列をperlで抽出したいのですが．．．

例えば，
1　lsコマンドでファイル一覧を表示
2　表示された中から任意の文字列とマッチするものを抽出
3　マッチした文字列の後ろの文字を知る(拡張子とか)
4　さらに，1～3を'perl hoge.pl'とコマンド打つだけのワンアクションでやりたい.

という感じなのですが．．．

勉強を始めたばかりなので，どういったキーワードを勉強すればよいのか，見当つかない状態です．．．

おそらく，私がしょうもない質問をしているのだろうとは思いますが，
何かヒントでも教えていただければ幸いです．

周りに詳しい人物もいないので，なんとか頑張って習得したいと思っています．

よろしくお願いしますm(><)m

回答No.1

k_o_r_o_c_h_a_n · ベストアンサー

open(P,"ls -1 |"); ##lsコマンドを実行し、標準出力を受け取る。
while(<P>) ##順次読み込む
{
if(/\.(.+)$/) ##ピリオド(\.)以降の文字列(.+)にマッチすれば、
{
print $1,"\n"; ##マッチした文字列($1)を標準出力に改行付きで出力。
}
}
close(P); ##lsコマンドとのパイプを閉じる

お礼

早速の回答ありがとうございます！

しかも，コメントつきで(^^;ありがたいです．

まずは，これを足がかりにがんばってみたいと思います！