Perl 配列を置きかえるとき、次の配列とつなげて置き換えするには？ともう一つ

!!! [E-Mail] 2000/01/23(日) 17:21:35
CGIスクリプトのソースを意味がわかるように置きかえる
CGIスクリプトを作ろうとしているのですが、コメント
(置き換えのとき)やIF、
FORなど数行に渡っているものをどうすればいいか、
また、''の中の変数などを置き換えないようにするには
どうすればいいのでしょうか。
１.コメント
２.シングルクォーテーション
この二つを何とかしてください。
スクリプトはこれです。
#!/usr/local/bin/perl

open(IN, "okikae.cgi");#置換元スクリプト
open(OUT, "> kekka.txt");#置換結果
@data = <IN>;
@data =~ s/\n#(.*)\n/コメント $1/g;#問題地点
@data =~ s/print ([^;]*);/$1を表\示する/g;#printの置き換え
close(IN);
foreach $data (@data) {
print(OUT "$data");
}
close(OUT);

びぎな++ 2000/01/24(月) 11:10:45
ちょっと興味があったので，考えています。初心者ですが・・・

コメント行以外にはPerlの改行を示す「;」がついていますから，
逆をついて，

--------------foreachの中----------------------
if ($data =~ s/\;//g) {print OUT "$data\n";}
$data =~ s/(.+$)\n/コメント $1/g;
print OUT "$data\n";
-----------------------------------------------

なんてするのはどうでしょう。表示は「コメント #～～・・・」となりますが。
その他については考え中です。(^^;

びぎな++ 2000/01/24(月) 11:25:28
ごめんなさい！
これじゃfor文の中身も全部コメントになっちゃいますね。
やっぱりわたしにゃできません。(^^;
では。

ふじ 2000/01/24(月) 14:17:28
Perlは非常にいろんな書き方が出来る言語なので、
単純に「# があったらその後は行末までコメント」
等という処理ではおそらく追いつきません。

for (0..$#array){
s#hoge#fuga#g;
}
とか書けますし、行頭に # が付いていればコメントと見なせるかというと

print <<END;
# これはコメントじゃない
END

とかいう場合もあるし。

if や for などの {} （ブロック）があるものについては、
一文字ずつ見ていって { と } の数の対応を数えるという
手もありますが、これとて

s/\{/\[/g;

なんて場合もあるからエスケープも考慮しなくちゃいけないし・・・・

まともに作ろうと思ったら、Perl の構文解析エンジンと同等のものになるでしょう。
# Perl のソースを読む？(^^;