2つのファイルの出力方法について、人力検索で質問してみました。

Perl

前へ / 次へ
２つのファイルを続けて出力するにはどうしたらいいだろうと試したけれど、うまくいかなくて人力検索で質問したら、たくさんのアドヴァイスをいただくことができました。ありがとうございます。ファイルを出力するスクリプトの書き方もいろいろあるようです。ele_dirさんがいくつか書いてくれたものを、試してみようと思います。

上から１つ目の方法

#!/usr/bin/perl
print "test 0\n";
open(FILE, ">test.txt");
print FILE "test\n";
close(FILE);
この内容をeat5.plにする。

komadas-Computer:~ komada$ chmod +x eat5.pl
komadas-Computer:~ komada$ ./eat5.pl
test 0?nkomadas-Computer:~ komada$

こんな表示がでてきました。

２つめの方法

#!/usr/bin/perl
print "test 1\n";
open(FILE, "){
print$_;
}
close FILE;
open(FILE, "){
print$_;
}
close FILE;
この内容をeat6.plにする

komadas-Computer:~ komada$ chmod +x eat6.pl
komadas-Computer:~ komada$ ./eat6.pl
test 1?nI like an apple.
He ate a banana.
I cooked some corn.
She has some donuts.Pooh likes honey.
He finds honeycomb and eats honey.
He also likes honey pies.
But, he is often followed by honey bees. komadas-Computer:~ komada$

やったー！うまく動いた。

3つめの方法

#!/usr/bin/perl
print "test 2\n";
open(FILE, "){
print;
}
close FILE;
open(FILE, "){
print;
}
close FILE;
この内容をeat7.plにする

test 2?nI like an apple.
He ate a banana.
I cooked some corn.
She has some donuts.Pooh likes honey.
He finds honeycomb and eats honey.
He also likes honey pies.
But, he is often followed by honey bees. komadas-Computer:~ komada$

"$_"がなくても動くことを確認。簡単に書く方法を覚えてきた。

４つ目の方法　(配列を使用)

#!/usr/bin/perl
print"test 3\n";
@file_name=("food.txt","food2.txt");
while(<@file_name>){
open(FILE, "<$_");
while(){
print$_;
}
}
この内容をeat8.plにする

komadas-Computer:~ komada$ chmod +x eat8.pl
komadas-Computer:~ komada$ ./eat8.pl
test 3
I like an apple.
He ate a banana.
I cooked some corn.
She has some donuts.Pooh likes honey.
He finds honeycomb and eats honey.
He also likes honey pies.
But, he is often followed by honey bees. komadas-Computer:~ komada$

うまく動いた。やったー！

5つ目の方法(forを使う)

#!/usr/bin/perl
print "test 4\n";
@file_name=("food.txt","food2.txt");
for $file(@file_name){
open(FILE,"<$file");
for $line(){
print $line;
}
close FILE;
}
この内容をeat9.plにする。

test 4?nI like an apple.
He ate a banana.
I cooked some corn.
She has some donuts.Pooh likes honey.
He finds honeycomb and eats honey.
He also likes honey pies.
But, he is often followed by honey bees. komadas-Computer:~ komada$

こちらも成功です。大変参考になりました。
3つ以上のファイルの開け方はどうするのだろう。