妻の顔から女の顔に変わる
快適風俗店探し「検太くん」
下
Perlコーディング初心者質問スレ Part 60
1:09/03(木) 23:51 ??? [sage]
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。 省19
261:258 11/20(金) 21:42 ??? [sage]
>>259
ダメでしたorz
結果は同じでした
262:258 11/20(金) 21:51 ??? [sage]
っしゃ！解決できました
調べてみたら、Varsとparamを両方つかわないといけないっぽいです

use CGI;
#データの取得 $in{'name'}で取得
if ($ENV{'REQUEST_METHOD'} eq "POST") { 省21
263:11/23(月) 03:37 ??? [sage]
　$a=x,$a=y,$a=z・・・それぞれの条件で動作分岐
させるとき、ifとelsifで書いていくのはなんか非効率的
のような。なんか方法あるのでしょうか？
264:11/23(月) 05:58 ??? [sage]
何を持って非効率というのかわからん

あと、サンプルでも$a,$bは使わぬが吉
265:11/23(月) 06:40 ??? [sage]
>>263
switchが欲しいってことだろ
Perlのバージョンが5.10以上なら

use feature qw/:5.10/;
given($a){ 省13
266:11/23(月) 07:58 ??? [sage]
三項演算子使え。
$a =（条件1） ? 'x'
　　:（条件2） ? 'y'
　　: 　　　　　'z'
　　;
267:11/23(月) 09:00 ??? [sage!stock]
三項演算子って二者択一の時はよく使うけど、
長い式になると優先順位がわかりづらくて使いづらい。。。
268:11/23(月) 09:19 ??? [sage]
>>263
5.10未満ならSwitchモジュールを

switch文
http://www2u.biglobe.ne.jp/~MAS/perl/waza/switch.html
269:11/23(月) 09:35 XYWla5BP
連想配列に呼ぶべき関数へのリファレンスぶち込んじゃってる
ただこれをやると関数への引数は連想配列へのリファレンスにならざるを得ないから、あまりやらないけど・・・
270:11/23(月) 10:26 ??? [sage]
>>269
こんな感じ？

my %func = ( foo => \&foo, bar => \&bar );

$func{foo}(1, 2); #=> 1 2 in foo 省18
上前次1-新書写板覧設AA
#
豪華賞品を無料でＧＥＴ!!