長～い文字列の部分的削除

質問

お世話になります。
長～い文字列の、部分的削除を行いたいのですが、
例えば以下のようにすると、実行がとまってしまいます。

$pt_1 = index $html, @del_html[$count];
$pt_2 = index $html, @del_html[$count+1];
　　・
　　・
　　・
$cut_string = substr $html, $pt_1, $pt_2;

# 削除
$html =~ s/$cut_string//g;

・・・と、要点だけ書いてますが、こんな感じで部分的削除をしようとしてもできません。
途中２バイト文字が入ってるから、とか、置換対象が長すぎるから、とか色々原因が考えられるのですが、
どっちにしても、もうちょっとサマになるプログラミングはないでしょうか。
よろしく御願いします。

回答No.1

tatsu99 · ベストアンサー

$pt_1及び$pt_2は必ず正しい結果が設定されているという前提でよいでしょうか。その場合は、以下の様にしてください。
$cut_string = substr $html, $pt_1, $pt_2;
# 削除
$html =~ s/$cut_string//g;
のところを
$html = substr($html,0,$pt_1+1) . substr($html,$pt_2);
にしてください。
(ＯＳはUnix(linux)で漢字コードはEUCコードであれば、正しく動作します）
上記の方法で解決しない場合は、念の為、以下の質問に回答ください。
1.$pt_1,$pt_2が正しく設定されない場合があり得るのか。
２．ＯＳは何でしょうか。
３．Perlのバージョンは何でしょうか。
４．日本語対応のperl(JPERL)を使用していますか。

お礼

詳細な回答誠にありがとうございました。
おかげさまで無事解決しましたので、お礼申し上げます。
m(__)m