[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 04/25 05:23 / Filesize : 232 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

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辺り

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 名前:1001 [Over 1000 Thread]
このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。






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

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<232KB

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