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/

**デフォルトの名無しさん** · 2017/02/10(金) 22:29:17.89

ナイスジョーク

**デフォルトの名無しさん** · 2017/02/11(土) 09:59:05.70

まともな学校はcだろ。

**デフォルトの名無しさん** · 2017/02/11(土) 11:05:50.36

実用性を重視するならJava一択

**デフォルトの名無しさん** · 2017/02/11(土) 14:50:19.58

>>631
6出てたのか？
知らなかったわ

**デフォルトの名無しさん** · 2017/02/11(土) 15:18:36.75

>>634
> 実用性を重視するならJava一択
それって言語の実用性じゃなくて
人材的な意味での実用性だよな

つまりJavaは色んな所で使われてる言語だから
Javaできますって言っておけば採用されやすい。
自分が実用性がある人間になりたいならJava一択

**デフォルトの名無しさん** · 2017/02/11(土) 15:23:34.94

いい加減スレチ

**デフォルトの名無しさん** · 2017/02/11(土) 15:50:08.46

言語なんかいくつ修得してもいいんだから、大人しくJava勉強しとけ

**デフォルトの名無しさん** · 2017/02/11(土) 17:33:33.41

何がなんだか仕様に混乱するから3つまでしか習得出来ません
4つめ覚えるとなにかを忘れます

**デフォルトの名無しさん** · 2017/02/11(土) 21:11:41.56

621
> むしろなぜXPを使ってるのか知りたい

動作確認だよ
XPと10で動くならVistaでも7でも8でもでも動く可能性が高いから
いちいち全OSを揃えて動作確認すると
シロウトの趣味でアプリケーション開発するには荷が重すぎる

**デフォルトの名無しさん** · 2017/02/11(土) 22:46:04.81

いちいち全OSで動作させたいと思う理由は何？

サポートが終了しているXPで動作する必要はないし
Vistaも2017年4月までだ。シェアから考えれば切り捨てても十分だし

7と10で動作確認すればいいじゃん

**デフォルトの名無しさん** · 2017/02/11(土) 23:02:42.86

XPはまだ結構現役で残ってるぞ

**デフォルトの名無しさん** · 2017/02/11(土) 23:33:55.67

俺の周りに見たことない

**デフォルトの名無しさん** · 2017/02/13(月) 12:16:27.67

俺の周りでは、いまだにNT3.5.1を使ってる取引先があるのだが。

**デフォルトの名無しさん** · 2017/02/13(月) 18:59:46.87

用途を特定した専用マシンみたいなのは、特にOSを入れ替えずにずっと使うな
測定機器や実験機器の一部とか、何かの制御用とか

ただ、そんなマシンは新しいソフトを入れたりもしないから、
互換性とかどうでもいい世界だけど

**デフォルトの名無しさん** · 2017/02/17(金) 23:51:32.63

以前こちらでお世話になった顔文字のど素人です。

$ perl -p -e 's/(..)/$1 /g;'
123456
↓
12 34 56

恐縮ですが上記の逆(スペースの削除)をご指導願います。
00 06 fc 25 58 50 0a 00 54 92 31 03 49 46 88 d0 c6
　　　　↓
0006fc2558500a0054923103494688d0c6

よろしくお願いいたします _(_^_)_

**デフォルトの名無しさん** · 2017/02/18(土) 00:14:42.65

>>646
s/\s//g

**デフォルトの名無しさん** · 2017/02/18(土) 00:53:08.66

>>646
死んだ方がいいレベル

**デフォルトの名無しさん** · 2017/02/18(土) 00:58:30.39

とにかく学習しようという気がまったく見えないのが凄い

**デフォルトの名無しさん** · 2017/02/18(土) 01:09:34.78

普通1時間以内に学習を完了してそうなものを、10日以上経ってるぞ

**646** · 2017/02/18(土) 08:59:07.57

>>647
ど素人に有難うございました。

**デフォルトの名無しさん** · 2017/02/18(土) 21:00:13.31

だから土曜日に書いたと

**デフォルトの名無しさん** · 2017/02/26(日) 10:31:20.73

active perlで、長いファイル名のあるフォルダに対して readdir すると、
エラーになって止まるんだけど、どうやって回避すればいいんだ

エラーが返るとかじゃなくて実行自体が止まるので、とりあえず読んでみて、
とかが出来ない

**デフォルトの名無しさん** · 2017/02/26(日) 10:39:23.76

windowsのエラーじゃねぇの？
とりあえずevalすれば実行は止まらないと思うけど

**デフォルトの名無しさん** · 2017/02/27(月) 08:34:03.50

>>653
ひょっとして、ファイル名にユニコード文字が混じったりしてない？

**デフォルトの名無しさん** · 2017/02/27(月) 08:44:24.40

readdirのユニコード版なら、こうゆうモジュールもある。

http://search.cpan.org/~xaicron/Win32-Unicode-0.26/lib/Win32/Unicode/Dir.pm

**デフォルトの名無しさん** · 2017/02/27(月) 18:47:01.31

unicodeは入ってない
単に長いだけ

**デフォルトの名無しさん** · 2017/02/27(月) 22:36:40.65

Win32::LongPathは？

**デフォルトの名無しさん** · 2017/02/27(月) 22:51:51.90

それを使うと、既存のreaddir の挙動が変わるの?

**デフォルトの名無しさん** · 2017/02/28(火) 08:31:44.98

>>659
「長い」って何文字なん？260文字以下だと問題ないはず。

**デフォルトの名無しさん** · 2017/02/28(火) 18:54:26.71

それ以上あったので問題があった

**デフォルトの名無しさん** · 2017/03/01(水) 08:44:35.66

Windowsで260文字以上のファイル名を普通に作ろうとすると、
「ファイル名が長すぎる」とエラーが出るが、
ネットワークドライブを使うと、作れてしまうようだ。
ただ、それを実際に使おうとすると、ドツボに嵌るみたいだな。

**デフォルトの名無しさん** · 2017/03/01(水) 21:51:27.16

ファイル名っていうか、パスを含めた長さな

**デフォルトの名無しさん** · 2017/03/05(日) 00:13:47.26

@file = split(/\n/,`dir /s /b *.* 2>NUL`);
な。次スレのテンプレに追加するから。

**デフォルトの名無しさん** · 2017/03/05(日) 15:57:50.73

forkするのOKなら何でもありじゃん

**デフォルトの名無しさん** · 2017/03/08(水) 23:48:39.27

シェルとカーネルを縦横無尽に使いこなすのがPerlプログラミングの醍醐味。

**デフォルトの名無しさん** · 2017/03/09(木) 15:21:10.67

print 1+(2+3);
print (1+2)+3;

この二つの文の違いを使いこなすのが、Perlプログラミングの醍醐味。

**デフォルトの名無しさん** · 2017/03/14(火) 00:58:03.78

awk 由来の 0+ ハックや "". ハックは常識として使いこなすのが、Perlプログラミングのたしなみ。

**デフォルトの名無しさん** · 2017/03/15(水) 23:38:07.63

ハックと言ってる時点で使ってはダメなものだ

**デフォルトの名無しさん** · 2017/03/16(木) 00:17:10.27

工夫できないなら何を使ってもダメ
sub to_s { $_[0].'' }
sub to_i { $_[0]+00 }

**デフォルトの名無しさん** · 2017/03/16(木) 06:54:07.57

>awk 由来の 0+ ハックや "". ハックは
そもそも、常識でないといいたげな、このレスは何?
まともな参考本読めば、最初の方に書いてある。
ハックでもなんでもない

**デフォルトの名無しさん** · 2017/03/20(月) 17:47:23.90

Win-7、Active Perl 5.16です。Unicode文字を含むperlの処理結果を
utf16leで出力しようとしています。下のようにやってみましたが、ダメでした。
出力をバイナリエディタでみると、改行コードが変な風にいじられていました。

binmode STDOUT => ":encoding(utf16le)";
print "ユニコード文字を含むテキスト\n";

色々試した結果、下のスクリプトのようにすると、概ね動くことが解り
ましたが、動かない場合もあります。下の例では、「aaaaa」は出力され
ますが、「bbbbb」は出力されません。どうするのが正しいでしょうか？

use utf8;
binmode STDOUT;
use Encode qw/ encode decode /;

sub wprint{
　foreach(@_){
　　s/\n/\r\n/g;
　　print encode('utf-16-le', $_);
　}
}
wprint "a"x5, "\n";
foreach (1..5){
　wprint "b";
}
wprint "\n";

**デフォルトの名無しさん** · 2017/03/20(月) 19:53:29.20

＞改行コードが変な風にいじられていました
perlではどのOSでも改行をLF(\n, 0x0a)として扱っている
Windowsでは通常出力する際に自動的にLFをCRLFに変換している

0x0a (perlの\n)
0x0a 0x00 (utf16にエンコード)
0x0d 0x0a 0x00 (0x0a を 0x0d 0x0a に変換、正しくは 0x0d 0x00 0x0a 0x00 にしたい)

wprint関数のやり方が上手くいくのは
0x0a (perlの\n)
0x0d 0x0a (s/\n/\r\n/g で置換)
0x0d 0x00 0x0a 0x00 (utf16にエンコードし、自動変換も無効にしているのでこのまま出力される)

＞「bbbbb」は出力されません
様々な事情で特殊変数 @_ の各要素やループ時に設定される一時変数 $_ は元の値の別名として扱われる
つまり同じ値を参照しているため、それらに代入や置換などを行うと元の値も変更されてしまう
元の値が変数ならそれが変更されるだけで問題はないが、定数の場合変更できないのでそこで死んでしまう

wprint関数では @_ でもループ内でも変数として受け取っていないため置換処理で引数の値を変更しようとしている
'a' x 5 は評価されたときに変数に入れられたように扱われるので問題はないが、直後の "\n" はまさしく定数なので変更できず死に、以降の処理が止まる
関数内で最初に my @args = @_; のように一度変数で受け取るのが意図しない変更を防ぐ意味でも良いだろう

**デフォルトの名無しさん** · 2017/03/21(火) 08:41:14.27

>>673

672です。
よく解りました。
ありがとうございました。

**デフォルトの名無しさん** · 2017/03/31(金) 19:10:56.36

print (1+2)+(4+5)+6+7;

3

**デフォルトの名無しさん** · 2017/03/31(金) 21:37:50.01

print print (1+2)+(4+5)+6+7;

3
23

print print print (1+2)+(4+5)+6+7;

3
23
1 👀
Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f)

**デフォルトの名無しさん** · 2017/03/31(金) 22:38:54.66

$hash{'aaa'}{'bbb'}{'ccc'} = 1;

みたいなことをしても、普通に通るのが凄いよな
それでいて、仕様としては別に多次元ハッシュなんか対応してない

**デフォルトの名無しさん** · 2017/04/01(土) 08:51:48.01

なにをするんでもいちいちチェックが入って膨大な自動操作が裏で行われてる証拠。
さらに変数と実体を結びつけるデータテーブルもかなりの容量を使用してる。
木構造の探索などをやると、動作がCの10倍程度違うと言われるけど、やってみたらメモリ容量が100倍以上違うことも確認された。(将棋の盤面探索)。

まあ一時的にスクリプトが欲しいときとか、それが良い時はそれで良いけど、
通常のソフトウェアを作る時内部でそんなことが起きれてば完全な欠陥なわけであって。

**デフォルトの名無しさん** · 2017/04/01(土) 17:07:22.61

そうか、100倍以上違うのか。試してみたいからソースコードを見せてくれ。

**デフォルトの名無しさん** · 2017/04/01(土) 17:19:36.13

>>678
えーと、インタプリタとコンパイラって知ってるかい？

**デフォルトの名無しさん** · 2017/04/02(日) 11:42:32.36

1 ビット × 8000000 のビットマップって Perl でどうやるんだろう? こうかな?

$perl -e '$h{ $_ } = 1 foreach 0 .. 7999999; system("bash","-c","ps -p \$PPID -F");'
UID　　　　PID　PPID　C　　SZ　 RSS PSR STIME TTY　　　　　TIME CMD
i　　　　 5240　4743 96 253250 997920 1 11:18 pts/4　　00:00:05 perl -e $h{
$

みたいなことでもしたんだろうか。

**デフォルトの名無しさん** · 2017/04/02(日) 12:21:59.20

>>680
インタプリタとコンパイラの速度差は2倍未満と言われてるけどな
この場合は自動型変換などの暗黙の処理とデータテーブルが問題。
もちろん自動型のコンパイラを使用しても同じ結果になる。

**デフォルトの名無しさん** · 2017/04/02(日) 13:25:59.95

お前の情報源はえらくあやふやだな

**デフォルトの名無しさん** · 2017/04/02(日) 14:35:50.91

「そう言われてる」ってやつだからな。
ただ有名なんで検索すればいろんなところで出てくる。
10倍遅くなるのは、自動処理が8でインタプリタが2、合計10

**デフォルトの名無しさん** · 2017/04/02(日) 14:37:05.43

別に正確な情報どうこうじゃなくて、
おそいのがインタプリタのせいだと思ってるよりずっといいでしょって話

**デフォルトの名無しさん** · 2017/04/02(日) 15:56:48.17

>>681
1行目とその先の関連がよく分からんが
http://perldoc.jp/func/vec

**デフォルトの名無しさん** · 2017/04/02(日) 16:44:24.11

ろくに知らなければこういうことをするかもな、という想像なんだが。わかりにくかったのならすまん。
なにしろ何をしたのかまったく解らないから適当に想像するしかないんだよ。

**デフォルトの名無しさん** · 2017/04/15(土) 03:58:55.24

Cでも
伸び縮みを含めた動的なメモリ宣言と開放と、呼び出しの度そのチェックと、管理情報の保存.
動的な値の自動変換と、呼び出しの度そのチェックと、管理情報の保存.

たったこんだけでも超遅くなるか
つか動的な宣言って超遅いよね

**デフォルトの名無しさん** · 2017/04/15(土) 04:02:38.36

それはそうと俺も稀にPerlやるんだが、

use utf8;
use strict;
use warnings;

binmode STDIN, ':encoding(utf8)';
binmode STDOUT, ':encoding(utf8)';
binmode STDERR, ':encoding(utf8)';

これ毎回書くんだが、全部省略できないかの
すぐこれ書くの忘れて文字コード関係でおかしくなるし、書いたら書いたで無駄に目障りなんだが・・・

**デフォルトの名無しさん** · 2017/04/15(土) 10:45:22.06

# Hoge.pm
package Hoge;
use strict;
use warnings;
use utf8;

binmode STDIN, ':encoding(utf8)';
binmode STDOUT, ':encoding(utf8)';
binmode STDERR, ':encoding(utf8)';

sub import{
　　strict->import;
　　warnings->import;
　　utf8->import;
}

1;

# script.pl
use Hoge; # ただし@INCからHoge.pmが見つかるようにする

**デフォルトの名無しさん** · 2017/04/15(土) 10:52:14.57

そういやutf8なら
binmode STDOUT, ':utf8';
で良かったか

**デフォルトの名無しさん** · 2017/04/15(土) 20:57:19.56

>>677
参照の -> を参照に対しては省略できるってだけだが。

**デフォルトの名無しさん** · 2017/04/15(土) 21:19:29.96

それが凄いところ
オブジェクト指向だって、ほんの小手先でちゃんと実用になるものを実装しちゃってる

**デフォルトの名無しさん** · 2017/04/15(土) 23:53:13.69

>>693
最低レベルな。
小手先で済ませちゃったから、それ以上の
便利な機能はライブラリ任せになっちゃって
いつまでも標準が生まれなかった。
Perl6にさっさと移行すればいいのに

**デフォルトの名無しさん** · 2017/04/15(土) 23:58:43.13

言語なんてそれでいいだろ
標準に拘っても何も得しない

**デフォルトの名無しさん** · 2017/04/16(日) 00:42:48.16

>>695
可読性の問題だ。
意味は全く一緒なのに、書き方を変えてどうする？
言語を変えるのと一緒だぞ

**デフォルトの名無しさん** · 2017/04/16(日) 00:57:54.05

どうせ定番の奴がデファクトスタンダードになるんだから同じことだ

**デフォルトの名無しさん** · 2017/04/16(日) 01:01:17.12

その定番が生まれなかったんだろ

**デフォルトの名無しさん** · 2017/04/16(日) 06:42:15.56

それは目的がニッチ過ぎたか利用者が少なすぎたからで、
どっちにしろ標準になんかならない

**デフォルトの名無しさん** · 2017/04/20(木) 20:48:25.04

Perl6 ? そういえばそうゆうものもあったな。ググると、
１年半前に正式安定版がリリースされたのか。知らなかった。

誰も、その事を話題にすらしていないし。
http://tamae.2ch.net/test/read.cgi/php/1162721943/
「 Perl6/Parrotスレ - Part2 」

**デフォルトの名無しさん** · 2017/04/20(木) 21:37:11.61

Perl6は別の言語だからな

**デフォルトの名無しさん** · 2017/04/20(木) 22:48:25.36

pythonもバージョンが上がって別言語になった

**デフォルトの名無しさん** · 2017/04/20(木) 22:52:03.43

>>702
なってないわ

**デフォルトの名無しさん** · 2017/04/20(木) 23:04:27.00

>>689+690
PERL5OPTと組み合わせれば全て解消。

**デフォルトの名無しさん** · 2017/04/23(日) 19:39:54.82

>>688
そうか？ディスクI/Oが絡まないようなメモリ上だけの操作ならさほど遅い感じしないけど。
まあ、単純なのと比べたら遅いけどね。

**デフォルトの名無しさん** · 2017/04/23(日) 19:56:30.69

>>689
use encoding は?

**デフォルトの名無しさん** · 2017/04/30(日) 10:11:15.92

>>705
理論上完全に最適化できたとしても速度差は5倍以上あるよ

**デフォルトの名無しさん** · 2017/05/03(水) 00:40:52.14

$str = "みかんりんごぶどう";
を・みかん・りんご・ぶどうというように文字の最初に・をつけるには
どう置換すればいいんですか？

**デフォルトの名無しさん** · 2017/05/03(水) 00:56:20.79

join '', map { '・' . $_ } split ' ', $str;

**デフォルトの名無しさん** · 2017/05/03(水) 01:07:15.97

$str =~ s/(\w+)/・$1/g;

**デフォルトの名無しさん** · 2017/05/03(水) 01:13:44.21

試してないだろ

**デフォルトの名無しさん** · 2017/05/03(水) 02:22:37.42

linux mint18
perl6のインストールについて

$ sudo apt install rakudo
パッケージリストを読み込んでいます... 完了
依存関係ツリーを作成しています
状態情報を読み取っています... 完了
E: パッケージ rakudo が見つかりません

どうしたらインストールできます？

**デフォルトの名無しさん** · 2017/05/03(水) 02:40:51.60

$ perl6 -v
This is perl6 version 2015.11 built on MoarVM version 2015.11

すいません、解決しました

**デフォルトの名無しさん** · 2017/05/11(木) 19:50:38.19

POD書いてる?

**デフォルトの名無しさん** · 2017/05/11(木) 23:25:04.61

メモリリーク検出になに使ってる?
とりあえず昔からTest::LeakTrace使ってるんだけど
いまはもっと便利なものがあったりするのかな?

**デフォルトの名無しさん** · 2017/05/24(水) 13:05:14.66

Perl/Qt は癖があるね、Perl/Qtとクラスを同時に使おうとするとなかなか大変。

**デフォルトの名無しさん** · 2017/05/28(日) 12:56:56.81

テキストファイルを読み込むときに
// (例えばfile://...)
があると、そこから行末まで読み込めない現象が起きるんだけど
どうしたらちゃんと読み込める？
binmodeにしても解決しなかった

**デフォルトの名無しさん** · 2017/05/28(日) 13:01:09.18

>>717
open fp, "<$file";
while(<fp>){
print $_;
}
みたいな感じで読み込んでる

**デフォルトの名無しさん** · 2017/05/28(日) 14:02:42.07

そんな訳ない

**デフォルトの名無しさん** · 2017/05/28(日) 14:05:21.98

ファイルハンドルからダブルスラッシュが含まれる行を読み込もうとするとダブルスラッシュが行末と誤認されるという解釈でいいんですかね

**デフォルトの名無しさん** · 2017/05/28(日) 14:33:51.85

絶対になにかカンチガイしてるだろう。
単に出力のバッファリングで単に表示されてないだけとか。
もしくは自分で"//"以降を削除するような処理をしているとかだな。
正規表現の書き誤りがあやしい。

**デフォルトの名無しさん** · 2017/05/28(日) 14:59:23.09

実際に、>>717の方法で読ませればちゃんと読む筈
怪しい箇所を削っていって試せばいい

**デフォルトの名無しさん** · 2017/05/28(日) 15:01:31.81

>>717
再現コードを

**717** · 2017/05/28(日) 16:52:39.75

カンチガイでした
別のところでCのコメント削除をしていて
そこで消えてました
テヘペロ

**デフォルトの名無しさん** · 2017/05/28(日) 18:05:45.48

ま、そんなもんよ
いい経験したな
次に活かせよ

**デフォルトの名無しさん** · 2017/05/28(日) 20:22:17.89

C/C++のソースコードを読んで
コメント削除したソースコード
ifdefとかのプリプロセスしたソースコード
typedef, struct, unionとかを抽出した結果
を得たいんだけどどうするのがいいだろう

プリプロセスしたソースコードをcflowに渡すと
関数コールツリーを得られるから
それらを使ってCのソースコード理解に役立てたい

**デフォルトの名無しさん** · 2017/05/28(日) 21:37:34.83

>>726
何が難しいのか、なんでそんなことをしたいのかよくわからん。

**デフォルトの名無しさん** · 2017/05/28(日) 22:39:53.18

>>726
自前で作るって話からは外れるけど、Doxygenに突っ込むとかじゃダメなの？

**デフォルトの名無しさん** · 2017/05/29(月) 06:06:36.99

>>727
Cのソースコード理解のため

難しいのは例えばif x>=10 && (defined(y) || z==1)とか
ifdef elif else endifとかの入れ子とか
を正しくパースしたりすること

structを抽出したあと
それらの参照関係も図示したい

**デフォルトの名無しさん** · 2017/05/29(月) 06:07:01.52

>>727
簡単なら作ってgitとかにあげてほしい

**デフォルトの名無しさん** · 2017/05/29(月) 06:09:33.49

>>728
プリプロセスする前のコードだと重複したりすると思う

gcc -Eとかだと
#defineとかまで展開されるからそれは抑えたい