- Perlについての質問箱 63箱目
161 ：デフォルトの名無しさん[]：2016/06/01(水) 11:50:03.90 ID:6wx+Ihuz - $text = 'hoge<span class="hoge" id="hoge">"hoge"</span><span class="huge" id="huge">"hoge"</span>huge';
上のような文字列で<〜>(タグ内)に囲まれた"だけ
|
- Perlについての質問箱 63箱目
162 ：デフォルトの名無しさん[]：2016/06/01(水) 11:54:16.91 ID:6wx+Ihuz - $text = 'hoge<span class="hoge" id="hoge">"hoge"</span>
<span class="huge" id="huge">"hoge"</span>huge';
上のような文字列(改行されてますが1行です)で<〜>(タグ内)に囲まれた"だけ " に置換したいです
s/(<.*?)"(.*?>)/$1"$2/g;
上のように試してみましたが、最初の1つのみ " に置換されるだけです
よろしくお願いします
|
- Perlについての質問箱 63箱目
163 ：162[]：2016/06/01(水) 12:36:41.40 ID:6wx+Ihuz - タグの外側だけ置換する方法としては下記がどこかに載っていました
s/((?:\G|>)[^<]*?)"/$1"/g;
タグの内側だけ置換したい場合は>と<を逆にすればいいかと思ったのですができませんでした
|
- Perlについての質問箱 63箱目
165 ：デフォルトの名無しさん[]：2016/06/01(水) 13:07:26.71 ID:6wx+Ihuz - >>164
ありがとうございます
やってみましたがエラーになりました
もちろん＆は半角に直しました
|
- Perlについての質問箱 63箱目
167 ：デフォルトの名無しさん[]：2016/06/01(水) 13:44:06.85 ID:6wx+Ihuz - >>166
5.8系です
AddHandler cgi-script-debugが使えなくなってデバッグができないんです
この文法チェッカもいつの間にか消えてました
http://homepage2.nifty.com/sophia0/perl.html
|
- Perlについての質問箱 63箱目
168 ：デフォルトの名無しさん[]：2016/06/01(水) 14:04:04.96 ID:6wx+Ihuz - teraterm入れてSSH登録してエラーチェックしてみました
Bareword found where operator expected at test.cgi line 7, near "s/"/"/gr"
syntax error at test.cgi line 7, near "s/"/"/gr "
test.cgi had compilation errors.
|
- Perlについての質問箱 63箱目
170 ：デフォルトの名無しさん[]：2016/06/01(水) 14:17:56.91 ID:6wx+Ihuz - >>169
できました！
本当にありがとうございました！
(Perl 5.8.8なのにエラーが出たのは謎ですね)
|