正規表現で詰まっています。

質問

こんにちは。

今、正規表現で困っています。

ファイルの中身
<meta name="description" content="">
<title>
B'zのサイトへようこそ
</title>

上記のようなhtmlのソースなのですが、以下のように変換できるように正規表現を考えましたが、できませんでした。

変換したい表現
<meta name="description" content="B'zのサイトへようこそ">
<title>
B'zのサイトへようこそ
</title>

titleタグで囲まれた文字を、metaタグのcontentの中に入れたいのです。
とても困っています。どなたかご教授下さい。よろしくお願いいたします。

回答No.3

pipipi523 · ベストアンサー

>もし複数ファイルを一括で変換できるフリーウェアがありましたら、それとともに教えていただきたいのですが。

ActivePerlをインストールして簡単な置換スクリプトを作ってみては？
#ActivePerlの参考url
http://pocketstudio.jp/win/activeperl/

とりあえず簡単な置換スクリプトを作ってみました
コピペでファイルを作って実行(マイコンピューターからフォルダを開いてクリック)すると置換出来ます
###okikae.plの内容###
#置き換え定義ファイルの読み込み
open(IN,"okikae.txt");
while(<IN>){
next if(/^[#\n]/);
if(/^indir/){(undef,$indir)=split(/[=\n]/);next;}
if(/^outdir/){(undef,$outdir)=split(/[=\n]/);next;}
if(/^ext/){(undef,$exts)=split(/[=\n]/);next;}
push(@patterns,$_);
}
close(IN);
#置き換え処理
foreach $ext (split(/;/,$exts)){
foreach $file (glob("$indir/$ext")) {
open(IN,$file);@data=<IN>;close(IN);$buf=join("",@data);
foreach $eval (@patterns){eval("\$buf=~$eval");}
$outfile="/$file";$outfile=~s|^.+/||;
open(OUT,">$outdir/$outfile");print OUT $buf;close(OUT);
}
}

###okikae.txtの内容(okikae.plと同じ所に置く)###
#フォルダ設定(最後に"/"は付けない)
indir=/work/in
outdir=/work/out

#ターゲットファイルの拡張子指定(;で区切って複数指定可)
ext=*.html;*.htm

#置き換えパターン(evalで順番に実行する)
s/(<meta name="description" content=")[^<]*(<title>\n?([^\n]*)\n?<\/title>)/$1$3">\n$2/i

お礼

pipipi523さん、

ありがとうございます。なんとかできました！とても嬉しいです☆

こんなにご親切に、どうもありがとうございました。