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

1 ：12/03/02 〜 最終レス ：12/05/05

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: http://hibari.2ch.net/php/ )
このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。
http://www.perl.org/get.html
Download Latest Stable Source (5.14.2)
▼ 前スレ
Perlについての質問箱 50箱目
http://toro.2ch.net/test/read.cgi/tech/1326823096/
リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4

2 ：

[プログラミング自体の経験が無い奴はまずココを読め]
Perl プログラミング講座: ttp://www.site-cooler.com/kwl/perl/
[本]
リャマ: ttp://www.oreilly.co.jp/books/9784873114279/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://www.amazon.co.jp/Effective-ASCII-Addison-Wesley-Programming/dp/4756130577
クックブック: ttp://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/4873113008/
Perl Hacks: ttp://www.oreilly.co.jp/books/9784873113142/
[オンラインマニュアル]
最新のドキュメント: ttp://search.cpan.org/dist/perl/
perldoc.jp: ttp://perldoc.jp/
perldoc.perl.org: ttp://perldoc.perl.org/

3 ：

[モジュール]
CPAN.com: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/
[テクニック]
Perl メモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perl のページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perl の小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm
[Perl 5.8 Unicodeメモ]
ttp://www.rwds.net/kuroita/program/Perl_unicode.html (修正)
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

4 ：

#　[Perl 日本語処理の基礎の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
#　入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※1
use Encode;
#　次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※2
print <$fh>;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
#　【注】※1. の行を入れると、DOS 窓への日本語出力は簡便になりますが、
#　ソースファイル名に非 ANSI 文字が含まれる場合に die 文の出力が失敗します。
#　※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
#　この例のように cp932 でエンコードする必要があります。

5 ：

Encodeモジュール （現在のPerl文字コードの標準）
http://search.cpan.org/dist/Encode/
UNICODEでわからなくなったらここを読め
http://perldoc.jp/docs/perl/5.8.1/utf8.pod
http://perldoc.jp/docs/perl/5.10.0/perlunifaq.pod

6 ：

前スレで右寄せリスト代入をするための方法を募集したものです。
# やりたいこと
my ($sensen, $sensyu, $konsyu);
($sensen, $sensyu, $konsyu) = @ARGV if (@ARGV == 3);
($sensyu, $konsyu) = @ARGV if (@ARGV == 2);
unshift @ARGV, undef if (@ARGV == 2);
my ($sensen, $sensyu, $konsyu) = @ARGV; # 自分
my ($konsyu, $sensyu, $sensen) = reverse @ARGV; # 984さん
my ($sensen, $sensyu, $konsyu) = @ARGV[-3, -2, -1]; # 985さん
リバースの方法はカッコイイですね！思いつきませんでした。
変数の宣言順とコマンドライン引数の順が変わるのが少し気になりましたが。
添字にマイナスを指定するというのも直接的に右寄せする感じが面白いですね。
皆さんレス有難うございました。

7 ：

my$i=0,$_=$ARGV[--$i]for reverse my($sensen, $sensyu, $konsyu);

8 ：

もっと読みにくくしろや

9 ：

> 変数の宣言順とコマンドライン引数の順が変わるのが少し気になりましたが
そもそもの仕様が、必須項目は左に、省略可能なものは右にっていうコマンドライン引数の大原則を外れてることのほうを気にしろよ

10 ：

いやまあどっちの原則を重視するのかはちょっと気になってた
Perl寄りなら必須項目を左に寄せる原則重視だけど
右寄せ重視で書きたい場合もあるのかなと
（たいてい左小右大で書かれる数直線的な感じで書きたいとか）

11 ：

あっと他の誰かと勘違いされかねない書き方してるな俺
この話題で書き込むのは>>10が初めて

12 ：

コマンドラインって基本英語の命令の文法だから
それを理解してるかどうかよくわかるｗ

13 ：

マジかよ、20年以上オプションが前で、ファイルが後ぐらいの感覚しかなかったぜ。

14 ：

コンパイラ言語で自作するのがいいね

15 ：

perlでCSVを取り扱う時の一番楽そうなライブラリは何ですか
"でそれぞれの要素が括られていて、中にコンマが入っていてもok、みたいなパターンの
取り扱いに3秒で挫折したので、いい感じにsplitしてくれるだけでいいんだけど

16 ：

>>15
まず聞く前に検索したら？マジで。

17 ：

>>15
Text::CSV
Text::CSV_XS
のどっちかだね

18 ：

まあ、その二つしか見つからなかったんだけど、
splitと置き換えるには結構面倒で
installしないといけない、->newして->parseして->fieldsしないといけない、
unicodeで渡さないといけない、とかいろいろ
きっちりしといた方が後々楽なんだろうけど、
splitと書いた所を、split_csvと書き換えるだけで全部面倒みてくれるような
sub split_csv があったら、そっちの方が好きなんだよな

19 ：

>>18
さすがにそれは自分で書きなよ
モジュールで提供してくれるのが一番だけど

20 ：

何ていうのかな
楽をしようと思ってライブラリを頼ったのに、楽できない的な
CSVくらいなら簡単だからいいんだけど、なんか大規模な作品にぶつかったりして
まず勉強から入らないといけない
結果的に出来上がるコードはシンプルなんだけど、
単に大部分のオプションがデフォルトでいいと判ったからシンプルになってるだけで、
背景に膨大な知識が要る、みたいな

21 ：

> installしないといけない
もうPythonでも使ってろよと

22 ：

>>20
ツイッターでやれ

23 ：

>>2
Effective Perlはperl4の時代の本だよね
これのperl5バージョンみたいなの無いの

24 ：

>>23
Perl5の時代の本です。

25 ：

あ、ほんとだ
普通に4の本だと思って読んでた

26 ：

>>20
そんな君には詳説正規表現がおぬぬめ。
楽をしたいなら購入するがいい。

27 ：

>>20
↑
何このゴミ
何で2chをブログ代わりに使ってるの？

28 ：

>>27
↑
何このゴミ
何で2chをブログ代わりに使ってるの？

29 ：

今日は何故か下痢が酷かった
昨日食べたかっぱ寿司か、ワインか、つまみの鶏肉のどれかが怪しい
鶏肉は同じもの昨日も食ったから急に悪くなるとは考えにくいし、
ワインはそんな腐るようなものでもないから、やはり寿司か

30 ：

>>28
↑
オウム返ししたいだけで
わざわざレス消費するこういうゴミって必ずいるよね

31 ：

膨大な桁数の計算をする時にはどういう感じでやればいいですか？
3.987......e+47みたいになるので、
それの回避方法です。
いいアルゴリズムないですか？

32 ：

>>31
http://www.google.co.jp/search?client=ubuntu&channel=fs&q=perl+%E8%A8%88%E7%AE%97+%E6%A1%81&ie=utf-8&oe=utf-8&hl=ja

33 ：

>>32
アルゴリズムの書いてあるページ貼れやゴミ

34 ：

>>32
超サンキュウです。

35 ：

>>33
自分で探せよハゲ
ttp://bossdonreader.naganoblog.jp/e870763.html

36 ：

>>30
↑
オウム返ししたいだけで
わざわざレス消費するこういうゴミって必ずいるよね

37 ：

本当にオウム返しきたｗ
頭悪そうｗ
まさにゴミｗｗｗ

38 ：

馬鹿には無理

39 ：

クソスレ

40 ：

馬鹿には馬鹿

41 ：

うるさいゴミ

42 ：

バーカ

43 ：

>>33
しね

44 ：

生きる！

45 ：

↑
ゴミ

46 ：

またどうしようもないカスが貼りついてんのか

47 ：

>>46=どうしようもないカス

48 ：

失せろよ池沼

49 ：

>>46
よう、カス

50 ：

頭の悪いヴァカが住み着いてるな

51 ：

ケツ毛の処理方法を教えてください

52 ：

うるさいゴミ

53 ：

chompはマルチコアに対応していますか？

54 ：

モンゴリアンchomp

55 ：

カトchomp
にしてもラクダ新版が出たというのにこの荒れっぷりは

56 ：

「P」と「H」の両方を含む言語は大抵ゴミ
例）
PHP
HSP
Python

57 ：

>>56
Pythonいいんじゃないの？
HSPは、どうかしらんけど。
PHPはキャラかぶってる。

58 ：

Net::Nslookupでダウンしたサーバーに
nslookupすると固まるのですが
どうやってタイムアウトさせるのでしょうか？
サーバーがダウンしてるか確認したいのですが

59 ：

systemでping

60 ：

１人雇った

61 ：

ソース読むと$TIMEOUTって変数があるから、適当に設定しとけばいいんじゃないの。
Windows以外なら動作するように見える。

62 ：

何入れても１分も待たされる
ソースに書いてもダメみたい

63 ：

マジで馬鹿しかいない

64 ：

>>62
デフォルトで15秒だから、他に何か問題があるんじゃないの？
試してみたらちゃんと動作したし。

65 ：

つまりWindowsでは、この方法は無理なのか

66 ：

バッチファイルとリダイレクトさいこう
巣に帰りました

67 ：

クズだな

68 ：

Programming Perlの新しいのが出るらしいけどお前たちは買いますか？
http://www.amazon.co.jp/dp/0596004923/

69 ：

日本版じゃねーじゃん

70 ：

sub read_file1 { local $/ = ""; <$_[0]>}
sub read_file2 { local $/ = ""; my $fh = $_[0]; <$fh>}
print read_file1("test.txt"); # ->GLOB(0x10063af0)と出力される
print read_file2("test.txt"); # ->ファイル全体が正常に出力される
なぜ1の方法ではうまくいかないのでしょうか？

71 ：

すみませんコード部下二行、間違えていました。訂正です。
open my $fh, "<", "test.txt";
print read_file1($fh);
print read_file2($fh);

72 ：

>>71
perlopに書いてある
山括弧の中の文字列がファイルハンドルでもファイルハンドル名、型グロブ、 型グロブリファレンスの
いずれかが入った単純スカラ変数でもなければ、 グロブを行なうファイル名のパターンと解釈され、
コンテキストによって ファイル名のリストか、そのリストの次のファイル名が返されます。 この区別は
単に構文的に行われます。 <$x> は常に間接ハンドルから readline() しますが、 <$hash{key}> は常に
glob() します。 $x は単純スカラー変数ですが、$hash{key} は違う(ハッシュ要素)からです。
<$x > (余分な空白に注意) ですら readline($x) ではなく glob("$x ") として扱われます。

73 ：

>>72
レスありがとうございます。
あぁ、ラクダ本で何かそういった記述を呼んだ記憶があります。たしかこんな文面の、
行入力演算子<>の中に変数以外のものを置くと突然変異して別の演算子になる。：グロブ演算子
配列の要素も置けなかったとは読み解けませんでした。
$_[0]はグロブすべきファイル名パターンとして解釈されたのですね。
少し紛らわしいと思います。
代替法としては・・
<$foo>をブログとして解釈させるために<${foo}>とすることができるようですが
その逆、<$_[0]>をブログではなく行入力として解釈させることは出来ないようです。
>>71のように一度別の容器に入れるしかないのでしょうか。

74 ：

ブログ？

75 ：

>>73
readline使えばいいと思うよ

76 ：

>>74 ブログでした・・・
>>75
なるほど！ばかですね私ってｗ
うまく動きました。ありがとうございます。
~/work $ perl test.pl
sub read_file1 { local $/ = ""; readline($_[0])}
sub read_file2 { local $/ = ""; my $fh = $_[0]; <$fh>}
open my $fh, "<", "$0";
print read_file1($fh);
#print read_file2($fh);
__END__

77 ：

ファイルロックについていろいろ試したけど
ロックをしないで
ファイルを読み込み中に書き込みするとデータが壊れる
書き込み中に読み込みしても壊れるが
読み込み中に読み込みしても壊れないということがわかった
これらを考慮してファイル読み込み中は書き込みのみロック
ファイル書き込み中は読み込みと書き込みの両方ロックするのが一番いいのである。

78 ：

何十年前の話題だよ

79 ：

fcntlの範囲ロックは未来の技術

80 ：

PCDOSの話か

81 ：

$cond = "t";
$cond ?
$hoge = "aiueo":
nop;
↑これはいけるけど
↓これはいけないんだね
$cond = "";
$cond ?
nop:
$hoge = "aiueo";

82 ：

flock

83 ：

>>81
http://perldoc.jp/docs/perl/5.10.0/perlop.pod#Operator32Precedence32and32Associativity
> 右結合 ?:
> 右結合 = += -= *= などの代入演算子
$cond = "";
($cond ? nop : $hoge) = "aiueo";
nopが変数じゃないからエラー。

84 ：

nopが変数じゃないからエラーじゃないから。

85 ：

nopが変数じゃないからエラーじゃないからじゃないから。
↓ノーエラー
$aho = 84;
$cond = "";
$cond ?
$aho:
$hoge = "aiueo";

86 ：

有効な左辺値を返すのか。知らなかった。

87 ：

undef や lvalue sub のように左辺値として有効な何かであれば変数である必要はない。

88 ：

>>87
さすがにundefはエラーを吐く。
代入可能(左辺値として妥当)な何かであればいいけど。

89 ：

undef はダメだけど () や (undef) なら妥当だね。
1 ? undef : $dummy = 'aiueo'; は通らないけど、
(1 ? undef : $dummy) = 'aiueo'; は (undef) = 'aiueo' になるので通る。
my @a = "a".."z";
1 ? $foo : $bar = @a; say $foo; #=> 26
(1 ? $foo : $bar) = @a; say $foo; #=> a

90 ：

1 ? undef : $dummy = 'aiueo'; は通らないけど、
(1 ? undef : $dummy) = 'aiueo'; は (undef) = 'aiueo' になるので通る。
これで意味が変わるのか? やっぱ、クソだわ。

91 ：

flockが使えない環境用にmkdirで書き込みのみロックと読み込みのみロックと両方ロックのを作った
作るのにまる3日もかかった

92 ：

>>89
それは条件部が定数だからコンパイル時に (undef) = 'aiueo': へ最適化されて
リストへの代入になるからたまたま通るだけで、
($ARGV[0] ? undef : $dummy) = 'aiueo'; のように変動する条件なら
$ARGV[0] ? undef : $dummy = 'aiueo'; と解釈され、
$ARGV[0] が真の時に undef = 'aiueo' をやろうとして実行時エラーになる。

93 ：

じゃあ
(($ARGV[0] ? undef : $dummy)) = 'aiueo';
なら通ったりするのかな？外側のカッコも最適化されてなかったものにされるのかな？
それって処理系依存な動作だったりしないのかな？

94 ：

>>93
> perl -v
This is perl 5, version 14, subversion 2 (v5.14.2) built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
...
> perl -MO=Deparse -e "(($ARGV[0] ? undef : $dummy)) = 'aiueo'"
$ARGV[0] ? undef : $dummy = 'aiueo';
-e syntax OK
> perl -MO=Deparse -e "1 ? undef : $dummy = 'aiueo'"
undef = 'aiueo';
-e syntax OK
> perl -MO=Deparse -e "(1 ? undef : $dummy) = 'aiueo'"
(undef) = 'aiueo';
-e syntax OK

95 ：

>>91
まさか今週の話じゃないよな？

96 ：

>>68
今日届いた。らくだ本は青くなってからだじゃれが減ってつまんないよ。
版が上がってますますそう感じる。それともおいらのセンスがないのかな。

97 ：

日本語の第四版持ってるけどどんな所が改訂されたんだろう

98 ：

>>97
ラクダの右足踏み込みが2ドット深くなってます。

99 ：

翻訳されたのが出るのは何年後？

100read 1read

1read 100read

TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

構造化ウェブプログラミング言語Dart2 (650)
Git 4 (409)
Visual Studio 2005 Part 27 (121)
【モダン推奨】Perlについての質問箱 50箱目 (189)
■暗号技術【ROUNDsurea】■ (526)
初心者向け新言語 Small Basic スレ (241)
--log9.info------------------
[２勝目間近]森田理香子応援スレ７[目指せ賞金女王] (293)
【かわいい♪】がんばれ青山加織2 (962)
イボイボ　イボミ (120)
【Part9】ゼクシオ使いはダサいと思ってる人の数→ (218)
一人予約サイトってどうよ？ (143)
◆ ゴルフの ダジャレ ギャグ ◆ (473)
「40代のゴルフを考える!!」１9番ホール目 (853)
正真正銘のクソ人間　中西雅樹をマジで追い込むスレ (964)
【しーちゃん】 諸見里しのぶ１０ 【賞金女王】 (903)
【インプレス】　YAMAHA 3　【ヤマハ】 (724)
【芝生の】櫻井有希2【妖精】 (783)
松山英樹応援スレpart1 (929)
【人類皆】金田久美子23【穴兄弟】 (551)
■■■ｺﾞﾙﾌﾀﾞｲｼﾞｪｽﾄ･ｵﾝﾗｲﾝ5■■■ (320)
比嘉 (178)
【MAX集中】佐伯　三貴12【みんなの三貴てぃ】 (921)
--log55.com------------------
10/27(日) 第160回 天皇賞(秋) (G?) part10
【再炎上】山崎エリカ「リスグラシューが勝った豪州Ｇ１は海外主要Ｇ１じゃない」
杉本清アナウンサーっていうほど上手かったか？
【2強なのか？】競馬エデンの園スレ 19りんご【天皇賞・秋】
☆■■■■回収率100%超(笑)■■■■60.1ポチッ■★
10月26日(土) 第8回 アルテミスステークス(G3) part1
【競馬界に震撼】巨大詐欺ネットワークが関与か!?競馬YouTuberケイタ・ナツ・サスケpart61
競馬予想ＴＶ！〜242回目(´･_･`)