こんにちは。
干支の算出プログラムで以下の文章を見つけたのですが、
詳細を教えてください。
print getEto($year02), "\n";
#------------------------------------------
#干支を取得する
#------------------------------------------
sub getEto{
my $year = shift;
my @label = ('申','酉','戌','亥','子','丑','寅','卯','辰','巳','午','未');
return( $label[$year % 12] );
}
コード終わり。
my $year = shift; とはどういう働きをするのでしょうか?
return( $label[$year % 12] );の意味も教えていただきたいです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
my $year = shift;
$yearにサブルーチンの引数の一つ目を代入(shift @_)
getEto($year02)とあるので、my $year=$year02という処理が行われる。
return( $label[$year % 12] );
getEtoの戻り値として、$label[$year % 12]を返す。
$label[$year % 12]
@label配列の $year % 12 番目を参照
$year % 12
引数として入ってきた年数の数字を12で割ったときの余り
干支は12あるので12で割る
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelでA1に「年」B2に「干支」を表示する関数 6 2023/08/17 15:51
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- FX・外国為替取引 1.The U.S. FI sells $100 million for pounds at the 1 2022/05/03 00:08
- 英語 私は去年からずっと自分自身のカップが欲しい。 1.I have wanted my own cup 1 2022/12/04 21:41
- 英語 the fee is a bit too large considering our interne 3 2022/06/18 14:02
- WordPress(ワードプレス) wordpressでphpを読み込みたい 1 2022/10/30 23:40
- PHP PHPの構文で間違えが分からない 5 2022/07/11 16:38
- Perl perlの構文でカンマの意味が分からない 2 2022/10/30 01:53
- その他(占い・超常現象) 四柱推命に詳しい方 壬丁甲乙 寅酉申卯 7歳運 現在戊子運 47歳。今年の八月より 大運己丑運 昨年 1 2022/07/13 16:22
- 英語 英語ができる方に質問です。 以下の文がネイティブの方に伝わるかどうかを確認していただけないでしょうか 7 2022/12/16 14:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perlでcheckboxがうまく整理で...
-
日付の差分の求め方(日、分)
-
Schemeのプログラミング うる...
-
PerlからMysqlに接続してデータ...
-
Perlでテキストファイルの読み込み
-
CSV読み込み時に条件に合う行(...
-
当日の日付をプルダウンメニュ...
-
うるう年の出し方
-
Application.ScreenUpdating = ...
-
CLispのloop内の挙動について
-
文字のカラーとフォントの指定...
-
どちのほうがすきですか?
-
セレクトメニューで選んだ値を...
-
【メモリ不足で落ちる(python)】
-
パイソンのクラスのブログラム
-
パイソンのクラスについて
-
JSONで文字列が長い時
-
foreach (1..4){ 英文字$_→$新...
-
パイソンのクラスについて
-
vscode 文字化け
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Perlでsprintf("%02d",$month)...
-
1桁の日付に0を付ける
-
日齢計算プログラム
-
Perlの日付の比較に関して
-
当日の日付をプルダウンメニュ...
-
CSVファイルに出力
-
Cookieの有効期限について
-
日付の差分の求め方(日、分)
-
うるう年の出し方
-
Schemeのプログラミング うる...
-
Perlで60進数を作りたい
-
日付範囲をの連番と月末を取得
-
C言語でのPICプログラミング
-
PHPのstrtotimeのようなものあ...
-
a shower.
-
前日の日付取得するには?
-
2つの日付・時間の差分を求め...
-
体重が3kg増える/減る の英語...
-
ソースの詳細を教えてください。
-
更新記録CGIで「前へ」「次へ」...
おすすめ情報