一つのテキストファイルと複数のファイルの結合

Question

よろしくお願いします．ディレクトリ内の一つのテキストファイル(joint.txt)と複数のファイルの結合を行ごとに隣へ結合するプログラムを作成しています．ここで以下のプログラムを作成したのですが，うまくいかないため，誤っている部分をご指摘願えないでしょうか．

my $dirname = '.';

opendir(DIR, $dirname) or die "$dirname: $!";

while (my $dir = readdir(DIR)) {

next unless (-f $dir);
next unless ($dir =~ /\.txt$/);

open(FILE, $dir) or die "$dir: $!";
open(FILE2,"joint.txt");

my @file = <FILE>;
my @file2 = <FILE2>;
close(FILE);
close(FILE2);
foreach my $line (@file) {
foreach my $line2 (@file2) {
chomp $line2;
$line = "$line2.",".$line";
}
}
open(NEWFILE, "> $dir") or die "$dir: $!";

print NEWFILE @file;
print NEWFILE @file2;
close(NEWFILE);
}
closedir(DIR);

pick52 · Accepted Answer

>>No.3

> 早速実行してみたところ，最初のファイルは思ったように処理される
> のですが，２つ目のファイル以降は処理されたファイルが前回の
> ファイルの内容を引き継ぎ，その後に出力されてしまいます．
> 具体的には以下の内容です．

結局修正してみました。
以下のような感じです。

use File::Basename;

my $dirname = '.';

die('not open : joint.txt') unless(open(FILE, 'joint.txt'));
my $file = join('', <FILE>);
close(FILE);

while(<$dirname/*.txt>) {
my $fn = (fileparse($_))[0];
next if($fn eq 'joint.txt');
my @file = split(/\n/, $file);
if(open(FILE, $_)) {
my @file2 = <FILE>;
for(my $i = 0; $i <= $#file2; $i++) {
$file[$i] .= ",$file2[$i]";
}
close(FILE);
if(open(FILE, ">$_")) {
print FILE @file;
close(FILE);
}
}
}

あと、今回の場合は関係ないのですがNo.2とNo.3で提示されたイメージ
内容が逆のような気がするのですが。(^_^;
例外的なことは殆ど考えていないので実際にはいろいろ修正する必要が
出てくると思いますけど、そこまで考慮できなくてすみません。

sakusaker7 · Answer

まだ締め切られていないようなのでぺたり。

#!/usr/bin/perl
# -*- coding: utf8 -*
use strict;
use warnings;
use Fatal qw(:void open close);
use feature ':5.10';

use File::Slurp qw/slurp read_file write_file/;
use List::MoreUtils qw/all each_array/;

my $dirname = '.';
my $joint_file = 'joint.txt';
my @files = grep {$_ !~ /$joint_file/} glob "$dirname/*.txt";
my @joint_base = slurp($joint_file);
chomp @joint_base;

foreach my $file (@files) {
my @lines = slurp($file);
my $it = each_array @joint_base, @lines;
my @newlines;
while (my @l = $it->()) {
push @newlines, join(q{,}, @l) if all {defined $_} @l;
}
write_file($file . ".new" , @newlines);
}

File::Slurp とか List::MoreUtilsがない場合用。

#!/usr/bin/perl
# -*- coding: utf8 -*
use strict;
use warnings;
use Fatal qw(:void open close);
use feature ':5.10';

sub slurp {
my $file = shift;
open my $fh, '<', $file or return;
<$fh>;
}

sub write_file {
my $file = shift;
open my $fh, '>', $file or warn "can't ooen $file";
print $fh @_;
}

my $dirname = '.';
my $joint_file = 'joint.txt';
my @files = grep {$_ !~ /$joint_file/} glob "$dirname/*.txt";

open my $fh, '<', $joint_file;
#open my $fh, '<', $joint_file; or die "could not open $joint_file by $!";
my @joint_base = <$fh>;
close $fh;
chomp @joint_base;

foreach my $file (@files) {
my @lines = slurp($file);
my @newlines;
my $min = @lines < @joint_base ? @lines : @joint_base;

foreach my $i (0 .. $min-1) {
push @newlines, join(q{,}, $joint_base[$i], $lines[$i]);
}
write_file($file . ".new" , @newlines);
}

要素数の短いものに合わせて切り詰めます・

Tacosan · Answer

あ～, 2箇所 die を dir と typo してますね＞#8.

pick52 · Answer

>>No.7,8さん

面白いですね。
いろいろな書き方ができるのがPerlの面白いところ、魅力(すばらしい
ところ)ですね。
どれが早いか・効率がいいかなどは分かりませんけど。

逆に勉強になりました。

Tacosan · Answer

無意味に短くしてみる試み:

open FILE, './joint.txt' or die "joint.txt: $!";
chomp(my @header = <FILE>);
close FILE;

my $dirname = '.';
opendir DIR, $dirname or die "$dirname: $!";
my @files = grep { /\.txt$/ && $_ ne 'joint.txt' } readdir DIR;
closedir(DIR);

for my $file (@files) {
open FILE, $file or dir "$file: $!";
my @lines = <FILE>;
close FILE;
open NEWFILE, ">$file" or dir "$file: $!";
print NEWFILE map {"$header[$_],$lines[$_]" } 0 .. $#lines;
close NEWFILE;
}
つなげたい 2つのファイルの行数が違うときにどうしたらいいかはしらん.
paste ってコマンドがあれば簡単なんだけどね....

_--_--_-_- · Answer

如何でしょうか。

----------------
my $dirname = './';
my $filename = './joint.txt';

open my $file, $filename or die "$filename: $!\n";
my @content = <$file>;
close $file;
chomp @content;

while (my $line = <$dirname*.txt>) {
next if $line eq $filename;
open my $file, $line or die "$line: $!\n";
my @try = <$file>;
close $file;
chomp @try;

open my $newfile, '>', $line or die "$line: $!\n";

for (my $i = 0; $i < @content; $i ++) {
last unless defined $try[$i];
print $newfile "$content[$i],$try[$i]\n";
}

close $newfile;
}

pick52 · Answer

>>No.3
もう一つバグ発見。

my @file = <FILE>;

とした後、他の変数にバックアップとっておかないとまずいですね。
(テストしたときはファイルが一つだけだったので複数ファイルがある
ことを考慮していませんでした)
その辺りは頑張って修正してください。

他にも問題があるかも。

pick52 · Answer

>>No.3
あ、

print @file;

はデバッグ時のものです。
除去し忘れていましたが不要なので削除してください。

pick52 · Answer

use File::Basename;

my $dirname = '.';

die('not open : joint.txt') unless(open(FILE, 'joint.txt'));
my @file = <FILE>;
close(FILE);

while(<$dirname/*.txt>) {
my $fn = (fileparse($_))[0];
next if($fn eq 'joint.txt');
if(open(FILE, $_)) {
my @file2 = <FILE>;
for(my $i = 0; $i <= $#file2; $i++) {
chomp($file[$i]);
$file[$i] .= ",$file2[$i]";
}
close(FILE);
print @file;
if(open(FILE, ">$_")) {
print FILE @file;
close(FILE);
}
}
}

こんな感じでどうでしょうか。
ファイルが開けなかったときのエラー処理まではしていませんけど。

Tacosan · Answer

その処理をしたいなら, foreach ループをネストさせちゃダメ. たのしいことになります.
他にも
・@file, @file2 の両方を print してるのはなぜ?
・$line に対する代入のクォートは適切ですか?
くらいは気になるなぁ.

一つのテキストファイルと複数のファイルの結合

>>No.3

この回答への補足

まだ締め切られていないようなのでぺたり。

あ～, 2箇所 die を dir と typo してますね＞#8.

>>No.7,8さん

無意味に短くしてみる試み:

如何でしょうか。

>>No.3

この回答への補足

>>No.3

use File::Basename;

この回答への補足

その処理をしたいなら, foreach ループをネストさせちゃダメ. たのしいことになります.

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング