引数が元のコードと、ファイルの文字列処理について

質問

よろしくお願いします。

MacOSX(FreeBSD)を使っています。

●引数を元にして任意のファイルの特定行を
　抜き出す方法？

　コマンドラインから、
　　＞./[スクリプト名] [ファイル名] [行番号]
　　（＊例　>./test.pl ppp.txt 5）
　を打って、
　　＞kkk
　　（＊その行番号の行）
　と返ってくるスクリプトを作りたいのですが、
　どうすれば良いのかさっぱり分かりません。

　ファイルは固定では無く任意のファイルで
　行いたいです。また行番号を忘れてコマンドを
　入力した場合
　　（＊例　>./test.pl 444.txt）
　には、エラーメッセージを出したいのです。

　どのようなコードを書けば良いでしょうか？

●文字列処理ですが・・

　ファイルが
　　AAA
　　BBBCCC DDD EEEEE
　　FF GGGG HHH
　　IIIII
　　・・・
　とあった時に、

　例えば３行目のGGGGだけを抜き出す
　スクリプトはどうすれば良いでしょうか？

　今やっている方針としては、
　　１．ファイルオープン
　　２．配列にいったん全部入れる
　　３．getc関数で1行ずつスカラーに取り込む
　　４．・・・
　このあたりまで考えて息詰っています。

　教えて頂けませんでしょうか？

よろしくお願い致します。

回答No.1

fxdwg99 · ベストアンサー

相当無駄な方法ですが、以下のコードで任意の行を取り出せるでしょう。
open FF, "ファイル";
@aa = <FF>;　←全行を配列に読み込み
close FF;
print $aa[5]; ←６行目を表示

引数の数は$#ARGVか、@ARGV+0で分かりますので、
これで引数の抜けを調べることが出来ます。

文字列処理は、「文字列１ 空白 文字列２ 空白 文字列３」のときの
文字列２だけを取り出したい、というのであれば、
$aa =~ m/^[^ ]+ ([^ ]+) [^ ]+/;　←()の部分を取り出して、
print $1;　←$1で参照できる。

お礼

ご回答ありがとうございます。
引数を元にしての抜き出しは出来ました。
文字列処理ですが、
>$aa =~ m/^[^ ]+ ([^ ]+) [^ ]+/;　←()の部分を取り出して、
>print $1;　←$1で参照できる。
で使用して何とか出来ました！
ありがとうございました。