マイクロアドでおこづかいゲット! LuxuryMail



2008-11-21 15:04:38

めもがき

テーマ:メモ

ランダムバナー メモ


<SCRIPT LANGUAGE="JavaScript">
<!--
img=new Array(1);
img[0]="<a href='http://' target='_blank'><img src='http://' border='0' width='468' height='60'></a>";

imgNo=Math.floor(1*Math.random());
document.write(img[imgNo]);
//-->
</SCRIPT>

AD
いいね!した人  |  コメント(0)  |  リブログ(0)
2007-09-21 16:19:32

FILE読み込み

テーマ:メモ

open FILE,"data.txt";
flock( FILE , 2 );
while(<FILE>){
$data = $_;
@datas = ();
@datas = split(/,/,$data);
last;
}
close FILE;


AD
いいね!した人  |  コメント(0)  |  リブログ(0)
2007-05-25 20:21:31

クッキー処理

テーマ:メモ

Cookie呼び出し


sub GetCookie
{
local($cookie) = $ENV{'HTTP_COOKIE'};
local(*data, @cookie, $key, $val);
@cookie = split(/ /, $cookie);
foreach (@cookie) {
($key, $val) = split(/=/);
$data{$key} = $val;
}
return *data;
}

if ($ENV{'HTTP_COOKIE'}) {
*data = GetCookie($ENV{'HTTP_COOKIE'});
@w = split(/\,/, $data{'xxxx'});
$xxxxx = @w[0];
}

Cookieカキコミ


$cknm = 'ccccc';
$ckrec = "$ddddd\,";


print "Content-type: text/html\n";

$str = $ENV{'HTTP_USER_AGENT'};

if($str =~ /MSIE/){ #$appName = "Microsoft Internet Explorer";
print "Set-Cookie: $cknm=$ckrec; expires=Tue, 1-Jan-2030 00:00:00 GMT;\n\n"
}elsif($str !~ /compatible/ and $str =~ /Mozilla/){#$appName = "Netscape";
print "Set-Cookie: $cknm=$ckrec; expires=Tue, 1-Jan-2030 00:00:00 GMT; path=; domain=;\n\n"
}else{ #$appName = "Others";
print "Set-Cookie: $cknm=$ckrec; expires=Tue, 1-Jan-2030 00:00:00 GMT; path=; domain=;\n\n"
}

AD
いいね!した人  |  コメント(0)  |  リブログ(0)

AD

ブログをはじめる

たくさんの芸能人・有名人が
書いているAmebaブログを
無料で簡単にはじめることができます。

公式トップブロガーへ応募

多くの方にご紹介したいブログを
執筆する方を「公式トップブロガー」
として認定しております。

芸能人・有名人ブログを開設

Amebaブログでは、芸能人・有名人ブログを
ご希望される著名人の方/事務所様を
随時募集しております。