Perlについての質問箱 63箱目

**デフォルトの名無しさん** · 2014/02/19(水) 23:36:23.29

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: http://kohada.2ch.net/php/）

このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
荒らしはスルー推奨。

"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

www.perl.org/get.html
Download Latest Stable Source (5.18.2)

▼前スレ
Perlについての質問箱 61箱目
http://toro.2ch.net/test/read.cgi/tech/1381561905/
Perlについての質問箱 62箱目
http://toro.2ch.net/test/read.cgi/tech/1385039352/

**デフォルトの名無しさん** · 2016/09/09(金) 12:53:46.35

何を調べたらいいのかわからんので手が付かない

**デフォルトの名無しさん** · 2016/09/09(金) 13:05:29.57

はっきりしてるのはhirobanexのとおりに書いてもエラーで動かない事
それも $teng->->execute なんていうタイポレベルの話じゃなく
根本的にどこか間違ってるけど、どこだかわからんということ

$teng->sql_builder ってSQL::Makerを継承した状態でnewされてるんじゃないの？
Teng::QueryBuilder = SQL::Maker　だから
これで動くんじゃないの？
$teng->sql_builder->load_plugin('InsertOnDuplicate');
$teng->sql_builder->insert_on_duplicate（略）

**デフォルトの名無しさん** · 2016/09/09(金) 16:12:29.13

もう直接コード読めよ

**デフォルトの名無しさん** · 2016/09/09(金) 16:58:05.37

$teng->sql_builderでTeng::QueryBuilderのオブジェクトが帰ってくる
これはほぼSQL::Makerを継承しただけなのでSQL::Maker::load_pluginを読むとどうやらクラスメソッドとして書かれている
実際SQL::MakerのPODにも継承したクラスでクラスメソッドとして呼び出す例が書かれている

つまり $teng->sql_builder->load_plugin('foo') という書き方はオブジェクトから呼び出してるので間違い（おそらくTeng::QueryBuilder=HASH(0x000000)みたいなところに生えてる）
Teng::QueryBuilder->load_plugin('foo') とするか ref($teng->sql_builder)->load_plugin('foo') とするか
もしくはブログの例にもある通り独自のQueryBuilderクラスを用意するか

>>429
この__PACKAGE__はどこに書いたんや？__PACKAGE__の意味わかってる？

**デフォルトの名無しさん** · 2016/09/09(金) 17:40:55.04

もう、馬鹿過ぎて哀れだ。実際にやりたいことは

*SQL::Maker::insert_on_duplicate = \&SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate;

ってことでしょ? もうこれでいいでしょ。POD すら読まないんじゃ助けようがないよ。

**437** · 2016/09/10(土) 11:47:34.76

ごめん、言い過ぎた。とりあえず、正解が分らない段階で俺ならどうするかを書くよ。

まず、何をしているのかを POD で確認する。
POD では load_plugin についてはクラスメソッドとして使う例だけが書かれている。
ここで「おかしい」と思わなければならない。
オブジェクトメソッドとして使えないとは書かれていないのでソースコードを読む。
%INC を見ればソースコードの場所は分かる。
load_plugin は予想以上にシンプルだった。これで解決。

解決しなかった場合。
まず、SQL::Maker::Plugin::InsertOnDuplicate を明示的に use する。それで間違いなく呼べる。
SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate( $teng->sql_builder)
あるいは
$teng->sql_builder->SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate
好きな方でいい。これでうまくいくなら load_plugin で何かが間違っている。
デバッガを使うか、load_plugin を差し替えて動作を詳しく調べる。

**デフォルトの名無しさん** · 2016/09/10(土) 18:20:16.29

Tengを使うのかどうか自分で選べるのなら、自分が理解していないものを使わないという選択肢がある。
他の人が選んでしかも使わなければならないという状況なら、選んだ人にどう使うのかを聞くといい。

**デフォルトの名無しさん** · 2016/09/10(土) 19:19:33.59

多分ブログ書いた人やその人に教えた人はTeng本体と混ざって勘違いしたんだろうな
Teng自体はインスタンスからもロードできるから

**デフォルトの名無しさん** · 2016/09/13(火) 17:44:13.57

この記事、オレオレメモだって自分で書いてるからわざわざつっこむのも野暮だけどOR検索の例もちょっとひどい。
どうしてこうなった?

**デフォルトの名無しさん** · 2016/09/22(木) 14:09:25.16

Windows の Strawberry Perl で、「Parallel::ForkManager」は使えますか？

----------------------------------------
use LWP::Simple;
use Parallel::ForkManager;
...
@links=(
["http://www.foo.bar/rulez.data";,"rulez_data.txt"],
["http://new.host/more_data.doc";,"more_data.doc"],
...
);
...
# 最大30プロセスで並列的にダウンロードを行います
my $pm = new Parallel::ForkManager(30);
foreach my $linkarray (@links) {
$pm->start and next; # forkさせます
my ($link,$fn) = @$linkarray;
warn "Cannot get $fn from $link"
if getstore($link,$fn) != RC_OK;
$pm->finish; # 子プロセスをexitします
}
$pm->wait_all_children;
----------------------------------------
の様なスクリプトで、数万ファイルをダウンロードしようとすると、
　 child process '-*****' disappeared.
　 A call to `waitpid` outside of Parallel::ForkManager might have reaped it.
のエラーを出しながら、メモリを全消費・開放を何度か繰り返した後に、
最終的には、「Out of memory!」で異常終了します。

Cygwin の Perl では、「Cannot get $fn from $link」エラーを出しまくりますが、
メモリを全消費する事はありません（異常終了もしません）。

**デフォルトの名無しさん** · 2016/09/22(木) 15:02:46.45

windowsのForkは、表面上は同じように動作する仕様になっているが、
実際にプロセスやスレッド、CPUの動作が期待通りになってるかと言うとそれは違う。
ほとんどの場合が、unixとの互換性を保つための見せかけ。

**デフォルトの名無しさん** · 2016/09/22(木) 16:23:36.65

rulezの綴りがzの辺り、悪さしてそうだな

**デフォルトの名無しさん** · 2016/09/23(金) 01:08:30.38

if($hoge=~/(\d+)$hoge3$/){$hoge2=$1}

これの意味は

$hoge3が数字のみなら$hogeに代入し、$hoge2にも代入するという意味でしょうか？

**442** · 2016/09/23(金) 05:21:37.52

>>443
「WindowsのFork」の意味は分かりませんが（Windows用PerlのFork？）、
Cygwin の perl は、
　 C:\cygwin64\bin\bash --login -i -c "perl ...
等としなくても、Windows から直接起動出来るので、
あのスプリクトで直接起動しても、メモリエラーは出ませんでした。

Cygwin の perl を、Strawberry Perl の代わりに、、、と思ったら、
いきなり chomp が、CR+LF を削除してくれなかった。

>>444
perldoc.jp からのコピペです。

>>445
if ( 文字列 =~ /パターン/ )
もし「文字列」の中に「パターン」が含まれていれば、

if ( $hoge =~ /(\d+)$hoge3$/ ) { $hoge2 = $1 }
もし「 $hoge 」の中に「 \d+$hoge3$ 」が含まれていれば、「 $hoge2 」に「 \d+ 」を代入

**445** · 2016/09/23(金) 08:03:28.29

>>446
ありがとうございます。
他言語の底辺SEなので助かりました。

**デフォルトの名無しさん** · 2016/09/23(金) 14:09:14.63

普段それを読む文化にない人がいきなり読めたら逆にすごいと思う
PerlってPerlが分かる人だけの言語

**デフォルトの名無しさん** · 2016/09/26(月) 17:38:36.14

Perl on Bash on Ubuntu on Windows10 での、
モジュールのインストールで、無駄に苦労した。
　解決法：　Config.pm の修正

Windows10 のコマンドプロンプトでも、
エスケープシーケンスが使えるらしい。
　 PROMPT $E[96m$T$E[3D $E[93m$P$G$E[37m$E[1C
懐かし

**デフォルトの名無しさん** · 2016/09/28(水) 02:39:45.69

ソースはサンプルコードな

**デフォルトの名無しさん** · 2016/10/03(月) 14:01:12.25

C:\> prompt $e[1;36m[$d$s$t$h$h$h] $e[1;33m%USERNAME%@%COMPUTERNAME% $e[37m$p$_$g$s

**デフォルトの名無しさん** · 2016/10/03(月) 19:32:24.04

ザメフォン元気？

**デフォルトの名無しさん** · 2016/10/06(木) 18:37:40.82

ビット演算を多用したいんだけど、変数のサイズを指定したい。longとか。
とりあえず、16bitと32bitと64bitの整数が欲しい。
あと数値と文字が勝手に切り替わらないようにしたい。

ビット演算してるブロックだけでいいんで。
あと環境の保証も欲しい。どのマシンでどのbitのPerlとか関係なく。
俺が32bitのビット演算って言えばそれはもう絶対32nit演算。
もちろん不当に遅くなる方法は許さない。

**デフォルトの名無しさん** · 2016/10/06(木) 20:14:48.16

C で書け。

**デフォルトの名無しさん** · 2016/10/06(木) 20:56:23.24

C++でもいいぞ

**デフォルトの名無しさん** · 2016/10/06(木) 21:07:21.59

rubyで十分

**デフォルトの名無しさん** · 2016/10/06(木) 21:31:39.42

Cとかでもいいけどdllの使い方分からないのだ

**デフォルトの名無しさん** · 2016/10/07(金) 03:14:09.37

http://perldoc.jp/func/pack でOK

**デフォルトの名無しさん** · 2016/10/07(金) 07:25:20.66

vec かな。それでも不満なら perlfaq3 を読んで C で書け。

**デフォルトの名無しさん** · 2016/10/07(金) 12:43:21.52

実際に何をして、その結果何が問題だったの? そのくらいは書いてくれないと……

**デフォルトの名無しさん** · 2016/10/08(土) 01:08:43.11

>>457
xsと言うのがあるが、一時的に値が複製されて良いなら標準入出力(メモリ渡し)のほうが絶対に楽だと思うのだ。
ま、perl使ってるなら複製されたメモリのほうが元のデータより圧倒的に小さいはずだが

**デフォルトの名無しさん** · 2016/10/08(土) 09:19:23.51

ビット演算したいなら普通にすればいいよ。
◯ビット変数がほしいといわれても、それは適切にマスクすればいいだけだし。
◯ビット変数のように振る舞うものがほしいということなら、Perl は C よりも期待に応えられると思うよ。
まずは C と同じ書き方をして速度を計ってみてよ。話はそれからだ。

**デフォルトの名無しさん** · 2016/10/08(土) 22:30:15.59

はぁ？
~0 この時点で同じになりませんがな

**デフォルトの名無しさん** · 2016/10/09(日) 00:00:21.79

>>453 に言ってるんだよ?

**デフォルトの名無しさん** · 2016/10/10(月) 16:43:42.37

もう連休終わっちゃうんだけど結局何をしたかったのかな。

**デフォルトの名無しさん** · 2016/10/11(火) 00:06:06.59

その日のうちに解決したんじゃね？
木曜日の相手になに言ってんだか

**デフォルトの名無しさん** · 2016/10/11(火) 00:28:33.80

しかし普通の言語やったあとにPerlやると異常なほど即座に短く書き終えるからなにか書き忘れてるんじゃないかと不安になる。
正しく動くと分かると異常なほど楽で嬉しくなるし、C++とかが馬鹿らしくなる。
そして実行速度計ると結局全部納得してため息。

**デフォルトの名無しさん** · 2016/10/11(火) 19:01:16.50

stat($file_path);でファイルを作成したtimeは
atime,mtime,ctimeのどれなの？

**デフォルトの名無しさん** · 2016/10/11(火) 19:50:08.12

>>468

http://perldoc.jp/func/stat
> 8 atime 紀元から、最後にアクセスされた時刻までの秒数
> 9 mtime 紀元から、最後に修正(modify)された時刻までの秒数
> 10 ctime 紀元から、inode 変更(change)された時刻までの秒数 (*)

> 明らかに、ctime のフィールドは移植性がありません。
> 特に、これから「作成時刻」を想定することは出来ません

http://perldoc.jp/docs/perl/perlport.pod#Files32and32Filesystems
> ファイルシステムはアクセスタイムスタンプや変更タイムスタンプに
> 対応していないかもしれません (つまり移植性のあるタイムスタンプは
> 変更タイムスタンプだけです); またタイムスタンプは 1 秒単位では
> ないかもしれません (例えば、FAT ファイルシステムは時刻の単位は
> 2 秒単位です)。

>「inode 変更タイムスタンプ」 (-C ファイルテスト) は (Unix 以外では)
> 実際には「作成タイムスタンプ」かもしれません。

**デフォルトの名無しさん** · 2016/10/12(水) 08:39:20.39

Perlのオブジェクト指向読んだばっかりで理解が曖昧なんだけど、
これだと、オブジェクトがオブジェクトなのか関数なのかって呼び出し側で決める事にならない？
コンストラクタもメソッドも。
ついでに、インスタンスのカプセル化どうこうも、呼び出し側の権利？

みたいに見えたのですが。

**デフォルトの名無しさん** · 2016/10/12(水) 13:04:43.13

>>470
そうだよ
それはC++等でも同じ

**デフォルトの名無しさん** · 2016/10/12(水) 14:33:18.63

>>471
ありがとう

以下みたいな感じの記述は使っても問題ない？
あと穴があった場合も教えて欲しい。
（複数回に分けて書くので途中で書けなくなるかも）

use utf8;
use strict;
use warnings;

#ただの実験
# 1: メソッドとインスタンスをカプセル化する。
# 2: クロージャを、あたかもオブジェクト指向と同じ記法で呼び出せるようにする。(クロージャとオブジェクト指向の同一視)
# 3: クロージャをクロージャのまま使いたければそうできるようにした。そもそもクロージャのほうが速いので。

**デフォルトの名無しさん** · 2016/10/12(水) 14:33:37.13

{
package Class;

sub new{
my $class = $_[0] eq __PACKAGE__ ? shift : undef ; #オブジェクトとして呼び出されたかどうか
my $self = {
Name => shift,
};

my $method = {
NameGet => sub{ $self->{Name} },
NameSet => sub{ $self->{Name} = shift; },
};

return $method if(!$class); # 普通の関数(クロージャ)として呼ばれた場合
return bless $method, $class; # オブジェクトとして呼ばれた場合
}

sub AUTOLOAD {
our $AUTOLOAD;
my $method = shift;
ref($method) eq __PACKAGE__ or return("error");
my @load = split '::', $AUTOLOAD;
my $load = $load[-1];

$method->{$load}->(@_);
}
}

**デフォルトの名無しさん** · 2016/10/12(水) 14:34:03.93

{
package test;

my $c = Class::new("Closure"); #クロージャとして呼び出すと、一般的なクロージャと同じように使える。
print $c->{NameGet}->() . "\n";

my $o = Class->new("Object"); #オブジェクト指向として呼び出すと、オブジェクト指向と同じように使える。(中身はクロージャ)
print $o->NameGet() . "\n";

print Class::NameGet(); #関数のように呼ぶとエラー
}

__END__

以上です

**デフォルトの名無しさん** · 2016/10/12(水) 16:49:58.02

オブジェクト指向＝カプセル化ではないし、perl5でももう少しスマートなカプセル化のやり方もあるが筋が悪いからおすすめはしない
perl6はオブジェクト指向に関してはかなりマシだけど、そもそも速度気にするならperlは向かない

perl5じゃないとダメなら規約などで上手く付き合うしかない
ちなみにそのコードだとまともに継承できないね

**デフォルトの名無しさん** · 2016/10/12(水) 21:51:13.12

やりかたがあると言うのなら、提示して欲しいのだけど。（ただの俺は知ってるぞ自慢？）

事前に試しましたが、継承はできましたよー。
複数クラスを書くと長くなるので書きませんが、
まったく同じように別のクラスを書いて、ベースにしたいクラスを呼び出して更新すれば
とりあえずインスタンスもメソッドは継承されるですね。

あと穴は一つ発見しました。
これは後出しにしようかな。

**デフォルトの名無しさん** · 2016/10/13(木) 02:01:07.92

こいつは何しに来たんだ？

**デフォルトの名無しさん** · 2016/10/13(木) 10:53:38.82

perlでpcアプリケーションって作れますか？

**デフォルトの名無しさん** · 2016/10/14(金) 12:30:24.58

>>478　作れます。

**デフォルトの名無しさん** · 2016/10/14(金) 22:56:09.64

スーパーコンピューターのアプリケーションしか作ったことがないのですが、
そんな私でも作れるでしょうか？

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

スパコンのSIMDやMPIの方が楽だから
無理しなくていい

**デフォルトの名無しさん** · 2016/10/17(月) 02:26:31.41

2つのテキストファイルを比較し、一致した文字列を取り出したいんですが、教えていただけませんか

**デフォルトの名無しさん** · 2016/10/17(月) 03:43:08.25

一致した文字列を穴なく完璧に厳格に定義して示して下さい。
そしてそれが出来ればプログラミングの8割は終了しています。

**デフォルトの名無しさん** · 2016/10/17(月) 09:06:26.12

diff 系かなあ。CPAN で検索してみるといいよ。

**デフォルトの名無しさん** · 2016/10/17(月) 09:12:40.23

Perl使うまでもないような
cat fileA fileB | sort | uniq -d

**デフォルトの名無しさん** · 2016/10/17(月) 09:33:07.31

いやいや、一致した「行」とは言ってないから。何を望んでいるのかを確認しないと。

**デフォルトの名無しさん** · 2016/10/17(月) 20:34:47.85

単語だと形態素解析が必要になるけどこいつにそんな課題出さないだろう

**デフォルトの名無しさん** · 2016/10/18(火) 22:42:04.03

my $input = [];
CSVファイルを一行づつ配列にして多元配列にした後
for (my $i=0; $i<$#$input; $i++) {print Dumper($input->[$i]),"\n";}
で全データ出力するのですが、その後（？）関数内で同じく
for (my $i=0; $i<$#$input; $i++) {print Dumper($input->[$i]),"\n";}
とすると、1行目の内容が、$#$inputの数だけ繰り返し表示されます。
関数内でも全データを出力したいのですが、どうしたらよいでしょうか。
どなたか教えてください。よろしくお願いします。

**デフォルトの名無しさん** · 2016/10/18(火) 23:56:04.56

1回ずつループしながら、デバッグして、使っている変数を見れば？

変数のwatch 機能、あるだろ？

**デフォルトの名無しさん** · 2016/10/19(水) 00:45:58.03

>>489
アドバイスありがとうございます。VisualStudioCodeを素で使ってまして
perlのwatch機能は無いようなのです。

**490** · 2016/10/19(水) 00:48:54.12

watch機能はないのですが、添字の$iを具体的な数字を入れてはprintで確認して
1行目のデータになっていると気づいた次第です。

**デフォルトの名無しさん** · 2016/10/19(水) 08:22:02.29

>>488
こういうこと？再現しないよ

use Data::Dumper;
my $input = ["abc", "def", "ghi"];
for(my $i=0; $i<=$#$input; $i++) {
print Dumper($input->[$i]), "\n";
}
&func;

sub func {
for(my $i=0; $i<=$#$input; $i++) {
print Dumper($input->[$i]), "\n";
}
}

**デフォルトの名無しさん** · 2016/10/19(水) 09:10:37.02

>>492
要はそういうことなんだと思います。csvファイルを読み込んで
$input[[1, 2, 3],[4, 5, 6],[7, 8, 9]];
for (my $i=0; $i<$#$input; $i++) {print Dumper($input->[$i]),"\n";}
でDumperのフォーマットですが[1, 2, 3],[4, 5, 6],[7, 8, 9]を表示
sub funcの中で同じforをすると
Dumperのフォーマットですが[1, 2, 3],[1, 2, 3],[1, 2, 3]を表示します。

必要なところを抽出して現象がでたらソースをアップします。

**490** · 2016/10/19(水) 13:56:56.14

ループ内で行っていた条件分岐の間違いでした。お騒がせしました。
489さん、492さん、ありがとうございました。

**デフォルトの名無しさん** · 2016/10/22(土) 10:51:15.40

良い回答はないと思うんだけど、正規表現で指定する内容をランダムで作り出す方法ってないかな。

例えば
/^[0-9][0-9a-zA-Z]{4}[A-Z]$/;
だったら
5scDuZ
とかが得られますよ的な。

**デフォルトの名無しさん** · 2016/10/22(土) 11:26:59.02

String::Random

**デフォルトの名無しさん** · 2016/10/22(土) 11:46:10.43

おいおいなんでもあるなPerlって

**デフォルトの名無しさん** · 2016/10/22(土) 17:34:20.47

CPANのモジュールも更新されないものが増えてきた
もうオワコン

**デフォルトの名無しさん** · 2016/10/25(火) 21:00:26.38

Windows環境でUnixのテキストファイルを処理します
改行LFがCR+LFに変換されてしまうのを防ぐために
perl -i.bak -p -e "BEGIN{ binmode STDIN; binmode STDOUT; } s/unko/manko/g;" hogo.txt
みたいな風に書いてるんですけど
もうちょっとスマートな書き方ありませんか？

**デフォルトの名無しさん** · 2016/10/25(火) 21:11:38.78

binmodeしないと自動変換されるの？
まぁ試してないけど、ワンライナーをやめれば良いのさ

**デフォルトの名無しさん** · 2016/10/26(水) 00:45:00.36

perl -pe

**デフォルトの名無しさん** · 2016/10/26(水) 03:02:37.18

>>499
perl -mopen=OUT,:raw -i.bak -pe "s/unko/manko/g" hogo.txt

http://perldoc.jp/docs/perl/perlrun.pod
http://perldoc.jp/docs/perl/open.pod

**デフォルトの名無しさん** · 2016/11/10(木) 22:48:13.72

perlの場合は文字コードがEUCのデータファイルがあって
入力フォームからハングル文字で書き込むと自動的に&#○○○;の形に変換されて書き込まれるのですか？

**デフォルトの名無しさん** · 2016/11/10(木) 22:56:55.76

フォームってなに？

**デフォルトの名無しさん** · 2016/11/10(木) 23:16:39.82

日本語と知能が不自由なあちらの人じゃない？

**デフォルトの名無しさん** · 2016/11/10(木) 23:30:34.65

最近はフォームを知らない人がいるんだ
おぢさん、世代ギャップを感じるよ

**デフォルトの名無しさん** · 2016/11/11(金) 00:26:38.27

うわ、知能障害者がまた来たよ。
それともゆとり世代の代表例かな？

**デフォルトの名無しさん** · 2016/11/11(金) 12:07:09.49

my $str = "aaa〹&bbb&ccc";
という文字列があって
&#以外の&を&に置換するやり方は？

**デフォルトの名無しさん** · 2016/11/11(金) 12:09:09.25

my $str = "aaa&＃12345;bbb&ccc";
という文字列があって
&＃以外の&を&に置換するやり方は？

＃はここでは全角で入力したけど半角です

**デフォルトの名無しさん** · 2016/11/11(金) 12:09:58.95

訂正
my $str = "aaa&＃12345;bbb&ccc";
という文字列があって
&＃以外の&を＆amp;に置換するやり方は？

＃はここでは全角で入力したけど半角です

**デフォルトの名無しさん** · 2016/11/11(金) 12:42:23.87

昨日の知能に問題がある人か

**デフォルトの名無しさん** · 2016/11/11(金) 12:49:30.58

s/&(?!#)/＆amp;/g

(?!...) 否定先読み

**デフォルトの名無しさん** · 2016/11/11(金) 17:35:35.83

こういう時日本語は全角文字を使えて便利だね
海外の人は&や#が入力できない時苦労しそう

**デフォルトの名無しさん** · 2016/11/11(金) 17:40:50.55

文字参照で書けばどうか？
s/&(?!#)/&/g

**デフォルトの名無しさん** · 2016/11/11(金) 23:23:43.62

できました
それとこの文字列で
my $str = "＆amp;＆amp;＆am";
それとこの文字列で＆amp;でない＆（この場合一番後ろの＆）を＆amp;に置換するには
どうすればいいんでしょうか？

**デフォルトの名無しさん** · 2016/11/11(金) 23:38:03.46

それも否定先読みじゃないの
同じようにやってごらん

**デフォルトの名無しさん** · 2016/12/07(水) 13:14:37.83

すみません教えてください。
DBD::CSVというのは
標準モジュールに含まれるのでしょうか？

**デフォルトの名無しさん** · 2016/12/07(水) 15:08:45.45

そもそもDBIが標準モジュールではない

**デフォルトの名無しさん** · 2016/12/07(水) 15:12:26.59

>>517
http://perldoc.perl.org/perlmodlib.html
Perl の標準モジュールではないが
Active Perl のようにバンドルされているディストリもある

**デフォルトの名無しさん** · 2016/12/07(水) 15:13:12.93

>>518
ああ、DBIは標準モジュールじゃないんですか。
ありがとうございました。

**デフォルトの名無しさん** · 2016/12/07(水) 15:18:54.39

>>519
なるほど納得です。
開発環境がAcrivePerlで、libに入ってるモジュールは標準と思ってました。
ありがとうございました。

**デフォルトの名無しさん** · 2016/12/10(土) 20:16:28.52

perlの乱数生成器の内部状態を保存するにはどうしたらいいですか
seedだけ保存しても100万回 rand を呼んだところで中断したら再開するときまた100万回呼ばないとダメですよね

**デフォルトの名無しさん** · 2016/12/10(土) 20:34:37.07

そもそもrandはOS依存なので諦めてください。

**デフォルトの名無しさん** · 2016/12/14(水) 23:50:40.69

と言うか動作の保証が求められる乱数みたいなのはオブジェクトごとに専用で実装する

**デフォルトの名無しさん** · 2016/12/15(木) 13:10:06.97

乱数用のモジュール使うしかないんだろうけど有名どころの Math::Random::MT は状態保存はできないみたいだな
pure perl実装の方は無理矢理シリアライズすればできそうだけど

**デフォルトの名無しさん** · 2016/12/15(木) 15:50:25.81

自分で書いても3分以内に全部かけそうだけどな

**デフォルトの名無しさん** · 2016/12/16(金) 20:29:42.48

再現性が必要な乱数は、一旦作成してファイルに保存して利用する

**デフォルトの名無しさん** · 2016/12/17(土) 00:56:05.87

乱数が無限に必要な場合は円周率で代用する

**デフォルトの名無しさん** · 2016/12/19(月) 00:17:41.32

push pop shift unshiftが未だにどれがどうだったか覚えられません。
毎回ググるのも面倒なのですが、何か覚えるコツみたいなものはありますでしょうか。
ディスプレイに付箋を貼るのは嫌です。

**デフォルトの名無しさん** · 2016/12/19(月) 00:26:18.79

毎回調べろ

**デフォルトの名無しさん** · 2016/12/19(月) 16:34:48.89

あああ、オレも覚えるのに苦労した
だって、アセンブラの push 命令とは伸びる方向が真逆なんだよ

shift はバッチファイルにも同じ命令があるから分かるよね
前にズラす
はい、お次の方、どうぞ、って感じ
朝勤、昼勤、夜勤、って感じ

push は後ろから押す、背中から押す、ケツから押す、とにかく押すんだ
満員電車に乗るとき、押さないでください、押さないでください、って感じ

**デフォルトの名無しさん** · 2016/12/19(月) 18:32:42.82

スマホかどうか判別するには
if(
$ENV{'HTTP_USER_AGENT'} =~ /iPhone/ ||
$ENV{'HTTP_USER_AGENT'} =~ /iPad/ ||
$ENV{'HTTP_USER_AGENT'} =~ /iPod/ ||
$ENV{'HTTP_USER_AGENT''} =~ /Android/
){
print "スマホだよ";
}

これでいいんですか？