ファイル処理について

宜しくお願いします。

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

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

AAA
BBB
CCC
DDD
EEE

->

EEE
DDD
CCC
BBB
AAA

としたいのです。

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

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

No.1 ベストアンサー 回答者： taseki 回答日時： 2006/09/19 23:38

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関数を使うのですか。初心者なので
使い方が分かりませんでした
書いて頂いたコードでうまくいきました。
ありがとうございました。

お礼日時：2006/09/20 00:41

No.3 回答者： FoggyMountain 回答日時： 2006/09/20 00:31

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

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

この回答へのお礼

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

お礼日時：2006/09/20 00:46

No.2 回答者： sakusaker7 回答日時： 2006/09/20 00:07

ご自分でスクリプト(プログラム)を作りたいのなら別ですが、

tac というコマンドでお望みのことは実現できます。

参考URL：http://cyberam.dip.jp/linux_command/command/text …

この回答へのお礼

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

お礼日時：2006/09/20 00:43