自作CGIを評価するスレ (672ﾚｽ)
上下前次1-新
590: 後半 2006/06/06(火)15:23 ID:??? AAS
# 該当する月のファイルがなければ作成
if(!open(IN,"$file")){
open(OUT,">$file")
flock(OUT,2);
print OUT $date;
close(OUT);
}
open(IN,"$file");
flock(IN,2);
@A = <IN>;
省17
591(1): 2006/06/06(火)15:45 ID:??? AAS
>>589
まだちゃんと読んでないが…。
>if($MON == 1|3|5|7|8|10|12){
>}elsif($MON == 4|6|9|11){
これって比べてるのは、両方とも $MON == 15 だよね。
どっちの条件にも入らないと思うけど…正しく動作してるの？
592(1): 2006/06/06(火)15:51 ID:??? AAS
>$a = sprintf("%04d%02d",$YEAR,$MON)
セミコロンは？
動作するヤツうｐ
593: 2006/06/06(火)15:52 ID:??? AAS
ビット演算子を使っているんだ。
高度だな。
594(1): 2006/06/06(火)16:09 ID:??? AAS
switch文を使うと見やすいんじゃないかな？
use Switch
switch ($MON) {
case [1,3,5,7,8,10,12] { $m = 31 }
case [4,6,9,11] { $m = 30 }
case [2] { $m = $YEAR % 4 ? 28 : 29 }
else { print "そんな月知らん" }
}
595: 589 2006/06/06(火)16:39 ID:??? AAS
レス遅くなりました。すみません。
該当部分を切り出して動作するコードをUPしてきます。
596(1): 589 2006/06/06(火)17:02 ID:??? AAS
外部ﾘﾝｸ[zip]:up.isp.2ch.net
UPしました。パスは「589」です。
日付のところは594さんのアドバイスにしたがって書き換えました。
アドバイスの方よろしくお願いします。
597: 589 2006/06/06(火)17:11 ID:??? AAS
>>591>>592
コードの一部分だけ抜き出してできるだけ短く書こうとしたので
分かりにくかった&書き損じがありました。すみませんでした。
>>594
perlでもswitchが使えるとは知りませんでした。
598: 2006/06/06(火)17:20 ID:??? AAS
いやperlではswitchは使えない。
599: 2006/06/06(火)17:24 ID:??? AAS
Switch なんてモジュールがあるのか知らんかった。
600: 2006/06/06(火)18:59 ID:??? AAS
cgi-lib.pl ｋｔｋｒ
601: 2006/06/07(水)00:26 ID:??? AAS
PerlはPHPとは違ってCPANを探せば考えられる大体の車輪は既にある。
602: 2006/06/20(火)01:54 ID:jChy1x4Z(1) AAS
>>596
見れない・・
603: 2006/07/08(土)12:44 ID:hGiPCYN9(1) AAS
switchがあったとは・・・
604: 2006/07/21(金)16:23 ID:BWWkPiVe(1) AAS
外部ﾘﾝｸ[cgi]:cgi37.plala.or.jp
605: 2006/10/07(土)10:40 ID:L17fbc1O(1) AAS
＠＠＠
606(5): 2006/10/11(水)22:51 ID:e5FQIx7N(1/2) AAS
特定の板のスレタイ検索をして、選んだスレから画像とかのサムネイルを表示するスクリプトを書いてみまｽた(・ω・｀)
恐ろしく見づらいと重いまｽが・・
外部ﾘﾝｸ:vip.ty.land.to
2chｽﾚ:php
でﾎﾞﾁﾎﾞﾁいじくったり、新しいことやったりしていきたいと思ってまｽが、評価して欲しいｽ(・ω・｀)
勉強かねてるので、車輪の再開発なのは承知でｽ
607(1): 2006/10/11(水)23:36 ID:??? AAS
>>606
言葉遣い荒いけど、ばーっと書いた弊害なので許して。
取りあえずぱっとみてこんなもん。
・一部のうｐろだは、リファラが不味いと弾かれる。
・画像がない場合の画像を一々作るのは無駄。
・CGIモジュール使え。
・グローバル変数も宣言しろ。
・これは好みだけど、設定の変数はハッシュに纏めた方が分かりやすいこともある。
・メインの流れはブロック作ってラベル付けた方が分かりやすいかも。
・正規表現の|は案外コストがかかる。配列にしてマッチング。
省6
608: 2006/10/11(水)23:42 ID:e5FQIx7N(2/2) AAS
>>607
おぉぉぉﾚｽもらえたｽ(；ω；｀)ｱﾘｶﾞﾀｲ
感謝しまｽ！
>・正規表現の|は案外コストがかかる。配列にしてマッチング。
>・先頭にrequire バージョン名;
>・use warningsは〜？
>・サブルーチンを先頭で宣言して欲しい。
良くわからないｽ(・ω・｀)
>・変数名に日本語はいやん。
英語苦手ｽ・・・毎度翻訳ｽかね・・頑張るｽ
省5
609(2): 2006/10/12(木)04:41 ID:??? AAS
>>606
うる覚えなんだが
if($i_m_f){
use Image::Magick;
}
これって意味ないんじゃなかったっけ？
$i_m_fが真ならImage::Magickを使うって事なんだろうけど、
この書き方だと$i_m_fが偽でもImage::Magick呼ぶんじゃなかったっけ？
識者の方ﾚｽよろ
ﾌｧｲﾙﾊﾝﾄﾞﾙは大文字で
省3
上下前次1-新書関写板覧索設栞歴
あと 63 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.217s*