Perlについて

**デフォルトの名無しさん** · 2012/01/27(金) 08:36:33.85

Java4のソースコードなら
今も最新Javaで普通に動く。

**デフォルトの名無しさん** · 2012/01/27(金) 13:36:37.34

>>686
コーディング規約でJava1.4縛りってあるものなの？
Java5以降の機能は使用禁止みたいな。

**デフォルトの名無しさん** · 2012/01/27(金) 17:46:45.90

>>687
ジェネリックス禁止とか、for-each文禁止とかは企業なら普通にあるだろ。
互換性もそうだが、Javaオタクを排除して誰でも保守できるようにするという
重要な側面がある。

まあ、Java5、Java6で初めて追加された有用なクラスライブラリもあるから、
それはあくまでコーディング規約上の問題で、コンパイルと実行にはJava6を
使っているというケースもあるが。

……スレ違いだがマジレスしてしまった。

**デフォルトの名無しさん** · 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() で整数化すれば四捨五入になるけどね。自分でそう書かないとダメだったと思う。誰かがモジュール作って関数化してそうだけど。

**デフォルトの名無しさん** · 2020/01/11(土) 20:26:50.93

>>786
んなもん、そもそもあるわけがない。
浮動小数点数表現はおろか、有理数表現でも完全に表せない値は当たり前なんだから。

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

「Git 2.25」リリース、「git sparse-checkout」コマンドの追加や細かい機能強化が行われる
https://mag.osdn.jp/20/01/14/171500
内部的な変更としては、「git add「コマンドの「-i」オプションをPerlベースからCに書き換える作業をスタートさせた。

**デフォルトの名無しさん** · 2020/02/06(木) 17:50:53.79

PHPでPerlは使えますか？

**デフォルトの名無しさん** · 2020/02/10(月) 18:58:18.71

それはWebのページに埋め込むような感じで使えるかという意味？

**デフォルトの名無しさん** · 2020/02/11(火) 17:48:20.39

PHPのプログラム中からPerlを呼び出すのであれば「php perl 呼び出し」等のキーワードでググれば沢山出てくる。

**デフォルトの名無しさん** · 2020/06/06(土) 11:22:08.79

2015年にリリースされたmacOS X 10.11 以降、SIP(System Integrity Protection)によってディレクトリ/Systemがガードされるようになった。
これにより2013年にリリースされたperl 5.13が/System配下にありガードされてアンインストールできなくなっている。
2019年にリリースされた最新のmacOS 10.15 Catalina もいまだにperl5.18のままという有様。

**デフォルトの名無しさん** · 2021/10/01(金) 19:08:40.79

新しい Windows PCに Active Perlインストールしたら perl.batになってて使いづらいので
Strawberry Perlに変更した

**デフォルトの名無しさん** · 2021/10/01(金) 20:42:39.90

MSYS2をいれたほうがええんちゃう？

**デフォルトの名無しさん** · 2021/10/02(土) 10:57:54.57

>>796
Git for Windowsに付属のbash(MINGW)で十分だと思う

**デフォルトの名無しさん** · 2021/10/02(土) 14:25:59.98

Git for Windowsに付属のbashってminttyだっけ
便利過ぎて死ぬわ

**デフォルトの名無しさん** · 2021/10/02(土) 15:08:59.66

>>797
ホントにずっとそのままでええんならな。
MSYS2にしとけば、あとからpacmanでいろいろ足せる。

**デフォルトの名無しさん** · 2021/10/02(土) 15:15:17.46

WSLでUbuntuもよろしく

**デフォルトの名無しさん** · 2021/10/02(土) 16:46:10.72

WSLのPerlだとWin32API呼び出しできないからニーズを満たせないと思ふ

**デフォルトの名無しさん** · 2021/10/02(土) 16:55:22.91

ちなみにGit for Windows (2.33.0.windows.2) にもPerlが入ってる
Strawberry Perlは5.32までしかないのにGit for Windows版Perlは5.34
嘘だと思うなら調べてみるといい
マジだから

**デフォルトの名無しさん** · 2021/10/02(土) 17:36:32.08

バージョンが気になるならMSYS2やろ！

**デフォルトの名無しさん** · 2021/10/19(火) 22:17:39.89

なぜStrawberry Perlは5.34がリリースされないの？

**デフォルトの名無しさん** · 2022/06/30(木) 22:37:09.92

Perl 5.36 が公開されたというのに、どのPerl関連スレも閑古鳥が鳴いていてさびしいねえ

**デフォルトの名無しさん** · 2022/07/02(土) 13:20:38.18

Windowsでコマンドライン生活をしてると
utf-8かsjis(cp932)で改行がCRLFのテキストを扱うのがほとんど
結局コマンドプロンプトでPerlを使うのが一番使い勝手がいい…と思ってる

**デフォルトの名無しさん** · 2022/07/03(日) 05:14:11.23

>>806
わかる気がする
文字コード不明なゴミ文字列を食わされたらすぐ例外を吐く繊細なPythonは日本語版Windows向きじゃないんだよな

**デフォルトの名無しさん** · 2022/07/03(日) 14:29:42.06

馬鹿には無理

**デフォルトの名無しさん** · 2022/07/04(月) 03:27:03.23

Perlの比較対象はsedとかawk
多段パイプでsedとawkをつなげまくってるのをPerlですっきり

**デフォルトの名無しさん** · 2022/07/04(月) 08:30:36.13

PowerShellと被りまくりよな

**デフォルトの名無しさん** · 2022/07/05(火) 17:14:50.15

PowerShellはバイナリがパイプに流せないからな
バイナリを流さなくても文字コードをいろいろ使う人には不便極まりない

**デフォルトの名無しさん** · 2022/07/05(火) 20:17:14.67

PowerShellのパイプは、テキストでもバイナリでもなく、オブジェクトだが？

**デフォルトの名無しさん** · 2022/07/05(火) 21:04:46.45

それしかないから困るという話だが?

**デフォルトの名無しさん** · 2022/07/06(水) 04:19:04.24

PowerShellの文法にPerlの影響を感じる

**デフォルトの名無しさん** · 2022/07/06(水) 19:53:42.80

ピンとこないんで例示たのむ

**デフォルトの名無しさん** · 2022/07/06(水) 21:22:26.26

影響つうか、もう完全に似せにいっとるやろ。ｗ

**デフォルトの名無しさん** · 2022/07/06(水) 21:39:44.49

Perlでのワンライナーコマンドの成功体験を忘れられなかった人が、潤沢な資源を使ってPerlっぽいシェル作ったら明るいディストピアになってしまった感じ
それがPowerShell

**デフォルトの名無しさん** · 2022/07/07(木) 20:54:38.67

文法の類似性は全く感じられない…いやまじで

それはともかくWindowsでPowerShellをシェルとして使ってるとPerlと相性悪すぎる
コマンドプロンプトなら問題ないのにね

**デフォルトの名無しさん** · 2022/07/07(木) 21:37:13.86

Perlだけじゃないよ
PowerShellはSTDIN, STDOUTを使うあらゆる伝統的アプリと相性が悪い

**デフォルトの名無しさん** · 2022/07/08(金) 07:50:38.59

たとえば
perl -E '$a = 1; say "\$a = $a"'　　　…… (1)
結果はもちろん
$a = 1
コマンドプロンプトだと引用符に ' が使えないから
perl -E "$a = 1; say qq/\$a = $a/"
とかするわけだけど、PowerShellなら ' も使えるから(1)でいけると思うわな
ところが結果は
SCALAR(0xf00e68)
さすがにこれは凄過ぎる

**デフォルトの名無しさん** · 2023/11/07(火) 18:45:33.47

https://github.com/StrawberryPerl/Perl-Dist-Strawberry/
V5.38が出ていますよ

**デフォルトの名無しさん** · 2023/11/20(月) 03:36:08.26

バイナリの種類が減ったけどどうしたんだろう_？
ZIP版がなくなったのはちょっと寂しい
いろいろビルドするの大変だったのかな…
いずれにせよWidows用処理系のバイナリが提供されるのはありがたい

**デフォルトの名無しさん** · 2023/11/21(火) 15:33:51.20

>>820
Windows PowerShell 5.1 ではこの通りだったけど
最新の PowerShell 7.4 ではちゃんと
$a = 1
になるように改善されてる

**デフォルトの名無しさん** · 2023/11/27(月) 18:46:28.12

$ perl -e '$a="abc"; $a =~ s/(.*)/[$1]/g; print $a . "\n"'
[abc][]

なんで後ろに[]がついちゃうの？
後ろに[]をつけないにはどうすればいいの？

**デフォルトの名無しさん** · 2023/11/28(火) 01:13:40.51

Powershell で、Ruby の1-liner を実行してみた。
%Q() は、"～" と囲む文字列と同じ

ruby -e 're=/(.*)/; puts %Q(abc).sub(re){ %Q([#$1]) }'
[abc]

ruby -e 're=/(.*)/; puts %Q(abc).gsub(re){ %Q([#$1]) }'
[abc][]

sub は置換を1回だけ、
gsub は複数回置換するから、2回マッチしているようだ

これは正規表現のスレで聞いた方が良いかも

**825** · 2023/11/28(火) 01:36:42.16

Ruby でやったら、sub/gsub のどちらも空文字列にもマッチする！
%Q() が、"" と同じで空文字列

re=/(.*)/;
puts %Q().sub(re){ %Q([#$1]) }
[]

re=/(.*)/;
puts %Q().gsub(re){ %Q([#$1]) }
[]

Perl はよく知らないけど、正規表現の
s/(.*)/[$1]/g
の、s かg が、複数回マッチのオプションなのでは？

**デフォルトの名無しさん** · 2023/11/28(火) 07:55:53.20

gが複数回オプション

**デフォルトの名無しさん** · 2023/11/28(火) 11:38:18.70

s/(.*)/[$1]/

または

s/(.+)/[$1]/g

**デフォルトの名無しさん** · 2023/11/28(火) 12:30:37.56

複数回マッチはそれはそうなんだけど、
.*で全部にマッチするのだから一回しかマッチしないはずでしょう？

**デフォルトの名無しさん** · 2023/11/29(水) 00:11:18.99

この話題は以後、以下のスレに移動しました！

Regular Expression(正規表現) Part16
https://mevius.5ch.net/test/read.cgi/tech/1635936601/962-

**デフォルトの名無しさん** · 2024/02/09(金) 17:07:25.90

V5.38.2
32ビット
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_5382_32bit
64ビット
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_53822_64bit

**デフォルトの名無しさん** · 2024/02/13(火) 13:45:23.58

>>831
https://strawberryperl.com/releases.html
には最近のバイナリはないね。

ビルドに使われた external tools and libraries について見ると
Perl 5.36.1.1 (2023-07-20)のリリースで MingW gcc-13.1.0 まで上がり
Jul 11, 2023 の dev_5.38.0_20230705_gcc13 までは(同じ?) gcc-13.1 (winlibs release 5)
が使われていたけどこれはビルドに問題があったようで、
For a list of known test failures and build issues see
Issues ・ StrawberryPerl/Perl-Dist-Strawberry ・ GitHub
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/issues?q=is%3Aissue+is%3Aopen+label%3Aperl5.36

Nov 28, 2023 の dev release 5.38 32-bit cut-down 以降は
Perl 5.32.1.1 (2021-01-24) のときの gcc is version 8.3.0 を含む c/ ディレクトリに戻してビルドするようになったとのこと、
またzip版のバイナリはリリースされなくなったし
この2年でなんか色々変わってきたな、Strawberry Perl も一つの節目なのかね

今後Strawberry Perlの動向は https://strawberryperl.com/ の方ではなくgithub.comの方
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases
を見るべきだね

**デフォルトの名無しさん** · 2024/06/10(月) 18:27:16.13

V5.39.10.1(64ビット)
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_5.39.10

**デフォルトの名無しさん** · 2024/06/25(火) 23:38:59.86

>>802
gitにperlが入ってるんじゃなくて
gitがperlで出来てる

**デフォルトの名無しさん** · 2024/08/18(日) 17:26:35.55

V5.40.0.1
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_54001_64bit_UCRT

**デフォルトの名無しさん** · 2024/08/18(日) 21:28:19.60

ピールと呼ぶ会

**デフォルトの名無しさん** · 2024/08/23(金) 01:55:42.09

>>835

インストール前に念のためチェックしたら
ttps://www.virustotal.com/gui/file/754f3e2a8e473dc68d1540c7802fb166a025f35ef18960c4564a31f8b5933907

誤認識か否か分からないのでｲﾝｽﾄｰﾙを躊躇してる

gccが13.2に上がってるんだよね、niXman のかな…

**デフォルトの名無しさん** · 2024/09/29(日) 16:04:56.78

Moose (ヘラジカ)の剥製が巨大で力強かった
そこで思い出したのが Moose - Object Oriented Perl
OOPやりたいなら他の言語でやればいいや、面倒なperlとバイバイしてたけど
今になってMooseの剥製を見て触りたくなった

perlのMoose触りたくないのに、それでコード書きたい不思議な体験だ

**デフォルトの名無しさん** · 2025/03/08(土) 22:22:06.21

Pre-release V5.34.3.1
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/sp5.34.3.1

**デフォルトの名無しさん** · 2025/05/31(土) 00:02:40.32

V5.40.2.1
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_54021_64bit_UCRT

**デフォルトの名無しさん** · 2025/06/08(日) 13:20:44.61

>>840
ActiveCodePageをUTF-8にしたのも同梱して欲しい
毎回埋め込みマニフェストをいじるのめんどくさい

**デフォルトの名無しさん** · 2025/06/18(水) 01:54:06.84

超古いperlのCGIを新規で建てたLinuxマシンに移植する仕事が来た
簡単だろうと思って受けたらかなりハマった
Linuxにxampp入れてCGIプログラムとperlのライブラリを移動したが
Internal errorで動かない
散々調べたらjcode.plが新しいperlのバージョンではうまく動かないそうな
jcode.plをjacode.plに置き換えればうまくいくらしいので試してみたが、一つは動いてもう一つは動かない
入力したデータが文字化けしとる
さんざん悩んでxamppかperlのダウングレードをしようかと思ってた矢先に古いjcode.plの修正方法を発見した

広島大学のホムペに

また，以下のライブラリ等は，修正を行うことで動作が確認されています
日本語ライブラリ（jcode.pl）※ 「defined」を削除する
　&init_z2h_euc unless defined %z2h_euc;　→　&init_z2h_euc unless %z2h_euc;
　&init_z2h_sjis unless defined %z2h_sjis;　 → &init_z2h_sjis unless %z2h_sjis;

と言うのが出てて、この通りやったらやっと解決
ありがとお広島大学

**デフォルトの名無しさん** · 2025/06/18(水) 17:42:44.53

世界最長のコンテキストウィンドウ100万トークン入力・8万トークン出力対応にもかかわらずたった7800万円でトレーニングされたAIモデル「MiniMax-M1」がオープンソースで公開され誰でもダウンロード可能に
2025年06月18日 11時43分
https://gigazine.net/news/20250618-minimax-m1-open-source/
>>MiniMax-M1は、合計4560億のパラメーターが含まれており、トークンごとに459億のパラメーターがアクティブになるとのこと。これはDeepSeek R1の8倍に相当するコンテキストウィンドウです
>>以下のグラフは競技レベルの数学、コーディング、ソフトウェアエンジニアリング、エージェントツールの使用、長文理解タスクにおけるパフォーマンスを主要な商用AIモデルと比較したもの。赤色がMiniMax-M1で、どのタスクにおいても競合AIモデルに匹敵するパフォーマンスを発揮できている
>>MiiniMax-M1はいくつかのベンチマーク、特に長いコンテキスト駆動のベンチマークでClaude Opus 4のパフォーマンスを上回りました」と報告
※AIを動作させている動画あり
↓上記のAIお下記をプレイさせれば性能が判明する
Gemini 2.5 Proは手持ちのポケモンが瀕死になるとパニックに陥る
2025年06月18日 12時30分
https://gigazine.net/news/20250618-pokemon-gemini-panic/
◇
[プロテクトガードやセキュリティーホール発見可能]
※1 プログラムのバグ技[裏抜け道]を使用できる＝チートコードを発見可能
・マリオカートのショートカットはプレイヤー「極悪人」の表の抜け道でNPC「一般人」は使用不可能
[インサイダー/談合/なねーロンダリング/霊感商法など行う時の悪行で音波や電波をしての悪行の方法を発見可能
※ 政治家の法律上の抜け道を仕込める＝ある業種だけの法律の抜け道を発見可能
[一般大衆の思考である特定の極悪人から目線を特定の統合失調症へ返させる装置]
※ ＡＩは正確な情報で人間を信用させれる＝ＡＩは嘘の情報を一部混ぜて人間を洗脳できる