Perlについて

**デフォルトの名無しさん** · 2008/08/04(月) 20:58:41

質問スレはあるけど、Perl自身について語るスレがないので、立てました。

**デフォルトの名無しさん** · 2012/01/27(金) 21:00:28.98

>>688
なるほど、過去のバージョンに固定しての開発は普通にあるのね。
ジェネリクスは置いといて、auto-boxingが無いだけでも面倒そう。

**デフォルトの名無しさん** · 2012/01/31(火) 09:38:20.86

ActivePerlでWin32::GuiTestを使いたいのですが
PPMに出てきません
どこに有りますか？

**デフォルトの名無しさん** · 2012/01/31(火) 20:25:29.54

>>690
はずしているかもしれませんが、guitestまたはwin32-guitestで
検索してみてください。Win32::gutestでは出てきません。

あと、ppmが走っているようなので大丈夫のようですが、ユーザー名に
日本語を使用するとppm関係でこけた記憶があります。

**デフォルトの名無しさん[** · 2012/01/31(火) 21:17:48.24

>>691
ありがとうございます
試してみます

**デフォルトの名無しさん** · 2012/01/31(火) 23:18:31.55

>692
なんか、はずしてるようなので調べてみました。どうやら、
リポジトリの追加とかが必要なようです。
実際、リポジドリの登録はした覚えがあります。

http://cz500.com/diary/?20110310
からの抜粋(コピペしやすかったので採用)

1.スタート＞ActivePerl＞Perl Package Manager　を起動
2.メニューからEdit>Preferences>Repositoriesタブを開く
3.Add Repositoryダイアログでリポジトリを追加
　1.Name cpan
　2.Location http://cpan.uwinnipeg.ca/PPMPackages/10xx/
　3.と入力してAddボタンをクリック。暫くするとRepositoriesタブにcpanが増えます。
4.OKをクリックしてPreferenceを閉じます。

ホームページによっては少し違いがあり、当方では追加済みなので、
検証することができません。うまくいかなかったら、activeperl
cpan ppm リポジトリの追加あたりでググって見てください。
ミスリードしたみたいですいません。

**デフォルトの名無しさん** · 2012/02/06(月) 10:06:28.10

以下のスクリプトで200MB以上の動画をダウンロードしようとすると
512KBのファイルしか落ちません（Win7 32bitにStrawberry Perlです）
どうすれば全部落とせますか？

use strict;
use warnings;
use LWP::Simple;
use open ':std';
use Tk;
use Win32::Clipboard;
use LWP::UserAgent;
use HTTP::Request;

my $clip = Win32::Clipboard();

my $url = $clip->Get();
print "url=[$url]\n";

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => $url );

my $proxy;
$proxy = "http://XXX.XXX.XXX.XXX:8080";
print "proxy=[$proxy]\n";

$ua->agent("perl-wget");
$ua->proxy( 'http', $proxy );

**694** · 2012/02/06(月) 10:07:01.90

$req->header( 'X-Header1' => 'hoge', 'X-Header2' => 'foobar', );

my $flv_file = "c:\\pl test\\xyz.flv";
my $res = $ua->request( $req, $flv_file );

my $head = $res->headers_as_string;
print "headers_as_string=[$head]\n";

実行結果
url=[http://XXX.XXX.XXX/flv/XXX/XXX/XXX/XXX/XXX/XXX.flv]
proxy=[http://XXX.XXX.XXX.XXX:8080]
headers_as_string=[Cache-Control: no-store, no-cache, must-revalidate
Connection: close
Date: Mon, 06 Feb 2012 00:46:54 GMT
Via: 1.1 localhost:8080 (squid/2.7.STABLE7)
Accept-Ranges: bytes
Server: Apache
Content-Length: 282093419
Content-Type: application/octet-stream
Client-Date: Mon, 06 Feb 2012 00:51:02 GMT
Client-Peer: XXX.XXX.XXX.XXX:8080
Client-Response-Num: 1
Content-Disposition: filename=XXX.flv
X-Cache: MISS from localhost
X-Cache-Lookup: MISS from localhost:8080
X-Powered-By: PHP/5.2.17
]

**デフォルトの名無しさん** · 2012/02/06(月) 22:52:57.31

proxy経由しないでも同じ結果か等の原因の切り分けはしたの？

**デフォルトの名無しさん** · 2012/03/04(日) 19:10:14.90

.(ピリオド)を_(アンダースコア)に変換しようとして、\マークを付け忘れたので、
ファイルの全てが_で埋め尽くされたファイルが出力されたorz

**デフォルトの名無しさん** · 2012/03/05(月) 00:59:57.32

便箋w

**デフォルトの名無しさん** · 2012/08/04(土) 13:16:49.80

Perlコード汚すぎる。

**デフォルトの名無しさん** · 2012/08/04(土) 13:29:41.35

俺なんかそのまま納品して、夏休みとった年があるｗ^_^

**デフォルトの名無しさん** · 2012/10/17(水) 18:25:33.11

文字列の処理が容易である
とくに文字列のパターンマッチ能力に優れている
動的データの処理に優れている
OSとの連携に強い（OSのコマンド、GUIツールキット）
インタプリタ型である
（スクリプト言語に共通する特徴）

スクリプト言語のいろは｜Cマガジン2000年10月号

**デフォルトの名無しさん** · 2012/10/20(土) 14:50:00.72

> 文字列の処理が容易である
もちろん「2000年10月の時点では」っていう意味だろうけどねｗ

CがC++になって迷走するのと同様、Perlも赤の他人が拡張すると迷走して
その後は．．．

**デフォルトの名無しさん** · 2012/10/24(水) 02:32:36.90

>>699
もともと、アドホックな使い捨てのコードを書くための言語だからなー。
コードの保守性とか再利用性とか始めたらダメ。
可読性なんて考えずに、組み易い書き方で手早く作って、
パッと使って、そんでおしまい・・・というのが正しい使い方。

**デフォルトの名無しさん** · 2012/10/25(木) 11:28:52.33

保守性・再利用性ならCOBOL一択だよね！！

**デフォルトの名無しさん** · 2012/10/26(金) 01:46:36.75

同じような仕事にしか使わんからな。

**デフォルトの名無しさん** · 2012/11/10(土) 11:32:03.17

今の時代ならDSLといえば
COBOLのすばらしさが分かるだろう。

**デフォルトの名無しさん** · 2012/11/10(土) 13:11:12.89

read うんたらかんたら
at end
* EOF時の処理
not at end
* 読めたときの処理
end-read

のファイル入力構文は初めて見たときカルチャーショックだったな

**デフォルトの名無しさん** · 2012/11/17(土) 14:18:46.56

言語が違えばやり方は違うんだから想定の範囲内だがな
むしろC言語系の方が後からできたわけだから(いい意味で)カルチャーショック
だったが
いずれにしても遠い過去の話だな、おじいさんよ

**デフォルトの名無しさん** · 2012/11/17(土) 17:59:06.65

>>708
いやJavaを先にやってたから
後でCOBOLのコード見たときにカルチャーショックだったんよ
EOFを返してもらうんでなく、構文としてやるってのがね

**デフォルトの名無しさん** · 2012/11/17(土) 20:21:00.74

でもパソコンじゃあC言語の前にBASICがあって、それって
いま言ってるCOBOL風になってなかったっけ？
709はパソコンの創世記を知らない若い世代なのかな

**デフォルトの名無しさん** · 2012/11/17(土) 21:32:41.75

>>710
昔を知らないのは当たり…なのかな、自分が使ったことのあるBASICは
VBとか、N88なら互換系BASICくらい
(PC98でのN88も「その時点で既に年代物として」一度だけ触ったことはある)
でもそれらもC系と同じくEOF()関数みたいなので判定する形式だったような…
EOF判定自体をブロック構文にしてしまってるのは今のところCOBOL以外見たことないっす

**デフォルトの名無しさん** · 2012/12/03(月) 14:49:49.57

初心者を育てるのがPHP、初心者を袋叩きにして人格否定までするのがPerl

**デフォルトの名無しさん** · 2012/12/03(月) 23:15:25.81

PHPもPerlもただのプログラミング言語だから育てたりとか袋叩きにしたりとかはしない。
というかできない。
なにか違う次元の違うしろもののことを言ってるんだろうけど異次元の住人の話はよくわからんな。

**デフォルトの名無しさん** · 2012/12/04(火) 00:49:41.86

「同じ問題でも解き方は人によって違っていい」ってのが Perl の思想だからな。
人格否定なんてありえない。

**デフォルトの名無しさん** · 2012/12/04(火) 05:53:42.12

解き方は人によって違っていいが
書き方は統一しろ。

**デフォルトの名無しさん** · 2012/12/05(水) 08:28:36.86

>>715
コード整形ツールを使いたまえ

**デフォルトの名無しさん** · 2012/12/15(土) 21:53:54.04

初心者を袋叩きにして人格否定までするのはモダンPerl。
いわゆる普通のPerl利用者はそんなことはしない。混同しないこと。

**デフォルトの名無しさん** · 2012/12/16(日) 00:08:21.80

> 初心者を袋叩きにして人格否定

誰のこと？そんな人いないよ。

**デフォルトの名無しさん** · 2013/01/12(土) 17:48:21.31

え？

**デフォルトの名無しさん** · 2013/01/13(日) 04:08:36.23

>>718←何言ってんのコイツｗｗｗ

**デフォルトの名無しさん** · 2013/01/20(日) 03:19:14.74

>>717
トロールのトロールのトロールみたいなコミュニティだよね。モダンperlって

**デフォルトの名無しさん** · 2013/01/28(月) 23:19:32.03

いろいろ複雑なテキスト解析をして、最終的にExcelのファイルにしたい
要は、既にあるExcelのファイルとフォーマットは同じで、
中に書いてあるテキストだけ入れ替える感じ

どういうステップを踏むのがいちばん楽だろう

**デフォルトの名無しさん** · 2013/01/28(月) 23:54:01.34

一回こっきりならコピペだな

**デフォルトの名無しさん** · 2013/01/29(火) 00:06:13.05

一回なら間違いなくそうするけど、
多分、100近くある

**デフォルトの名無しさん** · 2013/01/29(火) 00:37:27.03

csvでいいならcsvを吐き出せばいいが
Excelブックを作りたいならPerlでできるのかそれ

**デフォルトの名無しさん** · 2013/01/29(火) 03:02:33.78

ファイルのi/oでexcelのシートを作るのは面倒だから、
use Win32::OLE::Const 'Microsoft Excel';
で、ExcelのセルいじっちゃいなYO

**デフォルトの名無しさん** · 2013/01/29(火) 08:21:49.20

Perl使いをなめるなよ
CPANにはExcelファイルを出力するモジュールがいっぱいある
ttp://search.cpan.org/search?query=Excel&mode=all

**デフォルトの名無しさん** · 2013/01/29(火) 19:31:23.69

ダイレクトでxlsを吐くんじゃなくて、
一旦テキストに出して、そこからxlsを作るExcelマクロを走らせるのが楽

全部perlでとか、全部Excelでやろうとすると、手間が増える上に保守性も落ちる

**デフォルトの名無しさん** · 2013/02/17(日) 02:01:28.40

うん、Excelファイルはすごく複雑
MS以外が不具合なしに扱えるものじゃない。
絶対バグでハマる。

**デフォルトの名無しさん** · 2013/02/17(日) 09:22:06.54

中間ファイルのフォーマットをきっちり決めて、
Excel 側で、マクロなりインポートなりで、
データ取り込む手段を確立して、
それに合わせてファイルを生成するのがおそらく一番間違いが少ない。

**デフォルトの名無しさん** · 2013/02/17(日) 13:36:57.25

>>722は結局どうやったんだろうね

**デフォルトの名無しさん** · 2013/02/23(土) 00:52:05.88

Perlでテキスト⇒テキスト変換をして
UWSCでExcelに取り込む
実はUWSC内で上のPerlも実行するから一発で処理が終わる

**デフォルトの名無しさん** · 2013/04/30(火) 09:44:36.72

ペルシャ湾で天然真珠調査　世界遺産「復活」に協力 2013年4月30日 09時20分
http://www.chunichi.co.jp/s/chuspo/article/2013043001001486.html

　日本の養殖真珠の生産により２０世紀前半から天然真珠産業が衰退したペルシャ湾で、
日本がバーレーンと協力し、真珠貝の生息調査に乗り出すことが３０日、分かった。
日本の水産技術を使って真珠貝を増やし、伝統産業を復活させるのが狙い。
独立行政法人水産総合研究センター西海区水産研究所（長崎市）などが５月中旬から現地調査を始める。

　真珠産業はクウェートやアラブ首長国連邦（ＵＡＥ）などの伝統産業として知られ、
バーレーンの真珠文化は昨年、国連教育科学文化機関（ユネスコ）の世界遺産にも登録された。
日本が真珠産業の復活を手助けすることは産油国との関係強化にもつながる。
（共同）

**デフォルトの名無しさん** · 2013/09/10(火) 00:43:12.74

なでしこでいいじゃん

**デフォルトの名無しさん** · 2013/11/03(日) 19:00:39.80

お前らにはどう見えるか知らないが俺にはこう見えてるぞ

print
誰からも愛されてる元気な女の子
気が利いて周囲に信頼されている
グループ行動の時、希に大遅刻をしてしまう

if
普段から冷静で状況把握が得意
二人の親友と一緒に行動する事が多い
予想外の事が起こるとパニックに成りやすい

elsif
リーダをサポートする役割を買って出る好奇心大制な女の子
あたふたしている間に他の子が作業を終らせてくれている事も有る

else
めったに喋らないが一言で状況を変えてしまう天才型
ifと仲が良く、いつも隣に居る
一日、１回はifと手を繋がないと泣き出す

{}
双子の活発な女の子
いつもターゲット（printf）を挟み撃ちにしてほっぺっとほっぺでギューっとする
最後に軽くキスをして誤るのが恒例行事に成っている

**デフォルトの名無しさん** · 2013/11/03(日) 19:02:27.31

()
若干、中二病の女の子
頭が良く、成績優秀だが中二病発動中、常識がまさる事が多いので
完全に中二病になりきれていない
+
凄く普通な女の子
なんでも出きるが、それ故に目立たない
欠点という欠点も見あたら無い
char
ちょっとカラフルな女の子
グループ内で中心的存在、だけど、結構な寂しがり屋
周囲からはカッコイイけど２人きっりの時に、後ろから抱き締めたくなる
っと、囁かれている
open
豪快な性格、隠し事が嫌いで、聞かれたら下着の色まで答えてしまう
裏表ない彼女の性格は周りからは好かれている
授業中でもキスしたいと思ったらキスしたいと叫んで強引キスしようとする。それを周囲が
なだめる事もしばしば…欲望に直球なだけかも知れない
==
会議でのまとめ役、分析が得意で計算もはやい
アニメが大好きで会議中でも時間が来たら勝手に切り上げて帰ってしまう
優秀な人材が居なくなるのは避けたい***は、会議室にテレビを設置したとか…
unless
doと、、いつも一緒で、犬が大好き
特に柴犬が好きで週に３回は触れ合いランドに出かける
明るい彼女に寄って来るのは何故か大人しい犬ばかり
do
犬が大好きな小柄な女性
独特の雰囲気をかもし出している彼女には活発な大型犬が集まりやすい
涎で帽子が湿っている事もしばしば有る
unlessからは活発な犬に好かれているのでやきもちを焼かれる事も…

**デフォルトの名無しさん** · 2013/11/03(日) 19:20:30.34

>>736
今日一日頑張ったな

**デフォルトの名無しさん** · 2014/02/23(日) 00:44:51.23

eq くんを忘れないであげて！
必要不可欠な子なのに、新人さんに中々顔を覚えて貰えないのは不憫すぎるよ！

**デフォルトの名無しさん** · 2015/01/04(日) 20:46:18.22

てすてすてｓ

**デフォルトの名無しさん** · 2015/01/04(日) 23:00:46.21

active perl は DBD::MySql に対応するつもりは無いの？
古いバージョンでは動作するけど、無償ダウンロードできないし・・・
やる気あんのか？>active

**デフォルトの名無しさん** · 2015/01/22(木) 21:49:15.27

active perlなんか使ってる奴いるのか

**デフォルトの名無しさん** · 2015/01/26(月) 00:28:29.03

インストールが楽だ

**デフォルトの名無しさん** · 2015/01/26(月) 07:52:18.18

DBD::MySQLはMySQLに同梱されてなかったか？

**デフォルトの名無しさん** · 2015/02/22(日) 11:59:05.28

flex 使うのも場合によってはありかな。

**デフォルトの名無しさん** · 2015/02/23(月) 15:01:38.78

eval_l => eval('/^AAAAAA/ ? 1 : /^BBBBBB/ ? 2 : ... ')
flex_pipe => flex with pipe
flex_inline => flex with Inline::C

パターン数 10
flex_pipe 16822/s
eval_l 72013/s
flex_inline 493444/s

パターン数 100
eval_l 11036/s
flex_pipe 17530/s
flex_inline 369581/s

**デフォルトの名無しさん** · 2015/02/27(金) 04:12:53.96

最近はWindowsだと Strawberry Perl 使ってるなあ

**デフォルトの名無しさん** · 2015/03/01(日) 10:47:45.22

なにそのPerl

**デフォルトの名無しさん** · 2015/06/06(土) 13:16:02.82

6/1に公開された5.22で「ダブルダイアモンド演算子」が導入された
たとえば perl -e 'while(<>){ ... }' ファイルファイル ...
は引数に指定したファイルの内容を順に処理するが
perl -e 'while(<>){ ... }' 'command |'
とかやると 'command |' というファイルではなくcommandを実行してその結果を処理してしまう
while(<<>>) ならそういうことがない

...
知らなかった(汗)
<>自体の仕様を変更してもよかったレベルじゃね?

**デフォルトの名無しさん** · 2015/06/06(土) 16:20:09.81

安易に仕様変更とか言う奴は死ぬべき。
前者の仕様に依存した実装だってあり得るんだから

**デフォルトの名無しさん** · 2015/06/09(火) 09:58:53.13

>>749
Rubyの中の人たちは全滅だな。w

賛成！

**デフォルトの名無しさん** · 2015/06/11(木) 11:47:33.16

実際、後方互換性に関してはPerlはいい仕事してる

**デフォルトの名無しさん** · 2015/12/26(土) 09:41:36.35

Perl6 が出たようです
ruby も python もぶっとばせ！

**デフォルトの名無しさん** · 2015/12/28(月) 01:26:56.58

Windowsにgitクライアントをインストールすると
Strawberry Perl が変な動作するのは
オレだけ？

**デフォルトの名無しさん** · 2016/01/10(日) 13:40:06.62

971 名前：名無しさん＠七周年[] 投稿日：2006/11/11(土) 00:56:10 ID:M8+ahUZV0
自称スーパープログラマー某

強烈加齢臭
メール見ない　メール無視
ドキュメント見ない　ドキュメント無視
説明聞かない　説明無視
話聞かない　話無視
ガム→むっちゃーむっちゃーむっちゃーむっちゃー
煎餅→バリバリバリバリバリバリ
菓子パン→モグモグモグモグモグモグモグモグモグモグ
カップアイス→むっちゃーむっちゃーペロペロペロペロ

フロアすべてに響き渡る超ばかでかいくしゃみ当然手でおさえない

異音と異振動
ドスーン！ドスーン！　ドカーン！ドカーン！　バコーン！バコーン！　ズドン！ズドン！
机が近いとマウスポインターが飛ぶ　誤操作誘発
書類だしたりしまうだけでドカンドカン

30秒ごとに口と鼻から異音
ふんっっ！　　　　ふんっっ！　　　

備品破壊　貸与P C 破壊　他人のもの破壊

奴の作ったスクリプトとプログラムは使えない　バグ製造機

電話や共有携帯電話　キーボードが油ベタベタ
奴に電話とPCとコンソールは触らせてはいけない

**デフォルトの名無しさん** · 2016/03/29(火) 09:57:20.41

サッカーブッシュ日本代表日程ぷあたん（しゅっちょうまいくろ教育長交代）春文執行40代売上差額シュガーチョコ
https://www.youtube.com/watch?v=NDq1QoJY0nY宇ドナルドアナリストパワーストーンコーチングとしまえん
サッカーブッシュ日本代表日程古本屋よしたけしゅっちょうちょこしゅがー
ディーラー税務署天才開発者死亡詰みヨミドクターマイクロサービス不足
サッカーブッシュ日本代表日程ぷあたんシフト光金さかい強制バイト人権侵害問題
春分資源執行ニューヨーク低原価ぼったステーキソルトレイク福岡横浜新橋奴隷課金パチシフト強制バイト問題新潟米センター生残
コスメ２４チャリティー隠れ40代生活保護プレイボーイバイトレードいたりあん接待問題
マスコミKARDローンケーオーサービス不足婚活パーティー寄付金執行原発ビジネス
FBIチャイニーズタイホテル売上事務所ガチャ決算ガチャキャンペーン（販売報道陣過激派組織向携帯最新情報提供終了
校長発言細心注意ノートン産廃エラー(著作権クレーム中国反応融資高額教育費)(中国捕鯨団体40代社員サッカーコメント
高額入学金ヤフウ新橋大学ヤフウ新橋理事長FX経費おじや50代資産ガリバズフィード40代エリート

**デフォルトの名無しさん** · 2016/04/09(土) 17:13:17.22

読みにくいperlコードがある場合はデバッガの機能使おう
perl -MO=Deparse スクリプト名で実行するとperlからそのコードがどういうふうに見えるかが表示される=曖昧な記法じゃなくなるから読みやすくなると思う

use strict; use warnings; してなかったり変数やメソッドに適切な命名できてないようなやつは知らんw

**デフォルトの名無しさん** · 2018/03/03(土) 07:18:08.86

またperlの人気出ないかなー

**デフォルトの名無しさん** · 2018/03/03(土) 13:24:56.59

Perl6は、期待してたんだけど、どうやら普及しなさそう。
ちょっと試してはみたけど、C系と意外に違ってて、なんか使いにくいんだよなあ。

**デフォルトの名無しさん** · 2018/03/05(月) 10:07:55.39

>>757
まあしかし少なくともUNIX系OSではなんでも作れるスクリプトとして根付いてるから中々なくなりはしないと思う。

**デフォルトの名無しさん** · 2018/05/23(水) 20:14:56.26

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

786Y4

**デフォルトの名無しさん** · 2018/05/23(水) 22:07:07.76

search.cpanがシャットダウンです

**デフォルトの名無しさん** · 2018/07/04(水) 23:56:05.51

8PU

**デフォルトの名無しさん** · 2019/06/08(土) 05:39:12.98

数学用途で久々にperl5で書いた
スコープ制限や use strict など一切なしのぶっきらぼうな書き方

......完成したコードは変数名などがわかりやすく、例外処理も丁寧な仕上がりだった
保守性重視の書き方しみついたのはなかなか変わらないんだな

**763** · 2019/06/13(木) 14:47:43.00

キャッシュ層の有無も含めて速度もベンチマーク撮りながら
途中でデバッグ用の追跡コードも挟んだりし
use strict や warnings 等もつけたり
スコープや変数名など仕上げた

書き始めは荒っぽく自由に様々なアプローチを試し
デバッグ情報も臨んだ情報が自由に手に入り
望めば保守性の為に厳格に書ける

リストの畳み込み計算など無いものもあるが
おおむね良い言語だ

**デフォルトの名無しさん** · 2019/06/15(土) 00:55:54.14

ActivePerlを見限ってついにStrawberryPerlにしたぜ！
26.3がやっと半年ぶりに更新された
30が出てるのに28.1になるとかわけわからん
せめて28.2にしろよ

**デフォルトの名無しさん** · 2019/10/14(月) 22:16:21.37

StrawberryPerlはコンパイル環境が丸ごとバンドルされているのでおススメだよ。

**デフォルトの名無しさん** · 2019/11/18(月) 21:00:37.30

Android上でPerlとか動かす実行環境あったのな。ついさっき知った。

https://docs.solab.jp/sl4a/

**デフォルトの名無しさん** · 2020/01/01(水) 14:14:05.07

以前ローカルタイムとGMTの秒数のずれを出すためにこんな風に書いた。

use Time::Local;

my $t = timegm(localtime(0));

これは昨日までは正常に動いた。ローカルタイムが日本時間(JST)なら9時間を秒に直した 32400 が返されていた。

しかし今日(2020年1月1日)になったらいきなり巨大な数を返すようになった。
ローカルタイムが JST なら 3155792400 になる。そしてこれは32bitのOSではエラーになった。
(整数のビット数が多くなるように Perl がコンパイルされていれば大丈夫なのかも知れないが)。

この巨大な数はなんなのかと調べてみたら、2070年だった。

$ date -d '@3155792400'
2070年 1月 1日水曜日 18:00:00 JST
$

で、結局これは timegm() の年に与える数が4桁の西暦年になるように修正したらうまく行った。

use Time::Local;

my @tt = localtime(0);
$tt[5] += 1900;
my $t = timegm(@tt);

これでローカルタイムが日本時間なら 32400 になる。(OSが32bitでも問題なし)。

でもこれ、なんか変だよね? バグじゃないのか? 2020年にいきなり変わるって、元からそういう仕様だったの?

**デフォルトの名無しさん** · 2020/01/01(水) 15:33:18.64

https://perldoc.perl.org/Time/Local.html#Year-Value-Interpretation
timegmの年に0～99を指定した場合は現在の年を基準に前後50年の範囲に収まるように解釈する特別扱いで
localtime(0)で帰ってくる70は
2019年は2019+50=2069の範囲外なので1970だったけど
2020年は2020+50=2070なのでそのまま2070になる
ある意味2020年問題やね

**デフォルトの名無しさん** · 2020/01/01(水) 16:16:55.11

>>769
わかった。ソース見てわかった。50年な。今年の年に50足して100で割った余りを区切りにするから70が区切りで、70未満は今年の世紀の2000足しちゃうのな。
どうりで71年からはちゃんと計算できると思ったら。

**デフォルトの名無しさん** · 2020/01/01(水) 16:17:56.87

未満じゃない。以下か。

**デフォルトの名無しさん** · 2020/01/01(水) 16:21:54.06

ドキュメントを読めよ。

ちなみに確認しないけど、西暦2桁表記は、1970年を基準に±50年の範囲と見なすってのはなんかであった気がする。

**デフォルトの名無しさん** · 2020/01/01(水) 16:22:23.94

出遅れた。orz

**デフォルトの名無しさん** · 2020/01/01(水) 20:55:02.80

年の2桁表示とか、紛らわしい表記は使ってはいけない！

2020/01/01, 2020-01-01 など、フル桁の4/2/2でないといけない

**デフォルトの名無しさん** · 2020/01/01(水) 22:28:07.13

そういうことじゃないと思うよ。
知ったかぶりしたいわけじゃないから、これだけ紹介しとくよ。
https://qa.itmedia.co.jp/qa4977971.html

**デフォルトの名無しさん** · 2020/01/02(木) 01:20:37.93

突然にタイムゾーンの話？

**デフォルトの名無しさん** · 2020/01/05(日) 19:51:48.79

>>772
その区切りが移動するんだな。

**デフォルトの名無しさん** · 2020/01/05(日) 22:57:34.53

それにしても年2桁をある年を境に分けるしてって、
俺が中学生の頃に作った家計簿ソフトみたいだなｗ
もう30年ぐらい前になるのか？

**デフォルトの名無しさん** · 2020/01/06(月) 14:52:57.76

DuckDuckGoがPerlで書かれてるって最近知った

**デフォルトの名無しさん** · 2020/01/07(火) 22:37:11.45

perlは文法の泥沼具合で唯一c++とためはれる言語。もちろん褒めてない。

**デフォルトの名無しさん** · 2020/01/08(水) 12:14:45.57

log(1000)/log(10) は3だが、int()に通すと2になる。

Windowsサンプル
perl -e "$tmp = (log(1000)/log(10)); printf('result=%s,%s', $tmp, int($tmp));"

Unixサンプル
perl -e "\$tmp = (log(1000)/log(10)); printf('result=%s,%s', \$tmp, int(\$tmp));"

**デフォルトの名無しさん** · 2020/01/08(水) 19:45:30.94

あー。%s か。

**デフォルトの名無しさん** · 2020/01/09(木) 10:06:14.57

フォーマットを %.16f にしたら 2.999... のように出たよ。
まあでも環境によって違うかも知れないけどね。

**デフォルトの名無しさん** · 2020/01/09(木) 13:01:10.00

ある整数$nを10進表示するために必要な桁数を求めるためにlog($n)/log(10)を使ったのが良くなかった。
小難しいこと考えずにperlらしく素直に文字列としてlength($n)で桁数を取得するのが正解。

**デフォルトの名無しさん** · 2020/01/09(木) 20:26:28.10

Perlじゃなくても、浮動小数点数なら残当。
結局、10で何回割れるか数えるのが一番合理的なんかねえ。

**デフォルトの名無しさん** · 2020/01/10(金) 04:53:14.77

問題の本質は、整数と実数の型区別がない言語において、3なのか2.99…なのか簡単に識別する手段がないこと。

**デフォルトの名無しさん** · 2020/01/10(金) 05:45:42.75

PerlはCPU依存の浮動小数ではなく、独自の浮動小数を実装している。
計算速度がCやJava劣るのは、単にPerlがスクリプト言語だからというだけではない。
独自な浮動小数には良い面も悪い面もあるが、浮動小数の精度を変更できるのは大きな強み。
以下は、浮動小数の精度を10進換算100桁にするための宣言。

use bignum (a => 100);

**デフォルトの名無しさん** · 2020/01/11(土) 16:09:16.79

>>786
ないな。一応 0.5 足してから int() で整数化すれば四捨五入になるけどね。自分でそう書かないとダメだったと思う。誰かがモジュール作って関数化してそうだけど。