- 1 名前：デフォルトの名無しさん mailto:sage [2013/10/12(土) 16:11:45.60 ]
- CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: kohada.2ch.net/php/）
このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
PHP厨も荒らしに沸きますがスルーしましょう。
スレで何か質問するとその質問者を複数の書き込みの連投で叩き粘着します、それがPHP厨です。
このスレ住人のPerl使いがそういう態度の連中というわけではありませんが、
スレ初心者にそのような錯誤を抱かせて居づらくさせることをPHP厨は狙っています。
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.1)
▼前スレ
Perlについての質問箱 60箱目
toro.2ch.net/test/read.cgi/tech/1379783114/
リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4
- 2 名前：デフォルトの名無しさん mailto:sage [2013/10/12(土) 16:29:37.02 ]
- 【本】
初めてのPerl 第6版（リャマ）[2012年07月 発行]
www.oreilly.co.jp/books/9784873115672/
続・初めてのPerl 改訂第2版 [2013年08月 発行]
www.oreilly.co.jp/books/9784873116280/
マスタリングPerl [2009年03月 発行]
www.oreilly.co.jp/books/9784873113975/
もっと自在にサーバを使い倒す 業務に役立つPerl [2012年4月11日発売]
gihyo.jp/book/2012/978-4-7741-5025-3
モダンPerl入門 [2009/2/10]
www.amazon.co.jp/exec/obidos/ASIN/4798119172/secodezine-22/
モダンPerl入門 増補改訂版（仮）[2014年1月予定]
codezine.jp/book/modernperl2
Perl CPANモジュールガイド [2011/4/8]
www.amazon.co.jp/dp/486267108X
【オンラインマニュアル】
最新のドキュメント: search.cpan.org/dist/perl/
perldoc.jp: perldoc.jp/
perldoc.perl.org: perldoc.perl.org/
- 3 名前：デフォルトの名無しさん mailto:sage [2013/10/12(土) 16:30:22.29 ]
- [少し古めの良書]
プログラミングPerl 第3版 VOLUME 1,2（駱駝）[2002年09月 発行]
www.oreilly.co.jp/books/4873110963/
www.oreilly.co.jp/books/4873110971/
Perlクックブック 第2版 VOLUME 1,2 [2004年09月 発行]
www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス [2006年08月 発行]
www.oreilly.co.jp/books/4873113008/
Perl Hacks [2007年01月 発行]
www.oreilly.co.jp/books/9784873113142/
実用 Perlプログラミング 第2版 [2006年03月 発行]
www.oreilly.co.jp/books/487311280X/
- 4 名前：デフォルトの名無しさん mailto:sage [2013/10/12(土) 16:39:02.71 ]
- 【日本語、Unicode関連】
Encodeモジュール
search.cpan.org/dist/Encode/
第31回 encoding：いつまでもjperlから抜け出せない方に
gihyo.jp/dev/serial/01/modern-perl/0031
第32回 Encode：日本語だけ扱えればよいのではなく
gihyo.jp/dev/serial/01/modern-perl/0032
perlunifaq - Perl Unicode FAQ
perldoc.jp/docs/perl/5.18.1/perlunifaq.pod
perlunicode - Perl における Unicode サポート
perldoc.jp/docs/perl/5.12.1/perlunicode.pod
www.rwds.net/kuroita/program/Perl_unicode.html
【モジュール】
CPAN.com: search.cpan.org/
【Perl環境構築】
plenv
https://github.com/tokuhirom/plenv
cpanm
search.cpan.org/~miyagawa/App-cpanminus-1.7001/lib/App/cpanminus.pm
perldoc.jp/docs/modules/App-cpanminus-1.7001/lib/App/cpanminus/fatscript.pod
- 5 名前：デフォルトの名無しさん mailto:sage [2013/10/12(土) 18:12:44.69 ]
- ■■□■■■■□■■■■□■■■■■■■■■■□■■■■■■■■
■■□□□□■■□■■■□■■□□□□□■■■□■■■■■■■■
■■□■■□■■□■■■□■■■■■■□■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■□■■■■
■■■■■□■■■■■□■■■■■□■■■■■□■■■□■■■■
■■■■□■■■■■□■■■■■■□□■■■■□■■□■■■■■
■■■■□■■■■■□■■■■■□■■□■■■□■■□■■■■■
■■■□■■■■■□■■■■■□■■■■□■■□■□■■■■■■
■■□■■■■■□■■■■■□■■■■■■■■□□■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■□■■■■■□■■■■■■■■■■■■■■■■■■■■■
■■■□□■■■■■□■■■■■■■□□□□□□□□□□□□■■
■■□□■■■■■□□□□□□■■■■■■■■■■■■■□□■■
■□□■■□■■■□■■■■□■■■■■■■■■■■■□□■■■
■■□■□□■■□□□■■□□■■■■■■■■■■■□□■■■■
■■■□□■■□□■□□□□■■■■■■■■■■■□□■■■■■
■■□□■■■■■■■□□■■■■■■■■■■■□□■■■■■■
■■□■■■□■■■□□□□■■■■■■■■■■□■■■■■■■
■□□□□□□■■□□■■□□■■■■■■■■■□■■■■■■■
■■■■□■■■□□■■■■□□■■■■■■■■□■■■■■■■
■■□■□■□■■■■□□■■■■■■■■■■■□■■■■■■■
■■□■□■□■■■■■□□■■■■■■■■■■□■■■■■■■
■□□■□■□■■■■■■■■■■■■■■■■■□■■■■■■■
■□■■□■■■■□□□■■■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■□□□■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■■■□□■■■■■■□□□□■■■■■■■
- 6 名前：デフォルトの名無しさん mailto:sage [2013/10/12(土) 23:19:23.14 ]
- # [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;
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。
- 7 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 10:11:27.40 ]
- ファイル名は文字列として扱えないので
・シェルのリダイレクトを利用する
・コマンドラインパラメータで渡す
・環境変数に設定しておきそれを使う
のようにするとよい
- 8 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 11:01:40.94 ]
- 【日本語関連追加】
Shift-JISテキストを正しく扱う
homepage1.nifty.com/nomenclator/perl/shiftjis.htm
utf8-flag considered harmful.
lestrrat.ldblog.jp/archives/23208332.html
- 9 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 15:29:29.02 ]
- 前スレが200以上残ってるのに乱立するな
■■□■■■■□■■■■□■■■■■■■■■■□■■■■■■■■
■■□□□□■■□■■■□■■□□□□□■■■□■■■■■■■■
■■□■■□■■□■■■□■■■■■■□■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■□■■■■
■■■■■□■■■■■□■■■■■□■■■■■□■■■□■■■■
■■■■□■■■■■□■■■■■■□□■■■■□■■□■■■■■
■■■■□■■■■■□■■■■■□■■□■■■□■■□■■■■■
■■■□■■■■■□■■■■■□■■■■□■■□■□■■■■■■
■■□■■■■■□■■■■■□■■■■■■■■□□■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■□■■■■■□■■■■■■■■■■■■■■■■■■■■■
■■■□□■■■■■□■■■■■■■□□□□□□□□□□□□■■
■■□□■■■■■□□□□□□■■■■■■■■■■■■■□□■■
■□□■■□■■■□■■■■□■■■■■■■■■■■■□□■■■
■■□■□□■■□□□■■□□■■■■■■■■■■■□□■■■■
■■■□□■■□□■□□□□■■■■■■■■■■■□□■■■■■
■■□□■■■■■■■□□■■■■■■■■■■■□□■■■■■■
■■□■■■□■■■□□□□■■■■■■■■■■□■■■■■■■
■□□□□□□■■□□■■□□■■■■■■■■■□■■■■■■■
■■■■□■■■□□■■■■□□■■■■■■■■□■■■■■■■
■■□■□■□■■■■□□■■■■■■■■■■■□■■■■■■■
■■□■□■□■■■■■□□■■■■■■■■■■□■■■■■■■
■□□■□■□■■■■■■■■■■■■■■■■■□■■■■■■■
■□■■□■■■■□□□■■■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■□□□■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■■■□□■■■■■■□□□□■■■■■■■
- 10 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 16:35:57.85 ]
- 30年後の日付を取得する方法
($year,$month,$day) = (localtime)[5,4,3];
$after30years = sprintf('%04d-%02d-%02d',1900+$year+30,$month+1,$day);
1000日後の日付を取得する方法
($year,$month,$day) = (localtime(time+1000*24*60*60))[5,4,3];
$after1000days = sprintf('%04d-%02d-%02d',1900+$year,$month+1,$day);
- 11 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 16:49:38.52 ]
- >>10
東京オリンピック開会式まで後何日かを計算するプログラムを教えて！
- 12 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 17:02:19.07 ]
- 1964年10月10日との差を求めればいい
use Time::Local;
print "あと、",(timelocal(0, 0, 0, 10, 10-1, 1964-1900) - time) / (24*3600);
print " 日";
- 13 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 19:06:30.27 ]
- >>10
間違ってるぞｗ
- 14 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 19:08:01.27 ]
- 30年後の日付の計算に、うるう年をどうするかって話ならともかく。
$month+1って・・・
13月とかでてくるじゃんかｗ
- 15 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 19:14:50.94 ]
- Time::Piece版
1000日後の日付を取得する方法
my $t = localtime;
$t += ONE_DAY * 1000;
print $t->ymd;
30年後は仕様を確定してからでないと書けないな。
2/29日の1年後はどうするかとかあるし。
- 16 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 21:52:44.81 ]
- ONE_DAYって何？ってことになるから即値の方が分かりやすいよ
ONEを1と定義しても何も分かりやすくならないからさ
- 17 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 22:03:34.97 ]
- ONE_DAYって一日だろ？
- 18 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 22:04:34.46 ]
- 即値というのはこういうこと
my $t = localtime;
$t += 1 * 60 * 60 * 24 * 1000;
print $t->ymd;
- 19 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 23:06:42.73 ]
- >>18
1 * は不要だろう
- 20 名前：デフォルトの名無しさん mailto:sage [2013/10/13(日) 23:08:42.44 ]
- >>16
ソースのあちこちに3.141592653189793と書く人？
- 21 名前：デフォルトの名無しさんデフォルトの名無しさん mailto:sage [2013/10/14(月) 10:02:15.38 ]
- ONE_DAYのONEなわけだからこの1は重要。ソースに1回しか出てこないから
これは何だ？ということになる。PIが円周率を表しているのはPerlを超えても
コンセンサスがとれていると思うけどな。
- 22 名前：デフォルトの名無しさんデフォルトの名無しさん mailto:sage [2013/10/14(月) 10:05:45.37 ]
- >>17
ある日、かもしれない
- 23 名前：デフォルトの名無しさん mailto:sage [2013/10/14(月) 21:06:25.59 ]
- 向こうのスレ使いきってもないのに何でこっちのスレ伸ばしてんの？
- 24 名前：デフォルトの名無しさん mailto:sage [2013/10/14(月) 21:49:09.70 ]
- Perl厨は人に迷惑かけるために生きてるからね
糞スレ乱立でも何でも人に迷惑かけることができればそれでいいんだろ
言語が腐ってれば使ってる奴の人間性も腐ってるって良い例
|
 |
