13/10/12 16:39:02.71
【日本語、Unicode関連】
Encodeモジュール
URLﾘﾝｸ(search.cpan.org)
第31回 encoding：いつまでもjperlから抜け出せない方に
URLﾘﾝｸ(gihyo.jp)
第32回 Encode：日本語だけ扱えればよいのではなく
URLﾘﾝｸ(gihyo.jp)
perlunifaq - Perl Unicode FAQ
URLﾘﾝｸ(perldoc.jp)
perlunicode - Perl における Unicode サポート
URLﾘﾝｸ(perldoc.jp)
URLﾘﾝｸ(www.rwds.net)
【モジュール】
CPAN.com: URLﾘﾝｸ(search.cpan.org)
【Perl環境構築】
plenv
URLﾘﾝｸ(github.com)
cpanm
URLﾘﾝｸ(search.cpan.org)
URLﾘﾝｸ(perldoc.jp)
5:デフォルトの名無しさん
13/10/12 18:12:44.69
■■□■■■■□■■■■□■■■■■■■■■■□■■■■■■■■
■■□□□□■■□■■■□■■□□□□□■■■□■■■■■■■■
■■□■■□■■□■■■□■■■■■■□■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■□■■■■
■■■■■□■■■■■□■■■■■□■■■■■□■■■□■■■■
■■■■□■■■■■□■■■■■■□□■■■■□■■□■■■■■
■■■■□■■■■■□■■■■■□■■□■■■□■■□■■■■■
■■■□■■■■■□■■■■■□■■■■□■■□■□■■■■■■
■■□■■■■■□■■■■■□■■■■■■■■□□■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■□■■■■■□■■■■■■■■■■■■■■■■■■■■■
■■■□□■■■■■□■■■■■■■□□□□□□□□□□□□■■
■■□□■■■■■□□□□□□■■■■■■■■■■■■■□□■■
■□□■■□■■■□■■■■□■■■■■■■■■■■■□□■■■
■■□■□□■■□□□■■□□■■■■■■■■■■■□□■■■■
■■■□□■■□□■□□□□■■■■■■■■■■■□□■■■■■
■■□□■■■■■■■□□■■■■■■■■■■■□□■■■■■■
■■□■■■□■■■□□□□■■■■■■■■■■□■■■■■■■
■□□□□□□■■□□■■□□■■■■■■■■■□■■■■■■■
■■■■□■■■□□■■■■□□■■■■■■■■□■■■■■■■
■■□■□■□■■■■□□■■■■■■■■■■■□■■■■■■■
■■□■□■□■■■■■□□■■■■■■■■■■□■■■■■■■
■□□■□■□■■■■■■■■■■■■■■■■■□■■■■■■■
■□■■□■■■■□□□■■■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■□□□■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■■■□□■■■■■■□□□□■■■■■■■
6:デフォルトの名無しさん
13/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:デフォルトの名無しさん
13/10/13 10:11:27.40
ファイル名は文字列として扱えないので
・シェルのリダイレクトを利用する
・コマンドラインパラメータで渡す
・環境変数に設定しておきそれを使う
のようにするとよい
8:デフォルトの名無しさん
13/10/13 11:01:40.94
【日本語関連追加】
Shift-JISテキストを正しく扱う
URLﾘﾝｸ(homepage1.nifty.com)
utf8-flag considered harmful.
URLﾘﾝｸ(lestrrat.ldblog.jp)
9:デフォルトの名無しさん
13/10/13 15:29:29.02
前スレが200以上残ってるのに乱立するな
■■□■■■■□■■■■□■■■■■■■■■■□■■■■■■■■
■■□□□□■■□■■■□■■□□□□□■■■□■■■■■■■■
■■□■■□■■□■■■□■■■■■■□■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■□■■■■
■■■■■□■■■■■□■■■■■□■■■■■□■■■□■■■■
■■■■□■■■■■□■■■■■■□□■■■■□■■□■■■■■
■■■■□■■■■■□■■■■■□■■□■■■□■■□■■■■■
■■■□■■■■■□■■■■■□■■■■□■■□■□■■■■■■
■■□■■■■■□■■■■■□■■■■■■■■□□■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■□■■■■■□■■■■■■■■■■■■■■■■■■■■■
■■■□□■■■■■□■■■■■■■□□□□□□□□□□□□■■
■■□□■■■■■□□□□□□■■■■■■■■■■■■■□□■■
■□□■■□■■■□■■■■□■■■■■■■■■■■■□□■■■
■■□■□□■■□□□■■□□■■■■■■■■■■■□□■■■■
■■■□□■■□□■□□□□■■■■■■■■■■■□□■■■■■
■■□□■■■■■■■□□■■■■■■■■■■■□□■■■■■■
■■□■■■□■■■□□□□■■■■■■■■■■□■■■■■■■
■□□□□□□■■□□■■□□■■■■■■■■■□■■■■■■■
■■■■□■■■□□■■■■□□■■■■■■■■□■■■■■■■
■■□■□■□■■■■□□■■■■■■■■■■■□■■■■■■■
■■□■□■□■■■■■□□■■■■■■■■■■□■■■■■■■
■□□■□■□■■■■■■■■■■■■■■■■■□■■■■■■■
■□■■□■■■■□□□■■■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■□□□■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■■■□□■■■■■■□□□□■■■■■■■
10:デフォルトの名無しさん
13/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:デフォルトの名無しさん
13/10/13 16:49:38.52
>>10
東京オリンピック開会式まで後何日かを計算するプログラムを教えて！
12:デフォルトの名無しさん
13/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:デフォルトの名無しさん
13/10/13 19:06:30.27
>>10
間違ってるぞｗ
14:デフォルトの名無しさん
13/10/13 19:08:01.27
30年後の日付の計算に、うるう年をどうするかって話ならともかく。
$month+1って・・・
13月とかでてくるじゃんかｗ
15:デフォルトの名無しさん
13/10/13 19:14:50.94
Time::Piece版
1000日後の日付を取得する方法
my $t = localtime;
$t += ONE_DAY * 1000;
print $t->ymd;
30年後は仕様を確定してからでないと書けないな。
2/29日の1年後はどうするかとかあるし。
16:デフォルトの名無しさん
13/10/13 21:52:44.81
ONE_DAYって何？ってことになるから即値の方が分かりやすいよ
ONEを1と定義しても何も分かりやすくならないからさ
17:デフォルトの名無しさん
13/10/13 22:03:34.97
ONE_DAYって一日だろ？
18:デフォルトの名無しさん
13/10/13 22:04:34.46
即値というのはこういうこと
my $t = localtime;
$t += 1 * 60 * 60 * 24 * 1000;
print $t->ymd;
19:デフォルトの名無しさん
13/10/13 23:06:42.73
>>18
1 * は不要だろう
20:デフォルトの名無しさん
13/10/13 23:08:42.44
>>16
ソースのあちこちに3.141592653189793と書く人？
21:デフォルトの名無しさんデフォルトの名無しさん
13/10/14 10:02:15.38
ONE_DAYのONEなわけだからこの1は重要。ソースに1回しか出てこないから
これは何だ？ということになる。PIが円周率を表しているのはPerlを超えても
コンセンサスがとれていると思うけどな。
22:デフォルトの名無しさんデフォルトの名無しさん
13/10/14 10:05:45.37
>>17
ある日、かもしれない
23:デフォルトの名無しさん
13/10/14 21:06:25.59
向こうのスレ使いきってもないのに何でこっちのスレ伸ばしてんの？
24:デフォルトの名無しさん
13/10/14 21:49:09.70
Perl厨は人に迷惑かけるために生きてるからね
糞スレ乱立でも何でも人に迷惑かけることができればそれでいいんだろ
言語が腐ってれば使ってる奴の人間性も腐ってるって良い例