No.1ベストアンサー
- 回答日時:
Time::Pieceについては、perldocを読むとわかります。
で、epochメソッドが何をしているのかというと「epochからの秒」を返すようです。
ちなみにepochは何なのかというと、ここで説明するよりも以下のURLの方が分かりやすいと思うのでそちらをどうぞ。
http://tehanu.hpcl.titech.ac.jp/time/utctai.html
参考URL:http://tehanu.hpcl.titech.ac.jp/time/utctai.html
この回答への補足
回答ありがとうございます。
perldocにて調べてみたのですが、どうも英語が得意ではないので・・・・。
ご説明いただいた内容で、「epoch」についてはわかりました。
「$$ . time . int [ ] . rand」の部分はどのような
意味なのでしょうか。
「rand」は関数ということは分かるのですが、組み合わされているので、ロジックの解釈ができません。
よろしくお願い致します。
No.3
- 回答日時:
> $tmp = substr($md5->add(Time::Piece->new->epoch . $$ . time . int [] . rand)->hexdigest, 0, 10)
> ランダムに数値を発生させて、上10桁をとり、
> その値を、認証する際の値にするようです。
なるほど。
認証に使う種作りをしていたわけですか。
・・・って途中を切らずに全文を掲示していただかないと回答者も困りますので、これから何か質問することがあれば(教えて!gooに限らず)、おしまずに必要最低限のことは書いてください。
No.2
- 回答日時:
$$はスクリプトを実行しているPerlのプロセス番号が入っている特殊変数。
timeは1970年1月1日00:00:00から現在時刻までの秒数。
intは小数点以下を切り捨てて整数部分を返す関数。(ここでは空なので0になる)
randは0から引数に指定した数値までの乱数を発生させる関数。(ここでは引数がなぜかない?)
あと行の終わりにも関わらず;(セミコロン)がないですがこれでほんとに一行ですか?
このままいくと、いままで上げた上記のものをepochの返値といっしょに順番に繋げていってそれを$numに突っ込むだけです。
結局何がしたいのかは知りません。(w
この回答への補足
回答ありがとうございます。
「.」は結合子だったんですね。
ロジック全体はこのようになっております。
$tmp = substr($md5->add(Time::Piece->new->epoch . $$ . time . int [] . rand)->hexdigest, 0, 10)
ランダムに数値を発生させて、上10桁をとり、
その値を、認証する際の値にするようです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 英語 「this is the/my first time~」の文法上の制約について 1 2023/04/06 09:48
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- 英語 「初めて〜する」と言いたいとき This is my first time to 不定詞 より Th 3 2022/05/10 09:54
- 英語 Butについて 2 2023/02/04 18:58
- 英語 提示した名言の文の構造について(waste one hour of time) 5 2023/05/20 15:22
- その他(プログラミング・Web制作) このプログラミングをどう組みますか? Googlecolabでやってるんですが、出来る方お願いします 1 2022/07/13 10:52
- 英語 毎年繰り返されるものに定冠詞がつく理由 12 2022/11/17 09:32
- C言語・C++・C# leetcode 155 minstack 1 2022/05/07 16:43
- 英語 When was the last time you gave someone a gift? 2 2023/05/07 07:51
- 英語 Think back to the last time you gave a little pres 3 2023/01/29 23:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perlをバージョンアップしたら...
-
INDIRECT 横に再度抽出したい
-
Strawberry Perl for Windows ...
-
openした後、closeしないでプロ...
-
テキストファイルで提出とは?
-
Perlのエラーについてご教授く...
-
perlのrequireの動き方について...
-
Perl の外部モジュールの利用方法
-
Windows10においての『Perl』の...
-
Perlで特定文字列から特定文字...
-
Perlでsprintf("%02d",$month)...
-
フローチャート 九九
-
perl LWPでURLにアクセスした時...
-
Perlで、「が」を、「...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PerlでIPアドレスを取得する方法
-
何時間後を求める。
-
エラー
-
PerlからSSLのページを読み込み...
-
bashのgrepで複数の検索、かつ...
-
awkのtoupper()
-
windowsXP上で動作する最新版の...
-
Perlで長音
-
$com::VDの意味がわかりません
-
perlでランダムな文字列を作りたい
-
perlスクリプト s/^\\s+//; ...
-
UTF-8で書かれたHTMLファイルを...
-
実行時パラメータを使用するとE...
-
「Referer-Sweeper」というフリ...
-
DBD::Mysql が使用する標準のso...
-
例外処理のフローチャートの記...
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
"JScript"が見つかりません!
おすすめ情報