1001コメント303KB

Perlについての質問箱 54目

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2012/07/31(火) 20:20:48.75

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.16.0)

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

リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4

0002デフォルトの名無しさん

2012/07/31(火) 20:21:49.49

[プログラミング自体の経験が無い奴はまずココを読め]
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/

0003デフォルトの名無しさん

2012/07/31(火) 20:21:51.01

糞スレ

>>1
バーカ

0004デフォルトの名無しさん

2012/07/31(火) 20:22:56.31

>>1
どうせゴミしか書き込まないのに何でわざわざ立てたんだゴミ

0005デフォルトの名無しさん

2012/07/31(火) 20:23:07.60

[モジュール]
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

0006デフォルトの名無しさん

2012/07/31(火) 20:24:16.74

ここで質問してる奴は大抵頭がおかしい
回答者もだいたいおかしい
前スレの>>1000みたいな奴とか

0007デフォルトの名無しさん

2012/07/31(火) 20:24:31.79

#　[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 でエンコードする必要があります。

0008デフォルトの名無しさん

2012/07/31(火) 20:25:05.24

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

0009デフォルトの名無しさん

2012/07/31(火) 20:25:19.87

そりゃまともにPerlやりたい奴はTwitterのほうだろうな。

0010デフォルトの名無しさん

2012/07/31(火) 20:26:23.82

ちなみにスレタイ間違いました

正しくは 54"箱"目でした

0011デフォルトの名無しさん

2012/07/31(火) 20:27:11.58

またクソスレが立ったか
質問者をおびき寄せて罵倒しまくるために立ててるんだろうな
性格悪そう

0012デフォルトの名無しさん

2012/07/31(火) 20:27:59.89

>>10
ヴァカが調子に乗ってスレ建てなんかするからだろ？

0013デフォルトの名無しさん

2012/07/31(火) 20:28:34.48

>>1乙

前スレ988へ
use strict ;
use warnings ;

my $netmask = '123.123.123.0/22';
my $ip = '123.123.123.111' ;
my ( $org_ip, $byte ) = split m{/}, $netmask ;
my $packed_one = unpack "B$byte", pack 'C4', split ( /\./, $ip ) ;
my $packed_two = unpack "B$byte", pack 'C4', split ( /\./, $org_ip ) ;
if ( $packed_one eq $packed_two ){ print "hit\n" ; }

0014デフォルトの名無しさん

2012/07/31(火) 20:34:53.50

一部の荒らしが騒いでるだけ、無視すればいい
まともな答えも結構ある

0015デフォルトの名無しさん

2012/07/31(火) 20:35:50.08

>>11
それが>>1の生き甲斐だからなｗ

0016デフォルトの名無しさん

2012/07/31(火) 20:48:15.28

>>1ってアホなんだろうな、少しでも人の役に立ってRUUUUUUUUUUUUUUUUUとか思ってんだろ。
実際は初心者がフルボッコになる場所を作ってるだけなのに。

0017デフォルトの名無しさん

2012/07/31(火) 20:50:14.01

淡々と回答するだけさ。昔と変わらない。

0018デフォルトの名無しさん

2012/07/31(火) 20:51:34.98

違うよ、>>1は初心者がフルボッコにされるのをニヤニヤしながらヲチするために立ててるんだよ

0019デフォルトの名無しさん

2012/07/31(火) 20:52:03.65

C++でラーメン作れますか？ってスレがあるけど、Perlなら作れると思う。

0020デフォルトの名無しさん

2012/07/31(火) 20:52:41.36

あっそ。いつもの人が騒がしくてひどいな。

0021デフォルトの名無しさん

2012/07/31(火) 20:52:52.20

詳しく

0022デフォルトの名無しさん

2012/07/31(火) 20:57:28.14

ゴミが暴れまくった後は必ずといっていいほど「いつもの人～」って書き込みがあるんだけど
これ実は暴れてるのと同一人物じゃないか？

0023デフォルトの名無しさん

2012/07/31(火) 20:59:04.73

じゃあID制を申請してこいよアホ
何もしねークズはしゃべんな
資源使うな贅肉

0024デフォルトの名無しさん

2012/07/31(火) 20:59:29.10

>>19
何にしてもデバイスないと無理だろ。

0025デフォルトの名無しさん

2012/07/31(火) 20:59:55.25

リャマ: ttp://www.oreilly.co.jp/books/9784873115672/

リャマ6版出てる。

0026デフォルトの名無しさん

2012/07/31(火) 21:02:54.10

>>23
さすがだなｗ
ID申請されてもいいようにIP複数持ちかｗ
自分からID推奨したらバレないと思った？ｗ

かなり前から自演だってバレてますぜダンナｗｗｗ

0027デフォルトの名無しさん

2012/07/31(火) 21:09:35.13

>23
いや別に2chだし、色んな人がいるから、自演は別にいいんだけど、暴れるときもうちょっとお手柔らかにお願いします。

0028デフォルトの名無しさん

2012/07/31(火) 21:11:48.70

>>26
ンンじゃあ前ｽﾚの俺の自演書き込みの番号をURL付きで
32行ｷﾞﾘｷﾞﾘに張り付けて
それが全部オレ様のだったらﾋﾞｯｸﾘしてやんよ

0029デフォルトの名無しさん

2012/07/31(火) 21:13:47.30

いやこれどう見てもいつもの人だろ

0030デフォルトの名無しさん

2012/07/31(火) 21:14:31.00

いつもタイミングがいいとは思ってたｗ

0031デフォルトの名無しさん

2012/07/31(火) 21:17:06.20

>>24
USBに電熱線と温度センサーを付ける
Perlで温度に応じて電力を制御する

0032デフォルトの名無しさん

2012/07/31(火) 21:17:28.06

タイイングもクソもなにも
特徴文書読んで仕分けてbotはしらせりゃ
バカでもできんだろ
こいつらマジでアホなのか？
たいｍんぐじゃねーんだよ
そういうbotなんてラクラクにつくれんだろ

0033デフォルトの名無しさん

2012/07/31(火) 21:19:22.57

USBでそんなに熱くなるのだろうか。

0034デフォルトの名無しさん

2012/07/31(火) 21:19:37.04

Perlでデバイスの制御ってきいたことないけど、できるものなの？

0035デフォルトの名無しさん

2012/07/31(火) 21:20:34.92

>>33
焼き肉だったかゆで卵だったかの記事は見かけたことがある

0036デフォルトの名無しさん

2012/07/31(火) 21:21:41.82

無理すんなってwww

0037デフォルトの名無しさん

2012/07/31(火) 21:28:30.57

>>1
乙

0038デフォルトの名無しさん

2012/07/31(火) 21:29:11.82

>>32
言い訳はいいから。

やるなら見破られないようにやれ。

0039デフォルトの名無しさん

2012/07/31(火) 21:31:02.68

でそのバカアホはどれが自演だっちゅーんだよ
さっさとスレ番号うｔきURL乗せろよアホ

そうすりゃ自演を見破ったと信じてヤンよ
それが出来ないなら吠えるな生ゴミ
燃やされてろよ　野焼きされてろ

0040デフォルトの名無しさん

2012/07/31(火) 21:32:51.18

＞USBラーメン
これ買ってPerlでアクセスできるようにすればいいんじゃないの？
ttp://www.thinkgeek.com/stuff/looflirpa/igrill.shtml
[iGrill]---[ドライバ]---[モジュール]---[Perlスクリプト]

0041デフォルトの名無しさん

2012/07/31(火) 21:33:35.70

自演ばれて気が立ってんだからつついてやるなよ

0042デフォルトの名無しさん

2012/07/31(火) 21:36:07.36

　||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||
　|| ○荒らしは放置が一番キライ。荒らしは常に誰かの反応を待っています。
　|| ○重複スレには誘導リンクを貼って放置。ウザイと思ったらそのまま放置。
　|| ○放置された荒らしは煽りや自作自演であなたのレスを誘います。
　||　　ノセられてレスしたらその時点であなたの負け。
　|| ○反撃は荒らしの滋養にして栄養であり最も喜ぶことです。荒らしにエサを
　||　　与えないで下さい。　　　　　　　　　　　　　　　　 Λ_Λ
　|| ○枯死するまで孤独に暴れさせておいて　　＼　(ﾟーﾟ*)　ｷﾎﾝ。
　||　　ゴミが溜まったら削除が一番です。　　　　　　⊂⊂ |
　||＿＿＿ ∧ ∧＿＿∧ ∧＿＿　∧ ∧＿　　　　　 |￣￣￣￣|
　　　　　　(　 ∧ ∧__ (　　 ∧ ∧__(　　 ∧ ∧　　　　￣￣￣
　　　　～（＿(　　∧ ∧＿ (　 ∧ ∧＿ (　　∧ ∧ 　は～い、先生。
　　　　　　～（＿(　　,,)～（＿(　　,,)～（＿(　　,,)
　　　　　　　　～（＿__ﾉ　　～（＿__ﾉ　　～（＿__ﾉ

0043デフォルトの名無しさん

2012/07/31(火) 21:37:39.77

ということで以後>>39の自演荒らしはスルーでよろ

0044デフォルトの名無しさん

2012/07/31(火) 21:38:47.17

42も自演です
どもうありがとうござすｍｓた

0045デフォルトの名無しさん

2012/07/31(火) 21:48:17.77

そんなんしなくても、ラーメンの画像とか作ってだな。

0046デフォルトの名無しさん

2012/07/31(火) 21:57:22.38

ご飯炊くとかならできそう

0047デフォルトの名無しさん

2012/07/31(火) 22:13:14.05

そういえば前スレで西暦0年から使えるtimeみたいなモジュールが欲しいって言ってる奴がいたな
ほれモジュールだ

package AC1;
sub timeultimatesuperavanced{
my $val;
$val = time * 1970 * 365 * 24 * 60 * 60;
return $val;
}
1;

0048デフォルトの名無しさん

2012/07/31(火) 22:23:29.77

かわいそうに。

0049デフォルトの名無しさん

2012/07/31(火) 22:57:43.25

うるう年は？

0050デフォルトの名無しさん

2012/07/31(火) 22:58:31.50

知らぬ存ぜぬ顧みぬ

0051デフォルトの名無しさん

2012/07/31(火) 23:01:50.07

苦節8年！
とうとうリファレンスが使えるようになったぜ！
これでCのアドレスが扱えるのと同じだからコードの高速化が可能！

0052デフォルトの名無しさん

2012/07/31(火) 23:06:18.67

なんでそこでいちいち計算するんだ？
西暦0年から1970年の秒数は未来永劫変わらないんだから決め打ちでいいだろ。
そのほうが速い。

0053デフォルトの名無しさん

2012/07/31(火) 23:13:53.78

スゲェ解決策だ
畏れ入る
で、難病なんだ？

0054デフォルトの名無しさん

2012/07/31(火) 23:18:45.26

1万行と2000行前からバグってる
8000年過ぎた頃からもっとカオスになった
1億と2000行後もバグってる
バグがばれたその日から僕の地獄にクレームはやまない

0055デフォルトの名無しさん

2012/07/31(火) 23:19:32.42

>>51
俺はCのポインタを綺麗サッパリ忘れることで
ようやくリファレンスを理解できた、気がする。

0056デフォルトの名無しさん

2012/07/31(火) 23:20:05.23

>>54
1箇所「年」のままだぞ

0057デフォルトの名無しさん

2012/07/31(火) 23:20:07.10

+じゃないの？

0058デフォルトの名無しさん

2012/07/31(火) 23:20:53.77

そもそも西暦0年って何

0059デフォルトの名無しさん

2012/07/31(火) 23:22:07.85

時空姦の闇に消えた謎の一年だろｊｋ

0060デフォルトの名無しさん

2012/07/31(火) 23:26:12.24

>>53
てめぇでやれ。
コマンドライン用な。
perl "print ( ( 1970 - ( 1970 / 4 - 1970 / 100 + 1970 / 400 ) ) * 365 + ( 1970 / 4 - 1970 / 100 + 1970 / 400 ) * 366 ) * 24 * 60 * 60"

0061デフォルトの名無しさん

2012/07/31(火) 23:28:02.88

馬鹿しかいない

0062デフォルトの名無しさん

2012/07/31(火) 23:32:25.79

perl -e "$p=1970;print ((int($p/4)-int($p/100)+int($p/400)+$p*365)*24*60*60)
62167132800
だけどグレゴリオ暦導入までの改暦経緯とかうるう秒とかどうすんだろ

0063デフォルトの名無しさん

2012/07/31(火) 23:34:45.56

$res[54] =~ s/年/行/ieg;

0064デフォルトの名無しさん

2012/07/31(火) 23:41:19.19

地球の公転秒数から計算させるとか！

0065デフォルトの名無しさん

2012/07/31(火) 23:44:29.90

>>64=天才

0066デフォルトの名無しさん

2012/07/31(火) 23:46:52.83

勢い459ワラタｗｗｗｗｗ

0067デフォルトの名無しさん

2012/07/31(火) 23:48:39.13

通常の１０倍じゃないか
perlの将来は安泰だな

で　西暦０年て

0068デフォルトの名無しさん

2012/07/31(火) 23:51:06.75

神といえども生まれたときは0才

0069デフォルトの名無しさん

2012/07/31(火) 23:52:23.76

>>62
そんな昔のこととかうるう秒とかどうでもいいだろ
そんな精度で記録されたデータもないから確認しようもないし

0070デフォルトの名無しさん

2012/07/31(火) 23:53:07.60

時の神クロノス

0071デフォルトの名無しさん

2012/07/31(火) 23:59:00.11

うるう秒は定義される以前はないぞ！
あと公転速度は年々微妙に遅くなっているらしい。
2000年もあればけっこうな秒数になってそうだけど…。

0072デフォルトの名無しさん

2012/08/01(水) 00:00:29.49

>>71
うるう年は？

0073デフォルトの名無しさん

2012/08/01(水) 00:02:04.27

クロノスかっけーな
そのモジュール名前「Chronos」とかでよくね？

0074デフォルトの名無しさん

2012/08/01(水) 00:04:17.83

すでにあるぞ。
http://search.cpan.org/~simonp/chronos-1.1.6.1/

0075デフォルトの名無しさん

2012/08/01(水) 00:11:53.29

うるう年はたぶんあるだろ。
2000年くらいなら今と同じ計算方法でさかのぼっても、公転が秒でずれることはあっても、日でずれたりはしない気がする。
いやあくまで気がするだけだし、調べるのもめんどうくさい。

0076デフォルトの名無しさん

2012/08/01(水) 00:42:35.78

では年代を意味するイアラ(Era)はどう？
ギリシャ語だとaera 何て読むかは知らない

0077デフォルトの名無しさん

2012/08/01(水) 01:04:10.54

んで内容は>>47な

0078デフォルトの名無しさん

2012/08/01(水) 01:06:32.72

time *
になってるのがポイント

0079デフォルトの名無しさん

2012/08/01(水) 01:45:16.36

>>47
色々とだめだろｗ

0080デフォルトの名無しさん

2012/08/01(水) 01:54:05.35

そういえば日本で閏年（グリコレオ歴）が導入されたのは1872年
Wikipedia見たら徳川家康が将軍職に任じられたのは1603年3月24日

グリコレオ歴で計算した場合もこの3月24日って大丈夫なの？
閏年とかの影響でずれたりしないの？

0081デフォルトの名無しさん

2012/08/01(水) 02:01:29.39

さぁ。歴史とか考古学の日付の計算方法はすごいことになってるぞ。
とてもとてもついてけん。
たぶん歴史の日時は世界統一されてんだろうけど。

0082デフォルトの名無しさん

2012/08/01(水) 03:41:26.33

＞timeultimatesuperavanced

　　↓

＞time
時間、時間の、時間に関する

＞ultimate
究極の、最高の

＞super
すごい、素晴らしい

＞avanced
？（参考：Googleの検索結果→次の検索結果を表示しています:advanced）

0083デフォルトの名無しさん

2012/08/01(水) 05:14:35.28

ぼくのなつやすみをかえして

0084デフォルトの名無しさん

2012/08/01(水) 10:41:31.68

スラドで一番ひどいプログラム板のスレだと聞いてやってきました！

0085デフォルトの名無しさん

2012/08/01(水) 10:43:32.60

そのヒドさを加速させるべく
また一人のアホが参加してきたのか
胸厚だな

0086デフォルトの名無しさん

2012/08/01(水) 10:51:05.45

Perlwwwwwwwwwwwww
パールwwwwwwwwwwwwwwwwwwwww
Pwwwwwwwwwwwewwwwwwwwwwwwwwwwwrwwwwwwwwwwwwwwwwwwlwwwwwwwwwwwwwwwwwwwww
金銀パールプレゼントwwwwwwwwwwwwwwwwwwwwwwww

0087デフォルトの名無しさん

2012/08/01(水) 13:14:05.76

>>82
このスレこういう幼稚なやつ多いよな

0088デフォルトの名無しさん

2012/08/01(水) 13:38:09.04

これだけ低質なスレなのに住民が居なくならないのがまた不思議
もしかして俺以外は全員同一人物の自演とか？

0089デフォルトの名無しさん

2012/08/01(水) 13:47:24.44

住民がいなくならないのも不思議だけどスレ立てしてる奴も十分不思議。

0090デフォルトの名無しさん

2012/08/01(水) 15:22:51.28

スレ立てしてる人は質問者が人格まで攻撃されて
ボコボコにされるのを見て楽しむために立ててるからね

0091デフォルトの名無しさん

2012/08/01(水) 16:15:29.92

次は西暦1年から使えるlocaltimeの作成だな。

0092デフォルトの名無しさん

2012/08/01(水) 16:34:22.48

歴史時間の世界規格は、秒単位まで定義されてるんだろうか。

0093デフォルトの名無しさん

2012/08/01(水) 18:15:41.34

いろいろ見たが地球の公転位置とかだったら秒単位でありそう
天文学の時系列や位置計算は精密だった。

ただ歴史の日時は必ずそれと同期は取れてない印象。
さらに秒はおろか、時間も歴史では出さない。
日単位で出てくる歴史があれば「おー！精密！」って思うくらいのレベル。

0094デフォルトの名無しさん

2012/08/01(水) 19:07:40.65

package Chronos;

sub localtime{
my $time = $_[0];
my $days = $time / ( 24 * 60 * 60 );
my $hour = ( $time - $days * 24 * 60 * 60 ) / 60 * 60;
my $min = ( $time - $days * 24 * 60 * 60 - $hour * 60 * 60 ) * 60;
my $sec = $time - $days * 24 * 60 * 60 - $hour * 60 * 60 - $min * 60;
return ( $sec , $min , $hour );
}

1;

0095デフォルトの名無しさん

2012/08/01(水) 20:18:42.39

>晒した奴
local厨（忍者？）が常駐してたからって、他サイトに晒すんじゃねーよ。
おかげで、hoge厨とスラドのROM専の連中、呼び込んじまったろうが。
こっちだけじゃなくあっちは、ラーメン談義スレになってんだぞ。
その前の事業家気取りのアホが常駐したときも凌いでたってのに…

0096デフォルトの名無しさん

2012/08/01(水) 20:43:44.88

よくわからんが誤爆乙

0097デフォルトの名無しさん

2012/08/01(水) 20:46:27.48

>>84

0098デフォルトの名無しさん

2012/08/01(水) 20:54:55.19

Perl自体がオワコンだしな
これからはPHPの時代

0099デフォルトの名無しさん

2012/08/01(水) 20:56:15.09

さぁ100レス目はどのバーコードハゲが取るのか！？

0100デフォルトの名無しさん

2012/08/01(水) 21:50:40.79

ものすごくレベルの低い質問で申し訳ないが、
ハッシュの定義で

%hoge = ('foo' => 'aaa', 'bar' => 'bbb');
って定義するのと

$hoge = {'foo' => 'aaa', 'bar' => 'bbb'};
と定義するのとでは

どちらにどのようなメリット・デメリットがある？

0101デフォルトの名無しさん

2012/08/01(水) 21:52:12.43

メリット・デメリットというのはちょっと表現が変か。
どのように使い分ける？

■ このスレッドは過去ログ倉庫に格納されています