Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
312: デフォルトの名無しさん [sage] 2014/08/06(水) 23:05:36.50 ID:itqhygIz >>311 なら、どっちかの文字コードにencodeして合わせる http://mevius.5ch.net/test/read.cgi/tech/1349538519/312
313: デフォルトの名無しさん [sage] 2014/08/06(水) 23:07:49.58 ID:E5F7+XJp いや、よほど特別な事情がない限りは utf-8 のソースにするべき。 http://d.hatena.ne.jp/perlcodesample/20091118/1246679588 この辺読んで理解するべき。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/313
314: デフォルトの名無しさん [sage] 2014/08/18(月) 11:10:58.79 ID:Umc6CSTk > perl -e "print (5+5)/3" 10 なんで？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/314
315: デフォルトの名無しさん [sage] 2014/08/18(月) 19:48:40.74 ID:3b1Nz6uJ print -e "print((5+5)/3)" http://mevius.5ch.net/test/read.cgi/tech/1349538519/315
316: デフォルトの名無しさん [sage] 2014/08/19(火) 07:25:44.81 ID:o0wKf1/G >>314 http://perldoc.jp/docs/perl/5.18.1/perlfunc.pod > 括弧を使うときには、単純な、(しかし、ときには驚く結果となる規則が 適用できます: > 関数に見えるならば、それは関数で、優先順位は関係ありません。 (略) > Perl に -w スイッチを付けて実行すれば、こういったものには警告を 出してくれます。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/316
317: デフォルトの名無しさん [sage] 2014/08/19(火) 20:11:13.78 ID:pX43W7dG 2000年には既にwarnings実装してんのに なんで未だに、-w推薦文章なんか残してんだろーね？ -Mwarningsのエイリアスって訳でもねーし。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/317
318: デフォルトの名無しさん [sage] 2014/09/02(火) 01:23:02.48 ID:ytxIDh0v 【誤】print -e "print ((5+5)/3)" 【正】perl -e "(print(5+5)) / 3" ついでに -w と -Mwarnings は別物。-Mwarnings で -w の代わりになるわけではない。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/318
319: デフォルトの名無しさん [sage] 2014/09/02(火) 02:10:54.86 ID:EB7tqG6E だが共に生きることはできる http://mevius.5ch.net/test/read.cgi/tech/1349538519/319
320: デフォルトの名無しさん [sage] 2014/09/02(火) 04:04:55.52 ID:smXsHdMQ >>318 -w ≠ warningsは常識だろ。 で、「use Unicodeは、use Jcodeの代りじゃない」ってレベルの事を言ってるぞ、おまえさん。 -wが石頭だから、より制御しうるwarningsを実装したんだろが。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/320
321: デフォルトの名無しさん [sage] 2014/09/02(火) 07:00:12.46 ID:DO1XeoYm 5.20のperllexwarnがスッキリしててﾜﾗﾀ。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/321
322: デフォルトの名無しさん [sage] 2014/10/02(木) 21:11:40.29 ID:5+m7m9lZ 常識の根拠は常識は常識だから（真顔） http://mevius.5ch.net/test/read.cgi/tech/1349538519/322
323: デフォルトの名無しさん [sage] 2014/11/05(水) 08:46:59.07 ID:aEzkt3Do 再帰中に再帰の深さを出したいんだけどlocal使っていい？ local $::count = $::count + 1; もっと普通の方法ある？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/323
324: デフォルトの名無しさん [sage] 2014/11/05(水) 11:35:00.61 ID:+yDKEom1 引数で渡す sub foo { my ($arg, $count) = @_; ...; foo($arg, $count) if $count++ < 10; } http://mevius.5ch.net/test/read.cgi/tech/1349538519/324
325: デフォルトの名無しさん [sage] 2014/11/05(水) 14:22:15.13 ID:aEzkt3Do ありがとーーー。 複製される変数の数には変わりがないよね、たぶん。 上はグローバル変数と言うのが気に入らなくて、下は引数で扱う値が増えるのが気に入らないが。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/325
326: デフォルトの名無しさん [sage] 2014/11/05(水) 16:45:55.49 ID:aEzkt3Do while(@all){ ((shift @all) eq 'cut') and last; } whileを修飾子として書くと落ちるんだが誰か理由を教えてくれー ((shift @all) eq 'cut') and last while(@all); evalでも落ちた http://mevius.5ch.net/test/read.cgi/tech/1349538519/326
327: デフォルトの名無しさん [sage] 2014/11/11(火) 22:49:14.07 ID:AzojYpxL 英数混じった文字列の中から2桁の数字にマッチさせたいのですが、 /\d\d/だと3桁以上の数字の前2桁にもマッチしてしまいます。 /^(\d\d)\D|\D(\d\d)\D|\D(\d\d)$|^(\d\d)$/ こんなことするより簡単な方法ないでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/327
328: デフォルトの名無しさん [sage] 2014/11/12(水) 00:09:33.46 ID:WHJDipVn [^\d]\d{2}[^\d] http://mevius.5ch.net/test/read.cgi/tech/1349538519/328
329: デフォルトの名無しさん [sage] 2014/11/12(水) 02:38:25.07 ID:T/b7ogJF % perl -le 'print q{22} =~ /[^\d]\d{2}[^\d]/' % perl -le 'print q{22} =~ /(?<!\d)\d{2}(?!\d)/' 1 % perl -le 'print q{22} =~ /(?:^|\D)\d{2}(?:$|\D)/' 1 http://mevius.5ch.net/test/read.cgi/tech/1349538519/329
330: 327 [sage] 2014/11/12(水) 22:11:30.88 ID:obciIUzc /(?<!\d)\d{2}(?!\d)/ これが期待通りの結果が得られました。 (?<!)とか(?!)とかこれまで使ったこと無かったので勉強になりました。 ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/330
331: デフォルトの名無しさん [sage] 2014/11/13(木) 00:03:57.67 ID:w30Rb1CY テストパターンに英字が入ってませんぜ http://mevius.5ch.net/test/read.cgi/tech/1349538519/331
332: デフォルトの名無しさん [] 2014/11/13(木) 05:25:18.91 ID:iJHzIgO3 \b使えよ。便利だぞ。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/332
333: デフォルトの名無しさん [sage] 2014/11/13(木) 05:51:07.66 ID:DTTQy1M/ そりゃ\b使って期待通りの結果が出るなら使うだろ http://mevius.5ch.net/test/read.cgi/tech/1349538519/333
334: デフォルトの名無しさん [] 2014/11/13(木) 23:58:39.09 ID:bKuFahzS 以下のような日付が下から上に並んでいるoriginal.txtがあるとします。 これを、日付を逆順にしたoutput.txtに整形するプログラムを作りたいです。 Windowsで、Batch fileとPerlで作れたらと考えています。よろしくお願いします。 <original.txt> ########## 20141203 ########### DNINITIENK FDKHJKDKKSK ・・・・・ ########## 20141202 ########### TUNINJKDF NIGHALKDK ・・・・・・ ########## 20141201 ########### ABCDEFGHIJKE LMNOPQRSTUV ・・・・・ <output.txt> ########## 20141201 ########### ABCDEFGHIJKE LMNOPQRSTUV ・・・・・・ ########## 20141202 ########### TUNINJKDF NIGHALKDK ・・・・・・ ########## 20141203 ########### DNINITIENK FDKHJKDKKSK ・・・・・・ http://mevius.5ch.net/test/read.cgi/tech/1349538519/334
335: デフォルトの名無しさん [sage] 2014/11/14(金) 00:03:31.59 ID:cRe1Bhcz >>332 \bだと英字と数字の境目は単語の区切りにならないみたい。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/335
336: デフォルトの名無しさん [sage] 2014/11/14(金) 01:18:41.88 ID:VOKh6jxm centosで元から入ってるperlとは別にソースインストールしたperlを別に入れました。 新しくインストールしたperlで以前から入っていたCPANモジュールを使いたい場合、再度入れなおす必要ありますか？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/336
337: デフォルトの名無しさん [sage] 2014/11/14(金) 02:49:12.43 ID:FARMtlO3 >>334 perl -Mvars=%h -ane '$a = $F[1] if @F == 3 ; $h{$a} .= $_ }{ print $h{$_} for sort { $a <=> $b } keys %h’ original.txt >>336 モジュールの共用は避けるべき http://mevius.5ch.net/test/read.cgi/tech/1349538519/337
338: デフォルトの名無しさん [sage] 2014/11/14(金) 06:59:52.41 ID:Ul+u6aQZ >>334 use 5.016; use warnings; my $boundary = qr/^#+\s+\d+\s+#+\s*$/; open(my $in, "<", "original.txt") or die; my @data; my $chunk = ''; while(<$in>){ if (/$boundary/ and (length($chunk) > 0)){ push @data, $chunk; $chunk = ''; } $chunk .= $_; } if (length($chunk) > 0){ push @data, $chunk; } $in->close; open(my $out, ">", "output.txt") or die; $out->print(reverse @data); $out->close; http://mevius.5ch.net/test/read.cgi/tech/1349538519/338
339: デフォルトの名無しさん [sage] 2014/11/14(金) 20:30:37.37 ID:FARMtlO3 単純に逆にするだけか perl -00pe '$_ = join q{}, reverse ( split /(?=^#)/m)' http://mevius.5ch.net/test/read.cgi/tech/1349538519/339
340: デフォルトの名無しさん [] 2014/11/16(日) 13:54:55.61 ID:f46/IGen >338,337,339 有難うございました。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/340
341: デフォルトの名無しさん [sage] 2015/01/12(月) 10:56:30.31 ID:av7JsOQD my $initial_title_ = "\$" . "$initial_threads" . "_begin"; $initial_title_ = eval $initial_title_; 1行に短くなりませんか? http://mevius.5ch.net/test/read.cgi/tech/1349538519/341
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 182 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.009s