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/

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

【本】
初めてのPerl 第6版（リャマ）[2012年07月発行]
http://www.oreilly.co.jp/books/9784873115672/

続・初めてのPerl 改訂第2版 [2013年08月発行]
http://www.oreilly.co.jp/books/9784873116280/

マスタリングPerl [2009年03月発行]
http://www.oreilly.co.jp/books/9784873113975/

もっと自在にサーバを使い倒す業務に役立つPerl [2012年4月11日発売]
http://gihyo.jp/book/2012/978-4-7741-5025-3

モダンPerl入門 [2009/2/10]
http://www.amazon.co.jp/exec/obidos/ASIN/4798119172/secodezine-22/
モダンPerl入門増補改訂版（仮）[2014年1月予定]
http://codezine.jp/book/modernperl2

Perl CPANモジュールガイド [2011/4/8]
http://www.amazon.co.jp/dp/486267108X

【オンラインマニュアル】
最新のドキュメント: http://search.cpan.org/dist/perl/
perldoc.jp: http://perldoc.jp/
perldoc.perl.org: http://perldoc.perl.org/

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

[少し古めの良書]

プログラミングPerl 第3版 VOLUME 1,2（駱駝）[2002年09月発行]
http://www.oreilly.co.jp/books/4873110963/
http://www.oreilly.co.jp/books/4873110971/

Perlクックブック第2版 VOLUME 1,2 [2004年09月発行]
http://www.oreilly.co.jp/books/4873112028/

Perl ベストプラクティス [2006年08月発行]
http://www.oreilly.co.jp/books/4873113008/

Perl Hacks [2007年01月発行]
http://www.oreilly.co.jp/books/9784873113142/

実用 Perlプログラミング第2版 [2006年03月発行]
http://www.oreilly.co.jp/books/487311280X/

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

【日本語、Unicode関連】

Encodeモジュール
http://search.cpan.org/dist/Encode/

第31回　encoding：いつまでもjperlから抜け出せない方に
http://gihyo.jp/dev/serial/01/modern-perl/0031

第32回　Encode：日本語だけ扱えればよいのではなく
http://gihyo.jp/dev/serial/01/modern-perl/0032

perlunifaq - Perl Unicode FAQ
http://perldoc.jp/docs/perl/5.18.1/perlunifaq.pod

perlunicode - Perl における Unicode サポート
http://perldoc.jp/docs/perl/5.12.1/perlunicode.pod

http://www.rwds.net/kuroita/program/Perl_unicode.html

【モジュール】
CPAN.com: http://search.cpan.org/

【Perl環境構築】
plenv
https://github.com/tokuhirom/plenv

cpanm
http://search.cpan.org/~miyagawa/App-cpanminus-1.7001/lib/App/cpanminus.pm
http://perldoc.jp/docs/modules/App-cpanminus-1.7001/lib/App/cpanminus/fatscript.pod

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

#　[Perl 日本語処理の基礎の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。

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

糞スレいくつも立ててんじゃねーよ
いい加減にしろ

http://toro.2ch.net/test/read.cgi/tech/1392639772/

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

■推移
ttp://www.tiobe.com/index.php/content/paperinfo/tpci/index.html

2013.Dec 1.072%
2014.Jan 0.917%
2014.Feb 0.887%

■推移グラフ
ttp://www.tiobe.com/index.php/content/paperinfo/tpci/Perl.html

■Perlの今後
他言語に対する優位性がほとんどないため、消滅に向かって進んでいる。
近い将来消えるのは確実。

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

TIOBEって日本じゃほとんど聞いたことがないよね？Perlは日本語をちゃんと処理
できる数少ない処理系だから、海外とは状況が違うと思うんだよね

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

自分がほとんど聞いたことがないという無知っぷりを晒しつつ
その前提で語る基地害がPerl厨

**デフォルトの名無しさん** · 2014/02/20(木) 02:48:27.42

乱立してる統計サイトの内の一つで、たいしたサイトじゃない。

http://langpop.com/
こんなサイトもあって、今話題に登ってる言語の項目とか見たら
PHPもPerlも似たりよったり。

こんなもんに一喜一憂するのはアホのする事。
#別に「Perlが落ち目じゃない」と主張するつもりも、毛頭無い。

**デフォルトの名無しさん** · 2014/02/20(木) 03:30:30.50

乱立といえばム板にスレッド乱立させてるPerl厨みたいだな
いい加減迷惑なんだよゴキブリ共
消滅寸前のゴミ言語にこんなにスレッドは必要ない

Perlについて
http://toro.2ch.net/test/read.cgi/tech/1217851121/

【モダン推奨】Perlについての質問箱 50箱目
http://toro.2ch.net/test/read.cgi/tech/1327110999/

Perl初心者スレ（マジレス回答）
http://toro.2ch.net/test/read.cgi/tech/1349538519/

Perlについての罵倒スレ 63箱目
http://toro.2ch.net/test/read.cgi/tech/1392639772/

Perlについての質問箱 63箱目
http://toro.2ch.net/test/read.cgi/tech/1392820583/

**デフォルトの名無しさん** · 2014/02/20(木) 07:42:53.27

WebProgの方で、その活動すれば？
そのスレの内三つは荒しが立てたスレだし、Perlと名前が入るスレ自体も10個しかないけど
向うには両手に余るくらいのスレは乱立してるぞ。

**デフォルトの名無しさん** · 2014/02/20(木) 11:23:00.57

久々の正式なスレ立て乙

個人的には「ミニマルPerl」が俺の目を覚ましてくれた本だなあ
まあ、解ってる人には間違いなく退屈な本だけれども

**デフォルトの名無しさん** · 2014/02/20(木) 16:17:33.48

スレ乱立のうちの1つだから全く乙じゃない
ただの迷惑行為

**デフォルトの名無しさん** · 2014/02/21(金) 00:39:44.03

重複によりこのスレには削除依頼が出されました
↓のスレに移動してください

【誘導】
Perlについての質問箱 63箱目
http://toro.2ch.net/test/read.cgi/tech/1392906213/

**デフォルトの名無しさん** · 2014/02/21(金) 00:46:22.39

【プログラミング自体の経験が無い奴はまずココを読め]】
Perl プログラミング講座: ttp://nyx.pu1.net/

【本】
リャマ: ttp://www.oreilly.co.jp/books/4873112575/
駱駝: ttp://www.oreilly.co.jp/books/4873112869/
Effective Perl: ttp://www.c-r.com/book/detail/888
クックブック: ttp://gihyo.jp/book/2012/978-4-7741-4972-1
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/9784873113425/
Perl Hacks: ttp://www.oreilly.co.jp/books/4873112915/

【オンラインマニュアル】
最新のドキュメント: ttp://blog.livedoor.jp/kumagai_nori/archives/52255109.html
perldoc.jp: ttp://bg.pi-ppi.com/
perldoc.perl.org: ttp://manual.xwd.jp/

**デフォルトの名無しさん** · 2014/02/21(金) 15:41:53.76

例のPHP厨毒の精神異常者がスレを乱立させてから動きがパッタリやんだが、規制食らったのか？
それとも夜に活動が再開されるのか？

**デフォルトの名無しさん** · 2014/02/21(金) 15:48:29.84

乱立させてたのってPHPユーザーなの？

てっきりPerl厨だと思ってたんだけど。
スレ乱立とか頭の悪いことをするのはPerlを選ぶような知能の低いPerl厨くらいしかいないだろ。

**デフォルトの名無しさん** · 2014/02/21(金) 16:10:45.03

php厨()とか妄想をベースに考えるから、事実と整合性が取れなくなって>>17みたいな書き込みをするようになる
というかその不整合からくる違和感に耐えられなくなって書き込んでるって言ったほうが正解か
>>17は自覚がないみたいだけど糖質の疑いがある

**デフォルトの名無しさん** · 2014/02/21(金) 17:14:07.34

自演乙

**デフォルトの名無しさん** · 2014/02/21(金) 17:39:17.06

>>17
糖質も発見が早ければ投薬で治療できるから病院行ってみたら？

**デフォルトの名無しさん** · 2014/02/21(金) 18:43:53.70

自己紹介乙

**デフォルトの名無しさん** · 2014/02/21(金) 19:36:32.84

>>17ってまさか本当に自覚ないのかな。

**デフォルトの名無しさん** · 2014/02/21(金) 19:39:12.82

>>23
>>23

**デフォルトの名無しさん** · 2014/02/21(金) 22:00:12.92

自覚があれば病院行くだろうし
糖質と診断されればネットは控えろと言われるだろうから
こんなところにはいない

**デフォルトの名無しさん** · 2014/02/21(金) 22:18:44.98

罵倒スレのほうが内容にマッチしてるじゃん、何でわざわざ質問箱で立て直したの？

**デフォルトの名無しさん** · 2014/02/22(土) 02:27:43.89

Perl厨にとってはこれが質疑応答なんだよ

**デフォルトの名無しさん** · 2014/02/23(日) 08:57:46.27

朝勃ちんこ

**デフォルトの名無しさん** · 2014/02/24(月) 19:35:06.10

Perl=ちんこ言語

男のちんこをしゃぶれない弱輩には使いこなせない言語

**デフォルトの名無しさん** · 2014/08/22(金) 18:02:07.86

http://www.buzzword.jp/img/face10.png

**デフォルトの名無しさん** · 2014/08/23(土) 00:49:39.55

ぐろ

**デフォルトの名無しさん** · 2014/09/05(金) 22:30:13.20

>>30
グロ

**デフォルトの名無しさん** · 2014/09/05(金) 23:11:47.51

亀頭？

**デフォルトの名無しさん** · 2014/12/11(木) 16:19:01.34

perl 5(v5.16.3)で
http://d.hatena.ne.jp/syohex/20110616/1308237655
を走らせると
BEGIN not safe after errors--compilation aborted at ~/op.pl line 16.
と止まってしまいます。
解決策を教えてください。

**デフォルトの名無しさん** · 2014/12/11(木) 17:08:56.68

>>34
OSは何？

**デフォルトの名無しさん** · 2014/12/13(土) 11:26:51.16

MacOSX1068です

**名無しさん＠そうだ選挙に行こう** · 2014/12/13(土) 13:22:37.60

>>36
mac持ってないから試せないけど、一応これで動くんじゃないかと。
adhocな対応でセキュリティ考えてないから注意してね。

open my $fh, '<', \(my $dmy = `@cmd`) or die "Can't exec @cmd";

**名無しさん＠そうだ選挙に行こう** · 2014/12/13(土) 13:39:32.35

えーん

**デフォルトの名無しさん** · 2015/01/03(土) 02:38:43.41

hage

**デフォルトの名無しさん** · 2015/06/08(月) 23:02:16.28

正規表現で

aaa 99 PPP
iii 87 XYZ
uuu 32 XXX

の PPP以降と XYZ以降と XXX以降を取り出すのはどうすれば良いでしょうか？
aaa iii uuu が半角の文字 99 87 32 が数字である事は保証されていますが
PPP XYZ XXX に至るまで半角スペース、もしくは全角スペースがいくつあるかは保証されておらず
substr 等で切りだす事はできません。わかる方宜しくお願いします。

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

文章が不透明だから分からなくなる。(誰にも分からない)。
正規表現は完璧に仕様を出さないと書けない。出せば単にそれを書くだけ。

行頭は半角文字列である → ^[a-z]
その後に半角スペースがある → \ (←見えないが半角スペース)
その後に2桁の数値がある。 → [0-9]{2}
その後に一文字以上の半角スペースと全角スペースが不定数混在する → ([\　\ ])+
その後に大文字が3つある → [A-Z]{3}
以降、行末まで。(取り出し対象文字列) → .*$

まぁ辞書やないんやけどな。ここは。

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

あ、行頭は3文字か
^([a-z]{3})

**デフォルトの名無しさん** · 2015/09/30(水) 22:23:35.50

ＵＲＬに？記号が２つある場合のデータの取得について
たとえばhttp://○○○.com/pagejump.cgi?http://△△△.com/disp.cgi?mode=testのよう？が２つある場合
$ENV{'QUERY_STRING'}だとhttp://△△△.com/disp.cgiまでしか取得できなくて?mode=testの部分が取得できないんですけど
フルに取得できるにはどうしたらいいんですか？

**デフォルトの名無しさん** · 2015/10/01(木) 08:31:04.47

フル？
「http://○○○.com/pagejump.cgi?http://△△△.com/disp.cgi?mode=test 」の場合、
query文字列は、「http://△△△.com/disp.cgi?mode=test」　だから、それが取れれば
十分なのでは？

その中の一部を取り出したいなら自分で好きに取り出せばいい

44 · 2015/10/01(木) 13:19:49.64

スマヌ質問内容理解してなかった
だがPerl関係なくね？

**デフォルトの名無しさん** · 2015/10/02(金) 00:15:42.88

>>43
本当にクライアントが
http://○○○.com/pagejump.cgi?http://△△△.com/disp.cgi?mode=test
を送ったのなら、それが原因だと思う。
URL の各部分は適切にエスケープされなければならない。
Perl でやるならこうだ。

use URI;
use URI::Escape;

$u = URI->new("http://○○○.com/pagejump.cgi");
$u->query( uri_escape("http://△△△.com/disp.cgi?mode=test"));

# クライアントに適切なエスケープを期待出来ないなら……まあ、がんばってくれ。

**デフォルトの名無しさん** · 2015/10/02(金) 03:53:10.85

>>40-42
これで一致した、次の文字から、行末までを取得する
^([a-z]{3})([\　\ ])+[0-9]{2}([\　\ ])+

半角・全角スペースは、「aaa○99○PPP」
○の所にしか入らないのだな？
つまり、各トークンの中には、入らないのだな？

それなら、全行のすべての全角スペースを、
半角スペースに置換して、その後、
連続した半角スペースを、1つの半角スペースに置換する

そして、8文字目から行末までを、取得する

>>44-46
URLの各部分では、特別に扱う文字が決まっているから、
クエリ文字列部分で、「? =」・日本語などは使えないので、
エスケープする

**デフォルトの名無しさん** · 2015/10/03(土) 06:04:18.38

4ヶ月前にレスに回答(笑)

**デフォルトの名無しさん** · 2015/10/13(火) 20:00:49.41

http://andtokyo.jp
&TOKYO

sub TOKYO {

#だれか面白いルーチン書いて

**デフォルトの名無しさん** · 2015/11/08(日) 01:17:27.81

趣味と勉強を兼ねてcgi使ったホームページを作ってるんだが

セッションって格納した値は、同じルーチン内でしか使えないの？
格納したセッションをLocationでとんだ先で取得したいんだけど
何かと組み合わせないとそういうのできないのかな

uy ◆Qawu9.2l1E · 2015/11/08(日) 02:42:11.75

暗い趣味

**デフォルトの名無しさん** · 2015/11/20(金) 13:59:09.99

test

**バイキンマン** · 2015/11/20(金) 14:01:31.29

プログラム板でもやっぱそうか・・・・・

バグ発見！

名前欄に0と英数字で入力すると出力されないバグ！

変数の文字の長さで入力を判定して出力させれば

バグは治る！

すぐに対処を申請します！

**デフォルトの名無しさん** · 2015/11/21(土) 21:10:33.25

>>50
セッションって？

**デフォルトの名無しさん** · 2015/11/21(土) 21:12:29.73

あっ、2週間前のレスだったすまん

**デフォルトの名無しさん** · 2015/11/23(月) 21:01:14.60

**デフォルトの名無しさん** · 2015/11/23(月) 21:01:48.81

質問です。
#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $ua = LWP::UserAgent->new;
$ua->timeout('7');

my $req = POST('http://yahoo.co.jp');

my $res = $ua->request($req);

print $res->content;

のようにすると文字化けします。文字コードの指定方法も分からず困っております
だれかおしえてくだあさい

**デフォルトの名無しさん** · 2015/11/24(火) 00:50:23.60

もらった文字列と、表示されている文字の、
文字コードが異なっているのだろう

文字を表示しているソフトの、文字コードを変えれば？
たぶん環境変数か設定項目にある

文字を表示しているソフトは、何を使っているの？

**デフォルトの名無しさん** · 2015/11/24(火) 00:53:35.74

>>57
文字化けしてないよ

**デフォルトの名無しさん** · 2015/11/24(火) 00:56:04.50

yahoo.co.jpは301 Moved Permanently だけど、move先を指定しても文字化けはない

**デフォルトの名無しさん** · 2015/11/29(日) 01:33:56.66

win10の64bit版でperl32bit版動くかな？
ちなみにwin7の64bitではperl32動いてます

**デフォルトの名無しさん** · 2015/11/29(日) 03:12:21.07

もう１個のスレのほうがメインみたいなのでそっちで聞いてきます

**デフォルトの名無しさん** · 2016/02/12(金) 18:03:25.55

ヒアドキュメントで表示は
print <<"EOS";
（中略）
EOS
だけど
これをファイルに書き込むにはどうしたらいいんですか？

**デフォルトの名無しさん** · 2016/02/13(土) 12:32:20.94

print $fh <<"EOS";
中身
EOS

**デフォルトの名無しさん** · 2016/02/14(日) 03:31:58.89

別解として
perl script.pl > file.txt

**デフォルトの名無しさん** · 2016/02/14(日) 18:40:21.30

もしかして、Windowsのスタート→プログラム→アクセサリ→メモ帳
を実行して
print <<"EOS";
（中略）
EOS
を打ちこみ、メモ帳のメニューのファイル→名前を付けて保存
のほうを知りたかったのですか？

**デフォルトの名無しさん** · 2016/02/16(火) 07:29:00.22

いきなりだけどPerlのクラスの仕組み（かなり手抜き）

+ JavaScript の質問用スレッド vol.128 +©2ch.net
http://peace.2ch.net/test/read.cgi/hp/1454390682/401- のJavaScriptのthisの話の余談

大雑把に言うとPerlのクラス（オブジェクト）はハッシュに毛が生えたもの

※この段階ではクラスではない。ただのハッシュを返すnew関数とそれを入れたKlassパッケージ
package Klass;
sub new { return {a=>1, b=>2 } }
sub foo {}

Perlにはメソッドというものはない。全て関数。
コンストラクタ（一般的にnewという名前にする）もただの関数。

Perlではクラスやオブジェクトはこのようにして呼び出す。
my $obj = Klass->new();
$obj->foo();

ここで問題がある。$obj->foo()は、Klass::foo()を呼び出すことになるが、
$obj（ただのハッシュ）からどうやってKlass::foo()であることを知るのか？

ただのハッシュを返しているだけのnew関数にはそれは無理なので
ただのハッシュに毛を生やす。

sub new { return bless({a=>1, b=>2 }, 'Klass') }

これでただのハッシュじゃなくてKlassという情報がくっついたハッシュになった。
これで$obj->foo()はKlass::foo()を呼び出せる。

**デフォルトの名無しさん** · 2016/02/16(火) 07:29:53.95

ここからが面白くて「アローの左側は関数の第一引数になる」というルールを追加する。
そうすると、Klass->new() という呼び出しは、 new('Klass') 相当になることがわかる。

ということで、newの第一引数にはクラスの文字列が入ってくるのでそれを使える。
sub new { my $class = shift; return bless({a=>1, b=>2 }, $class }

さらに、$obj->foo() の呼出も同じ。 foo($obj) 相当になる。
なので、sub foo { my $self = shift; } の$selfにはnewの戻り値である
毛が生えたハッシュ、つまりオブジェクト自身（他の言語のthis相当）が入ってくることになる。

このようにアローの左側が第一引数になる。という挙動は他の言語でも一緒で
JavaやC++は内部的にそれを行ってるだけ。

そしてJavaScriptでも.（ドット）の左側が第一引数になると考えると、
JavaScriptのthisがよくわからんという問題も簡単に理解できるはず。

JavaScriptのthisの話は元スレへどうぞ

**デフォルトの名無しさん** · 2016/02/16(火) 10:39:05.36

面白いというか、みんな知ってると思う

**デフォルトの名無しさん** · 2016/02/17(水) 00:31:54.19

うん。そしてそれが有用ならもっと使われているはずだが、現実はあまり使われていない。
コードが実行時に生成されるようなダイナミックなものはデバッグ、テスト、保守がしにくい。

**デフォルトの名無しさん** · 2016/02/17(水) 00:40:54.86

>>70
何の話してるのお前？

**デフォルトの名無しさん** · 2016/02/19(金) 00:01:04.65

文字列の/*と*/で囲まれた部分と/*と*/に色をつけたい

例えば$str="/*abcdef*/";の場合は
$str =~ s/\/\*/\/\*/g;
$str =~ s/\*\//\*\/<\/font>/g;でできましたが

$str="/*//////abcdef/////*/";の場合はうまくできませんでした。
どうすればうまくいくのでしょうか？

**デフォルトの名無しさん** · 2016/02/19(金) 01:43:09.22

＄ｓｔｒ　＝￣　ｓ｛（／￥＊．＊？￥＊／）｝｛＜ｆｏｎｔ　ｃｏｌｏｒ＝”ｇｒｅｅｎ”＞＄１＜／ｆｏｎｔ＞｝ｇ；

**デフォルトの名無しさん** · 2016/02/22(月) 17:33:02.93

my $data = {
'data1' => [1,2,3],
'data2' => [4,5,6],
'data3' => [7,8,9]
};

上のような配列のハッシュで
ハッシュそれぞれの0番目、1番目、2番目のデータを
取り出したい場合どうすればいいのでしょうか

for (my $i = 0; $i < 3; $i++) {

print $data->{"data1"}[$i],"\n";
print $data->{"data2"}[$i],"\n";
print $data->{"data3"}[$i],"\n";

}

**デフォルトの名無しさん** · 2016/02/22(月) 22:57:33.32

それで合ってるよ。
http://perldoc.jp/pod/perldsc
を読みなさい。
$data->{

**デフォルトの名無しさん** · 2016/02/22(月) 23:01:42.17

ごめん、ちゃんと書いたのに何かアクシデントがあったようだ。もう一回送るよ。

それで合ってるよ。
http://perldoc.jp/pod/perldsc
を読みなさい。
$data->{"data1"}->[$i]
が正式な書き方だが (配列|ハッシュ)要素の参照が連続していれば間の矢印を省略してもいい。
個人的には、リファレンスだということを意識していたいから省略しないけどね。

**デフォルトの名無しさん** · 2016/02/23(火) 03:28:09.20

シングルクォートもダブルクォートも要らねぇ。
my $data = {
data1 => [1,2,3],
data2 => [4,5,6],
data3 => [7,8,9]
};

print $data->{data1}[$i],"\n";

74 · 2016/02/23(火) 09:55:37.41

>>75-77
勉強になりました。
ありがとうございます。

**デフォルトの名無しさん** · 2016/02/23(火) 10:27:03.85

Web::Scraperでスクレイピングしているのですが
サンプルでは
use YAML;
warn Dump $res;
という書き方でこの方法だとデータの構造がよくわからないのですが

Dump何をつかっているのですか？
Ubuntu14.04の64bitを使っています。

79 · 2016/02/23(火) 11:04:41.58

>>79
データの構造はData::Dumperをイントールしたらわかるようになりました。
すみません。

**デフォルトの名無しさん** · 2016/02/24(水) 18:07:14.97

print $res->{list}[1]->{link}[0]->{url},"\n";
print $res->{list}[1]->{link}[0]->{title},"\n";

print $res->{list}[1]->{link}[1]->{url},"\n";
print $res->{list}[1]->{link}[1]->{title},"\n";

こういったデータをforeahで出力したい場合
？？？にはどのようにかけばいいのでしょうか

foreah my $i（？？？) {
print $i->{url};
print $i->{title};
}

**デフォルトの名無しさん** · 2016/02/24(水) 19:01:01.43

>>81
なんで同じのが2書いあるんだよ

**デフォルトの名無しさん** · 2016/02/24(水) 22:23:15.99

>>81
my $links = $res->{list}[1]{link};
for my $link ( @$links ) {
　　say $link->{$_} for qw/url title/;
}

**デフォルトの名無しさん** · 2016/02/24(水) 22:43:39.56

>>83
say forの行が気持ち悪い。やり直し

**デフォルトの名無しさん** · 2016/02/24(水) 22:47:52.27

>>84
やり直し（ｷﾘｯ
じゃなくて自分ならこうするというのを示せよｗ

81 · 2016/02/25(木) 09:33:24.21

>>83
ありがとうございました。

一度変数に保存してからすればよかったのですね。
my $links = $res->{list}[1]{link};

for my $link ( $res->{list}[1]{link}　) {
こういう書き方をしていてリストにするにはどうしたらいいのか
わからないので質問させていただきました。

たいへん勉強になりましたありがとうございました。

**デフォルトの名無しさん** · 2016/02/25(木) 23:12:11.74

>>86
デリファレンスは一度代入しなくてもできるけどちょっとわかりにくいかなって
for my $link ( @{ $res->{list}[1]{link} } ) {

新しい書き方だとこんなのもあったり(postfix dereferencing)
$res->{list}[1]{link}->@*

**デフォルトの名無しさん** · 2016/02/26(金) 12:14:26.93

1位は「Python」、プログラミング言語別の平均年収ランキングが発表
http://www.mdn.co.jp/di/newstopics/44248/

2位には「Perl」（平均年収633万円）、3位には「Ruby」（平均年収606万円）がランクインした。

**デフォルトの名無しさん** · 2016/02/27(土) 00:21:51.17

>>67-68
超亀レスですがありがとうございます、勉強になりました！

**デフォルトの名無しさん** · 2016/02/27(土) 00:49:08.38

my $date = '平成28年2月26日18:55';
my $week = '金';

$date =~ s/日/日 $week曜日 /;

print $date;
をすると文字化けするのですが原因がわかりません。

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

環境とか文字コードは

**デフォルトの名無しさん** · 2016/02/27(土) 13:36:07.74

さくらのレンタルサーバーのCGIでPerl 5.14.4です。
$weekを削除すると文字化けはおこりません。

別のプログラムではうまく動いているのですが

92 · 2016/02/27(土) 14:09:58.43

$week\xe6\x9b\x9c\xe6\x97\xa5になっているみたい

プログラム内に入力している日本語がprint表示するときにくずれるようです。

**デフォルトの名無しさん** · 2016/02/27(土) 14:23:16.95

${week曜日}
${week}曜日

＞プログラム内に入力している日本語がprint表示するときにくずれる
やっぱutf8フラグかなあ…

92 · 2016/02/27(土) 14:55:51.07

すみませんプログラムミスでした。

**デフォルトの名無しさん** · 2016/03/05(土) 17:24:53.21

日付で教えて下さい
1/23 12:34
を西暦をくっつけて
2016/1/23 12:34に変換したいのですが

例えば未来の日時の場合は
5/1 12:34
を2015/5/1 12:34と１年引いた年にしたいのですが
下のプログラムでは
2015/05/02 06:45:10になります
年の引き算はどうすればいいのでしょうか

use strict;
use warnings;
use 5.010;

use Time::Piece;
use Time::Seconds;

my $t = localtime;
my $year = $t->year;

my $str = "1/23 12:34";

my $date = Time::Piece->strptime("$year/$str", '%Y/%m/%d %H:%M');

if ($t < $date) {
$date -= ONE_YEAR;
}

say $t->strftime('%Y-%m-%d %H:%M:%S');
say $date->strftime('%Y-%m-%d %H:%M:%S');

**デフォルトの名無しさん** · 2016/03/05(土) 17:32:45.69

>>96
いや、年の引き算って言っても一年は365日とは
限らないんだから、仕様を決めないとだめでしょ？

例えば2月29日の1年前は何日なのか？っていう。

**デフォルトの名無しさん** · 2016/03/06(日) 18:03:04.50

$str =

**デフォルトの名無しさん** · 2016/03/07(月) 00:42:40.54

>>96
年月日に分けたのち、年を -1 する。

**デフォルトの名無しさん** · 2016/03/07(月) 06:16:56.64

だからそうすると2月29日が出来てしまうって言ってるわけ

**デフォルトの名無しさん** · 2016/03/07(月) 21:18:09.27

pythonのスクリプトの頭に、use strict;って書いた。頭いかれてきたｗ

**デフォルトの名無しさん** · 2016/03/07(月) 23:50:19.65

my($year,$month,$day,$hour,$min) = (localtime)[5,4,3,2,1];
my $str = "1/23 12:34";
my($strmonth,$strday,$strhour,$strmin) = $str =~ m|([0-9]+)/([0-9]+) ([0-9]+):([0-9]+)|;
if (
　　sprintf('%02d%02d%02d%02d',$strmonth,$strday,$strhour,$strmin)
　　gt
　　sprintf('%02d%02d%02d%02d',$month+1,$day,$hour,$min)
) {
　　printf("%04d/%02d/%02d %02d:%02d\n",1900+$year-1,$strmonth,$strday,$strhour,$strmin);
}
else {
　　printf("%04d/%02d/%02d %02d:%02d\n",1900+$year,$strmonth,$strday,$strhour,$strmin);
}
# 基本に忠実に。応用はそれから

**デフォルトの名無しさん** · 2016/03/08(火) 00:11:41.92

>>102
$month -= 2;
my $str = "2/29 12:34";
したら、2015/02/29って答が出るコードなんぞ貼るなや

元の質問者のコードに、
ふつうに$obj->is_leap_yearの判定加えて、
2/29跨ぎなら、LEAP_YEAR
引けばいいだけだろ。

**デフォルトの名無しさん** · 2016/03/09(水) 00:16:20.50

この場合は 2015/02/29 が欲しい答え

**デフォルトの名無しさん** · 2016/03/09(水) 05:51:47.62

バギーなコードが眼に見える様だ

**デフォルトの名無しさん** · 2016/03/10(木) 00:41:03.49

要件にない仕様を自己満足で追加してはいけない
この件はTime::Pieceだとうまくこなせない問題
融通がきかないのがオレオブジェクトのつらいところだ

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

Time::Piece関係ねーだろ。
頭悪いな。

**デフォルトの名無しさん** · 2016/03/13(日) 00:11:27.55

localtimeとTimelocalは次スレのテンプレに追加するか
同じ質問が繰り返されてみんな同じところではまるからなあ

**デフォルトの名無しさん** · 2016/03/17(木) 15:49:56.51

クッキーへの書き込み処理での質問

エラーメッセージを取得処理
print "Content-type:text/html\n";

if(エラー数が0の場合){

投稿データをクッキーに書き込む処理

}

print "\n";

エラーメッセージの表示処理

というようにエラーメッセージの取得と表示の間に
print "Content-type:text/html\n";print "\n";を挟む形になってしまうので
これらをまとめてサブルーチン化したくてもできません
こういう場合でもうまくサブルーチン化できる方法を教えてください

**デフォルトの名無しさん** · 2016/03/17(木) 17:41:21.64

エラーメッセージの出力時にContent-typeから出力すればいいのでは

**デフォルトの名無しさん** · 2016/03/17(木) 18:09:04.11

>>109
そのためにCGI.pmなどのライブラリや
各種フレームワークがある。

**デフォルトの名無しさん** · 2016/03/19(土) 22:54:54.53

my $kukkii =

**デフォルトの名無しさん** · 2016/03/20(日) 14:44:26.98

'';

**デフォルトの名無しさん** · 2016/03/20(日) 23:05:38.19

何をしたかったのかよくわからないけど、せめて cookie と書いてほしかった。

**デフォルトの名無しさん** · 2016/03/21(月) 23:09:59.48

住所を入れる変数でさ
$adoresu = ・・・
みたいな名前つかうヤツ、いるよね
英語なのか何なのか、よくワカラン

**デフォルトの名無しさん** · 2016/03/23(水) 01:56:25.05

$message = エラーメッセージを取得;
print "Content-type:text/html\n";
if(エラー数が0の場合){
　　投稿データをクッキーに書き込む処理
}
print "\n";
print $message; # エラーメッセージの表示処理

**デフォルトの名無しさん** · 2016/03/23(水) 21:53:51.11

my $str = "あああabcあああcdefghあああ123456";

この文字列で半角英数字の部分をＡＡＡに置換するにはどうすればいいですか？

あああＡＡＡあああＡＡＡあああＡＡＡになればOKです

**デフォルトの名無しさん** · 2016/03/23(水) 23:01:13.44

ここで聞くよりも
http://perldoc.jp/pod/perlrequick
を読みなさい。その方が早くて正確です。

**デフォルトの名無しさん** · 2016/03/24(木) 00:07:44.52

my $str = "あああabcあああcdefghあああ123456";
print $str, "\n";
$str =~ s/[A-Za-z0-9]+/ＡＡＡ/g;
print $str, "\n";

**デフォルトの名無しさん** · 2016/03/25(金) 01:11:07.68

ありがとうございます。おかげで宿題を提出することができました。
リンク先のページを読んでも何が何だかさっぱり分かりませんでした。

**デフォルトの名無しさん** · 2016/03/27(日) 01:06:33.94

パールでまた問題に直面したら話題を提供してあげますので楽しみにしてるんだぞ。

**デフォルトの名無しさん** · 2016/03/27(日) 15:47:58.07

ありがとうございます。

**デフォルトの名無しさん** · 2016/04/14(木) 19:01:51.27

ファイル演算子の-eと-fの違いは？
ファイルが存在するかどうかはどっちを使っても良いのですか？

**デフォルトの名無しさん** · 2016/04/14(木) 19:46:27.77

すみません。初めてperlを使うのですが、perlでQRコードを生成したいです。

ブラウザからアクセスしてQRコードの標準出力は出来たのですが、ファイルを生成する方法がわかりません。
以下のソースを実行すると、pngが生成されるのですが、生成されたpngをダブルクリックしても開けなくなります。

use GD::Barcode::QRcode;
binmode STDOUT;

my $qr = GD::Barcode::QRcode->new('test',{Ecc=>M, Version=>5, ModuleSize=>3})->plot();

open my $fh, '>', 'qr.png' or die;
print $fh $qr->png;
close $fh;

もしお分かりの方がいらっしゃったらお願いします。

**デフォルトの名無しさん** · 2016/04/14(木) 20:56:59.29

>>123
-fは指定されたものが通常ファイルで存在した場合のみ真
-eは同名のディレクトリやシンボリックリンクでも真

>>124
openの次の行にbinmode $fh;

**124** · 2016/04/14(木) 21:09:45.25

>>125
ありがとうございました。
初心者なもので、もう丸一日困っておりました。

**デフォルトの名無しさん** · 2016/04/24(日) 15:13:08.67

centos、zshの環境で、plenvを使っていて、apacheでcgiを動かそうと考えています。

/var/www/html　直下で #!/usr/bin/perl のcgiが動くところまではブラウザで確認できました。
あとはplenvの下記初期設定をするだけ、と思ったところで詰まりました。

export PATH=~/.plenv/bin:$PATH
eval "$(plenv init -)"

apacheの自動起動では ..zshrc を指定するところがありません。
とりあえず下記で、plenvでインストールしたパスだけは設定したのですが、
eval "$(plenv init -)"　の中でどんな処理がされているのかわかりません。　

# echo "PATH=/home/centos/.plenv/shims:$PATH" >> /etc/sysconfig/httpd
# /etc/init.d/httpd restart

eval "$(plenv init -)"　ではどんな処理がされているのでしょうか？
また、plenvの環境は、パスさえ設定しておけば、特に支障はないのでしょうか？

**デフォルトの名無しさん** · 2016/04/24(日) 16:10:25.44

最後の行だけ。
普通に、echo $(plenv init -)すれば、標準出力に内容が出ます。

**デフォルトの名無しさん** · 2016/04/24(日) 17:03:31.20

>>127
そーすこーどにぜんぶかいてあります

**127** · 2016/04/24(日) 23:45:45.94

>>128

なるほど！
評価してるだけだから、echoで出力できますね。
気づきませんでしたありがとうございます。

**デフォルトの名無しさん** · 2016/04/25(月) 02:23:47.24

echoしなくてもplenv init - だけでいいよｗ
もっとも、それ見た後は

そーすこーどみれだけどなｗ

**デフォルトの名無しさん** · 2016/04/27(水) 09:59:00.96

openで開いたファイルをcloseで閉じる前にexitなのでプログラム強制終了した場合
自動的に閉じられてますか？
何か問題ありますか？

**デフォルトの名無しさん** · 2016/04/27(水) 13:09:15.67

closeされることが保証されるわけではないが、普通のOSなら
OSがcloseを発行する。何を問題とみなすかによるが普通は問題ない

**デフォルトの名無しさん** · 2016/04/28(木) 01:35:18.90

cgiなら問題ないけどmod_perlとかだとファイルディスクリプタ消費したままになる

**デフォルトの名無しさん** · 2016/04/28(木) 02:09:41.77

exit ではなく die を使うという方法もある。もちろん eval ブロックの中で。

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

END {
　　close(FILE);
}
もしくは
open(my $file,'file.txt');
だな

**デフォルトの名無しさん** · 2016/04/29(金) 19:53:28.89

tmp.datをlog.datにrenameするときrename失敗したら成功するまで繰り返す処理をしたい
このようにrename成功したらループを抜けるというやり方でもいいんでしょうか？
他にいいやり方はありますか？

for($n=0;$n<=100;$n++){

$rename_seikou = rename("tmp.dat","log.dat");

if($rename_seikou==1){

last;

}

}

**デフォルトの名無しさん** · 2016/04/29(金) 20:40:17.89

本当にそういう繰り返しをしたいのなら sleep を入れた方がいいと思う。
それから、失敗した時は原因を確認した方がいいと思う。つまり、こんな感じ。

use Errno 'EBUSY';
if ( rename( $src,$dest)){
# 成功
} elsif ( $! eq EBUSY){
# 多分、別のプロセスで使用中。少し待てば成功するかも。
} else {
# 待っても無駄だろう。
die( $!);
}

**デフォルトの名無しさん** · 2016/04/29(金) 20:50:54.01

ごめん、間違えた。
$! eq EBUSY
じゃなくて
$! == EBUSY

**デフォルトの名無しさん** · 2016/04/30(土) 11:00:17.55

正規表現での置換について質問です。

<ul>
<li>あ</li>
<li>あ</li>
<li>あ</li>
<li>あ</li>
<li>あ</li>
</ul>

上の最後の<li>だけ<li class="a">に置換したです。
1時間以上考えてますができません。

**140** · 2016/04/30(土) 11:01:02.01

間違えました。

置換したです→置換したいです

**デフォルトの名無しさん** · 2016/04/30(土) 11:11:29.23

正規表現は少しでもほんの条件が不明瞭であれば誰にも書くことはできない

**140** · 2016/04/30(土) 11:14:44.17

自己解決しました。

$a =~ s/(^.*)\<li\>(.*$)/$1\<li class\=\"a\"\>$2/s;

**140** · 2016/04/30(土) 11:39:47.11

すみません。
新たな問題が発生しました。

<ul>
<li>あ</li>
<li>あ</li>
<li>あ</li>
<li>あ</li>
<li>あ</li>
</ul>
<ul>
<li>い</li>
<li>い</li>
<li>い</li>
<li>い</li>
<li>い</li>
</ul>

上記の文字列が$aに入っている場合で、各<ul>の最後の<li>だけ<li class="a">に置換したいです。

**デフォルトの名無しさん** · 2016/04/30(土) 12:40:49.01

木構造のものを正規表現で置換するのは無理

JavaScriptのjQuery の、addClass, removeClass, toggleClass などを使う

それか、HTMLをパースする、ライブラリを探す

**デフォルトの名無しさん** · 2016/04/30(土) 15:45:10.24

否定の文字クラス使えば、普通に最短マッチで出来る事だろ。
s{<li>([^>]*?</li>¥s+</ul>)}{<li class="a">$1}sg

パースするライブラリ使えっつーのは同意だがな

**デフォルトの名無しさん** · 2016/04/30(土) 15:46:02.92

ああ、否定の文字クラス使わんでも出来るわ。
アホだ俺

**140** · 2016/05/01(日) 14:05:59.88

>>145
ツリー構造というよりまさにあの並びの時だけの正規表現でいいんでPerlでやりたいんです

>>146
ありがとうございます
$a =~ s/\<li\>([^\>]*?\<\/li\>\s+\<\/ul\>)/\<li class\=\"a\"\>$1/sg;
では動きませんでした

**デフォルトの名無しさん** · 2016/05/01(日) 16:22:48.05

そのコードそのまま（円マークをバックスラッシュにして）
動かしたから、何らかの置換↓が得られたけど？
<ul>
<li>あ</li>
<li>あ</li>
<li>あ</li>
<li>あ</li>
<li class="a">あ</li>
</ul>
<ul>
<li>い</li>
<li>い</li>
<li>い</li>
<li>い</li>
<li class="a">い</li>
</ul>

無意味なエスケープは、コードの邪魔になるだけだからしない方がいいよ。
置換 s/// の右辺は正規表現ですらない（よってエスケープの必要無い）し。

**デフォルトの名無しさん** · 2016/05/03(火) 07:34:49.17

\現\実　！－＝≡ヘ(* - -)ノ

**デフォルトの名無しさん** · 2016/05/03(火) 22:19:44.35

/[0-9]{$num}/

のような量子数は変数にできないんでしょうか？(^^?

**デフォルトの名無しさん** · 2016/05/04(水) 01:44:17.76

# 実行してみて
for $num (1..3){
　　$_ = '1' x ($num - 1);
　　print /[0-9]{$num}/ ? 'ok,' : 'not ok,';
　　$_ = '1' x $num;
　　print /[0-9]{$num}/ ? 'ok,' : 'not ok,';
　　$_ = '1' x ($num + 1);
　　print /[0-9]{$num}/ ? 'ok,' : 'not ok,';
　　print "\n";
}

**デフォルトの名無しさん** · 2016/05/04(水) 17:17:13.34

>>152
ありがとうございます。
変数は使えたんですね！

演算子が使えないようでした…申し訳ありません。

/[0-9]{$num+1}/
のような使い方がだめでした orz

**デフォルトの名無しさん** · 2016/05/04(水) 22:28:29.07

$n = 2;
$pat_qr = $n + 1;
$pat_qr = qr/[0-9]{$pat_qr}/ ;
$pat_ev = eval( sprintf("qr/[0-9]{%d}/",$n+1));
$pat_co = qr/(??{ sprintf("[0-9]{%d}",$n+1) })/ ;
print( $_,"\n") foreach $pat_qr,$pat_ev,$pat_co;

# 個人的には $pat_qr がいいなぁ。eval を使うほどのことじゃないし $pat_co はデバッグしにくい。

**デフォルトの名無しさん** · 2016/05/05(木) 15:23:19.51

# こうですよ
for $num (1..3){
　　$_ = '1' x $num;
　　print /[0-9]{@{[$num+1]}}/ ? 'ok,' : 'not ok,';
　　$_ = '1' x ($num + 1);
　　print /[0-9]{@{[$num+1]}}/ ? 'ok,' : 'not ok,';
　　$_ = '1' x ($num + 2);
　　print /[0-9]{@{[$num+1]}}/ ? 'ok,' : 'not ok,';
　　print "\n";
}

**153** · 2016/05/05(木) 19:10:09.77

>>155
すごーい＼(^^)／
ありがとうございます！

>>154
ありがとうございます！

**153** · 2016/05/05(木) 19:13:26.95

あのあのもう一つ
ファイルハンドルで3行読み込むのを作ってみたのですがうまくいきませんでした…
どうしたらよいのでしょうか…

while ( $line[0..2] = <DATA> ) {
print $line[0];
print $line[1];
print $line[2];
}
__DATA__
なんたら
かんたら
たらのめ

**153** · 2016/05/05(木) 19:19:01.51

ちょっとサンプル省略しすぎてすみません。
":encoding(cp932)"
等で漢字の表示は問題ありませんm(__)m

while ( $line[0] = <DATA> ) {
$line[1] = <DATA>;
$line[2] = <DATA>;
....

のように分解して書くと問題ありません。（DATAは必ず3行一組になります）

一度に、3行読み込む方法があればお教えくださいm(__)m

**デフォルトの名無しさん** · 2016/05/05(木) 21:40:51.68

@line[0..2]
配列スライスのシジルは@

**デフォルトの名無しさん** · 2016/05/05(木) 23:21:34.59

都合よく固定長を前提にはできないだろうから、

# 全部読んじゃって
chomp(@_ = <DATA>);

# 3つづつ処理する
while (@line = splice(@_,0,3)) {
　　print map {"[$_]"} @line;
　　print "\n";
}
__END__
1
2
3
4
5
6
7
8
9

**デフォルトの名無しさん** · 2016/06/01(水) 11:50:03.90

$text = 'hoge"hoge""hoge"huge';

上のような文字列で<～>(タグ内)に囲まれた"だけ

**デフォルトの名無しさん** · 2016/06/01(水) 11:54:16.91

$text = 'hoge"hoge"
"hoge"huge';

上のような文字列(改行されてますが1行です)で<～>(タグ内)に囲まれた"だけ " に置換したいです

s/(<.*?)"(.*?>)/$1"$2/g;

上のように試してみましたが、最初の1つのみ " に置換されるだけです
よろしくお願いします

**162** · 2016/06/01(水) 12:36:41.40

タグの外側だけ置換する方法としては下記がどこかに載っていました

s/((?:\G|>)[^<]*?)"/$1"/g;

タグの内側だけ置換したい場合は>と<を逆にすればいいかと思ったのですができませんでした

**デフォルトの名無しさん** · 2016/06/01(水) 12:56:13.02

>>161-163
$text =~ s{(?<=＆lt;)(.+?)(?=＆gt;)}{ $1 =~ s/＆quot;/"/gr }eg;

**デフォルトの名無しさん** · 2016/06/01(水) 13:07:26.71

>>164
ありがとうございます
やってみましたがエラーになりました
もちろん＆は半角に直しました

**デフォルトの名無しさん** · 2016/06/01(水) 13:32:03.91

どんなエラーか解らないことにはなんとも……
ひょっとして、5.14 以前の Perl を使ってたりする？

**デフォルトの名無しさん** · 2016/06/01(水) 13:44:06.85

>>166
5.8系です
AddHandler cgi-script-debugが使えなくなってデバッグができないんです

この文法チェッカもいつの間にか消えてました
http://homepage2.nifty.com/sophia0/perl.html

**デフォルトの名無しさん** · 2016/06/01(水) 14:04:04.96

teraterm入れてSSH登録してエラーチェックしてみました

Bareword found where operator expected at test.cgi line 7, near "s/"/"/gr"
syntax error at test.cgi line 7, near "s/"/"/gr "
test.cgi had compilation errors.

**デフォルトの名無しさん** · 2016/06/01(水) 14:11:20.95

置換の r オプションは 5.14 からです。従来通り
perl -pe 's{(?<=＆lt;)(.+?)(?=＆gt;)}{ ( $str = $1) =~ s!＆quot;!\"!g ; $str ; }eg'
みたいな感じでどうでしょうか。

**デフォルトの名無しさん** · 2016/06/01(水) 14:17:56.91

>>169
できました！
本当にありがとうございました！
(Perl 5.8.8なのにエラーが出たのは謎ですね)

**デフォルトの名無しさん** · 2016/06/01(水) 20:08:28.85

5.14(新しい) > 5.8(古い)だぞ

**デフォルトの名無しさん** · 2016/06/01(水) 21:17:48.26

そいや5.24でpushやpop,shiiftなどにﾘﾌｧﾚﾝｽを渡したときの
自動ﾃﾞﾘﾌｧﾚﾝｽが止めになったのはなぜ？
折角5.14で入れた機能なのに。

**デフォルトの名無しさん** · 2016/06/01(水) 21:25:33.54

なぜも何も。

もともと「実験的に採用した」って宣言してるし、
失敗でした、って delta に書いてあるし。

**デフォルトの名無しさん** · 2016/06/02(木) 14:00:14.87

perlは、常にunstable ♪
オレの人生もunstable ♫

**デフォルトの名無しさん** · 2016/06/02(木) 14:23:32.77

Windows 7で
tree D: /f > tree_list.txt
これで書き出した物をperlでフルパスに変換したいのですが、
何か良いモジュールなどはありますか？

**デフォルトの名無しさん** · 2016/06/02(木) 16:16:38.49

File::Spec がそうかも。

**デフォルトの名無しさん** · 2016/06/03(金) 02:13:33.36

cmd.exe にまかせるがよろし
dir /s /b D: 2>NUL

**デフォルトの名無しさん** · 2016/06/03(金) 12:58:52.91

>>176
いまいち良い方法が見つからなかった
再帰処理でがりがり頑張ったけど、ものすごい時間が掛かってしまった

>>177
ありがとう
無事いけた
コマンドライン詳しくないから、NULでひかかった
NULの代わりに、list.txtなどにするとサクッと記録された
速度滅茶苦茶早いなー

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

ループの条件を満たしてなくてもredoでループされるんだけど、そうゆうことでいいのかな

**デフォルトの名無しさん** · 2016/06/04(土) 15:25:38.27

そのための redo だから。

http://perldoc.jp/index/function

**デフォルトの名無しさん** · 2016/06/04(土) 16:50:14.92

>redo コマンドは、条件を再評価しないで、ループブロックの始めからもう一度実行を開始します
そうかそうか、これが欲しかった。どうも。

**デフォルトの名無しさん** · 2016/06/08(水) 04:54:48.15

ちょっと相談と言うか、バグの原因が想像つかなくてこまっちんぐなんだけど、

$| = 1;
for(.....){
................
.................
print $x;
}

みたいな感じでいっぱいプリントしてる時、
プロセス実行中は8.00KB(8192B)しか出力されないんだよね。

本来は9.22KB程度出力されるはずで、これはプロセスが終了したら出力される。

**デフォルトの名無しさん** · 2016/06/08(水) 05:03:29.17

ちゃんとcloseを記述したら直りました。

**デフォルトの名無しさん** · 2016/06/08(水) 05:36:30.43

どうしても即時出力したいなら、バッファリングで検索

**デフォルトの名無しさん** · 2016/06/08(水) 15:34:08.08

10GBくらいのCSVで作成された辞書の文字を置換して出力する場合最も適切な方法はどんな感じ？
すぐ思いつくのは下記だけど、膨大な回数HDDにアクセスして大丈夫かと不安になるがバッファリングされるから影響はないかな？

open(IN,"<Wikipedia.txt");
open(OUT,">>test.txt");
while(<IN>){
$_ =~ s/<|>/＜＞/g;
print OUT $_;
}
close OUT;
close IN;

**デフォルトの名無しさん** · 2016/06/08(水) 15:38:30.27

そら最低の理論値でも10GB分HDDから読み出しして10GB分HDDに書き出ししないとな

**デフォルトの名無しさん** · 2016/06/08(水) 15:56:29.67

>>186
単にリードするだけなら10GBは大丈夫だろうけど、
出力のバッファリングが甘いと、何度も書き込みHDDに凄い負担掛かるんじゃないかと思って・・・
因みに、昔は下記みたいにしてた、やたらHDDがガリガリ言ってた気がする
正しい方法はどうするのが良いのかと思ってね・・・

$| = 1;
open(IN,"<Wikipedia.txt");
while(<IN>){
　open(OUT,">>test.txt");
　$_ =~ s/<|>/＜＞/g;
　print OUT $_;
　close OUT;
　print $count++;
　print "\n";
}
close IN;

**デフォルトの名無しさん** · 2016/06/09(木) 08:19:20.98

>>185
環境によるのでもう少し小さいデータと思いついたコードでベンチ取れとしか。
http://perldoc.jp/docs/perl/perlperf.pod

**デフォルトの名無しさん** · 2016/06/09(木) 08:56:02.57

>>185
単純な置換、大きなファイルサイズなら、
perl より sed 使ったほうが速いかもな。

**デフォルトの名無しさん** · 2016/06/12(日) 12:28:41.66

どんな言語で書いても10GBのHDDをアクセスすること自体に変わりはない。
温度が上昇してエラーになるなら、扇風機で冷やしながら実行するとよい。

**デフォルトの名無しさん** · 2016/06/12(日) 13:25:11.80

そうかなー
スクリプトだとなにやられてるんだか分からない印象だけど

**デフォルトの名無しさん** · 2016/06/12(日) 13:26:20.33

そもそも10GBのテキストなんざ、
今の基準で言えば普通よりちょっとデカい程度。

日常的に扱かってる人間からすれば、質問自体が意味不明。

一回こっきりの捨てスクリプトなんだろうから、
検証以前にさっさと書いて終りにすりゃあいい。

**デフォルトの名無しさん** · 2016/06/12(日) 14:32:37.22

でも>>187は毎回やってると流石にHDD痛めそうな気がする
ベストな方法や、やってはならない方法はあるでしょ

**デフォルトの名無しさん** · 2016/06/12(日) 15:01:08.44

ちょっと待って>>187は、論外だろ？
これを含めて、ベスト云々を議論すんなら、
「初歩から教えろ」って言ってるのと変らんぞ？

普通に、>>185でいいじゃん。
>>186とか、>>190とか指摘してる通り、
どうあがこうが、10GBの書き込みは生じるんだから。

**デフォルトの名無しさん** · 2016/06/12(日) 16:03:16.27

まぁ俺は10GB程度のファイル、頻繁にDLしたり削除したりコピーしたり色々してるけどな、ほぼ毎日。

**デフォルトの名無しさん** · 2016/06/12(日) 18:22:13.25

プログラムもだけど$|=1;使って動作確認してたり、
バッファリング無し、バッチ処理で毎晩10GB1行毎の書き込みは流石にまずいんじゃない？

185も$|=1;使ったらどんな動作になるんだろ？

187はコードが見やすくなるからテストでは結構使ってる
そのまま忘れてて大きなファイルを解析させてたりもある
みんな185形式で書いてるの？

**デフォルトの名無しさん** · 2016/06/12(日) 18:23:39.84

速度も考えて最近は配列に貯めてからすることがある
ただWindowsだとすぐout of memoryでる

**デフォルトの名無しさん** · 2016/06/12(日) 18:58:39.76

まあ自分のPCならサブマシンでもメモリ32Gあるし別に・・・って感じだが

**デフォルトの名無しさん** · 2016/06/12(日) 19:00:15.13

でもPerlってメモリの量が異常に増えるんだよね
10MBのデータを読み込んでごにょごにょしてたらなぜかメモリ200MBになってたり
普通にネイティブな言語使ったほうがいいのでは

**デフォルトの名無しさん** · 2016/06/12(日) 21:45:18.08

どんなレス考えても、罵倒しか思い浮ばん。

HDDの負担以前の問題だよ。
open/closeを行数分繰替えすのが、
どれだけ時間の無駄（=マシンに負荷がかかる）か実例貼っとく。

$ perl -le ' sub ps { print `ps ux $$`}; ps ; for( 0 .. 9999999 ){ open my $h, ">>", "test.txt" ; print {$h} "h" } ; ps ;'
USER PID %CPU %MEM VSZ RSS TT STAT STARTED TIME COMMAND
XXXXX 36471 13.2 0.1 2445400 3344 s002 S+ 8:24PM 0:00.16 perl -le sub ps { print `ps ux $$`}; ps ; for( 0 .. 9999999 ){ open my $h, ">>", "test.txt" ; print {$h} "h" } ; ps ;

USER PID %CPU %MEM VSZ RSS TT STAT STARTED TIME COMMAND
XXXXX 36471 22.5 0.0 2445400 1664 s002 S+ 8:24PM 24:21.88 perl -le sub ps { print `ps ux $$`}; ps ; for( 0 .. 9999999 ){ open my $h, ">>", "test.txt" ; print {$h} "h" } ; ps ;

CPU time で24分だけど、実際には、9時半まで処理掛かってる。