- 1 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 03:29:47 ]
- "The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
(WEBプログラミング板 pc11.2ch.net/php/ )
CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
www.perl.org/get.html
● 2006/12/21現在の最新版: 5.8.8
● 2006/12/21現在の開発版: 5.9.3
前スレ
Perlについての質問箱 30箱目
pc11.2ch.net/test/read.cgi/tech/1173880452/
リンク集は>>2-3
過去スレは>>4
- 72 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 15:49:56 ]
- しかし perl のソースは汚いな
- 73 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 16:40:45 ]
-
毎回Perlは汚いと煽ってる馬鹿に言いたいんだが…
言語仕様によって汚くなるというのは無いんだよ、これは。
それを言う偉い先生方の見解によれば、要は書き手によって変わると。
Perlは柔軟性が高い余り、完全に理解出来てない所謂無知が多い。
そしてそういう奴等が世の中に糞コードを放つから、総合的に汚く見えると。
つまり、君は騙されているんだよ。
- 74 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 17:14:35 ]
- そんな汚いかな？
$unkoは汚いけど
- 75 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 17:39:32 ]
- $anal
- 76 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 17:53:29 ]
- >>58 がCPANにこのモジュールを公開すれば、
ソースは use、new、print の３行だけの美しいコードになるべ。そして3行を提出。
- 77 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 18:16:02 ]
- それはまるで、C か何かで書けと言われた課題に対し、use POSIX; とかして提出したひとみたいですね。
- 78 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 18:45:22 ]
- >>72
俺のコードはきれいだぞ
- 79 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 18:49:37 ]
- 俺のケツも綺麗だよ
- 80 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 21:05:43 ]
- 僕の肛門もリファクタリングされそうです＞＜
- 81 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 21:13:57 ]
- 俺にきれいなコードを書くのは無理とわかった。
#!/usr/bin/perl
use strict;
BEGIN { require warnings && import warnings }
local $/ or grep ++$un'ko{$_},map m/\b\w+\b/g,uc<STDIN>;
print lc and printf join $un'ko{$_},unpack 'a'x2," \n" for reverse sort { $un'ko{$a} <=> $un'ko{$b} } keys %un'ko;
__END__
- 82 名前：デフォルトの名無しさん [2007/06/17(日) 23:31:49 ]
- こうしてPerlを知らない優秀なPerlプログラマがまたひとり巣立って行く
- 83 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 23:44:17 ]
- >>81
わざと汚く書いてるよねｗ
- 84 名前：54 mailto:sage [2007/06/18(月) 01:41:29 ]
- Perlでは難しいんでしょうか
- 85 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 02:14:06 ]
- >>55
- 86 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 12:21:14 ]
- もうちょっとシンプルにならんかなぁ
#!/usr/bin/perl
use strict;use warnings;
my(%chinko,%manko);$/=undef;
print "$_:$chinko{$_}\n" for sort {$chinko{$b}<=>$chinko{$a} || $a cmp $b} grep !$manko{$_}++ , map {$chinko{$_}++;$_} split /\s+/,lc <STDIN>;
- 87 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 13:32:46 ]
- そういう変なのをもっともらしく貼り付けるから perl はダメとかいわれるんじゃないの？
- 88 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 13:47:23 ]
-
これはこれで綺麗に見えるのだが、
その感性を会得出来ないのは、
まだ君が未熟である証拠であろう。
- 89 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 13:55:00 ]
- >>86
%chinkoと%mankoわけるのは無駄だろ?
- 90 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 14:51:34 ]
- > これはこれで綺麗に見えるのだが、
廃人になる前にドラッグやめたほうがいいよ。
|
 |
