お世話になっております。 @usable_A = qw(太斜 …); @usable_B = ('SPAN class=B','SPAN class=I' …); と設定して、フォームからの入力データ ● かにみそを ● かにみそと変換してログに入れるようにしました。このデータを編集する際、フォーム内での表示を ● かにみそに戻したいのですが、をにするにはどのようにすれば良いのでしょうか。宜しくお願い致します。

閉じタグがであると決め打ちしてしまいます。 my @usable_A = qw(太斜); my @usable_B = ('SPAN class=B','SPAN class=I'); my $str = ' かにみそ '; my %B2Atable = map { $usable_B[$_] => $usable_A[$_] } 0..$#usable_B; { local $" = '|'; 1 while $str =~ s# ((?:(?! ).)+?) # $2 #; } print $str; # かにみそ他に無関係なSPANが存在する時はHTML全体をパースすることになりそうです。

$stringに変換対象の文字列が入っているとします。 while($string =~ m/ [^<>]+? /){ $string =~ s/ ([^<>]+?) /(斜)$1(\/斜)/i; $string =~ s/ ([^<>]+?) /(太)$1(\/太)/i; } $string =~ s/\(/ /g; まず、最短マッチで、内側のspanを置換します。但し、いきなりやにしてしまうと次のマッチがヒットしなくなってしまうので、とりあえず（斜)と(太)に置換して、最後に<>に戻しました。

置換で徐々に変換するとか。はじめからxslとかを使ってしまうとか？戻すより変換前のデータを使った方が良いと思いますが。 ↓ ↓ ログに出すときにきちんと改行していればそこまで一気に正規表現で引っ掛ける事も出来るのですが。

閉じタグの置換方法

解決済

質問者：pantonenezu
質問日時：2006/04/07 13:39
回答数：5件

お世話になっております。

@usable_A = qw(太斜 …);
@usable_B = ('SPAN class=B','SPAN class=I' …);

と設定して、フォームからの入力データ

●<太><斜>かにみそ</斜></太>

を

●かにみそ

と変換してログに入れるようにしました。
このデータを編集する際、フォーム内での表示を

●<太><斜>かにみそ</斜></太>

に戻したいのですが、を</斜></太>にするにはどのようにすれば良いのでしょうか。

宜しくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： yuuki0229
回答日時：2006/04/07 22:40

閉じタグがであると決め打ちしてしまいます。

my @usable_A = qw(太斜);
my @usable_B = ('SPAN class=B','SPAN class=I');
my $str = 'かにみそ';
my %B2Atable = map { $usable_B[$_] => $usable_A[$_] } 0..$#usable_B;

{
local $" = '|';
1 while $str =~ s#<(@usable_B)>((?:(?!<(?:@usable_B)>).)+?)#<$B2Atable{$1}>$2</$B2Atable{$1}>#;
}

print $str;
#<太><斜>かにみそ</斜></太>

他に無関係なSPANが存在する時はHTML全体をパースすることになりそうです。

- 0
- 件

通報する

この回答へのお礼

御回答有難う御座います。
問題無く動作致しました。
無関係なSPANを入れて試してみましたが、支障は無いようでした。

通報する

お礼日時：2006/04/09 07:04

No.5

回答者： SE-1
回答日時：2006/04/08 13:53

# HTML の構造によっては希望通りに動きませんが・・

# そしてハッシュは＃４さんのぱくりですが・・・

use strict;

my @usable_A = qw(太斜下);
my @usable_B = ('SPAN class=B','SPAN class=I', 'SPAN class=U');
my $usable_B2=join "|", @usable_B;
my %B2Atable = map { $usable_B[$_] => $usable_A[$_] } 0..$#usable_B;
my $html;

{
local $/;
$html=<DATA>;
}

while ($html=~/<($usable_B2)>(.+)<\/SPAN>/){
my $sub ="<$B2Atable{$1}>$2<\/$B2Atable{$1}>";
$html=~s/$&/$sub/;
}

print $html;

__DATA__
<HTML>
<HEAD>
</HEAD>
<BODY>
ここから
かにみそ Ushiro
区切り
<A HREF=...>LINK</A>
Mae うに
</BODY>
</HTML>

- 0
- 件

通報する

この回答へのお礼

御回答有難う御座います。
どうもエラーが出てしまうようです。
読解力が甚だ不足しているので、どこをどう弄れば良いのかも判らないのですが。
HTMLの構造が違うということ…ですか…ね??
話は逸れますがclass名やら読まれていて笑いました。

通報する

お礼日時：2006/04/09 07:16

No.3

回答者： rafysta
回答日時：2006/04/07 18:07

$stringに変換対象の文字列が入っているとします。

while($string =~ m/[^<>]+?<\/SPAN>/){
$string =~ s/([^<>]+?)<\/SPAN>/(斜)$1(\/斜)/i;
$string =~ s/([^<>]+?)<\/SPAN>/(太)$1(\/太)/i;
}
$string =~ s/$/</g;
$string =~ s/$/>/g;

まず、最短マッチで、内側のspanを置換します。但し、いきなり<斜>や<太>にしてしまうと次のマッチがヒットしなくなってしまうので、とりあえず（斜)と(太)に置換して、最後に<>に戻しました。

- 0
- 件

通報する

この回答へのお礼

御回答有難う御座います。
問題無く動作致しました。
ただ、使えるタグ、というか修飾の種類を増やす場合は書き加えなければいけないのですよね？
ちょっと手間かも…我が儘で済みません。

通報する

お礼日時：2006/04/09 06:54

No.2

回答者： steel_gray
回答日時：2006/04/07 14:17

質問の答えにはなっていませんが。

変換せずにログに保存。
表示する時にはその都度変換。
編集フォームにはログにある元データをそのまま表示。

効率は悪いのですが、データはなるべくオリジナルのまま保存しておいた方が何かと都合がよいような気がします。（理由は？と聞かれても経験上としか答えられませんが）

- 0
- 件

通報する

この回答へのお礼

表示の際に都度変換というのも考えてはみたのですが、ログ数が多かったり変換数が多かったりしたら遅くなりそうな気が致しまして。それなら投稿・編集の際に一記事だけを変換するのが良いかと。
…そんなことはないのでしょうか…。
ともあれ、御回答有難う御座いました。

通報する

お礼日時：2006/04/08 01:10

No.1

回答者： crimson117
回答日時：2006/04/07 14:07

置換で徐々に変換するとか。

はじめからxslとかを使ってしまうとか？
戻すより変換前のデータを使った方が良いと思いますが。


↓
</斜>
↓
</斜></太>

ログに出すときにきちんと改行していれば
そこまで一気に正規表現で引っ掛ける事も出来るのですが。

- 0
- 件

通報する

この回答へのお礼

御回答有難う御座います。
徐々に変換する、その条件というか判定の仕方？がわからないもので…。
修飾を施して記事投稿するもので、の順番とか数とかは任意なのです。「class=～」部分がマッチしたら閉じタグも決定されることになるとは思うのですが…？（思考がここで止まります）
他の情報と一緒に<>で区切られておりますが、改行はしてあります。
何か良い案がありましたら、また宜しくお願い致します。

通報する

お礼日時：2006/04/08 01:02

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！