この正規表現について教えてください。

質問

<script type="text/javascript">
.......................
.......................
.......................
</script>

のようなHTML文書内のスクリプトを削除して

<script type="text/javascript">
</script>

のようにしたいのですが、どのような正規表現に
なりますでしょうか。お願いします。

回答No.1

Ethersky · ベストアンサー

open(IN, "< input.htm"); #元ファイル
open(OUT, "> output.htm"); #処理後ファイル
$flag = 0;
while(<IN>){
if($flag){
if(/<\/script>/i){
s|.*</script>(.*)|</script>$1|i;
$flag = 0;
}else{
next;
}
}else{
if(/<script type="text\/javascript">/i){
s|(.*)<script type="text/javascript">.*|$1<script type="text/javascript">|i;
$flag = 1;
}
}
print OUT;
}
close(OUT);
close(IN);

回答No.2

leaz024

HTMLファイルの内容を１つの文字列に押し込め、s オプション付きで置換すると簡単かも。

open FH, "hoge.html" or die $!;
# ファイルから一括入力するための設定
local $/;
my $html = <FH>;
close FH;

$html =~ s|(<script type="text/javascript">).*?(</script>)|$1\n$2|gis;

open FH, "> hoge.out.html" or die $!;
print FH $html;
close FH;