匿名質問者回答ポイントなし

perlで文字列の置き換え

上部・下部メニュー部分をテンプレートを呼び出し、表示させるようにしています。
sub view{
open(FILE,"../../../html/lib/$ssifile")||&error("No file.html");
@ssifile=<FILE>;
$ssifile="@ssifile";
close(FILE);
($ssifile_head,$ssifile_body1)=split(/<body>/,$ssifile);
($ssifile_body,$ssifile_foot)=split(/<\/body>/,$ssifile_body1);
print "$ssifile_body\n";
}
$ssifileはメニューボタンが格納されています。
また、別のものと共有で利用しているのですが、階層が違うのでうまく表示してくれません。
テンプレートには「../../～」で画像等を表記していますが、ここでは「../../../～」にしないと画像・リンクが動作しません。
「print "$ssifile_body\n";」の上に"$ssifile_bodyの「../../」を「../../../」にすべて置き換え"としたいです。
素人考えで
$ssifile_body = ~s/..\/..\//..\/..\/..\//g;
としてみましたが、正常に表示しませんでした。(なぜか数字の羅列が表示…)
これはどのように修正したらよいでしょうか?

みんなの回答

匿名回答1号2014/03/05 20:05:51

.もエスケープ

$ssifile_body = ~s/\.\.\/\.\.\//..\/..\/..\//g;

一括エスケープしてセパレータも変更

$ssifile_body = ~s#\Q../../#../../../#g;

この質問へのコメント

匿名回答2号2014/03/06 01:18:19

テンプレートに書いてある画像のURLを相対パスで書かなければ良いだけではないのですか？

perlで文字列の置き換え

みんなの回答

匿名回答1号2014/03/05 20:05:51

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版