Perlについての質問箱 50箱目

1 名前：デフォルトの名無しさん [2012/01/18(水) 02:58:16.13 ] CGI についての質問は板違いです。WEB プログラミング板でどうぞ。 CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。 (WEB プログラミング板: hibari.2ch.net/php/ ) このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 "The duct tape of the Internet" こと、Perl についての質問箱です。 "There's more than one way to do it" ということで、 Perl の奥深さについて皆で語り合い、追求してまいりましょう。 www.perl.org/get.html ● 2011/10/30 現在の最新版: 5.14.2 ▼ 前スレ Perlについての質問箱 49箱目 toro.2ch.net/test/read.cgi/tech/1319953460/ リンク集は >>2-3辺り Perl 日本語処理の基礎の基礎 >>4辺り 809 名前：デフォルトの名無しさん [2012/02/21(火) 02:26:19.84 ] 低能は黙ってろ 810 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 02:37:16.10 ] プロさんちーっす 0 while<>; はどうかと思った 811 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 03:20:20.57 ] >>806 procmailのフィノレター書いてるですが、最後まで読んでやらんと パイプ新だがなって怒られるんです(´;ω;`) >>808 それメモリ喰らいません？ undef = <>;的な書き方ができたらウフーだなとかオモテますた。 >>809 ごめんなさいぃぃぃ >>810 かっこぇぇ惚 812 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 03:20:52.14 ] >>807 愛してます☆ 813 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 04:18:56.02 ] (undef) = <STDIN>; () = <STDIN>; 814 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 04:25:31.57 ] >>813 ｳﾌｰ! ｳﾌｰ! ｳﾌｰ! ｳﾌｰ! ｳﾌｰ! 自分の中ではこれFAなりでマジ惚れ危険！ さんきゅーさんきゅーありがとベリーマッチ 関係ないけど皆さんやっぱ<>より<STDIN>推奨？ 815 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 05:18:06.37 ] この場合は読み込み元が標準入力じゃないと成立しないんだから、 @ARGV の有無で読み込み元が変わる <> よりも <STDIN> のほうが間違いないでしょ。 816 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 05:33:53.62 ] 確かに相手が自前じゃないわけだし、なに食わされるかわかんないですもんね… 本当に遅くまで、もとい早朝までありがとうございました。真剣感謝です。 817 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 05:36:15.49 ] そんなトリッキーな書き方が許されるのは中学生までだよねー 818 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 10:28:33.57 ] perlのどこらへんがトリッキーじゃないんだ 奇をてらいたくなきゃあ別のクソでもいじくりまわしてろ 819 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 12:15:17.39 ] >>818 全部トリッキーに見えるのか。 どうかしてるよ、お前。 820 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 17:56:20.52 ] >>818 Perlごときで挫折したプログラミング不適格者の、典型的な言い訳だな。 体育会系会社に入って営業でもやってろｗ 821 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 19:52:44.30 ] " () = " は一応、リストコンテキストで呼び出すための慣用句ってことになってる。 perldoc.jp/docs/perl/5.10.0/perldata.pod#List32value32constructors 822 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 23:10:03.46 ] (<>); 823 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 23:21:22.49 ] (i) 824 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 00:55:04.05 ] トリッキーではないわけね 825 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 00:57:47.51 ] >>824 アホか？ フトンの中でクソしてさっさと寝ろよ 826 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 01:15:09.20 ] フトンの中でクソなんて発想が許されるのは三歳（さんちゃい）までだよねー 827 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 09:38:07.34 ] ×さんちゃい ○ちゃんちゃい 828 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 23:44:52.77 ] ('<>') 829 名前：デフォルトの名無しさん mailto:sage [2012/02/23(木) 01:24:50.25 ] while ( my $hoge = shift @argv )やwhile( my $it = $it->next) ってそのうちundefになって終了するはずなんですが、 while(defined( my $hoge = shift @argv))のようにdefinedを使ってるコードが多いように思います。なぜなんでしょうか。 830 名前：デフォルトの名無しさん mailto:sage [2012/02/23(木) 01:40:11.33 ] >>829 @argvの中に数字の0とか空文字が入る場合、前者だとそこで止まっちゃう。 あとイテレータに最後のundefがあるとは限らないよ。 831 名前：デフォルトの名無しさん mailto:sage [2012/02/23(木) 02:12:06.81 ] >>828 正面向きのヒヨコみたい 832 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 01:19:58.30 ] >>830 ほんとですね、ありがとうございます 833 名前：デフォルトの名無しさん [2012/02/24(金) 13:13:11.47 ] うるさいゴミ 834 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 14:08:16.64 ] >>833 なるほど、自分がついて行けない話の時はそうなるのか 産廃並みの脳味噌だなｗ 835 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 21:56:49.58 ] perl -E '@a = <STDIN>; eval "@a"' これをもっと短くすることをお願いできないでしょうか？ 836 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 22:34:19.63 ] >>835 何がしたいのそれ echo 'print "foo";' | perl 837 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 23:17:25.64 ] 選択中のテキストに対してシェルコマンドを実行する事が出来るアプリ(Meadow)を使って perl -pel "s/hoge/ほげ/" というような感じのことをしてみたのですが perlスクリプト書いて選択して実行してみたいなと思ったところです。perl だけでは動きませんでした。 今はこうやってます。(少し短くなった) perl -e "$/=undeff; eval <>" 838 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 23:56:04.53 ] パッパッパパッパぁ〜Perlライス 839 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 00:14:16.96 ] >>837 俺はvimしか使わんからEmacsの流儀は知らんけど、なんかやり方ありそうよ。 maruta.be/intfloat_staff/46 vimなら行選択して":!perl"でもしてやればカレントバッファに結果が出る。 840 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 00:23:42.23 ] >>839 Linux上ではperlだけで動くので多分WindowsとMeadowのせいなんだと思います。 わざわざ調べてくださってありがとうございます！ 841 名前：デフォルトの名無しさん [2012/02/25(土) 19:21:23.07 ] 文字列を8もじずつ分割して配列にしたいんだけど どうしたらかっこういいですか？ 842 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 19:36:19.69 ] そのかっこいい方法は、 最速ですか？ 843 名前：デフォルトの名無しさん [2012/02/25(土) 19:56:46.61 ] >>841ゴミは書き込みするなって 844 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 20:05:36.52 ] >>842 格好いい＝最速、最速＝格好いい 昔から決まってんだろ 845 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 20:08:55.00 ] 最速の方法は、 文字へのポインタを8づつ増加させながら 配列に加えていく方法だろうね。 846 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 20:19:58.87 ] my @div = $str =~ /.{1,8}/g ; これ以上短くできンの？ 847 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 20:54:05.67 ] できたよ。 関数作ればコードも短く 意味もわかりやすくなる。 my @div = splitn($str,8); 848 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 21:25:21.82 ] >>847 それってホントに動作の意味が分かりやすくなんの？ 関数のホントの意味知らないと、動作が絶対に分からないような作りになってね？ 分かりやすいってのはウソで、実はそれ、説明性が低いだろ。 849 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 21:36:22.83 ] my @div = unpack('(A8)*', $str); 850 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 05:45:04.09 ] >>849 　　　　　　　　　　　　　　　　 ,r=''""ﾞﾞﾞli, 　　　　　　_,､r=＝===､､,,_ ,r!'　　　...::;il! 　　　　 ,r!'ﾞﾞ4　　　　　　 ｀'ヾ;､,　..::::;r!'ﾞ 　　　 ,i{ﾞ‐'_,,_　　　　　　　　　:l}..::;r!ﾞ .　　,r!'ﾞ4 4-ｰ‐‐==､;;;:....　　 :;l!:;rﾞ 　,rｼﾞ　　　　　　　 　 ｀~''=;;:;il!::'li . illﾞ　　....　　　　　　　　　.:;ll::::　ﾞli ..il'　　 ' ' '‐‐===､;;;;;;;:.... .;;il!::　 ,il! ..ll　　　　　　　　　　｀"ﾞ''l{:::　,,;r'ﾞ ..'l!　　　　　　　. . . . . . ::l}::;rll(, 　'i,　　' ' -===＝＝‐ー《:::il::ﾞヾ;､ 　 ﾞi､　　　　　　 　　 　 ::li:il::　　ﾞ'＼ 　　ﾞli､　　　　　　..........,,ノ;i!:....　　　 ｀' ､ 　∧__∧ 　　　`'=､:::::;;､:､==＝''シﾞﾞ'＝=-､､,,,__　｀'（・∀・　） 　　　　 ｀~''''＝=＝''"ﾞ4　　　　　　　 ~`''ｰ（　　　）) 　　　　　　　　　　　　　　　　　　　　　　　　　u~u　 good job 851 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 12:34:25.82 ] perlのマニュアルでわかりやすいのってある？ 省略したときに$_とか$@を使うのか 引数の中身を破壊するのかしないのか 戻り値が$_とか$@に入るのか ってのがいつもわからない 852 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 12:57:09.78 ] 以下のsub.plは単体で呼び出すとうまく動くのですが、main.plから呼び出すと ｜$ perl sub.pl を実行します ｜"\x{0436}" does not map to cp932. "\x{042c}" does not map to cp932. "\x{00b5}" does not map to cp932. ... となってしまいます。何故化けてしまうのでしょうか？ やりたかったこと（標準出力を一時的に切り替えたい）はselectを使うことで解決したのですが、 以下がうまく行かない理由が分からず、分かる方がいらしたら教えていただきたいです。 両ファイルともutf-8で保存しています。windows環境です。 #### main.pl #### use strict; use utf8; use Encode; binmode STDIN, ":encoding(cp932)"; binmode STDOUT, ":encoding(cp932)"; binmode STDERR, ":encoding(cp932)"; my $command = "perl sub.pl"; print "> $command を実行します\n"; print decode("cp932", `$command`); ### sub.pl #### use strict; use utf8; binmode STDIN, ":encoding(cp932)"; binmode STDOUT, ":encoding(cp932)"; binmode STDERR, ":encoding(cp932)"; open DEF_STDOUT, ">&STDOUT"; open STDOUT, ">:encoding(cp932)", "./test.txt" || die "ファイルが開けません: $!"; print "testです"; close STDOUT; open STDOUT, ">&DEF_STDOUT"; binmode STDOUT, ":encoding(cp932)"; # この行を消すと、main.plの実行は上手くいくのですが、単体実行でwide character in print 化けます。 print "生成しました\n"; 853 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 13:33:21.59 ] printfで文字列に全角文字が混じった時に、 全角は2文字分の幅として認識させるにはどうすれば ぐぐると、やたら面倒そうなのとか、根本から変えちゃうようなのしか見つからない 854 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 13:55:58.80 ] >>853 罫線問題もあるので、極めて難しい超難問ですお 855 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 14:23:31.52 ] じゃあ、罫線は無視で 856 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 14:26:05.67 ] 罫線問題って呼び方は聞いたことないけど、「曖昧な文字幅」の扱いのことだよね。 Winユーザでもギリシャ文字が場合によって半角だったり全角だったりなんてのは見たことあると思うけど。 857 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 14:34:36.92 ] ハングルは半角か全角か 858 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 14:51:51.24 ] こんなのでよくね？ use utf8; sub count { my $str = shift; my @chars = split(//,$str); my $kigou = quotemeta("!@#$%^&*()_+|~-=\`[]{};:'\",./<>?"); my $count = 0; for (@chars) { $count += /[a-zA-Z0-9]|$kigou/ ? 1 : 2; } return $count; } print count("1234ほげほげ"); # =>12 859 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:16:54.51 ] >>852 俺の環境(Ubuntu)では文字化けしなかった。 cp932の所は環境に合わせるためにutf-8に書き換えたがな。 ってか、ちゃんと文字のencodeとdecodeを理解するべきだろ・・・ 魔法のおまじないのように「binmode STDERR, ":encoding(cp932)";」こういうの使わない方がいいと俺は思うけど。 860 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:19:44.17 ] decode('cp932', sprintf("%-10s", encode('cp932', $str) ) ); 結局、こんなんにしました 861 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:23:22.06 ] >>860 なんとひどい・・・ 無駄なオーバーヘッドかかりまくり・・・ センスの欠片も感じられない、もっと本読めマジで本読め 862 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:36:02.70 ] >>861 我流でやってきたので・・ おすすめの本があれば教えて下さい。 863 名前：デフォルトの名無しさん [2012/02/26(日) 15:45:40.64 ] >>862 自分で探せゴミクズ そうやってすぐ他人にきくからゴミみたいなコード書くんだろ ゴミコードをネットで晒して恥ずかしくないとか頭の中どうなってんだこの基地害 864 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:51:42.39 ] お前がどんなにゴミだクズだと罵ったところで、>>862は人として最低限のプライドもないから無駄だよ。 865 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:51:51.45 ] バイナリでいいやん 866 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 16:04:46.11 ] >>862 俺が読んでた本は、もう随分古い本だからな・・・ 同じ本を薦めても情報が古過ぎる、新しい情報はネットから得てるし amazonで適当に探して評価読んで良さそうなのを一冊見つければいいんじゃないか？ 867 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 16:19:33.07 ] ネットからは得られないぞ 入門の情報はネットで十分だけど、ノウハウ的なものは金を出さないと得られない 868 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 16:27:51.02 ] 応急の策としてなら>>860は別にそれほど悪くない。 速度的にもutf8のまま真面目にFULLWIDTH/HALFWIDTHを判定していくよりは速いぐらいかもしれない。 869 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 16:56:03.34 ] 漏れが一切無いというのが安心できるな シフトJISの時と全く同じ動作を得たいなら、シフトJISにするしかない 870 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:03:42.35 ] 入力も出力もシフトJISなら処理もシフトJISで行ったほうがいいでしょ utf8に変換する必要性ないでしょ 871 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:07:44.22 ] クソ性器表現のため処理はｕｔｆだろふざけんなｋｓ 872 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:09:37.67 ] もう頭痛くなってきたｗ いい感じにひどいですね 873 名前：デフォルトの名無しさん [2012/02/26(日) 17:31:21.20 ] うるさいゴミ 874 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:37:25.00 ] >>852 ### sub.pl #### use strict; use utf8; binmode STDIN, ":encoding(cp932)"; # binmode STDOUT, ":encoding(cp932)"; binmode STDERR, ":encoding(cp932)"; open DEF_STDOUT, ">&STDOUT"; open STDOUT, ">", "./test.txt" || die "ファイルが開けません: $!"; binmode STDOUT, ":encoding(cp932)"; print "testです"; close STDOUT; open STDOUT, ">&DEF_STDOUT"; binmode STDOUT, ":encoding(cp932)"; print "生成しました\n"; 875 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:52:22.23 ] ピログラムも知らないど素人向けでもないのにマルチバイト文字でメッセージ出す奴は基地害 876 名前：874 mailto:sage [2012/02/26(日) 18:01:58.62 ] それと多分、 open STDOUT, ">", "./test.txt" or die "ファイルが開けません: $!"; 877 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 18:40:37.78 ] そこでjperlなわけか 878 名前：852 mailto:sage [2012/02/26(日) 19:09:09.34 ] >>859,874 レス有難うございます。 標準出力を切り替える前にも出力するためその行はコメントアウトできないです。 色々試してみたところ、デフォルトのSTDOUTを1度rawにするとsub.pl、main.pl共々上手く行きました。 binmode STDOUT, ":raw"; open DEF_STDOUT, ">&STDOUT"; 重ねがけのような状態になっていたのでしょうか・・？ しかしsub.pl単体では上手く動いていたので謎です。 結局>>852の # この行を消すと、main.plの実行は上手くいくのですが、単体実行でwide character in print 化けます。 の理由は分からず。 Ubuntuの方が試してくださった所どちらも上手く動いたとの事なので、 Windowsでの挙動があやしいということなのかもしれません。 879 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 19:10:56.18 ] アホかよ…… cp932なんだからwinでためさねーと意味ないじゃん 880 名前：874 mailto:sage [2012/02/26(日) 19:36:49.24 ] >>878 use utf8; binmode(STDOUT, ":encoding(cp932)"); binmode(STDOUT, ":encoding(cp932)"); layer(*STDOUT); print "あああ"; sub layer { warn(join("/", PerlIO::get_layers($_[0])), "\n") } これでアウトだしPerlIOは良く分からん。 確かに:rawを入れると直るね。 881 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 19:47:34.18 ] cp932でエンコードしたものをもう一度cp932でエンコードしようとしているんだから上手く動かないのは当然じゃないの？ 882 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 20:12:07.34 ] だから初心者はjperl使えと口が酸っぱくなるほど、、、 883 名前：874 mailto:sage [2012/02/26(日) 20:20:55.64 ] >>881 ドキュメントに書いてくれええと思う。 884 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 20:37:36.28 ] cp932で二重エンコードは単なる間違いだけど、 utf-8で二重にやっちゃうのは頻繁に見る そしてフラグを剥がして解決する 885 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 20:58:17.86 ] utf-8で二重にやっちゃうのも単なる間違いだからｗ 886 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 21:01:31.55 ] そろそろ１レスでわかるやつがペーストされるいよかん。 887 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 22:46:15.18 ] encode済みの文字列をencodeできてしまうのはフェイルセーフが欠如してるとしか思えんな フラグ見れるのにそれ見ないんだぜ？ 888 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 23:23:03.22 ] そんなもん言語仕様でどうにかしろよ 889 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 23:26:38.58 ] 言語仕様までいかなくてもEncodeモジュール側でなんとかできそうなもんだが… 問い合わせてみようかな 890 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 23:57:50.15 ] それよか、ひとくるみしたらどうだ？おれならそうする 891 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 00:21:44.60 ] >>852のsub.plは、二度がけしているにもかかわらず windows7のコマンドプロンプトだと化けないな use utf8; binmode STDOUT, ":encoding(cp932)"; open DEF_STDOUT, ">&STDOUT"; open STDOUT, ">&DEF_STDOUT"; binmode STDOUT, ":encoding(cp932)"; layer(*STDOUT); print "生成しました\n"; sub layer { warn(join("/", PerlIO::get_layers($_[0])), "\n") } >perl sub.pl unix/crlf/encoding(cp932)/utf8/encoding(cp932)/utf8 生成しました 892 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 01:12:18.48 ] 甘やかすな 二重encodeは問答無用で青画面 893 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 01:27:30.39 ] Win95並みのクソOSだなそれ 894 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 02:39:42.45 ] d.hatena.ne.jp/perlcodesample/20091118/1246679588 ここ読め、かなり良いから。 変な使い方するな、理解してもないのに変な楽の仕方するな 895 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 06:48:35.60 ] とはいうもののクソの口から本当の楽の仕方は出てこない、 書かれることもない、 なぜなら>>894の能力が低いから 896 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 06:57:34.31 ] use utf8を書かないとうまく動かない時ってどんな時だ? 897 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 08:05:06.77 ] >>896 ASCII 以外が必要なほぼすべての時。 898 名前：デフォルトの名無しさん [2012/02/27(月) 13:52:22.69 ] >>895 それめっちゃ分かる。 お前の能力めっちゃ低いもんな。 899 名前：デフォルトの名無しさん [2012/02/27(月) 14:04:23.67 ] なぜなら俺はイタリアンじゃないから 900 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 19:39:56.47 ] アクセス解析で環境変数を取得するときに、リファラーに井桁が入ってると変数に代入されず リファラーが取得できなくなってしまうのはどうすれば解決できますか 901 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 19:58:34.20 ] >>900 こちらへどうぞ。 Perlコーディング初心者質問スレ Part 63 kohada.2ch.net/test/read.cgi/php/1315559509/ 902 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:06:31.96 ] >>901 誘導ありがとうございます。失礼しました。 903 名前：デフォルトの名無しさん [2012/02/27(月) 20:14:14.61 ] 勢いを見てもこのスレがPHPより人気なのが分かる 904 名前：デフォルトの名無しさん [2012/02/27(月) 20:16:12.30 ] つーかPHPの質問スレ自体がなくてワラタｗ PHP厨はこの世に存在しないのと一緒ｗ 905 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:21:55.19 ] 普通にたくさんあるだろ 906 名前：デフォルトの名無しさん [2012/02/27(月) 20:23:33.91 ] それがなかったんだよｗ バトルロワイヤルとかHello Worldを書き込むとかそういうスレしかなかったｗｗｗ 907 名前：デフォルトの名無しさん [2012/02/27(月) 20:24:47.12 ] >>905 つーか一覧でCtrl+Fですぐ調べられるから見てみろってｗｗｗｗ 908 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:31:15.49 ] 【Perl,PHP】LLバトルロワイヤル21【Ruby,Python】 【perl->php】お願いがあるんだ PHP使ってる奴らが憎いPerl>>>PHP PHPを使って２ちゃんねるにHello Worldを書き込む php使ってる奴はアホ、これからはRuby on Rails! すさまじい 怨念が渦巻いている 909 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:36:02.02 ] やっぱりPerlだよな。 PHPとか言語仕様が糞なうえにセキュリティホール付でリリースするからマジないわ。 ゴミすぎてPerlとの比較対象にすらならない。 PHP選んでるって時点で情弱。 馬鹿にされたくなかったらPerlを選んでおくべき。 910 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:53:58.47 ] 数えきれないほどあるけど？ 【PHP】下らねぇ質問はID出して書き込みやがれ 116 kohada.2ch.net/test/read.cgi/php/1330224598/ PHP関連の書籍 第7版 kohada.2ch.net/test/read.cgi/php/1324952317/ IDにPerlが出たら神!PHPが出たらｼﾒｼﾞ Part32 kohada.2ch.net/test/read.cgi/php/1303228484/ 【PHP】フレームワーク CakePHP 13ホール目【v2.0】 kohada.2ch.net/test/read.cgi/php/1320768310/ 【PHP】Yii Framework kohada.2ch.net/test/read.cgi/php/1291909271/ 【PHP】PHPフレームワーク総合スレ15 kohada.2ch.net/test/read.cgi/php/1292118428/ PHPでオークションサイトを作ろう！ kohada.2ch.net/test/read.cgi/php/1170317609/ [PHP][フレームワーク]CodeIgniter Part2 kohada.2ch.net/test/read.cgi/php/1299595202/ 【PHP】ビューと業務ロジックを混在させる【PHP】 kohada.2ch.net/test/read.cgi/php/1254298092/ 【初心者】励ましあいながらサイト製作【PHP】 kohada.2ch.net/test/read.cgi/php/1125711034/ Perl VS PHP kohada.2ch.net/test/read.cgi/php/982591467/ PHP＞Java＞＞＞超えられない壁＞＞＞ASP＞Perl kohada.2ch.net/test/read.cgi/php/1178094278/ Java VS PHP kohada.2ch.net/test/read.cgi/php/1177676518/ symfony PHPフレームワークpart2 kohada.2ch.net/test/read.cgi/php/1268753684/ 【PHP】鏡の国2ch bbs kohada.2ch.net/test/read.cgi/php/1234765454/ 911 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 21:28:19.27 ] >>909 「セキュリティホール付でリリース」 コミュニティーがたよりない 912 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 21:53:31.46 ] PHPにはだんこがいみたいなひといるの？ 913 名前：デフォルトの名無しさん [2012/02/28(火) 00:05:00.57 ] 質問なのですがPerlでこういうサイトって作れますか？ ttp://findrjp.com/formen/ これはPHPだと思うんですけど 作るとしたらelsifで作る感じでしょうか？ こういうのってすぐ作れますか？ 914 名前：デフォルトの名無しさん [2012/02/28(火) 00:43:21.62 ] >>913 >>1を100回読んでから出直せゴミクズ 915 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 00:52:16.20 ] ＞Perlでこういうサイトって作れますか？ ＞ttp://findrjp.com/formen/ お前は言語を何だと思ってんだ？ PerlだろうとCだろうとC++だろうとシェルスクリプトだろうとできるだろ。 ＞これはPHPだと思うんですけど 「思う」じゃねーよ、Perlだったらどうすんだ？ ＞作るとしたらelsifで作る感じでしょうか？ そりゃ条件分岐くらい使うでしょうよ。 ＞こういうのってすぐ作れますか？ すぐの意味が分からないが仕様書出してもらえれば寝起き2時間で作れるよ。 文字通り朝飯前。 916 名前：デフォルトの名無しさん [2012/02/28(火) 01:36:50.46 ] >>915 PHPとかperlってどこで判断するんですか？ 結果ページのurlにはphpって入ってますけど 917 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 02:35:17.55 ] 死ねよ上げんな池沼 918 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 04:09:04.78 ] >>916 鯖管に聞かなきゃ分からない 一つの言語だけでできてるという保証もなし 精度向上がどうのって書いてあったから バックエンドではcで書いたややこしいシステムが動いてるかもよ 919 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 10:15:15.72 ] ひとつ言える事は・・・ 吐いてるHTMLは死ぬほど汚い、素人が作った物だろって事。 920 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 10:16:26.01 ] 寝起きで朝飯前食う前にやっつけで作ったんじゃね？ 921 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 10:24:20.67 ] ステマそのものじゃねーか。つまらん。 922 名前：デフォルトの名無しさん [2012/02/28(火) 18:33:03.38 ] CGIの話はWebProg板でやれゴミ 923 名前：デフォルトの名無しさん [2012/02/28(火) 19:56:56.41 ] >>919 さすがプロの方 ありがとうございます 924 名前：デフォルトの名無しさん [2012/02/28(火) 20:59:01.76 ] バーカ 925 名前：デフォルトの名無しさん [2012/02/29(水) 21:56:03.52 ] 阿呆 926 名前：デフォルトの名無しさん [2012/02/29(水) 22:01:52.56 ] $a = time; for( $i = 0; $i < 10000; $i++ ){ $x = $x + 1; } $b = time; $c = $b - $a; print "$c"; 927 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 04:13:20.21 ] my $a = time; my $x = 0; $x += 1 for 0 .. 9999; print time - $a, "\n"; 928 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 07:16:10.31 ] ミリ秒まで計測できるよう改良してあげたぞ my $a = time; my $x = 0; for(my $i = 0; $i < 10000; $i++ ){ $x += 1; } my $b = time; $c = rand($b - $a); print $c. "\n"; 929 名前：デフォルトの名無しさん mailto:sega [2012/03/01(木) 09:19:19.20 ] 文字列を改行つきで表示させたいとき、 print "$c\n"; print $c ."\n"; のどちらが良い方法ですか？ 個人的には上の方法が好きですが、特に理由はありません。 930 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 09:26:06.30 ] >>929 俺は下の方が好き。 Perlは変数がダブルクォートの中にあっても展開してくれるけど、 他の言語では展開しない物の方が多い。 Perlでいう全部シングルクォートと同じ感じ。 気持ち悪いから下の方法を取ってるだけで、それ以上深い意味はない。 931 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 09:55:32.17 ] print文ならむしろカンマを使うね print $c, "\n"; 932 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 11:52:40.78 ] . で接続すると、括弧が余計に必要になったりするから嫌 933 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 12:16:53.96 ] 好みって事で、どうでも好きにしろよ 934 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 12:27:40.83 ] print "$c\n"; print $c ."\n"; 新たに文字列が作られる。 print $c, "\n"; 新たな文字列は作られない。 したがって,推奨と信じてきたが違うのか？ 935 名前：デフォルトの名無しさん [2012/03/01(木) 12:30:27.47 ] mes myText + "\n" 936 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 12:58:42.67 ] >>934 推奨かどうかはともかく、コピーが作られなくてメモリに優しいというのは多分合ってるよ。 perldoc.jp/docs/perl/5.10.1/perlfaq3.pod#How32can32I32make32my32Perl32program32take32less32memory63 937 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 13:53:13.26 ] コンマ使えば変数分のメモリが節約できるのか〜 変数の内容にもよるし微々たるものな事も多いだろうけど、 でも少しでも軽くするのはプログラマの努めだし、 軽くするために特にトリッキーな事になってる訳でもないし、 これからは積極的にコンマ使っていくよ教えてくれてありがとう。 938 名前：デフォルトの名無しさん [2012/03/01(木) 14:29:44.49 ] >>937の内容に可読性に関する話が一切出ていない。恐らく真性の基地害。 保守性を無視した「自分さえ分かれば良い」コードを書くゴミの典型。プログラムをする資格のそもそもない人種。 それでプログラマの努めとか言っちゃってるのは恥さらし通り越して最早プログラマに対して失礼。 ほんとクズだなこいつ。 939 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 14:34:23.67 ] コンマなんか使うと可読性が落ちる(ｷﾘｯ 940 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 14:38:37.11 ] そんなに軽くしたいならPerlやめてCで書けばいいんじゃね？ 941 名前：デフォルトの名無しさん [2012/03/01(木) 14:48:09.89 ] >>937は馬鹿だからそういう発想はできない。 942 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:03:48.12 ] @a = (1, 2); print @a . "\n"; print @a , "\n"; みたいな時に挙動が変わる 943 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:04:58.33 ] 何だ、この流れ。 944 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:05:43.83 ] >>938 > 軽くするために特にトリッキーな事になってる訳でもないし、 これが可読性に言及していると読み取れないお前は、ディスレクシアの疑いが高い。 専門医の診察を受けることを勧める。 もっとも診察受けても治らないけど、この業界文章読み取る能力が欠如してるとつらいぞ。 945 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:15:57.49 ] >>938 >>941 どうしてエキサイトしてるのか意味がわからないｗ 946 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:16:41.19 ] この業界はどんな条件でもつらい 自然言語でプログラムが組めるようになるまでは離れるのが吉 947 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:19:34.15 ] 可読性の高いトリッキーなコードと 可読性の低いトリッキーなコードあるよな 948 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:22:04.76 ] say $c; 949 名前：デフォルトの名無しさん [2012/03/01(木) 15:30:06.89 ] >>944は可読性の低いトリッキーなコードしか見たことないんじゃね？ 950 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:32:45.09 ] カスども仲良くしろ 951 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:34:16.52 ] >>949 ヒント： 類は友を呼ぶ >>944みたいな文章しか書けないような奴が集まってみろよ その中に可読生の高いトリッキーなコード書ける奴がいると思うのか 952 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:35:35.67 ] 何にキレてるのか意味がわからない・・・ そんなにコンマが嫌いなのかｗ コンマ入ると読めなくなる程度の奴らなのかｗ 953 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:47:05.05 ] >>949 キミ、多分ディスレクシアだよ。つらいだろうが自分の特性を受け入れる事が大事。 >>951 煽るときは漢字間違えないようにしろよ。あと、お前の過去に何があったか知らな いが、コンマは噛みつかないからそんなに怖がる必要はないぞ。 954 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:49:36.00 ] そもそもカンマってなんであるんだ？構文解析上必要なのか疑問。（←わざわざカンマで区切らずともスペースで区切られてるだろ） print $s "\n"; これでも十分区切りはわかる。カンマは不必要。ではなぜそうなっていないのか、逆にカンマが必要な場面とはどこか。 print 3 + 5, 8; こういう場合だな。二項演算子が混じってくるケース。カンマを端折ってprint 3 + 5 8とすると区切りが分からなくなる。 ただカンマの代わりに括弧で括ってprint (3 + 5) 8とすればこれで区切りは分かる。カンマは入らない。 項の区切りにカンマを入力しなくていいが、二項演算子使う場合はカッコでくくるコスト＞項の区切りに毎回をカンマ入力するコスト だと思うんだが 955 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:52:00.19 ] もうLispとかHaskellやれよ。 なんでPerlだけが噛みつかれるんだよ… 956 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 15:55:20.93 ] >>954 　　　　 /: : : : : __: :/: : ::/: : :／/: : :/l::|: : :i: :l: : :ヽ: : :丶: : 丶ヾ　　　　＿＿＿ 　　 　 /;,, : : : //::/: : 7l,;:≠-::/: : / .l::|: : :l: :|;,,;!: : :!l: : :i: : : :|: : ::､　 ／　　　　 ヽ 　　　 /ヽヽ: ://: :!:,X~::|: /;,,;,/: :／　 ﾘ!: ::/ﾉ　 l｀ヽl !: : |: : : :l: :l: ﾘ /　そ　そ　お　＼ 　　　/: : ヽヾ/: : l/::l |／|||llllヾ,､　　/ |: :/ , -==､　l＼:::|: : : :|i: |　/ 　 う　う　 前　　| .　　 /: : : //ヾ ; :|!: ｲ､||ll|||||::||　　　 ﾉノ　 ｲ|||||||ヾ､ |: ::|!: : ｲ: ::|/　 　な　思　が 　　 /: : ://: : :ヽｿ::ヽl |{ i||ll"ﾝ　　　 ´　　　i| l|||l"l　｀|: /|: : /'!/l 　 　 ん　う 　∠: : : ~: : : : : : : :丶ゝ-―-　　　　　 , 　ｰ=z_ｿ　　 |/ ﾊﾒ;, :: ::|.　　　だ　ん 　　 i|::ﾊ: : : : : : : : : : : ､ﾍﾍﾍﾍ　　　　 ､　　ﾍﾍﾍﾍﾍ /: : : : : ＼,|.　　　ろ　な 　　 |!l　|: : : : : : : : :､: ::＼　　　　､-―-,　　　　　　/ : : :丶;,,;,:ミヽ　　 う　 ら 　　　　　丶: :ﾊ､lヽ: :ヽ: : ::＼__　　｀~　"　　　　　 /: : ﾄ; lヽ）　　　ゝ 　　　　　　 ﾚ　｀|　｀､l｀､＞=ﾆ´　　　　　　　 ,　　_´ : :}　｀　　　／ 　　　　　　　　 ,,､r"^~´"''''"t-｀r､ _　　-､　´ヽノ　＼ﾉ　　　／　　　　お ・ 　　　　　　　,;'~　　_r-- ､__　　　　　~f､_>'､_　　　　　　　　 |　　で　　前 ・ 　　　　　　f~　　,;"　　　　　~"t___　　　　ﾐ､ ^'t　 　 　 　 　|　　は　　ん ・ 　　　　　 ,"　　,~　　　　　　　　　ヾ~'-､__　ﾐ_ξ丶　　　　　|　　な　　中 ・ 　　　　　;'　　,ｲ　.. 　　　　　　　　　ヽ_　　 ヾ､0ヽ丶　　　　l　　　　　　　　　/ 　　　　 （　;":: |:　:: ..　　　　　　　　　 .｀,　　 ヾ　丶 !　　　　＼＿＿＿＿／ 　　　　　;;;; :: 入:: :: :: 　 　　　l｀ｰ-､　　 ）l　　 ヾ　丶 　　　　　"~､ｿ:: :い:: :　　　　　＼_　　ノ　,　　　 ヾ　丶 957 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:04:09.73 ] >>954 新しい言語を作るつもりなら期待してやっても良いぞ print FILEHANDLE LIST 958 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:07:18.91 ] ＞カンマを端折ってprint 3 + 5 8とすると区切りが分からなくなる。 分からなくはない コンパイラが8が演算子かどうか調べればいい 見た目が分かりにくくはなるが 959 名前：デフォルトの名無しさん mailto:age [2012/03/01(木) 16:08:43.91 ] このスレ馬鹿が多いなｗ 晒しage 960 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:12:51.04 ] こういうのを自己言及と言います 961 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:14:04.23 ] カリー化と括弧省略の合わせワザが使えたら、間違いなく地獄を見るな。 962 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:14:28.41 ] perlは文法が適当だからな 括弧で括るけど、気に入らなければ無くてもいい ヒュペリオンよりも適当 963 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:34:31.90 ] $a = 1; print ($a+1)*2 . "\n"; これでいいだろ、と直感的には思うのに、 print (($a+1)*2) . "\n"; こうでないと思い通りには動かない 964 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:42:07.59 ] 後者も上手く動いてないだろ。改行文字は出力されない。 ラクダ本曰く関数呼び出しは関数呼び出しのように振る舞う。 print (($a+1)*2) . "\n";これは print (($a+1)*2)で1つの関数呼び出しになっている。#=> 4が出力される その返り値に. "\n"されたものがヴォイドコンテキストで評価される。 #=> "4\n"が生成されて捨てられる 965 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:45:33.11 ] print (($a+1)*2 . "\n"); こっち 966 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:48:18.00 ] つーかそれは print +($a+1)*2 . "\n"; でもできるよね 967 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 16:49:31.13 ] その+地味に使えるよな。 +演算子は前に項がない場合何もしない、だっけ。 968 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 17:11:27.24 ] でもトリッピーだよな 何このプラス?、取っていい? って思う 書いた本人が暫く経つと思う 全体を括弧で括るのも、取っていい? って思いがちだけど ぱっと見に異常さがなくて、かつ最もシンプルな書き方がベスト 969 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 17:47:35.32 ] トリッピーってのは 書いた本人なのに暫く経つとなんで「+」つけたか忘れちゃうようなトリ頭のこと? 970 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 17:49:41.94 ] 英語教材のアレだろ そのわりにはアレだな アレ とりっぴぃ（） 971 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 18:07:50.60 ] # 頭の+は取るな とか書いとけば嫌でも思い出すけど、 意味があってやってることを忘れてると、普通に消し忘れに見えるぞ それほどまでに print は括弧を付けて使わない 972 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 21:28:37.85 ] @a = ([1, 2], [3, 4]); print $a[0][0]; $b = [[1, 2], [3, 4]]; print $$b[0][0]; どっちが好き? 973 名前：デフォルトの名無しさん [2012/03/01(木) 21:59:51.62 ] うるさいゴミ 974 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 22:06:46.87 ] これがオレの流法 print $b->[0]->[0]'; 975 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 22:11:24.09 ] print $c, "\n"; のprintの話ではないけど… Perlの前に、AWKがあった。 AWKの場合、 $c "\n" で連結される。 「何もないものを演算子にしてしまうと、/pat/ /pat/がパースできなくなってしまう。 なぜなら、3番目のスラッシュが除算演算子と解釈されてしまうからだ」 『プログラミングPerl改訂版』2000年3月21日オライリー・ジャパン 976 名前：975 mailto:sage [2012/03/01(木) 22:15:22.43 ] >>975は、p. 610 awkユーザがはまりやすい罠（8.2.3） 977 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 22:34:37.21 ] 結合する時は結合先のバッファを確保して、strcpyすんだよ #include <string.h> を忘れがちだから注意な 978 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 22:52:27.95 ] >>972 ケースバイケース 979 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 01:22:35.76 ] ケースバイケースとか状況に依るとか言うやつで 特徴を掴んだ典型例を2つ3つ示せない奴は無能 980 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 01:40:41.97 ] 後ろから詰めていきたいのですが。 ($hoge, $huge, $asdf) = @aryとした場合、リストが左寄せで代入され、要素が不足した部分にはundefが入りますが これを右寄せで代入したいです。 最初のゲスコード ↓ my ($sensen, $sensyu, $konsyu); ($sensen, $sensyu, $konsyu) = @ARGV if (@ARGV == 3); ($sensyu, $konsyu) = @ARGV if (@ARGV == 2); もっと良い感じに出来そうなのですが、皆さんならどのように書きますか？ unshift @ARGV, undef if (@ARGV == 2); my ($sensen, $sensyu, $konsyu) = @ARGV; 今はこんな感じにしています。もっと変な方法を教えて下さい。 981 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 01:48:51.67 ] 好みを訊かれてるのにケースバイケースになる奴は、 天気によってコーディングのスタイルを変える 982 名前：デフォルトの名無しさん [2012/03/02(金) 01:53:59.72 ] 俺も人に何かきかれたときに、自分のレベルでは太刀打ちできないときはケースバイケースって言ってるよ 40%くらいの確率で「ああ、やっぱそうっすよねー」って丸め込める でも1対1のときで40%くらいだから、集団の中で使うには分が悪い >>979みたいなアグレッシブな奴にバレる 983 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 01:58:10.41 ] 晴れの日にはカラッと見通しの良く可読性のいい気分の良いコード 雨の日にはしっとり上品で丁寧なアルゴリズム、雨の中純白色した傘をさし、しとしとと歩くお嬢様のようにどこか儚いコード 984 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 02:03:44.37 ] >>980 my ($konsyu, $sensyu, $sensen) = reverse @ARGV; 985 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 02:31:04.74 ] >>980 my ($sensen, $sensyu, $konsyu) = @ARGV[-3, -2, -1]; 986 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 04:26:57.50 ] Perlのスレッドについて質問です。 メインスレッドで無限ループのスレッドを生成したのですが、 メインスレッドから終了させる方法がわかりません。 下記のような方法では、メインスレッドも死んでしまいます。 $thread->exit(); どうすれば良いですか？ 987 名前：986 mailto:sage [2012/03/02(金) 04:45:58.41 ] 自己解決しました 988 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 10:07:41.72 ] なんか、@ARGVを直で書くべきでない気がするので、 shiftを何回も使う以外の方法で、いい感じに引き数を取得する方法は無いだろうか 989 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 10:29:57.30 ] 984の方法があまりにも鮮やかだったから 嫌みでもタレてんの？ 990 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 11:04:43.35 ] > なんか、@ARGVを直で書くべきでない気がするので、 なんか気がすると言われても、他の人はそう思ってないから…… 991 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 11:09:52.04 ] >>988 引数を便利に取得するモジュールいろいろあると思うから探したら？ 992 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 12:09:46.45 ] >>989 自分で鮮やかとか言うなし 993 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 12:19:43.13 ] Getopt つかえば @ARGV はあんまり参照しなくていいじゃん。 994 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 12:30:30.89 ] バカがこねくりまわし時間とて3行費やして自己満足してるのに リバースで一行、 バカが@ARGV使うなとかワメくのもわかるよ 嫉妬と無能の自己紹介そのものだもん 995 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 13:11:35.16 ] ( ..)φメモメモ 996 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 13:14:36.94 ] 次スレは>>1001がよろ 997 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 14:29:56.22 ] >>993 モジュール呼び出しはいやだ 998 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 14:39:26.60 ] 次スレ Perlについての質問箱 51箱目 toro.2ch.net/test/read.cgi/tech/1330666216/ 999 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 15:07:45.56 ] ぎんがてつどう 1000 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 15:18:25.06 ] の朝 1001 名前：１００１ [Over 1000 Thread] このスレッドは１０００を超えました。 もう書けないので、新しいスレッドを立ててくださいです。。。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef