★三　【スクリプト改造工房 PART 8 】　★三

★三　【スクリプト� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

906:nobodyさん
 06/02/16 18:55:08 
>>905 
あーごめんごめん、 
ﾛｸﾞﾌｧｲﾙに書き出す前にﾄﾘｯﾌﾟｷｰをﾄﾘｯﾌﾟに変換してﾛｸﾞに書き出せばいいんじゃないかな。 
表示部分でやってもﾀﾞﾒだ。 
管理人にﾄﾘｯﾌﾟｷｰを抜かれる。

907:901
 06/02/16 19:14:03 
>>906 
すいませんその方法がわからないです＾＾； 
Perlプログラムの知識は全く無いんで。 
基礎用語が少しだけわかる程度です。

908:nobodyさん
 06/02/16 19:21:19 
>>907 
じゃ、なんでこのｽﾚに来たんだよ。 
このｽﾚはｱﾄﾞﾊﾞｲｽをもらって自分で何とかするｽﾚ。 
お前はこっちに逝け！ 
【 スクリプト改造依頼スレ 】(丸投げ) part4 
http://pc8.2ch.net/test/read.cgi/php/1127916965/

909:901
 06/02/16 19:28:29 
了解。スレ違いでしたか＾＾； 
すいませんでした、移動します。

910:nobodyさん
 06/02/18 06:17:16 
ttp://www.rescue.ne.jp/cgi/database/ 
を改造しようと思うんですが都道府県　男女別  年齢層　の部分を削除するにはどうすればいいですか？ 
つまりニックネームだけの検索に改造しようと思ってます 
ソースはこんな感じです↓ 
 
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } 
else { $buffer = $ENV{'QUERY_STRING'}; } 
 
if ($buffer eq "") { &error('エラー','使い方が間違っています.'); } 
 
@pairs = split(/&/,$buffer); 
foreach $pair (@pairs) { 
 
($name,$value) = split(/=/, $pair); 
$name2 = $name; 
$value2 = $value; 
$FORM2{$name} = $value; 
 
$value =~ tr/+/ /; 
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
&jcode'convert(*value,'euc'); 
 
$value =~ s/</</g; 
$value =~ s/>/>/g; 
$value =~ s/\n//g; 
$value =~ s/\r//g; 
$value =~ s/\t//g; 
$value =~ s/\,//g; 
 
#フォーム変数へ 
$FORM{$name} = $value;

次ページ