perlを使ったファイルの入出力について

質問

perl 初心者です。

perl を使ってデータ整理を試みていますが、方法がわからなくて困っています。

やりたい操作は、
１、ディレクトリ内にある特定の拡張子をもつすべてのデータファイルを読み込む
２、データソート
３、データファイル名を変更せずに、ソートしたデータを出力する

例
ディレクトリに以下のデータファイルがあるとします
aaa.data
bbb.data
ccc.data
:
zzz.data

これらのデータファイルをすべて読み込み、中身を整理した後に
aaa.txt
bbb.txt
ccc.txt
:
zzz.txt

となるように、それぞれのデータの名前を変更せずに出力したいと思っています。
スクリプトのサンプルなんかがあればありがたいです。

回答No.5

tatsu99 · ベストアンサー

以下のようにしてください。
--------------------------------
use strict;
use warnings;
#ソートルーチン
sub mysort{ $a cmp $b; }
opendir(DIR,".");
my @dirfiles = readdir(DIR);
closedir(DIR);
my @files = grep(/\.data$/,@dirfiles);
foreach my $file (@files){
open(FH,$file);
my @lines = <FH>;
close(FH);
my @newlines = sort mysort @lines;
my $newfile = $file;
$newfile =~ s/\.data$/.txt/;
open(OFH,">$newfile");
print OFH @newlines;
close(OFH);
}
-----------------------------------------
上記のスクリプト（goo.plとします）を aaa.dataと同じディレクトリにおいてください。
そのディレクトリ下で perl goo.pl と入力してください。
ソートされた aaa.txt ・・・ zzz.txtが作成されます。
ソートは１行をまるごとソートしています。（文字として比較）
もし、ソートの方法で、別な方法を希望の場合は、その旨補足してください。
windows7 perl 5.14 で動作確認済みです。

お礼

tatsu99さんのコードを参考にスクリプトを作らせていただきました。
何とか完成できたのでよかったです^^ありがとうございました。

回答No.6

Tacosan

ちょいと突っ込ませてもらいますが＞#5, 例えば
>foo.data
って名前のファイルがあったら破綻しちゃいますね (だから 2引数の open は使うなと...). あと, 最終行に改行がないと困るかも.

回答No.4

Tacosan

同意＞#3. あとは Perl のバージョンや「何を基準にしてソートするのか」によるかなぁ. ぶっちゃけ「ソート→表示」は
print $fo sort <$fi>;
で終わりかねないし.

回答No.3

kmee

> dataファイルの抽出→
> aaa.dataファイルのソートとaaa.txtファイルの出力→
> bbb.dataファイルのソートとbbb.txtファイルの出力→
>：
> zzz.dataファイルのソートとzzz.txtファイルの出力

下手に「効率のいい方法」なんて考えているより、この方法で作ってしまった方が早いです。

datasort (入力ファイル名, 出力ファイル名) みたいな感じでソートするsubを作って
opendir→readdir や、 FIle::Glob 等でファイル一覧を取得
→ 正規表現なりsubstrなりを使って出力ファイル名を生成
→ datasortの引数にわたす

で簡単にできるのではないでしょうか。

http://perldoc.perl.org/functions/opendir.html
http://perldoc.perl.org/functions/glob.html
http://perldoc.perl.org/File/Glob.html

また、1ファイル分だけのPerlスクリプトを作って、 バッチファイルやシェルスクリプトの機能で全ファイルについて処理する、という方法もあります。

お礼

バッチファイルなどの機能は知りませんでした。
今回はperlだけでやってみましたが、時間があるときにでも試してみます^^
ありがとうございました。

回答No.2

Tacosan

「全てのデータに対して」があいまいなんですよ.

ファイルごとにソートする (つまりソートの回数はファイル数と同じ) のですか? それとも, すべてのファイルのデータをまとめて 1つとしてソートする (ソートは 1回だけ) のですか?

補足

説明不足でした。申し訳ありません。

ファイルごとにソートしようと考えています。
以下の手順で試みているところです。

.dataファイルの抽出→
aaa.dataファイルのソートとaaa.txtファイルの出力→
bbb.dataファイルのソートとbbb.txtファイルの出力→
：
zzz.dataファイルのソートとzzz.txtファイルの出力

なので、読み取るファイルの数＝ソートの回数（ソートの対称となるファイルの数）＝出力ファイルの数
となるようにしたいと考えています。

ただ、他によりよい手順があればご教授願います。

回答No.1

Tacosan

2 の「ソート」は, 各ファイルごとにするってことでいい?

補足

> Tacosan
２のデータソートでは全てのデータに対して同じ操作を行います。