Perlコーディング初心者質問スレ Part 55
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2007/05/30(水) 11:34:01ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >>2-10
前スレ http://pc11.2ch.net/test/read.cgi/php/1171102883/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0237nobodyさん
2007/06/21(木) 18:43:32ID:???0238nobodyさん
2007/06/21(木) 18:43:38ID:???可読性を考慮してのことなのでしょうか？
↑で９割正解かと
0239nobodyさん
2007/06/21(木) 18:53:29ID:???Template Toolkit で EVAL_PERL オプションを付け、
テンプレートの中にPERLのコードが書けるようにしました。
で、下記のように書いてテンプレートフォルダ内の count.txt を読み込むよう記述したのですが
その内容が全く出力されませんでした。
Template Toolkitではパールのコードは書けるけどファイルハンドルは扱えない等、
そういう制限があったりするのでしょうか？
[% PERL %]
open FH,"count.txt";
my @count = <FH>;
print @count;
close FH;
[% END %]
0240235
2007/06/21(木) 18:59:48ID:???これから新たに書く場合は心掛けた方が良いけど
既に書き上げてしまったものの中で、自分でコードを全て把握しており
第三者に読ませることがないものについては放置でも良い
という方針でいこうと思います。
>>237
「そのCGIだけで完結していて、他のCGIから呼び出されない」という意味です。
>>238
ありがとうございます。
「とりあえずuse strict;は必須！」と書いてあるところは多いのですが
そのメリットやデメリットについてまで詳しく書かれているところは少なく
自分の理解が合っているのか不安だったので助かりました。
0241nobodyさん
2007/06/21(木) 19:05:29ID:???そんな制限はきいたこともないな。よくわからんがファイル開けて
ないんじゃねーの?
printやcloseのエラーまで厳密にチェックしろとまではいわないが、
openのエラーチェックだけは省略しないほうがいいよ。
0242nobodyさん
2007/06/21(木) 19:18:14ID:???ありがとうございます。
エラーチェックしてみたところ、openの段階でファイルが開けていませんでした。
しかしパスも間違えていないのに何故に開けないんだか。。
原因不明です（´・ω・｀）
0244nobodyさん
2007/06/21(木) 19:52:32ID:???ちょこっと検証したけど挙動が変だわw
何れも当環境下なので、あなたの所で上手く行くかどうかは保証外。
以下、成功例
#!/usr/bin/env perl -w
use strict ;
use Template ;
my $tt = Template->new({ EVAL_PERL => 1}) ;
$tt->process(\*DATA, ) ;
__DATA__
[% PERL %]
open FH , 'hoge.pl' or die ;
my @line = <FH> ;
close FH ;
print @line ;
[%- END -%]
'hoge.pl' という名前で保存。これは上手く動いた。ちなみに $/ が undef されてるっぽいので、
@line を $line に変更しても動く。最終改行の制御がどうしても一個多かった。
0245244
2007/06/21(木) 19:54:53ID:???my $tt = Template->new({ EVAL_PERL => 1}) ;
$tt->process(\<<"EOF", ) ;
[% PERL %]
open FH , 'hoge.pl' or die ;
my @line = <FH> ;
close FH ;
print @line ;
[% END %]
EOF
Possible unintended interpolation of @line in string at hoge.pl line 9.と
Global symbol "@line" requires explicit package name at hoge.pl line 9.が出る。
かといって my @line を普通に先に宣言しても上手く動かない。
0246nobodyさん
2007/06/21(木) 20:22:49ID:???0247nobodyさん
2007/06/21(木) 20:24:59ID:???それはttが動く以前の話だろ。
use strict;
print <<"EOF";
@line
EOF
と同じこと。
0248nobodyさん
2007/06/21(木) 20:35:19ID:???わざわざ検証して下さってありがとうございます！
環境の違いがありますが試してみます！
大変参考になりました、感謝です！
0249nobodyさん
2007/06/21(木) 21:06:24ID:???> かといって my @line を普通に先に宣言しても上手く動かない。
ってこっちの例を出すべきでしたね。失礼。
0250244
2007/06/21(木) 22:19:28ID:???アホでした。245以降の私の戯言は消去してください。バルス！！
ああああああ、穴があったら入りたい。ったらありゃしない。
0251nobodyさん
2007/06/21(木) 23:04:05ID:???flock(FILE,2);
my @test = <FILE>;
flock(FILE,8);
close(FILE);
として、test.dat(↓)を読み込み、
テスト1
テスト2
テスト3
unshift(@test,"テスト\n");
と先頭に文字列を追加して
unless(open(FILE,">test.dat")){&error();}
flock(FILE,2);
print FILE @test;
flock(FILE,8);
close(FILE);
という様に書き込んだのですが、見てみると
テスト4 テスト1
テスト2
テスト3
の様に改行されず出力されている様ですが、これは何故でしょうか？
0252251
2007/06/21(木) 23:24:48ID:???\nではなく\r\nとしたら、理想どおりの結果になりました。
スレ汚しすみませんでした…。
0253nobodyさん
2007/06/23(土) 11:05:34ID:???0254nobodyさん
2007/06/23(土) 16:43:39ID:???2： トイレに行って踏ん張ってみたが
3： うんこがでない
0255nobodyさん
2007/06/23(土) 20:09:32ID:???use strict;
my $a = 1;
print "$a\n";
これは正しいのに
# b.pl
my $a = 1;
1;
#a.pl
use strict;
require "b.pl";
print "$a\n";
これは正しくないのは何故ですか？
b.plで変数を宣言し、a.plでb.plをrequireしたら、b.plで宣言した変数が使えるのではないですか？
0256nobodyさん
2007/06/23(土) 20:13:58ID:???0257nobodyさん
2007/06/23(土) 23:12:26ID:???ちったぁ考えろヴァカが！！！！！
0258nobodyさん
2007/06/24(日) 00:04:21ID:???オマエモナー
以下無限ループ
0259nobodyさん
2007/06/24(日) 03:10:40ID:???> 最も外側のスコープであるファイルスコープで宣言されたのであれば、
> レキシカル変数はCのファイルにstaticなものと同じように振る舞います。
> 同じファイルの、宣言の後にある全ての関数から参照可能でありますが、
> そのファイルの外側から参照することはできません。これはモジュールの中で
> モジュールにプライベートな変数を作るために使われます。
0260nobodyさん
2007/06/24(日) 03:11:31ID:???いつからここは初心者罵倒スレにかわったの？
質問に答える気ないなら繰るなよ
0261nobodyさん
2007/06/24(日) 03:13:38ID:???眼科池よ
0262nobodyさん
2007/06/24(日) 03:23:31ID:???眼科池よ
0263nobodyさん
2007/06/24(日) 06:49:32ID:???なんか最近こういうの多くないか…意図的な偽者な気もするけど。
普通に別ファイルでmy付で宣言したら参照出来ないのは当たり前な気がするが
0264nobodyさん
2007/06/24(日) 08:29:54ID:???普通の変数で実行したら、きちんとエラーメッセージが出る
(compilation errors)し、そしたらここで質問せずに済む。
0265nobodyさん
2007/06/24(日) 16:08:49ID:???>>262だが、>>260の3行目は確かにおかしいが、それに対する>>261の
「回答してるからいいじゃん」的な発言もどうかと思うのでレスしただけ。
ここは初心者質問スレなわけで、当たり前の事でもわからない人が来る訳で。
それに対していちいち馬鹿だのなんだのと余計な一言つけないと回答できない
>>257 = >>261 = 263 は来なくていいと思う。
0266nobodyさん
2007/06/24(日) 16:35:34ID:???0268nobodyさん
2007/06/24(日) 17:18:27ID:???0269nobodyさん
2007/06/24(日) 18:02:44ID:???暴言が嫌ならmixiとかでやれよ。ここはそこまで平和な掲示板じゃないっての。
わたくすは普段は回答に罵倒なんか付けない善良な回答者ですが、何か。
0270nobodyさん
2007/06/24(日) 18:10:57ID:???馬鹿扱いされた質問者が
必死になってるとしか思えないｗｗ
0271nobodyさん
2007/06/24(日) 18:27:57ID:???0272nobodyさん
2007/06/24(日) 19:03:18ID:???自分の事を棚に上げる>>269の脳味噌はさぞ凄いんだろうな。
暴言が嫌とか、そもそも俺は質問者じゃないからどうでもいい。
ただ単に>>261が、>>260のレスに対してあほなレスして、
それに俺があほなレスを返したところで善良な(笑)>>263様が登場したわけさ。
>>270みたいな安直な考えしか浮かばないなら、勝手にそう思っとけ＾＾
0273nobodyさん
2007/06/24(日) 19:30:15ID:???0274nobodyさん
2007/06/24(日) 19:35:46ID:???どこが自分のことを棚に上げてるの?
もしかして>>263の1行目のこと? "なのか?"って読める?
しかもまた>>270と同一人物だと認定するの? どこまで自己中なの?
0275nobodyさん
2007/06/24(日) 19:37:42ID:???0277nobodyさん
2007/06/24(日) 20:21:05ID:???ゆとり〜童貞〜中卒〜在日〜部落〜
もうこの手のレッテル貼りは飽きたわ…
0278nobodyさん
2007/06/24(日) 20:40:42ID:???>>258,260,262は特に質問者を擁護している訳でもないのだが、
>>263は根拠もなく自演を思わせるレスをしている。
なのか？が該当者或いは他の閲覧者に対する疑問文なら相当な池沼。
>>261,263は>>257を擁護しており、
＞わたくすは普段は回答に罵倒なんか付けない善良な〜
が「罵倒したのは257の時だけ」とも取れる内容なので、自演と疑われる要素はある。
そして、>>272の末行の内容は269のみに宛てたレスではなく、
270と同様の考えをしている者に向けられたものである。
よって自演を指摘するものではないが、>>274は自己な解釈のみで
自演を指摘するものと判断し、それを根拠に自己中呼ばわりしている。
また、「同一人物だと認定」発言や、それらしい発言が無いにも関わらず「自己中」等という
レスを返す>>274は「ゆとり」或いはそれと同程度の知的レベルであると推測される。
さらに、>>277が269や274と同一人物であるかは定かではないが、
>>276が272であると、やはり自己の解釈のみで判断し、レスをしている。
思考に似た点が多い為、恐らくは同一人物であると推測されるが、いずれにせよ
「自分を非難する者を同一人物とし、レスを勝手に解釈し批判する」という
自分の自己中心的思考に気付かずにレスを繰り返す理解し難い有機生命体には
何を言おうが無駄だと推測できるので、これにて閉店とさせて頂きます。
またのご来店をお待ちしております＾−＾
0279nobodyさん
2007/06/24(日) 21:06:02ID:???[1~] 2chに限らず周りに意見を求めるのを知的障害者と認定するなんて、
余程あなたは世間知らずなのですね。社会に出ましょう。
[6~] 罵倒自演云々はあなたの勘違いですね。反省して下さい。
[10~] 何度も言いますが、日本語読めますか。私は疑問系で書いてるのに、
君は265で断定して書いてる訳で。一緒にしないで下さい。
[15~] 自分のレスを読み返せばあなたが自己中なのは明瞭です。
[18~] 自己矛盾してますね。自分で妄想で語ってるのに気付きませんか。
[21~] 同一人物化云々も君の妄想の域を出ませんね。何を言おうが無駄なら
これ以上私にレスしないで下さいね。閉店とか言って顔文字使ってるのから
必死さが伝わってきて、個人的に気持ち悪いです。初心者みたいで。
0280nobodyさん
2007/06/24(日) 21:11:20ID:???0281nobodyさん
2007/06/24(日) 21:25:13ID:???余程自身が自己中扱いされるのを嫌ってる様だけど、事実なんだよね。
>>265を自分で読み返せば分かると思うけど、一応書いて置くね。
罵倒が嫌なら温いコミュニティに行けば良い訳。それで、自分の掲示板でもないのに
『いちいち馬鹿だのなんだのと余計な一言
つけないと回答できないxxxは来なくていいと思う。』
これは、誰がどう見ても自己中心的な考えだよね、回答者を排除する。
2chは自由な掲示板なんだよ。質問者も自由、回答者も自由。
もちろん、君も意見を言うことは自由だよ。しかし、それによって
住人に叩かれたら、それは事実として認めないといけない訳。
0283nobodyさん
2007/06/24(日) 21:35:43ID:???つまり、何を言いたいかと言うと、君は2ちゃんねるには不向きなんだよ。
こんな些細な「馬鹿」とか「阿呆」に反応してる様ではまだまだ未熟な訳ですよ。
いわゆる半年ROMれっていう。適当な板で経験積んでからお越し下さい。
それでも君がこんな2chの体質は異常だと主張するなら、批判要望板にでも行って下さい。
板違いです。 [2ch批判要望] http://ex21.2ch.net/accuse/
0285nobodyさん
2007/06/24(日) 21:49:30ID:???文脈から低脳さが滲み出てる奴多いよね〜
0287nobodyさん
2007/06/24(日) 22:22:04ID:???0288nobodyさん
2007/06/24(日) 22:31:22ID:???Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
Perlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろPerlコーディングの話をしろ
0291nobodyさん
2007/06/25(月) 11:35:07ID:???0292nobodyさん
2007/06/25(月) 13:12:47ID:???0293nobodyさん
2007/06/26(火) 07:28:23ID:QSRpPplO２：以下のようにやってみました。
open(OUT,"> ./$id/g4.cgi");
print OUT $Buf4;
close(OUT);
chmod 0775,'./$id/g4.cgi';
３：エラー表示発生せず、なぜか属性644で作成される。
以前もどこかのスレに相談させていただいたのですが、
chmod 0775,'./$id/g4.cgi';
↑これでいけるとの事でしたが動きません＞＜
サーバーはジオプラス→ロリポップ→さくらインターネットと乗り換えてみました
いずれも動きません。
0294nobodyさん
2007/06/26(火) 08:31:12ID:???chmod 0775,'./$id/g4.cgi';
''
と
""
の違いについて調べれ。
chmod 0775,"./$id/g4.cgi";
これなら動く。
0295nobodyさん
2007/06/26(火) 08:31:38ID:???１
って出るんですが、これはどういうことでしょうか？
0296nobodyさん
2007/06/26(火) 10:20:52ID:???ソースも無く、再現する状況を並べるでもなく、どうすればいいのか。
0297nobodyさん
2007/06/26(火) 10:25:23ID:???use DBI;
$sth = $db->prepare("SELECT seller, Sum(price) FROM hogehoge GROUP BY seller");
$sth->execute;
while (my $hash_ref = $sth->fetchrow_hashref) {
print "$hash_ref->{seller} $hash_ref->{Sum(price)}<br>\n";
}
fetchrow_hashrefで、Sum(price)の値を見たいのですが、$hash_ref->{ } の { }中にはどう書けばいいのでしょうか？
0298nobodyさん
2007/06/26(火) 10:31:16ID:???require するファイルの末端に 1; って書くけど、もしかして
実行させる CGI 本体のファイル末端にも 1; を書いていませんか？
0300nobodyさん
2007/06/26(火) 10:40:05ID:???foreach (keys %$hash_ref) { print; } で見てみると、sellerとSum(price)っぽいんだけど、
$hash_ref->{Sum(price)} って書くとエラーになります…
0301nobodyさん
2007/06/26(火) 10:47:43ID:???0302nobodyさん
2007/06/26(火) 10:55:12ID:???でもだめなようです。スレ違いですが、SQL文を工夫して
use DBI;
$sth = $db->prepare("SELECT seller, Sum(price) AS sumprice FROM hogehoge GROUP BY seller");
$sth->execute;
while (my $hash_ref = $sth->fetchrow_hashref) {
print "$hash_ref->{seller} $hash_ref->{sumprice}<br>\n";
}
とすることで一応の解決はみたのですが、直接参照する方法はないのでしょうか？
0303296
2007/06/26(火) 11:13:42ID:???書いてません。__END__はありますが・・・
外部ファイルはuseで読み込んでます。
そっちには1;って書いてます。
一体どうしたらいいのか・・・出るのは毎回じゃなくて時々です。
0304nobodyさん
2007/06/26(火) 12:42:27ID:QSRpPplOありがとうございました
自作に行き詰まって業者に制作依頼の見積もりしたら４０万だったので諦めて
いたのですが、０円ですみましたほんとうにありがとぉ。
0305nobodyさん
2007/06/26(火) 13:58:53ID:???これでどう？
$hash_ref->{'Sum (price)'},
# 一度、use Data::Dumper; して print Dumper($hash_ref); してみるといいかも。
0306nobodyさん
2007/06/26(火) 14:45:38ID:VwPHcZDuどのように組めばよいですか？
---------------------------
sftp hogehoge
get /home/member/110
bye
-------------------------
0308nobodyさん
2007/06/26(火) 14:50:33ID:???0309nobodyさん
2007/06/26(火) 23:20:42ID:???普通、お前がやったように
Sum(price) AS sumprice
こうする。これが「直接」でないというお前の感覚が腐っている。
0310nobodyさん
2007/06/28(木) 11:56:41ID:YXGDvJmiHTML::Template.pm を使うようになって便利さを感じています。
そこで、フォームの入力の取得も cgi-lib.pl から CGI.pm に変更しようと思い
&ReadParse;
## タグ処理
foreach (keys %in) {
$in{$_} =~ s/</</g;
(略)
}
としているのを、
my $q = new CGI;
my $in = $q->Vars;
foreach (keys %$in) {
$in->{$_} =~ s/</</g;
(略)
}
としてみたのですが、変わった気がしません。
これくらいなら、CGI.pm に変更するメリットはないのでしょうか？
0311310
2007/06/28(木) 11:59:09ID:YXGDvJmiです。
0312nobodyさん
2007/06/28(木) 12:00:42ID:???これはこれで大きいんじゃないの？
0313nobodyさん
2007/06/28(木) 13:46:44ID:5j7nThKQwavファイルをアップしようとしたらこのようなエラー表示が出てアップできません
Short Read: wanted 194, got 0
これがなんなのか教えてください。
0314nobodyさん
2007/06/28(木) 14:05:04ID:???0315nobodyさん
2007/06/28(木) 16:29:12ID:???何のためにOOインタフェースも用意してあんだよ
0316nobodyさん
2007/06/29(金) 13:30:50ID:FzkfeL60今でもやはりjcode.plが一番なんでしょうか？
Jcode.pmだとEUCを通してから変換を行っているせいか
一部文字化けが避けられませんよね。
何かおすすめの方法とかモジュールとかあれば是非教えて下さい。
Perlは5.8.6です。
よろしくお願いします。
0317nobodyさん
2007/06/29(金) 13:55:16ID:???jcode.pl使ってるけど、文字コードをEUCに揃えておいて、出力するときにShift_JISじゃだめかな。
ついでに、俺も似たような質問。
文字列に全角ひらがな [ぁ-ん]以外が含まれていないことをチェックしたくなりました。
文字コードはEUC-JPです。
あまりいい方法が思いつかないので、下記のページを参考にして、文字を１文字ずつ分割して
チェックしようかなと思うのですが、他にエレガントな方法はないでしょうか？
Perlメモ
ttp://www.din.or.jp/~ohzaki/perl.htm
# 全角ひらがな [ぁ-ん] # EUC-JP
$Zhiragana = '(?:\xA4[\xA1-\xF3])';
# $str を文字単位に分割して配列 @chars に代入する
$ascii = '[\x00-\x7F]';
$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
@chars = $str =~ /$ascii|$twoBytes|$threeBytes/og;
if ((grep { $_ =~ /$Zhiragana|\s/ } @chars) != ($#chars + 1)) {
print "全角ひらがな以外がある！";
} else {
print "全角ひらがなしかない！";
}
0318nobodyさん
2007/06/29(金) 13:57:36ID:???>>316
jcode.pl使ってるけど、文字コードは全てEUCに揃えておいて、出力するときにShift_JIS変換じゃだめかな。
ついでに、俺も似たような質問。
文字列に全角ひらがな [ぁ-ん]以外が含まれていないことをチェックしたくなりました。
文字コードはEUC-JPです。
あまりいい方法が思いつかないので、下記のページを参考にして、文字を１文字ずつ分割して
チェックしようかなと思うのですが、他にエレガントな方法はないでしょうか？
Perlメモ
ttp://www.din.or.jp/~ohzaki/perl.htm
# 全角ひらがな [ぁ-ん] # EUC-JP
$Zhiragana = '(?:\xA4[\xA1-\xF3])';
# $str を文字単位に分割して配列 @chars に代入する
$ascii = '[\x00-\x7F]';
$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
@chars = $str =~ /$ascii|$twoBytes|$threeBytes/og;
if ((grep { $_ =~ /$Zhiragana/ } @chars) != ($#chars + 1)) {
print "全角ひらがな以外がある！";
} else {
print "全角ひらがなしかない！";
}
0319316
2007/06/29(金) 14:10:58ID:???>jcode.pl使ってるけど、文字コードをEUCに揃えておいて、出力するときにShift_JISじゃだめかな。
全く問題ないと思います。
質問の趣旨としてはjcode.plに代わる新たなモジュールとか方法とかが
出てきてないかな、ということだったんですが分かりにくかったらすみませんでした。
できたら標準モジュールで済ませたいという思いがあって
Jcode.pmを見てみたんですが、ちょっと問題ありだったのでそのことについても
対策があるのか聞いてみました。
やはりjcode.plは今でも全半角変換の定番なんでしょうか？
0320nobodyさん
2007/06/29(金) 14:25:23ID:???decode('euc-jp', $s) =~ /[^\p{Hiragana}]/
0322nobodyさん
2007/06/29(金) 16:09:18ID:???0323nobodyさん
2007/06/30(土) 14:49:08ID:taxZDsiL元のファイルを空にしようと思うんだけど、どの程度の容量を超えた場合にリネームするのが適切？
0324nobodyさん
2007/06/30(土) 15:37:16ID:???0325nobodyさん
2007/06/30(土) 17:34:51ID:???0326nobodyさん
2007/07/03(火) 14:19:01ID:8gn4hJb2常に判定式が真になるという条件付きで$aに乱数をセットしたいです。
my $a = rand 1;
これでは0が入る可能性がありますのでアウトということです。
unless($a>0 and $a<=1){ $a+0.000001 }
などのように乱数の公平性を崩しかねない方法は避けたいです。
unless($a>0 and $a<=1){ $a = rand 1 }
これをループ処理でやっても多分公平性を損ないますよね。
（最低でも小数点第9位までと考えていますが、多くても困らないので*1億→int→/1億などはしていません。）
賢い方どうぞよろしくおねがいします。
0327nobodyさん
2007/07/03(火) 14:22:12ID:???$a>=0 and $a<1;
0329326
2007/07/03(火) 14:32:53ID:8gn4hJb2？？？
http://perl.misty.ne.jp/function02/rand.html
ここを見る限りでは0~1ということなので0も1も出てくるみたいですが。
解釈が間違ってるでしょか？
0330nobodyさん
2007/07/03(火) 14:35:08ID:???0332nobodyさん
2007/07/03(火) 14:38:23ID:???そのページの記述はいい加減なのでちゃんと付属のマニュアル嫁
rand EXPR
rand Returns a random fractional number greater than or equal to 0
and less than the value of EXPR. (以下略)
0334326
2007/07/03(火) 14:43:10ID:8gn4hJb2つまりrand 1の返り血が1であることは100%ないということですか？
なるほど。0~1というのは自分の勘違いですね。
>>328
これはどうなるんですか？
-1から始まって0までが選択される？
つまり -1<rand(-1) and 0<=rand(-1) ということですか？
なんかこんがらがりそうorz
0335326
2007/07/03(火) 14:45:30ID:8gn4hJb20以上1未満ということで。感謝ですm(__)m
0336328
2007/07/03(火) 15:51:45ID:???そうなの？
use strict;
use warnings;
print rand(-1); # -0.689697265625 が出た。strict も warnings も何も言わない。
>>334
rand(1) が返すのは0以上1未満の値。なので>>330へのお返事についてはそのとおり。
>>328は、上で負数を食わすな的に言われてるから忘れてください。
■ このスレッドは過去ログ倉庫に格納されています