自作CGIを評価するスレ (672レス)
1-

31
(1): 4 03/04/06 00:58 ID:t3fZoblF(6/25) AAS
ついでにオレはここの4ではない。
32
(1): 03/04/06 00:59 ID:??? AAS
評価して欲しいやつはトリップつけれや
33: 03/04/06 01:04 ID:??? AAS
>>31
ややこしいぞw
じゃあPHPじゃないのか?
34: 4 ◆R.zOhOehsw 03/04/06 01:29 ID:t3fZoblF(7/25) AAS
PERLですが、まずいですか?
35: 03/04/06 01:34 ID:??? AAS
いえ、さっさと貼っちゃってよん。
36: あぼーん [あぼーん] 03/04/06 01:41 ID:??? AAS
AA省
37
(2): 4 ◆R.zOhOehsw 03/04/06 01:56 ID:t3fZoblF(8/25) AAS
BBS: 外部リンク[pl]:hex51.darktech.org
SRC: 外部リンク[txt]:hex51.darktech.org

言語: PERL
ネタ元: 外部リンク:thebbs.jp

糞ほど批判いただければ幸いです。
書き込みまくっても糞スレたてまくっても結構。
38: 03/04/06 02:04 ID:??? AAS
>>37
Perlの文法的な間違いはないみたいだけど、処理がいまいちな部分が
散見される。
効率を考えればもうちょい工夫したほうがいいだろう。
39: 4 ◆R.zOhOehsw 03/04/06 02:08 ID:t3fZoblF(9/25) AAS
意見どうも。
もっとアルゴリズムを勉強しれってことですね?
40: 03/04/06 02:22 ID:??? AAS
・myが気になる。
・一行書き出すのにヒアドキュメント使うのは何故?
・かと思えばqq連発で使ってたり…

・1.入力 2.処理 3.出力 という風に処理を分けよう
・自作自演防止はハッシュとかじゃ駄目なのかい?
・FORMの処理が2回書いてあったりして無駄

・HEADリクエストは面白いね。
41
(3): 03/04/06 02:32 ID:??? AAS
かなり恥ずかしいのですが、他人の意見を一度でも聞いてみたくて…
外部リンク:kabocha.org
↑のサイトの
外部リンク[html]:kabocha.org
↑のページに
山口_BBS2.00b1
↑って言う私のCGIがあるのですが、いかがな物でしょうか。

ただし「携帯のEZ専用」なので皆様の中には意味を理解しかねる出力があるかもしれません。

ああ、ついに2ちゃんねるに晒してしまったよ…
冷静に考えると恥ずかしいけど…、プロの方(?)に見てもらいたい気持ちが上のようだ…。
省1
42: 03/04/06 02:35 ID:??? AAS
myもいいんだけど、実質グローバルと同じだな。
処理毎に{ }で囲んで使わなきゃ意味ないだろ。
43
(1): 4 ◆R.zOhOehsw 03/04/06 02:47 ID:t3fZoblF(10/25) AAS
ご意見どうも。
>・一行書き出すのにヒアドキュメント使うのは何故?
エディタで折り返すのが気になるので..
>・かと思えばqq連発で使ってたり…
Emacsなので、ヒアドキュメントだと表示する特殊によって
自動のタブがおかしくなるのです..

全部個人的なことですね..修正します。

myに関しては、ちょっと調べてみます。
その他の意見に関しても、もう一度よく考え直してみます。
44: 4 ◆R.zOhOehsw 03/04/06 02:49 ID:t3fZoblF(11/25) AAS
>特殊
特殊文字、記号です。
45
(1): 03/04/06 02:50 ID:??? AAS
>>43
cperl-mode使ってる?

myは変数のスコープを局所範囲に閉じ込めるためのもので、
mainパッケージでmy使ってもmainパッケージ全体から読み書きできてしまうので
いやーんな感じ
46
(1): 03/04/06 02:53 ID:??? AAS
>>41
2193行目 $error_name = @_[0]; → $error_name = $_[0];でいいだろ
あちこちの変数、もうちょっとスコープを考えてレキシカルに
するとかしたほうがいい。
問題ないけど、読み取りopenに < をつけたりつけなかったりなどしてるのを
書き方統一したら?
他の部分なんかでも統一させる書き方をくせにしたほうが可読性良くなるし。
吐いてるhdmlはすぐにテストできないから見ていない。
47
(1): 4 ◆R.zOhOehsw 03/04/06 03:00 ID:t3fZoblF(12/25) AAS
>>45サン
Emacsは、普通にそのまま.plとして読んだ感じで使ってます..
mainで、my使うと、別の関数から書きかえれないのでは?
それは意味ないのでしょうか?
48
(1): 4 ◆R.zOhOehsw 03/04/06 03:03 ID:t3fZoblF(13/25) AAS
もしかして、mainで書いた関数は、mainに含まれますか..汗
勝手に、関数を覗いた部分がmail{}となるのかと思ってました。
49: 03/04/06 03:04 ID:??? AAS
>>47
>mainで、my使うと、別の関数から書きかえれないのでは?
「別の関数」が良く分からんが、mainパッケージに属している関数では

my $a = 1;
print $a,"\n";
&routine;
print $a,"\n";

sub routine {$a = 3;}

$ perl hoge.pl
1
省2
50
(1): 03/04/06 03:05 ID:??? AAS
#!/usr/bin/perl

require "hage.pl";

my $a = 1;
print $a,"\n";
&hage::routine;
print $a,"\n";

# ↓はhage.pl
#!/usr/bin/perl

package hage;
省7
51: 03/04/06 03:06 ID:??? AAS
>>48
main関数なんてもんはない。
mainパッケージ。この辺はちゃんと勉強した方が良かれと思われる。
52: 4 ◆R.zOhOehsw 03/04/06 03:08 ID:t3fZoblF(14/25) AAS
はい、よく分かりました。
ありがとうございます。
53
(1): 41 03/04/06 03:11 ID:??? AAS
>>46
御意見ありがとう御座います。
こんなに早く返って来るなんて…。感激です。
…と言うより、私の記述が雑なので簡単に変な所が見つかってるだけなのだろうか。複雑な気分…汗

もし、ヒマな方がいらっしゃいましたらまだまだ御意見をたくさんお聞かせ下さい。
54: 03/04/06 03:13 ID:??? AAS
どれどれ。ちょっと見てみるか。
55
(2): 03/04/06 03:16 ID:??? AAS
>>53
Name "main::get_time_yday_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_isdst_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::get_time_isdst_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_wday_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::mail_jcph" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2071.
Name "main::get_time_yday" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_sec_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2338.
Name "main::get_time_wday_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_sec" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2332.
省5
56
(1): 03/04/06 03:20 ID:??? AAS
>>55 まあtypoじゃないみたいだけどね。
・2350行目〜sprintfですっきりと
57
(1): 03/04/06 03:31 ID:??? AAS
他人が書いたソースって見てると面白いもんだねぇ・・・
58
(2): 03/04/06 03:31 ID:??? AAS
つーか、でかっ
10KB超えるCGIなんて作ったこと無い・・・。
59: 03/04/06 03:32 ID:??? AAS
・receive_error ifはいるのか?
・localの意味が分からないならmyを使おう
・クラックを気にするならcryptを使おう
・684行目はどういう意味?
・=はエスケープしなくていいよ
・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
 最後の最後いざ出力するという時に振り分けると綺麗になるよ
60: 03/04/06 03:34 ID:??? AAS
>>58
儂は300Kのソースがあるぞ(ぉ
61
(2): 03/04/06 03:38 ID:??? AAS
・最初(〜300行目)のqqはなんだ?
まぁあとは4氏にも共通するけど、インデントがおかしいのと
記述に一貫性がないのが気になるね。
サブルーチンがそこそこ見られるのは良いと思う(ただ、もう少しstrictに書こう)

これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
%option =(board_name => "hoge", max_mes => 50 ); みたいに。
62: 4 ◆R.zOhOehsw 03/04/06 03:45 ID:t3fZoblF(15/25) AAS
>>61
なるほど。
今までファイルから読んだ設定なんかはハッシュにしてましたが、
CGIだと初心者設置者が混乱するかと思って、できるだけ
見た目で分かりそうにしたつもりでしたが、ハッシュのがイカス。
63: 03/04/06 03:49 ID:??? AAS
あと、自分的趣味をいうと、subの変数はことごとく局所変数にするほうがいいと思うなぁ

sub ayaya{
  my $num = shift;
  $num++;
  return($num);
}

みたいな形でやっとくほうが誤動作しにくい。
64: 41 03/04/06 03:52 ID:??? AAS
>>54-60
もう早こんなに…!ありがとう御座います。
最初はなんか晒すの恥ずかしいと思ってたけど、晒して良かったなぁ…(嬉

>>55-56
はい、タイムの所めちゃくちゃです。自分でもここは直さねば!と思ってました。
ありがたく直させてもらいます。

>>57
そうですか。私のレベルだと他人の記述は自分と進めかたが違うので見てると疲れてしまいます。
そんな私はperlしかできず、初めて1年くらいになります。面白いと言って頂けて幸いです。

>>58
省18
65
(1): 4 ◆R.zOhOehsw 03/04/06 04:01 ID:t3fZoblF(16/25) AAS
localは宣言した{}内から読んだ関数内からでも参照できる。かな..

$cry = crypt('passwd', 'sl');
で、DESというので暗号化します。slはsaltで2byteとります。
暗号化されてた文字列(13byte)の先頭2byteに入りますから、
パスワードを検査するときに、同じsaltでもう一度暗号化して、
暗号済みのものと同じになれば同じパスワードです。
ん、いい説明探したほうが早いか..
66
(2): 03/04/06 04:18 ID:??? AAS
ハッシュを普通の変数のように使うのってだめですか?
67: 03/04/06 04:23 ID:??? AAS
>>66
駄目ではない、用途によって使い分ける事が重要
68
(1): 03/04/06 04:23 ID:??? AAS
#○ログファイル
$def_log_file = q[./log.txt];
これは納得できるが
#○一度に表示されるレスの件数。
#[3〜6]推奨。多く設定すると端末側で読み込めない場合があります。
$def_mess_page = qq[5];
こっちをダブルクオートで囲むのはなぜ?
数値をクオートで囲まれると変な気がする…
69
(1): 03/04/06 04:25 ID:??? AAS
>>41
>>32
70
(1): 03/04/06 04:32 ID:??? AAS
myは本当は局所的に使うためなのはしってるんだけど
どうしてもその前後で値が必要になったりすることが多いので
サブルーチンなら先頭に全部まとめて書いてる・・・
71
(31): 03/04/06 04:34 ID:??? AAS
>>70
余りいい設計じゃないなぁ・・・
subは位置に依存しないものであるべき
72: 41 03/04/06 04:37 ID:??? AAS
>>61
>・最初(〜300行目)のqqはなんだ?
qq自体の意味でしょうか…?qならシングルクウォートでqqならダブルです。
入力は、ご使用していただく方に任意で入力してもらいます。量が多くてめんどうな気がしますけど…。
>インデントがおかしいのと
>記述に一貫性がないのが気になるね。
つまり見にくいと…。私の中では今までで1番気をつけた記述だったりしますが…
頑張ります。
サブルーチンがそこそこ見られるのは良いと思う(ただ、もう少しstrictに書こう)
strictってなんだろう、汗。調べてみます。
省12
73
(2): 41 ◆hht1jkpw9E 03/04/06 04:43 ID:??? AAS
>>69
はい、これで行きます、トリップ。

>>68
もし、
#○一度に表示されるレスの件数。
#[3〜6]推奨。多く設定すると端末側で読み込めない場合があります。
$def_mess_page = 5;
とした場合、どこに入力したら良いか目で確認しにくいかと思いまして…。
数字なのでシングルではなく、ダブルで囲んでます。

なんて言うのか、入力する場所を
省2
74: 03/04/06 04:47 ID:??? AAS
>>73
んー基本的なことを言わせてもらうと・・・
コメントでちゃんと書いとけば理解してもらえる範囲じゃないかと思うけどね・・・

それでわからないっていうのは相手する必要が無いような・・・(ぉ
75
(2): 03/04/06 04:48 ID:??? AAS
>>71
激しく意味不明なやつになっちまったけど

sub saitama{
my ($value,$saitama,$hoge);
 foreach $value (@_){
  ($saitama,$hoge) = split(/,/,$value);
  if($saitama == $hoge){ return 1; }
 }
 return 0;
}
省1
76
(1): 03/04/06 04:53 ID:??? AAS
って言うか最近多い「4」って香具師は「4番」ではなく、コテハン?
普通に紛らわしい。なんとかしてほしい。
77: 03/04/06 04:55 ID:??? AAS
このスレタイっておかしくない?

× 自作CGIを評価するスレ
○ 自作CGIを評価してもらえるスレ
○ 自作CGIを評価していただくスレ

じゃない?
78: 71 03/04/06 04:55 ID:??? AAS
AA省
79
(7): 75 03/04/06 05:00 ID:??? AAS
まぁ意識しろって言われたら
漏れならこう書くんだけど

sub saitama{
 foreach my $value (@_){
  my ($saitama,$hoge) = split(/,/,$value);
  if($saitama == $hoge){ return 1; }
 }
 return 0;
}

78のコードと比べるとどっちのほうが
省3
80: 71 03/04/06 05:03 ID:??? AAS
まぁ、書き捨てにするか後から見やすく書くかのレベルになる罠(w
81: 03/04/06 05:05 ID:??? AAS
>>66
普通の変数も無名ハッシュっていう位置づけじゃなかったっけ?
82: 37 ◆0wPZQfeVoI 03/04/06 05:07 ID:t3fZoblF(17/25) AAS
>>76
非常にすみません。
Perlの極意スレの4番です。
もう沈んでどこかに行ったスレです。
なんとなくそのまま4でした、改名します、37です。
83
(1): 03/04/06 05:09 ID:??? AAS
>>79
漏れは 何回も使う関数的なやつは結構まともに書いてるけど
本体が長くなるからただ分けただけのサブルーチン的なものだと
かなりだらしないわ。

一応strictなコードでmod_perlで動いてる
84
(4): 03/04/06 05:10 ID:??? AAS
AA省
85: 03/04/06 05:12 ID:??? AAS
「エラー処理を先にやれ」っていう格言をどっかで見た。

それ以上続けるのが無意味と分かっている場合に
だらだらと引きずるのは良くない。すぱっとreturnすべき。
86: 71 03/04/06 05:13 ID:??? AAS
>>84
まぁ、別に好きなように書けばいいんだけど、
グローバル変数の値をサブルーチンから出力することもあるし・・・
それ以前に、どのレベルで言ってるかつーのが気になる所かもなぁ

ちなみにgotoは使わないよ。必要ないから(w
87
(1): 37 ◆0wPZQfeVoI 03/04/06 05:15 ID:t3fZoblF(18/25) AAS
>>84
なるほど、私は上のほうの書き方しますね..
やはり、コードが見やすいというのもプログラムの重要な要素に
はいるのでしょうか?
88
(1): 79 03/04/06 05:16 ID:??? AAS
>>84
それ書くなら
if(真 && 真 && 真){何か}else{return 0;}
だろうなぁ…

まぁ趣味でやってるプログラミングなんで
動いたら嬉しいって程度なんだが(w

>>83
関数だと割ときれいに書くな 漏れも
89
(1): 71 03/04/06 05:21 ID:??? AAS
>>87習慣づけしとけばスパゲッティなソースにはなりにくいのが作れると思うけどねん

returnは複数付けるのが一般的らしいな、覚えとこう
90
(1): 79 03/04/06 05:22 ID:??? AAS
>>37
貴殿のソースをみたんですが
653-669行・・・ これなんすか?(w
91
(1): 37 ◆0wPZQfeVoI 03/04/06 05:26 ID:t3fZoblF(19/25) AAS
>>89さん
そのためには1度しか使わない処理でも無駄にサブルーチン作って、
見やすくすることも必要でしょうか?
趣味で作るので、自分以外がソース読むことが無かったため
とりあえず、自分が読めれば気にしなかったのですが。
92
(2): 37 ◆0wPZQfeVoI 03/04/06 05:29 ID:t3fZoblF(20/25) AAS
>>90
エラー処理ですが、
if () { えらー1}
if () { えらー2}
if () { error }
としたほうがいいですかね?
93
(1): 71 [sage あっちでは251(w] 03/04/06 05:31 ID:??? AAS
>>91 
慣れてない時は単純な処理にでもサブルーチンは作ってたけど、
今は、機能ごとにサブルーチンを作ってるって感じですね
同じ処理でも規模がおっきくないとそのまま書きなぐりすることがおおいです
94
(1): 79 03/04/06 05:32 ID:??? AAS
>>92
エラーで止める優先度あるの?

unless ($a < 100){&error("$aが100以下じゃありません");}
unless ($b eq 'GET'){&error("$bがgetじゃありません");}
〜〜
でいいと思うが・・・
95: 71 [sage あっちでは251(w] 03/04/06 05:35 ID:??? AAS
>>92
@error =(
 err1,
err2,
);

$error[$code];

みたいなことを最近よくするな(w
96: 03/04/06 05:38 ID:??? AAS
>>88
あっと、>>84の例ではエラー処理が同一に書いてしまったのでおっしゃるとおりなんですが、
エラー処理が失敗した段階によって異なると考えてくださいませ
97: 03/04/06 05:40 ID:??? AAS
×エラー処理が同一に
○エラー処理の部分に同一の処理を

プログラム言語の前に日本語勉強してきます。。。
98: 37 ◆0wPZQfeVoI 03/04/06 05:40 ID:t3fZoblF(21/25) AAS
>>93
なるほどー。
私は2度以上行う処理で引数と返り値が必要なものをサブルーチンに
するようにしていますが、今回少し考え直そうかと。
99: 03/04/06 05:43 ID:??? AAS
つーか>>41の掲示板でかッ!
携帯用だと処理が細かくなって増えるのか?
100: 79 03/04/06 05:43 ID:??? AAS
関係無いが・・・漏れはエラー処理の場合
第一引数は数値だよ第二引数になんかメモ
sub error内でエラーログに記録する内容とかを振り分けることができる
perlだけじゃないが でかいやつになると
エラーメッセージ一覧表だけで数KBになる・・
101: 37 ◆0wPZQfeVoI 03/04/06 05:43 ID:t3fZoblF(22/25) AAS
>>94さん
確かにその通りです。
優先順位などありません..
102: 71 03/04/06 05:48 ID:??? AAS
基本的にエラーメッセージって書かないなぁ(ぉ
規定外の値だとデフォルト値になるようにしてるなぁ
103: 79 03/04/06 05:49 ID:??? AAS
人によってコーディングの仕方が
かなり違うことがわかったんで 今日は寝るサラバ

起きたら局所変数を意識したプログラムを書いてみよう。
104: 37 ◆0wPZQfeVoI 03/04/06 06:08 ID:t3fZoblF(23/25) AAS
ちょっと修正しました。批判していただいた部分は
まだすべて修正できていませんが、一応アド載せときます。
BBS: 外部リンク[pl]:hex51.darktech.org
SRC: 外部リンク[txt]:hex51.darktech.org

余談ですが、部屋がめちゃめちゃ寒いです..
105: 71 03/04/06 06:17 ID:??? AAS
my $mini_cgi = './mini.pl';
my $cntfile = './count.dat';
my $log_dir = './logs';
our $lock_name = 'lock';
<中略>
my $t_h_width = 0;
my $t_f_width = 70;
my $name_size = $name_max - 4;
my $title_size = $text_cols;

この部分って全部グローバルだからourになっちゃうよん
省8
106: 37 ◆0wPZQfeVoI 03/04/06 06:29 ID:t3fZoblF(24/25) AAS
はい、実は上のほうですでに言われました。
さっさとourにしておきます。
107: 37 ◆0wPZQfeVoI 03/04/06 06:33 ID:t3fZoblF(25/25) AAS
修正しますた。
108: 03/04/06 06:34 ID:??? AAS
ま、あせらずゆっくりいけやー。
109: 37 ◆0wPZQfeVoI 03/04/06 06:52 ID:??? AAS
どうもー。
取り合えず今日は寝てません。
110: 03/04/06 08:06 ID:??? AAS
my でスコープはファイル・パッケージ内に限定されるんだから意味はあると思うよ。
our にはならない。
別のパッケージから読みこんだりしてるのでなければ、
わざわざ our にする方が意味ないと思うけど?
111: これ自信作だぜ 03/04/06 08:51 ID:dTzeXpbT(1/4) AAS
修正しましたが何か?
112: あぼーん [あぼーん] 03/04/06 08:52 ID:??? AAS
AA省
113: これ自信作だぜ 03/04/06 08:52 ID:dTzeXpbT(2/4) AAS
↑追加
外部リンク:oasis.mininddns.net
114: これ自信作だぜ 03/04/06 08:53 ID:dTzeXpbT(3/4) AAS
スマソ。スッペルミス
外部リンク:oasis.minidns.net
115: あぼーん [あぼーん] 03/04/06 09:17 ID:??? AAS
AA省
116: これ自信作だぜ 03/04/06 10:29 ID:dTzeXpbT(4/4) AAS
外部リンク:oasis.minidns.net
蜜柑性だけどな
117: 03/04/06 10:35 ID:??? AAS
[index.cgi:26:warn] Use of uninitialized value in concatenation (.) or string at /www/oasis/html/index.cgi line 26. [index.cgi:26:warn] Use of uninitialized value in concatenation (.) or string at /www/oasis/html/index.cgi line 26.
ってでてるよ>116
118
(1): 03/04/06 10:45 ID:??? AAS
書き方まずかったかな?
>>71はブロックの外で宣言すると、例えばサブルーチンの中からでも参照できてしまうので
変数宣言する時は、スコープを絞って適切なブロック内で宣言しよう…と言っているのだと思う。
修正というか、むしろ改悪されえてるような・・・。
our にしてしまうと、他のファイルからも値を参照出来る様になってしまうので、

# つっこみたかったのは、
# > この部分って全部グローバルだからourになっちゃうよん
# my で宣言してるのに勝手に our にはならないよー。ってこと。

よくある方法だと、main関数(サブルーチン)を作るか、
単にブロックで囲む。(ラベルは別にいらないけど便宜上)
省8
119: 37 ◆0wPZQfeVoI 03/04/06 14:26 ID:??? AAS
なるほど。
囲ってみます。
120: 71 03/04/06 15:01 ID:??? AAS
>>118
>変数宣言する時は、スコープを絞って適切なブロック内で宣言しよう…と言っているのだと思う。

そいう意味.、言い方まずかったですな・・・
121
(2): 03/04/06 15:42 ID:??? AAS
{}って
while{} foreach{} for{} sub{} {}
が?有効なの
if{}はどうなるの?
122: 03/04/06 15:46 ID:??? AAS
漏れはグローバル変数使いまくりだけど だめかい?
123: 71 03/04/06 15:49 ID:??? AAS
AA省
124
(1): 03/04/06 15:57 ID:??? AAS
別に全部$hogehogeみたいなやつでいいじゃん
なんで局所変数とかみんなつかうの????
125
(1): 71 03/04/06 16:00 ID:??? AAS
>>124見通しが悪くなるから。
誤動作の元にもなりかねんし
126
(1): 03/04/06 16:05 ID:??? AAS
>>125
でも配ってるやつってほとんどグローバル変数のみじゃん
127
(2): 71 03/04/06 16:12 ID:??? AAS
>>126だから自分で組んでるんだが?
グローバルがいいっていうなら、そうすればいいのじゃない?

自分だけでやっとればいいってのなら一向にかまわないけど、
複数の人がからんでくるとなるとそうもいかない
128
(1): 37 ◆0wPZQfeVoI 03/04/06 16:44 ID:??? AAS
取り合えず少し直してみました。
今日はPHPで学校の掲示板を作るので
あまり変更はないかもしれません。

>>71さん
気をつけないと
if ($hoge eq 'hoge') {
 my $foo = 'hoge!';
}
print $foo;
この場合マズイですよね?
省1
129
(1): 71 03/04/06 16:49 ID:??? AAS
>>128
それはスコープの外に print $fooがあるので動作しない

if ($hoge eq 'hoge') {
 my $foo = 'hoge!';
 print $foo;
}
コレが正解
130: 37 ◆0wPZQfeVoI 03/04/06 19:43 ID:??? AAS
>>129さん
OKっす。
要はCのautoですよね?
1-
あと 542 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.026s