Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
20: デフォルトの名無しさん [sage] 2012/10/07(日) 23:45:55.55 AAS
>>1919(1): デフォルトの名無しさん [sage] 2012/10/07(日) 23:44:10.62 AAS
grepでいいんじゃないか？UNIXの文化な
ありがとうございます。
それからもうひとつ、
array_uniqueに相当する関数はどれでしょうか？
21: デフォルトの名無しさん [sage] 2012/10/08(月) 00:16:19.24 AAS
ハッシュのキーにして、最後にキーを取り出す
22: デフォルトの名無しさん [sage] 2012/10/08(月) 00:29:08.71 AAS
my %uniq = map { $_ => 1 } @array;
my @array_uniq = keys %uniq;
23: デフォルトの名無しさん [sage] 2012/10/08(月) 00:37:42.34 AAS
長いな。
24: デフォルトの名無しさん [sage] 2012/10/08(月) 01:25:04.19 AAS
初心者に変なもん奨めるんじゃないぞ
25: デフォルトの名無しさん [sage] 2012/10/08(月) 01:37:02.22 AAS
%u = map {$_,1} @a;
@u = keys %u;
#ﾁﾁﾞﾒﾃﾐﾀ
26(1): デフォルトの名無しさん [sage] 2012/10/08(月) 10:06:15.64 AAS
my @array_unique = keys %{{map {$_,1} @array}};
perl 5.14 以降なら
my @array_unique = keys {map {$_,1} @array};
27: デフォルトの名無しさん [sage] 2012/10/08(月) 11:07:41.23 AAS
ひと頃List::Utilが湧いたのはPHPとの比較が原因か
28: デフォルトの名無しさん [sage] 2012/10/08(月) 13:27:23.56 AAS
>>26
なんかバッドノウハウ臭が強いな。
29: デフォルトの名無しさん [sage] 2012/10/08(月) 14:21:09.99 AAS
んなこたあない。
30: デフォルトの名無しさん [sage] 2012/10/08(月) 14:24:32.17 AAS
ここでList::Utilを持ち出し、直後からスレが荒れるのが定番。
31(9): デフォルトの名無しさん [sage] 2012/10/08(月) 14:31:44.97 AAS
あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
get_num();
my $num=200
while(1)
{
if(new_num() >=$num)
{
okと表示
}
}
okがうまく表示されません
毎回get_numでサイトにアクセスして取得しているというのが悪いんでしょうか？原因がわかりません教えてください
32(1): 31 [sage] 2012/10/08(月) 14:33:07.32 AAS
new_num()で取得した値は $numより大きいです
大きいのになぜか比較されずにスルーで何も表示されずループです
33: デフォルトの名無しさん [sage] 2012/10/08(月) 14:39:56.54 AAS
>あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
↑これは get_num() のことですか？new_num() のことですか？
get_num() は return $num; しないんですか？戻ってきた値は使わないんですか？
>毎回get_numでサイトにアクセスして
↑ get_num() は while の中にありませんが、この外にループがあるんですか？
34: デフォルトの名無しさん [sage] 2012/10/08(月) 14:43:57.35 AAS
use strict; 落ちか
腕を上げたようだな、モダンPerl。
35(1): Perl忍者 ◆M5ZWRnXOj6 [] 2012/10/08(月) 14:44:44.21 AAS
>>31
$|=1;
それかprint "ok\n";
改行いれとけ
36: デフォルトの名無しさん [sage] 2012/10/08(月) 14:46:12.89 AAS
改行入れてもループは終わらんだろｗ
37(4): デフォルトの名無しさん [] 2012/10/08(月) 15:14:18.81 AAS
>>31
マジレスすると
お前みたいな低脳には無理
38(4): デフォルトの名無しさん [sage] 2012/10/08(月) 15:34:01.73 AAS
荒らしの連立てしたスレを伸ばそうとしてる>>31は荒らし
消えろやゴミが
39(2): デフォルトの名無しさん [sage] 2012/10/08(月) 15:43:26.69 AAS
>>37=>>38
40: デフォルトの名無しさん [] 2012/10/08(月) 16:04:33.60 AAS
>>37=>>38=>>39
41: デフォルトの名無しさん [] 2012/10/08(月) 16:16:12.31 AAS
>>31=>>39
42(1): デフォルトの名無しさん [sage] 2012/10/08(月) 17:19:35.10 AAS
$|=1;
my $num=200; ←ｾﾐｺﾛﾝ忘れるな
while(1){
if(get_num() >= $num){ ← get_num()、な
print "ok\n"; ← うるせぇやつがいるから改行、な
last; ← これなけりゃ無限ループだわな
}
sleep(60); ← Web にアクセスするなら忘れるんじゃねぇぞ
}
43(3): デフォルトの名無しさん [sage] 2012/10/08(月) 18:01:11.94 AAS
なんで>>31みたいなカスがプログラミングなんかに手を出したのか疑問。
44(3): デフォルトの名無しさん [sage] 2012/10/08(月) 18:06:38.78 AAS
>>43
そんなのが疑問になるのは
お前が馬鹿だからじゃないだろうか。
上下前次1-新書関写板覧索設栞歴
あと 479 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.020s