2008年11月12日水曜日
2008年11月11日火曜日
Perl:無名配列と無名ハッシュのリファレンス
@aa =('aa',[1 , 2],{'alphabet' => 'alpha beta gamma'});
print $aa[1]->[0];
print $aa[2]->{alphabet};
print $aa[1]->[0];
print $aa[2]->{alphabet};
2008年11月10日月曜日
PHP:web 上のファイルが存在するかチェックする方法
$url='http://www.example.com/images/pic01.jpg';
$x=get_headers($url);
print $x[0];
?>
存在する場合の例は、 HTTP/1.1 200 OK
存在しない場合の例は、 HTTP/1.1 404 Not Found
http://okwave.jp/qa4295497.html
$url='http://www.example.com/images/pic01.jpg';
$x=get_headers($url);
if(preg_match("/OK$/",$x[0])){
echo "OK";
}else{
echo "NOT FOUND";
}
?>
$x=get_headers($url);
print $x[0];
?>
存在する場合の例は、 HTTP/1.1 200 OK
存在しない場合の例は、 HTTP/1.1 404 Not Found
http://okwave.jp/qa4295497.html
$url='http://www.example.com/images/pic01.jpg';
$x=get_headers($url);
if(preg_match("/OK$/",$x[0])){
echo "OK";
}else{
echo "NOT FOUND";
}
?>
2008年11月5日水曜日
2008年11月4日火曜日
登録:
投稿 (Atom)