パールスクリプトのif else文について

Question

複数の種類のif else文のスクリプト結果を
まとめて表示する方法はあるのでしょうか？

たとえば「2000年」に対しての
データ(1)のif else文のデータ内容は「1月は猫　２月は犬・・」で
データ(2)のif else文は「1月は鳥　２月は申・・」であるとすると、

2000年の１月は「猫と鳥」と両方のif else文の結果を
表示させたい場合は、スクリプト的にはどのように記述すれば
よろしいでしょうか？

よろしくお願い致します。

y_oku · Accepted Answer

あまり単純な計算式にはできないようですね。
配列で……ってのは忘れてください。

んで、
> #例えば1950年１月１日ならば「金星はみずがめ、火星はやぎ」
と表示したいだけならば、
$horoscopeに代入しているところを、
例えば金星なら$venus、火星なら$marsに代入しておいて、
＞print "「金星は$venus、火星は$mars」";
と出力すればよいのではないでしょうか。

判定する部分を関数に切り出してみました。（長くてすんません）
'しし'や'みずがめ'などを返すようにして、
そのまま表示に使えるようにしてあります。
老婆心ながら判定とコメントに矛盾があるところにコメントしてあります。
-------------------------------------------------------
#以下1950年の1月～１２月の金星のデータとする 
sub get_venus_data{
    local($year,$month,$day)=@_;
    local($horoscope)='undef';

    if($year==1950){
if($month<=3 || ($month==4 && $day<=6)){ # ～4月の6日以下ならば
    $horoscope = 'みずがめ'; # みずがめ座

}elsif($month==4 || ($month==5 && $day<=5)){ # 4月の残り～5月の5日以下ならば
    $horoscope = 'うお'; # うお座

}elsif($month==5 || ($month==6 && $day<=1)){ # 5月の残り～6月の1日以下ならば 
    $horoscope = 'おひつじ'; # おひつじ座

}elsif($month==6 && $day<=27){ # 6月の残り～6月の27日以下ならば（6月2日以上かつ27日以下）
    $horoscope = 'おうし'; # おうし座

}elsif($month==6 || ($month==7 && $day<=22)){ # 6月の28日以上～7月の22日以下ならば
    $horoscope = 'ふたご'; # ふたご座

}elsif($month==7 || ($month==8 && $day<=16)){ # 7月の残り～8月の16日以下ならば
    $horoscope = 'かに'; # かに座

}elsif($month==8 || ($month==9 && $day<=9)){ # 8月の残り～9月の9日以下ならば 
    $horoscope = 'しし'; # しし座

}elsif($month==9 || ($month==10 && $day<=4)){ # 9月の残り～10月の4日以下ならば
    $horoscope = 'おとめ'; # おとめ座

}elsif($month==10 && $day<=28){ # 10月の残り～10月の28日以下ならば（10月5日以上かつ28日以下）
    $horoscope = 'てんびん'; # てんびん座

}elsif($month==10 || ($month==11 && $day<=20)){ # 10月の29日以上～11月の20日以下ならば
    $horoscope = 'さそり'; # さそり座

}elsif($month==11 || ($month==12 && $day<=14)){ # 11月の残り～12月の14日以下ならば
    $horoscope = 'いて'; # いて座

}elsif($month==12){ # 12月の残り～12月の31日以下ならば 
    $horoscope = 'やぎ'; # やぎ座
}
    }
    return $horoscope;
}


#以下1950年の１月～１２月の火星のデータとする 

sub get_mars_data{
    local($year,$month,$day)=@_;
    local($horoscope)='undef';
    
    if($year==1950){
if($month==1 && $day<=8){ 
    # ～1月の8日以下ならば 
    $horoscope = 'やぎ'; 

}elsif($month==1){ # 1月の残りならば 
    $horoscope = 'みずがめ'; 

}elsif($month==2 && $day<=24){ # ～2月の24日以下ならば 
    $horoscope = 'うお'; 

}elsif($month==2 || ($month==3 && $day<=21)){ # 4月の残り～5月の5日以下ならば
    # ☆コメントと判定が違ってるよ。
    $horoscope = 'おひつじ'; 

}elsif($month==3 || ($month==4 && $day<=15)){ # 3月の残り～4月の15日以下ならば 
    $horoscope = 'おうし'; 

}elsif($month==4 || ($month==5 && $day<=10)){ # 4月の残り～5月の10日以下ならば 
    $horoscope = 'ふたご'; 

}elsif($month==5 || ($month==6 && $day<=7)){ # 5月の残り～6月の7日以下ならば 
    $horoscope = 'かに'; 

}elsif($month==6 || ($month==7 && $day<=8)){ # 6月の残り～7月の8日以下ならば
    $horoscope = 'しし';

}elsif($month<=10 || ($month==11 && $day<=9)){ # 7月の残り～11月の9日以下ならば
    # ☆コメントと判定が違ってるよ。
    $horoscope = 'おとめ'; 

}elsif($month==11 || ($month==12 && $day<=7)){ # 11月の残り～12月の7日以下ならば 
    $horoscope = 'てんびん'; 

}elsif($month==12){ # 12月の残りならば 
    $horoscope = 'さそり';
}
    }
    return $horoscope;
}

# 入力から金星と火星の星座を求める。
$vinus = get_vinus_data($in{'year'}, $in{'month'}, $in{'day'});
$mars = get_mars_data($in{'year'}, $in{'month'}, $in{'day'});

print "金星は$vinus、火星は$mars";
-------------------------------------------------------

noname#9414 · Answer

if 2000年1月
　データ（１）猫とデータ（２）鳥
elsif 2000年2月
　データ（１）犬とデータ（２）申
else
　その他

これではダメなのですか？
いまいちどうしたいのか理解しにくいため、
これくらいしか書けません。

違っていましたら補足してください。
ではでは☆

callhiro · Answer

質問が出されたときから、何とか理解しようとしましたが、
どうも理解できなかったので、他の人が回答するのを待っていました。
で以下の回答と回答の補足を読んだのですが、
やっぱりわかりません（笑）

現在のif文がどうなっているのか教えてくれませんか？
つまり、金星のデータと水星のデータは、
何の条件で決まるんでしょう？

「2000年1月」が決まるだけで金星と水星の位置が決まるとしたら
Kanataさんのような書き方で十分だと思いますが、
そうじゃないっていうことですよね？

一つのif文にしたいというのは、
if文をandでつなげるだけで良いのでしょうか？

if(2000年1月 && 金星を出すその他の条件 && 水星を出すその他の条件 && ・・・)

どうもこれも違う気がします。
もう少し分かりやすい説明を希望します。

y_oku · Answer

データと月の関係の法則が決まっているならば、if elseは使わないでもいいと思います。
質問を参考に、データを配列に入れておいて配列のindexでデータを表示してみました。
$month-1としているところを、適当な「独自の法則」の計算式におきかえれば、
if elseをいちいち書くよりもきっと簡単ですよ。
-------------------------------------------------------
@data1=('猫', '犬', );# 月ごとのデータ１
@data2=('鳥', '申', );# 月ごとのデータ２

$month=1;# 例えば1月。

print "データ１は$data1[$month-1]
";
print "データ２は$data2[$month-1]
";
-------------------------------------------------------

y_oku · Answer

すみません。
金星の関数定義と関数呼び出しでスペル違ってました。（恥ずかしい）
関数呼び出しのget_vinus_dataを
「vinus」→「venus」とすれば動くはずです。
変数名も恥ずかしいのでなおしておいてください。

やっぱり自分で実行してみないとだめっすね。
失礼しました。

パールスクリプトのif else文について

if 2000年1月

この回答への補足

質問が出されたときから、何とか理解しようとしましたが、

この回答への補足

データと月の関係の法則が決まっているならば、if elseは使わないでもいいと思います。

この回答への補足

あまり単純な計算式にはできないようですね。

この回答への補足

すみません。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング