ファイル分割２
前回ファイル分割について質問させていただいた者です。
ファイル名 あいうえお.txt
内容
<A>AAA
<B>BBB
<C>CCC
<D>DDD
<E>EEE
<F>FFF
というファイルを
ファイル名 あいうえお1.csv
A,B
AAA,BBB
ファイル名 あいうえお2.csv
C,D
CCC,DDD
ファイル名 あいうえお3.csv
E,F
EEE,FFF
という感じで変換させたいと思っております。
A,B,C,D,E,F
AAA,BBB,CCC,DDD,EEE,FFF
に変換するプログラムは
my $mae = my $filename = shift @ARGV;
my $ato = "$filename.csv";
open(IN,"$mae") || die "Can't open!";
my @datas = <IN>;
close (IN);
my (@ichi,@ni);
foreach (@datas){
if ($_ =~ /^<(.*)>(.*)$/){
push(@ichi,$1);
push(@ni,$2);
}
}
my $ichi = join(",",@ichi);
my $ni = join(",",@ni);
open (IN,">$ato") || die "Can't open!";
eval 'flock(IN,2);';
seek (IN,0,0);
print IN ("$ichi\n");
print IN ("$ni\n");
eval 'flock(IN,8);';
close (IN);
exit;
こんな感じで作成したのですが、前回教えていただいた３つファイルに分割するプログラムをどのように追加するか
わかりません。
ほんとにあほみたいなことを聞いているとは思いますが、
教えていただけないでしょうか？
よろしくお願いします。
お礼
解答有難うございました。画像連結”は思っていたものに近かったです。