ファイル処理について

質問

宜しくお願いします。

ファイル「ppp.txt」の中の文字列を逆にする
コードを組みたいのですが、どの本を読んでも
ロジックが見当たりません。

ファイルppp.txtの中は以下です。

AAA
BBB
CCC
DDD
EEE

->

EEE
DDD
CCC
BBB
AAA

としたいのです。

じっくり探せばあると思うのですが、
急ぎなので投稿しました。

これを実現するPerlスクリプトコードを
教えて頂けないでしょうか。
宜しくお願いいたします。

回答No.1

taseki · ベストアンサー

open(FILE, 'ppp.txt') or die;
my @lines = <FILE>;
close(FILE);

@lines = reverse @lines;

open(FILE, ">qqq.txt") or die;
print FILE @lines;
close(FILE);

お礼

ご返答ありがとうございます。
reverse関数を使うのですか。初心者なので
使い方が分かりませんでした
書いて頂いたコードでうまくいきました。
ありがとうございました。

回答No.3

FoggyMountain

＞どの本を読んでもロジックが見当たりません。

ファイルを1行ずつ配列に取り込んでから、配列を逆からプリントするだけです。
超初級レベルのロジックですよ。

お礼

ご返答ありがとうございます。
配列を使うことも考えたのですが・・・
どうすれば良いのか分かりませんでした。
1行の最後をどう判断するのかが・・？！
\nでif分岐させるのかな？
とか考えていたのですが。
超初級・・そうですよね。
ありがとうございました。

回答No.2

sakusaker7

ご自分でスクリプト(プログラム)を作りたいのなら別ですが、
tac というコマンドでお望みのことは実現できます。

参考URL：

http://cyberam.dip.jp/linux_command/command/text_view.html

お礼

ご返答ありがとうございます。
tacコマンドというのがあるのですか。
知りませんでした。
試してみましたが、no manual・・・
FreeBSDには無いみたいです。
ありがとうございました。