PERL」カテゴリーアーカイブ

配列(リスト)内の値を置換

フォームでデータを受け取って ハイフンとか文字を置換したい場合 PERL のMAPを使用すると置換出来た。

スカラー配列ごとに

$aaa = ~ s//*****
$bbb = ~ s//*****
$ccc = ~ s//*****

ってな感じで何とか対応してきたのですが・・・

@array = ($aaa,$bbb,$ccc)
@array2 = map { ~ s/\xEF\xBC\x8D/\xE2\x88\x92/g;$_;} @array;

print "@array2";

で置換可能

末尾の $_; ではまってしまった・・・

CGIから他のURLに飛ばす

問い合せフォームなど一個のCGI内で送信管理までの処理を行ってきたが

アクセス解析のコンバージョンを取るなどが必要な場合

CGIからサンクスページ.html などに飛ばすメモ書き

 

 

print "Location: http:www.yahoo.co.jp/\n\n";

 

Locationで指定したURLへ飛ばす。

thanks.html などなど。

 

他にもJAVASCRIPTなど方法はあるようです。