自作CGIを評価するスレ

自作CGIを評価するスレ (672ﾚｽ)
上下前次 1-新

497: 03/12/20 03:19 ID:??? AAS
＞もっと勉強してください。

悪代官が黄門様に無礼者と言ってるのを思い出しちゃったｗ

498(2): 03/12/20 10:48 ID:rKU28so3(1/2) AAS
>>496
CGIとはWEBサーバーがWEBブラウザからの要求に応じてプログラム
を起動するための仕組みです。

”CGIは動いたりしない。”
馬鹿か？

499(1): 03/12/20 10:49 ID:rKU28so3(2/2) AAS
>>498

俺は悪代官だよ~Ｗ~

500: 03/12/20 13:51 ID:??? AAS
>498-499

501: 03/12/20 13:55 ID:??? AAS
ヘタレが。

502(1): 03/12/20 14:07 ID:??? AAS
CGIはシステムでも仕掛けでもない。
インターフィエスの一仕様。

モジュールからプロセス作ることもできるが、
あれもCGI？

503: 03/12/20 18:53 ID:FBPjlTLi(1) AAS
>>502
どうせperl=cgiとか
まだ思ってるアフォだろ？

504: HTTP/1.1 200 OK 03/12/20 21:23 ID:??? AAS
unlessはほかの言語と混同するからやめれ
とか書いてある本があった気がする
ほかの言語を使わなければいいだけの話なのに・・・

505: 03/12/21 00:57 ID:??? AAS
＞＞５０４
ﾏｼﾞ？

それって、if ははほかの言語と混同するからやめれというのと同じことだよね

506(1): 03/12/21 15:53 ID:??? AAS
汎用的なプログラミングの作法を身につける為なんじゃないかな？if だと他の言語でも大抵応用が効く。
同じような理由でperlの$_（暗黙の代入）はなるべく使うなとか書いてる本もあったよ。

507: 03/12/22 08:45 ID:??? AAS
>>506
なんだそりゃ？(藁
じゃあ混同しやすい elsif は使わないほうがいいってことか？

508(1): 03/12/22 15:58 ID:??? AAS
頭の弱いのが何人か・・

509(1): 03/12/26 11:25 ID:??? AAS
>>508
差別はｲｸﾅｲ!
何国ってのがどこのことだか知らんが，何国の人に失礼だよ(藁

510(1): 03/12/26 20:54 ID:??? AAS
>>509
ﾊｧ？
あたまのよわいのがなんにんか・・　って書いてあるが、どう読んだら何国の人になるんだ？

502,504,506,508が(ry

511(1): 03/12/26 21:46 ID:??? AAS
洒落だろ

512: 03/12/27 06:08 ID:??? AAS
>>510
「なにじんか」って読んだんだろ。>>511の言うように洒落だろうがつまらん。

513(1): 03/12/31 15:09 ID:OIDb7RDT(1) AAS
表計算ができるランキングCGIを作ってみたので評価お願いします。
外部ﾘﾝｸ:ssr.xrea.jp

けっこういい出来に仕上がったと思うけど、初めての人は操作にとまどうかも

514: 04/01/05 13:20 ID:8h9t8BrG(1) AAS
>>513
落としたYo
とりあえず使えそう・面白そうな物だったら、朴らせてもらうわ（ｗ

515: 04/01/12 07:57 ID:fR13iSUk(1) AAS
age

516(4): 04/01/17 13:56 ID:kOvCn6Ho(1) AAS
携帯＆PC対応の掲示板作りました。
外部ﾘﾝｸ[cgi]:fine.tok2.com
です。

517: 04/01/17 14:22 ID:??? AAS
>>516
それで金を取ろうと思う神経を疑うよ

518: 04/01/17 18:12 ID:??? AAS
上と下に出てる「1」って何だ？

519: 04/01/17 19:01 ID:??? AAS
>>516
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com

以下略
省1

520: 04/01/17 19:15 ID:??? AAS
>>516
ディレクトリ丸見えだねぇ

521(1): 04/01/18 02:22 ID:??? AAS
ところで、ちゃんと評価してるのって最初のほうだけだね。

522(1): 04/01/18 03:41 ID:??? AAS
>>521
・ここは見た目じゃなくコードを評価するスレだ。
・use strict; しろ。
・perlstyle 読め。
・デカいの持ってきても面倒だから読まんぞ。

…のどれかに該当していたら、まともなレスは返ってこない。

523: 04/01/18 21:22 ID:??? AAS
コードの見た目を評価するスレの間違い。

524: >>516 04/01/25 15:17 ID:yPaa9elS(1) AAS
DirectoryIndexの設定をしているtoktokも問題かと思うが。

Forbiddenにしたみたいだけど、
せめてファイル名変えなよ。

525: 04/03/06 14:54 ID:??? AAS
誰も居ない……ケチつけるなら今のうち。

if-elsifの書き方、
if{
..
}elsif{
..
}
より
if{
..
省5

526(1): 04/03/19 18:15 ID:??? AAS
>>522
perlstyleなんて知らなかった…ありがとう、勉強になったよ。

527: [ ] 04/05/03 22:01 ID:??? AAS
>>526
> perlstyle
ﾊｧ?

528(3): 04/05/09 20:52 ID:??? AAS
例えば既成の掲示板のCGIとかから

require 'axlog.pl';
AxLog::getlog('ログファイル名','ログ最大記録数');

の用に呼び出して使うアクセス解析。

何となく作ったんですが評価お願いします。

アクセス解析外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
ログビューワー外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
省6

529(2): 528 04/05/09 21:13 ID:??? AAS
すいません、上の奴.txtで終わってるのに何故か実行しようとしてエラーになるので
ファイル名変更しました。

アクセス解析外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
ログビューワー外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com

530(1): 04/05/09 21:49 ID:??? AAS
>>529
とりあえず axlog.pl をザッと見た感じ。

> 39: my $logfile = ($_[0]) ? $_[0] : "log.dat";
my $logfile = $_[0] || "log.dat";
か
my $logfile = defined $_[0] && length $_[0] ? $_[0] : "log.dat";

> 48: $ENV{'TZ'} = "JST-9";
local するか、呼び出し元と条件を揃える (設定しない) 。

> 58 〜 62
my($path) = $ENV{'SCRIPT_NAME'} =~ m|^(.*/)|;
省3

531(1): 04/05/09 22:26 ID:??? AAS
>>529
axlogv.cgi 。

> 6: use vars qw/$pw $logfile $gzip_send $gzip/;
不要。

> 47 〜 53:
my $gzip = $^O =~ /Win/
　　? "gzip.exe -1 -c"
　　: "/bin/gzip -1 -c"
;

> 69: if ($mode eq "css") { Style_Sheets(); }
省5

532(2): 528 04/05/10 19:23 ID:??? AAS
>>530-531
評価ありがとうございます。
色々参考になります。

cssについてはファイルを一つにまとめたかったからです。
やっぱあんまり良くないですか？

>> 74: else { print "Status: 403 Forbidden\n\n"; exit; }
>エラーメッセージを吐いた方が親切。

if ($mode eq "css") { Style_Sheets(); }
elsif ($pass ne $pw) { Error('パスワードが違います。') }
elsif (($pass eq $pw) && ($mode eq "view") && ($ENV{'REQUEST_METHOD'} eq "POST")) { View(); }
省2

533: 04/05/11 00:31 ID:??? AAS
>>532
・CSS を変更する為にスクリプトを編集する危険を冒す必要がある。
・外部に CSS を持つのに対し、常に二倍の回数実行される。
・CSS を使い回す時に悩む事になる。

これらのデメリットを考慮の上で、なお一つにまとめるメリットの方が
勝ると判断したならいいんじゃないか?

534: 528 04/05/14 20:45 ID:1r/FkAS3(1) AAS
>>532
自己レス
すげー馬鹿なこと書いていた

if ($mode eq "css") { Style_Sheets(); }
elsif (($pass) && ($pass ne $pw)) { Error('パスワードが違います。') }
elsif (($pass eq $pw) && ($mode eq "view") && ($ENV{'REQUEST_METHOD'} eq "POST")) { View(); }
else { Pass_form(); }

たぶんコレでいいかな…

作った動機はなんとなくなんだけど、実用性とかどうでせう？
一応CGIの設置とかできて、ほんのちょっとだけいじれる程度人向けのつもりです。

535(3): ◆u2YjtUz8MU [age] 04/07/02 01:32 ID:??? AAS
いろいろわからんことだらけで作りましたが
添削して下しさい。
【スクリプト】外部ﾘﾝｸ[txt]:www.tcn.ne.jp
【動作例】外部ﾘﾝｸ[cgi]:www.tcn.ne.jp

536: 04/07/03 23:32 ID:??? AAS
>>535
むずい

537: 04/07/04 05:07 ID:??? AAS
>>535
とりあえず画像のファイル名を変えた方が良いよｗ
２０点頂きました

538: 04/07/04 05:12 ID:??? AAS
>>535
もじゅーるは使えない鯖なんでつか？
使えるんなら使ったほうがいいでつよ。
Image::Magick、CGI、Jcode等々
何に使うのかは自分で調べてね。

EUCで書いたり表示したりしたほうがいいと思うけど、Shift_JISでやりたいのなら反対しないさ。

所々myを付けているが、どうせなら全部に付けちゃいな。
strictしろってこった。
ついでにHTML的にも4.01strict すれば？

539: ager [age] 04/07/09 18:40 ID:??? AAS
age

540(8): 04/10/08 20:39 ID:HUGW4EIR(1) AAS
タイトル::時刻::内容\n

というようなデータが数行あるような場合
それらを読んできて切り分けるって処理を
してます。
これの評価お願いします。

sub split_data{

my @ref,@tmp,%hush;
@tmp = @_;

for (@tmp){
chomp;
省12

541(2): 04/10/09 00:21 ID:??? AAS
>>540
myで複数宣言するときは()がいる
hushじゃなくてたぶんhashね．連想配列っていみなら

ハッシュのスライスを使うとエレガントかも
@hash{qw/title time contents/} = split /::/;

foreachつかえよ
for(...$#ref)

542(3): 540 04/10/09 02:08 ID:??? AAS
541>

>ハッシュのスライスを使うとエレガントかも
>@hash{qw/title time contents/} = split /::/;

ありがと、参考になりました。

my は複数でも()いりませんよ。バージョンによるだろうけど
最後に、今更foreach使ってる人いるんですか？w

543(1): 04/10/09 02:43 ID:??? AAS
>>542
#--- test.p ---
use strict;
my $foo, $bar, $baz;
__END__

> /usr/local/bin/perl -v
This is perl, v5.8.5 built for i386-freebsd-64int
<snip>
> /usr/local/bin/perl -wc test.p
Parentheses missing around "my" list at test.p line 2.
省11

544(1): 04/10/09 03:20 ID:??? AAS
>>541 >foreachつかえよ
>>542 >今更foreach使ってる人いるんですか？w

for と foreach は単なるシノニムなので、その表現は正しくないな。
foreach (LIST) BLOCK を for (LIST) BLOCK と略せるのと同様に、
for (EXPR; EXPR; EXPR) BLOCK を foreach (EXPR; EXPR; EXPR)
BLOCK と書いてもエラーにならない。

foreach ループを意味するところで foreach と「書け」という >>541 の
アドヴァイスは論拠の確かな正しいものだ。しかし Perl では C 風の
for ループを使う機会が foreach ループに比べて圧倒的に少ない上、
人間の目からも for ループと foreach ループの区別は容易なので、
省1

545(1): 04/10/09 05:06 ID:??? AAS
>>540
%hush(多分hash?)の宣言の位置。
GCのコストを考慮した場合に、変数の再利用をするはあるけど...、
ループないで初期化してないとフィールドの数が少ない時に困るよ。

split/::/の代わりに正規表現を使ってデータを切り出すと、
データのチェックとsplitを同時にできて便利。

chompはデータ格納前に済ませておいた方が良いんじゃないかな。chomp(@tmp)
もしくは、大抵はファイルから読み込むだろうからその時に。

546(2): 540 04/10/09 05:35 ID:??? AAS
>>544
どうもありがとう。foreachは普通に使えるんだろうけど、
大抵forで済ませてしまうのです。言い方悪かったです、スイマセン。

>>545
ありがとうございます。

>ループないで初期化してないとフィールドの数が少ない時に困るよ。
というのは、forのループ内で undef(%hush); (ほんとはhashでしたw)
でいいですか？
あと、フィールドの数が少ない時というのはどういうことでしょうか？

>split/::/の代わりに正規表現を使ってデータを切り出すと
省7

547: 541 04/10/09 11:14 ID:??? AAS
言いたかったのはforeach (@ref)にしろよってことね
別にfor (@ref)でもいいかもしれんが
あと>>543読んだか？ myは複数宣言するときは()いる

>>546
>ループ内で初期化
for(hoge){
my %hash;
statement;
}
こういう事だと思う

548(1): 540 04/10/09 12:28 ID:??? AAS
my () つけなくてもエラー出てないです。　という事は
省略も可って事ではないでしょうか？

549: 04/10/09 14:26 ID:??? AAS
>>548
エラーにならないのは strict 'vars' 宣言が無いからだ。
my $foo, $bar, $baz; という文自体は文法的には間違いじゃないが、
my は , より優先順位が高いので、my($foo), $bar, $baz; と書くのと
等価になる。

#--- test.p ---
my $foo, $bar, $baz;
print defined $main::{$_} ? "'$_' is global.\n" : "'$_' is rexical.\n"
　　for qw(foo bar baz);
__END__
省9

550(1): 04/10/09 17:41 ID:??? AAS
>>546
> あと、フィールドの数が少ない時というのはどういうことでしょうか？
これは、今回のケースでは問題なかったです。

でも、変数を再利用する時は気を付けないと、前の値が残っていたり、
意図しない場所の値を書き換えてしまったりするので注意。
例えば、pushの所を \%hash とりファレンスを使うように変更した場合。

my (@ref, %hash);
foreach (@_) {
# @refの中の前の値を上書きすることになる
# {%hash}とした場合は、@refにはいってる値はコピーなので影響ない
省16

551(1): 04/10/09 18:04 ID:??? AAS
ここってものすごいでかいスクリプトでも細かい所まで見てくれるの？

552: 04/10/09 18:09 ID:??? AAS
>>550 何かおかしな日本語だった。訂正
s/他の方に/他の方からも/

あと、正規表現を使った方法を書き忘れてたのでついでに、、
例えば time が整数の場合の例

if (/^(.+)::(\d+)::(.+)$/) {
@hash{qw/title time contents/} = ($1, $2, $3)
}

553(1): 04/10/09 19:39 ID:??? AAS
>>551
読むに耐えうる書き方＆内容ならな。
KENTレベルなら却下

554: 04/10/09 22:16 ID:??? AAS
>>553
オブジェクト指向とか頑張ってやってみたけど中途半端になったようなのでも大丈夫ですか？

555: 04/10/09 22:37 ID:??? AAS
何書いたって叩かれるんだから、結城出していいと思う

556: 540 04/10/09 23:53 ID:??? AAS
ほんとにこんなに色々な方が、教えてくださるとは思ってませんでした。
どうもありがとうございます。
特にエレガントな方法を教えてくださった５４２氏
ハイレベルな（少なくとも今の私には）指摘をしてくれた
５４５＝５５０＝５５２氏には感謝します。
その他あのようなケチなコードに意見を下さった方々ありがとう。

またお世話になるかもしれません。m(_ _)m

557(1): 04/10/10 20:44 ID:??? AAS
> my は複数でも()いりませんよ。バージョンによるだろうけど
> 最後に、今更foreach使ってる人いるんですか？w
こんなこと言うやつはもう来なくていい

558(1): 540 04/10/11 01:40 ID:21NinhME(1) AAS
ごめんね

559: 04/10/11 09:04 ID:??? AAS
>>558
とっとと消えろ

560: 04/10/18 16:42 ID:??? AAS
>>557
同意。

561(1): かぼ 04/10/22 19:30 ID:EM8OHCfb(1) AAS
評価お願いします。
外部ﾘﾝｸ[cgi]:members14.tsukaeru.net

562: 04/10/22 20:13 ID:??? AAS
>>561
コード晒せって馬鹿

563(4): 05/01/23 00:46 ID:vqv+/2ig(1) AAS
誘導されてきました。
評価というか不具合の問題です

初めてperl書いてみました。
簡易的な計算のプログラムを作ってみたんですがうまく動作しません。

ちょっと見て頂き、不具合等御指摘下さい
特定の計算式で、入力（1項目だけセレクトボックスにより選択）した数値を計算するものです。

ソース
外部ﾘﾝｸ[jsp]:tool-ya.ddo.jp

URL
外部ﾘﾝｸ[html]:sr-cafe.chu.jp

564: 05/01/23 03:00 ID:3FhDUp9J(1) AAS
>>563
ｿｰｽはﾏﾝﾄﾞｸｻｲのでちゃんと読んでないけど、
文字コードと改行コードの問題の様な希ｶﾞｽ。

565: 05/01/23 13:10 ID:??? AAS
>>563
calc.html

×　<SELECT name="set" name="s1">
○　<SELECT name="s1">

566(4): 05/01/23 20:04 ID:??? AAS
>>563
ReadFormData(*FORM);　→　%FORM=&ReadFormData;
print <<END_OF_DATA;　→　print <<"END_OF_DATA";
Content-type: text/html;　→　Content-type: text/html\n\n

以下　sub ReadFormDataの修正
local(*FORM) = @_;　→　my %FORM=();
local($buf, $tmp, $name, $value);　→　my($buf, $tmp, $name, $value);
return %FORM;　←　最後に追加

567: 05/01/24 11:42 ID:YsLCruPH(1) AAS
>>566
改行コード２つとダブルクォーテーション必要無くね？

568: 05/01/24 12:10 ID:??? AAS
\n\nはいらんね。
ヒアドキュメントのダブルクォートはどちらかというとあったほうが・・・

569(2): 563 05/01/25 02:27 ID:??? AAS
ありがとうございます。
>>566サンの通りにしたり、色々試してるんですがまだ動かないです…
printが閉まってなくてフォームの値を処理出来てないんでしょうか…

570: 05/01/25 04:00 ID:??? AAS
>>569
うちのサーバでスクリプト試したんだけどちゃんと動くぜ。
おまい、サーバに嫌われてるんだ。きっと。

問題は　print <<END_OF_DATA 〜 END_OF_DATA　までか、
まさかと思うがパーミッションか、perlの指定。

一度　print <<END_OF_DATA 〜 END_OF_DATA　を
たいした行数じゃないんだし、print "〜\n"; に置き換えてみ。
それからコメント行やめろ。余計見づらくなる。

571(1): 566 05/01/25 04:01 ID:??? AAS
>>569
今試したら566の変更だけで動いたわけだが。
Content-typeの行はそのままでも良いみたい。
動かないとしたらCGIの設置方法の問題。
まさかとは思うがローカルでテストしてるよね？

572(1): 05/01/25 04:03 ID:??? AAS
→まさかとは思ってない法則

573(1): 566 05/01/25 04:07 ID:??? AAS
つーか563のソースのままでも、ちゃんと結果出るじゃん。
問題はコードではない予感。

574(1): 05/01/25 04:14 ID:??? AAS
>>573
経験で言うとさ、ヒアドキュメントはサーバの機嫌で、最初はうまく動作して
くれないことがある。Cookieなんか入れるとどうも変なんだよな。
そういうとき俺はメンドーでも print "〜\n" に置換えてやる。すると、あとは
「ヒアドキュメントでも読込んでやるかぁ」ってことでサーバは折り合ってくれる。

575: 05/01/25 04:27 ID:??? AAS
>>574
コンピュータに機嫌も何もねーだろ。

576(1): 05/01/25 04:34 ID:??? AAS
いや、あるんだって。コード書く時も、こうした方が処理が楽だろ、とか
ムリしなくっていいから、とか気を使ってやると機嫌よくなる。ほんとだぜ。

577: 05/01/25 06:20 ID:??? AAS
>>576
お前が何も分かって無いだけ

578(1): 05/01/25 06:47 ID:??? AAS
577はコード丸写しで自作CGIと称してるだろｗ。
多かれ少なかれ576のような感じはあるな。

579: 05/01/25 17:47 ID:??? AAS
>>578
お前が何も分かって無いだけ

580: 05/01/27 18:28 ID:??? AAS
皆さん本当スイマセンでした！
パーミッションの所為だった…
元のままでも566のコードでもどちらでも動きました。

>>571-572
そのとおりです。
ローカルでテスト出来るという事すら知りませんでした。
勉強します。

581(1): 2005/06/06(月)19:56 ID:??? AAS
AA省

582: 2005/06/06(月)23:03 ID:??? AAS
>>581
お前の親父ﾀﾞｻｲな

583: 2005/09/21(水)17:05 ID:54UaWl8q(1) AAS
age

584: 2006/05/18(木)17:31 ID:Ip4qBE+B(1) AAS
外部ﾘﾝｸ[zip]:c.hibi.info
どなたか評価(清書？)お願いします_ _
指定されたスレの中から前日から当日までの既定の時間にあるレスを抽出して、
そのレスから株価コードを抜き出し株価の前日比、前日比率でソートしランキングを作成した後スレに書き込むツールです。
2chへの書き込み時のCookiee処理に曖昧な点があるのと、処理の最適化をして貰えると嬉しいです。
宜しくお願いします_ _

585(2): 2006/05/18(木)22:33 ID:??? AAS
他のスレから来ました。
Perlで他のサイトを取得して表示したいと思っています。
（著作権侵害とかそういうことをしたいのではないです）

お時間のある方にお願いしますが、次のコードで@niftyのトップページを取得してみたら
どうなるか教えていただけませんでしょうか？

print "Content-Type: text/html\n";
print "\n";
use LWP::Simple;
print get( '外部ﾘﾝｸ:www.nifty.com );

私のところだと、ブラウザ上での表示がぐちゃぐちゃになるんですが…。

586: 2006/05/18(木)22:56 ID:??? AAS
>585
マルチポストすんな

587: ◆AOxf8.Tmck 2006/05/18(木)23:03 ID:??? AAS
>>585は私じゃないです。スルーしてください。

588: 2006/06/06(火)15:21 ID:Re1RmuFG(1) AAS
簡易予定表のようなものを組んでみたんですが、なんだかモッサリしてる気がします。
もっと簡潔に書けるような気がするんですが自分ではこれが限界でした。
あと、ファイルロックのやり方が合っているのか自信がありません。
一応動いていることは動いているんですが、問題はないでしょうか。
改良すべき点、根本的にこういう書き方に直した方が良い、とかあればアドバイスお願いします。
大まかな内容は以下のようなものです。

予定として保存する内容は「予定日（月と日）」と
「予定内容（長くても200バイト程度）」の２つでフォームから渡します。
予定を保存するファイルは月単位で作成します。
例えば2006年6月の予定の場合なら「200606.txt」というファイル名です。
省11

589(4): 2006/06/06(火)15:22 ID:??? AAS
# 保存するファイル名
$a = sprintf("%04d%02d",$YEAR,$MON)
$file = "$a.txt";

# 月から日数を出す
if($MON == 1|3|5|7|8|10|12){
$m = 31;
}elsif($MON == 4|6|9|11){
$m = 30;
}else{
if($YEAR % 4 ==0){
省8

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さんのアドバイスにしたがって書き換えました。
アドバイスの方よろしくお願いします。

上下前次 1-新書関写板覧索設栞歴

あと 76 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.025s