Perlコーディング初心者質問スレ Part 46
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/01/18(水) 02:17:46ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0552nobodyさん
2006/02/09(木) 21:58:17ID:???#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
open(DATA, ">> data.dat");
print(DATA "%ENV<HR>\n");
close(DATA);
exit;
エラーが出て動きません。
自分ではこのソースに間違いを見つけられないのですが、その他パーミッションなどの設定のほうを疑うべきでしょうか…？
お願いしますm(_ _)m
0554nobodyさん
2006/02/09(木) 22:02:20ID:???0555nobodyさん
2006/02/09(木) 22:09:16ID:???0556549=550
2006/02/09(木) 22:16:00ID:???ん？何かまずいこと言った？
らくだ本にも、
> 次のような記法 (中略) で使われる裸の識別子は、裸のワードとは見なされない。
> なぜなら、これらは「文法的にほかに解釈がない」のではなく、
> 規則によって陽に許される書き方だからである。
って書いてるよ。
0557nobodyさん
2006/02/09(木) 22:19:08ID:???0558nobodyさん
2006/02/09(木) 22:35:43ID:???パーミッションじゃない？
open() のとこをこんな風にしてエラーメッセージを出させてみては？
unless (open(DATA, ">> data.dat")) {
print "Open error: $!\n";
exit;
}
0559nobodyさん
2006/02/09(木) 23:12:20ID:???クイズにヒントを出して楽しむ場所じゃ有りません
>552
print "Content-type: text/plain\n\n";
open(DATA, ">>data.dat");
print DATA "%ENV<HR>\n";
close(DATA);
print "output ok\n";
exit;
0562nobodyさん
2006/02/09(木) 23:21:28ID:???0563nobodyさん
2006/02/09(木) 23:22:22ID:???0564nobodyさん
2006/02/09(木) 23:26:16ID:???0565nobodyさん
2006/02/09(木) 23:26:53ID:???0566nobodyさん
2006/02/09(木) 23:26:57ID:???0567nobodyさん
2006/02/09(木) 23:28:12ID:???>565
0568nobodyさん
2006/02/10(金) 00:21:11ID:???0569nobodyさん
2006/02/10(金) 00:23:50ID:???0570552
2006/02/10(金) 02:09:46ID:???0571nobodyさん
2006/02/10(金) 02:17:10ID:???my %tmp2 = ('mode'=>'hoge','data'=>'test');
push @tmp1, \%tmp2;
↑と同じ事を１行でやろうとすには、どうしたら良いのでしょか？
my @tmp1 = (('mode'=>'hoge','data'=>'test'));
↑では、できませんでした…。
0572nobodyさん
2006/02/10(金) 02:39:03ID:???0573nobodyさん
2006/02/10(金) 02:44:06ID:???0574ヽ(´ー`)ノ ◆.ogCuANUcE
2006/02/10(金) 03:17:56ID:???my @tmp1 = ({'mode'=>'hoge','data'=>'test'});
リファレンスについて勉強しる。
0575nobodyさん
2006/02/10(金) 04:19:33ID:???レスをちゃんと読んだか？
質問の投げ去りはやめろや
0576質問
2006/02/10(金) 11:34:07ID:+Mjswkwe２項分布内のひとつの項を$k_posとする場合、
for($j=1;$j<10;$j++){
$k_pos=combi($g,$b)*(($bl_bun[$j]/65536)**$b)
*(((65536-$bl_bun[$j])/65536)**($g-$b));
}
というコードにすると、$gや$bが大きい場合、結果が出なくなってしまいます。
（combiというのは自作subです）
恐らく、掛け合わせる数が思いっきりでかい数と思いっきり小さい数を掛け合わせてるのが原因だと思います。
何か解決方法はありますでしょうか？よろしくお願いします。
0577nobodyさん
2006/02/10(金) 14:05:43ID:???は試してみた？
0578nobodyさん
2006/02/10(金) 17:20:13ID:???これの値がいい加減だと読み込みが変になるみたいで、レスポンスが大幅に遅くなりました。
i-modeのためContent-Lengthは必須みたいで困ってます。
値を取るのは一般的な方法で全データを変数に入れてlengthで計ってるんですけど
うまくいかないです。
何が原因やら・・・文字コードはUTF8で統一していますが・・・
0579nobodyさん
2006/02/10(金) 17:21:22ID:???1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
0580578
2006/02/10(金) 17:40:28ID:???どうも。でへへ。
もしかしたら僕と同じミスをする人が出てくるかもしれないので原因を書いておきます。
えーと、lengthで計算する変数に"Content-type: text/html"を含めていたので
うまく計算できなかったみたいです。
この一文を外して、
print "Content-type: text/html\n";
print 'Content-Length: ', $length, "\n\n";
print $data;
としたら上手くいきました。
どうもスレ汚しすみません。
0581nobodyさん
2006/02/10(金) 20:19:09ID:???0582nobodyさん
2006/02/10(金) 21:02:02ID:???0583nobodyさん
2006/02/10(金) 21:15:50ID:???0584nobodyさん
2006/02/10(金) 21:48:34ID:???0585nobodyさん
2006/02/10(金) 21:59:59ID:???0587nobodyさん
2006/02/11(土) 00:14:36ID:???おやすみうな
0588nobodyさん
2006/02/11(土) 01:25:48ID:???0589質問
2006/02/11(土) 08:21:02ID:qlKqkAMKしたいのですが、bignumはどこにあるのでしょうか？
0590nobodyさん
2006/02/11(土) 09:05:06ID:???0592ヽ(´ー`)ノ ◆.ogCuANUcE
2006/02/11(土) 13:32:23ID:???0594ヽ(´ー`)ノ ◆.ogCuANUcE
2006/02/11(土) 18:51:50ID:???あ、なるほど。そうすると不完全だけど、perldoc -l かな。
ttp://blog.livedoor.jp/nipotan/archives/50146747.html
0595nobodyさん
2006/02/12(日) 06:58:32ID:bHuVlhbgバージョンが5.0?（詳しくは失念しましたが）からは種となるsrandを使わなくても良くなりましたよね？
バージョンが5.8のサーバで昔作られたsrandが使用されているスクリプトを使っていたんですが、
先日新しいバージョンではsrandを使うとむしろ乱数の品質が下がると言う事を知りました。
元よりどうも乱数が偏っているなと感じていたんですが、
それはこのsrandの性と考えていいんでしょうか？
それとも単なる勘違い的なものでしょうか？
乱数の使い方はおみくじとかサイコロとかそういったもので、
何かのシミュレートとかの用途ではありません。
今までサイコロで言えば１が５回連続して出たけど、それは確かにたまにはあるし、
たまたま出た時が強く印象に残っただけだ、と思っていたんですが。
とりあえずsrandは外す方向で考えているのは当然なんですけど、
どうにも今まで起きてた事象のモヤモヤが引っかかって。
0596nobodyさん
2006/02/12(日) 08:04:29ID:???srand(1)なら1番の乱数表を使うというような。
乱数の質はシステム依存。
1万回サイコロを振った程度なら偏るものだけどね。
偏りがほしくないのなら、別の方法を考える。
0597nobodyさん
2006/02/12(日) 09:33:07ID:???> 偏りがほしくないのなら、別の方法を考える。
? 何を言っているのかわかってる?
0598nobodyさん
2006/02/12(日) 09:56:51ID:???0599nobodyさん
2006/02/12(日) 10:05:55ID:???ただの勘違い。
ただしまともな乱数使ってもプログラムの中で偏った分布をするような
プログラミングがされていたら当然偏るけどね。
0601596
2006/02/12(日) 10:10:06ID:???0602nobodyさん
2006/02/12(日) 11:07:16ID:???表示させるすべての桁でランダムで数字を表示するプログラムを改造して、アルファベットもランダムで表示させたいのですが、どう改造すればいいでしょうか？
ソースは、
# ランダム桁のランダム数字の生成
$max_num =1;
$min_num =1;
for( ; ; ){
$num_digit = rand($MAX_DIGIT)%$MAX_DIGIT+1;
last if($num_digit >= $MIN_DIGIT);
}
for($i=0; $i<$num_digit; $i++){ $max_num *= 10; }
$min_num = $max_num/10;
for( ; ; ){
$num = rand($max_num)%$max_num;
last if($num >= $min_num);
}
です。
0〜9まではこれで表示できるんですが、'a'〜'z'までを時間を種にして表示させたいんです。
0603nobodyさん
2006/02/12(日) 13:32:27ID:???0604nobodyさん
2006/02/12(日) 14:11:18ID:???XXX には半角アルファベット大文字か数字が入り、1桁から3桁程度です。
だいたいうまくいくのですが、「階」という漢字のあとにXXX号室が来ると化けてしまいます。
ソースコードは次の通りです。環境はWindows2000 ActivePerl5.8.7です。
my @a;
my @b;
push @a, "A4号室";#うまくいきます
push @a, "1ＦC5号室";#うまくいきます
push @a, "1階206号室";# K206号室 になってしまいます
push @a, "Ａ棟207号室";#うまくいきます
foreach (@a){
push @b, "$&\n" if /[A-Z0-9]+号室/;
}
print @b;
「1階206号室」のときだけ「K206号室」になってしまいます。
何が原因で、どうすればよいのでしょうか。
どなたかご教授いただけると助かります。
0605nobodyさん
2006/02/12(日) 14:38:27ID:???「階」が Shift_JIS だと「8A 4B」なので二バイト目の「4B」が「K」にあたるのが原因だね。
/[A-Z0-9]+号室/s にすればいい。
0606605
2006/02/12(日) 14:39:03ID:???Perl だとどうするんだろう？
0607nobodyさん
2006/02/12(日) 14:44:47ID:???てけとーな応急処置だけど、よかったらどうぞ。
0608nobodyさん
2006/02/12(日) 14:46:18ID:???0610604
2006/02/12(日) 15:14:54ID:???原因は>>605さんのおっしゃるように、Shift_JISの2バイト目とマッチしてしまったからなのですね。
勉強になりました。
対処としては>>607でうまくいきました。ありがとうございました。
(?<![\x81-\xfc])の部分ですが、Shift_JISの2バイト目を取らないように、
「左側にShift_JISの1バイト目が存在しない位置」を指定しているという理解で合ってますか？
0611604
2006/02/12(日) 15:48:35ID:???>>604のコードには記述しませんでしたが、処理対象には●12号室 ■10号室 のようなパターンもあり、
これまでは上手くいってましたが、>>607では 2号室 0号室 と出力されてしまいます。
Shift_JISは使わないほうが良いのでしょうか・・・
0612nobodyさん
2006/02/12(日) 15:59:29ID:???0613nobodyさん
2006/02/12(日) 16:57:35ID:???use Encode;
my $pattern = '([A-Z0-9]+号室)';
my $str = "1階206号室";
Encode::from_to($pattern, 'sjis', 'utf8');
Encode::from_to($str, 'sjis', 'utf8');
$str =~ /$pattern/;
my $match = $1;
Encode::from_to($match, 'utf8', 'sjis');
print $match;
0614607
2006/02/12(日) 18:51:15ID:???あくまで >>613 の言うように utf8 で処理するのが王道なのは百も承知で。
push @b, "$1\n" if /(?:[\x81-\xfc].)*([A-Z0-9]+号室)/;
0615nobodyさん
2006/02/12(日) 20:04:49ID:???乱数以外の偏らない別の方法って何?
ヒントだけでもいいから教えて
偏らないってどういう意味?
1万回やると「６」は1666回出るの?それとも1667回出るの?
0617nobodyさん
2006/02/12(日) 20:09:39ID:???または
/[A-Za-z0-9]{1,3}号室/
0619nobodyさん
2006/02/12(日) 23:28:00ID:ptODJMag削除パスワードが“１１１１”や“１２１２”、“１１２２”みたいな単純なパスワードを弾くには
どうすればいいでしょうか？
if ($password = ~ /1111/){ $error = 'エラーです'};
if ($password = ~ /1212/){ $error = 'エラーです'};
みたいにいちいち指定するよりもスマートな方法を伝授してください
0620nobodyさん
2006/02/12(日) 23:31:23ID:???0621６１９
2006/02/12(日) 23:42:10ID:ptODJMag１１１１ などの連続
１２１２ １１２２ １２２２ などの２つの種類の文字のみ
のつもりです
0622604
2006/02/12(日) 23:54:16ID:???うまくいきました。ありがとうございます。
調べて初めて知ったのですが、UTF8だと文字の途中のバイトでマッチしなくてすむようなので、
このやり方が適切みたいですね。
>>614
[\x81-\xfc]のあとのドットで2バイト目をマッチさせてるんですね。
ドットは任意の１文字としか考えてませんでしたので、途中の1バイトを1文字とみなして
マッチさせるとは思いもしませんでした。勉強になります。
>>616-617
そのやり方でも上記データを処理できますが、アルファベットは大文字固定で、
長さは3文字以上もありうるので[A-Z0-9]+になります。レスありがとうございました。
0623nobodyさん
2006/02/12(日) 23:57:14ID:???if (scalar (grep { !$seen{$_}++ } split //, $password) <= 2) {}
とかどうだろう。
0624６１９
2006/02/13(月) 00:18:53ID:NkDDMowLどうもです
書き忘れましたけど最初↓
if ($password = ~ /(.)(\1|(.))(\1|\2)(\1|\2)/){ $error = 'エラーです'};
これだとなんかおかしいんです
どこがおかしいのか自分でも
0625nobodyさん
2006/02/13(月) 01:06:45ID:???0626nobodyさん
2006/02/13(月) 01:07:12ID:bzAWjmTkプログラム中に
print $env = $ENV{'QUERY_STRING'};
と文を書き
$envに「name=maruyama」が入ることを期待して
URLに
http://www.hogehoge.jp/cgi-bin/index.cgi?name=maruyama
を打ち込みましたが「Internal Server Error」となります。
この場合URLの「?」の後ろ（name=maruyama）をブラウザに表示させるにはどのようにしたらよいのでしょうか？
0627nobodyさん
2006/02/13(月) 01:11:46ID:???print $query;
0628nobodyさん
2006/02/13(月) 01:12:32ID:???0629nobodyさん
2006/02/13(月) 01:14:48ID:???0630６１９
2006/02/13(月) 01:23:47ID:NkDDMowLif ($password = ~ /(.)(\1|(.))(\1|\2)(\1|\2)/){ $error = 'エラーです'};
0631nobodyさん
2006/02/13(月) 01:33:47ID:???最後の２文字を入れ替えてごらん
それと・・・
>629
0632nobodyさん
2006/02/13(月) 01:37:18ID:bzAWjmTk違うところが間違ってました。
お答えありがとうございました。
自己解決しました。
ご迷惑をおかけしました
0633６１９
2006/02/13(月) 01:38:58ID:NkDDMowLif ($password = ~ /(.)(\1|(.))(\1|\2)(\1|\2)/){ $error = 'エラーです'};
でも
if ($password = ~ /(.)(\1|(.))(\1|\2)(\1|\2)/){ $error = 'エラーです';}
でも結果は同じでした
(.)(\1|(.))(\1|\2)(\1|\2) ←ここをどうすればいいんでしょうか？
0634nobodyさん
2006/02/13(月) 02:17:57ID:???# ９文字以下はエラー
if(length($pass) < 9){ &error(); }
# 数字小文字大文字記号が混ざってないとエラー
if(!(($pass =~ /\d/) && ($pass =~ /[a-zA-Z]/) && ($pass =~ /[_!#$%&'()=\-"\[\]\|{}\/\.,\?]/))){ &error(); }
# 同じ文字が連続したらエラー
if($pass =~ /([0-9a-zA-Z])\1/g){ &error(); }
0635634
2006/02/13(月) 02:20:28ID:???$pass =~ /(.)\1/g
0636６１９
2006/02/13(月) 02:25:30ID:NkDDMowLどうもです。
２種の文字で構成されるパスの場合のエラーの場合どうすればいいでしょうか？
0637nobodyさん
2006/02/13(月) 02:28:03ID:???0640634
2006/02/13(月) 04:00:03ID:???ちったぁ考えろ
終了
0643nobodyさん
2006/02/13(月) 14:25:40ID:???open(UNKO "kusai.txt");
@BENKI=<UNKO>;
みたいにopen()関数で開いたテキスト内容（別にテキストじゃなくても良いが）
を配列に代入してるけど、スカラーじゃ駄目なの？
スカラーだと変数が32bitしかないから、エラい人が個々の配列にに自動で文字列を
一文字づつ代入してくれるから？
0644643
2006/02/13(月) 14:26:52ID:???脳内補正よろしく。
0645nobodyさん
2006/02/13(月) 14:56:24ID:???<>はスカラーコンテキストで使用すると一行読み込む。( $hoge = <FUGA> )
リストコンテキストで使用するとファイルをすべて読み込む。( @hoge = <FUGA> )
一気に配列に読み込む必要性が無ければ、
スカラーコンテキストで一行ずつ読み込んだ方が使うメモリーは少なくてすむので
私としてはそうすることをお勧めしたい。
しかし、一気に読み込むことでファイルをロックするべき時間が短くなるという利点もあり、
そういう風に一気に読み込むことを好む人もいる。前にこのスレで議論になったこともあった希ガス。
> 個々の配列にに自動で文字列を一文字づつ代入
配列の個々の要素に一文字一文字、ということ？一行ずつの文字列が入るよ。
$hoge[0] = "foo\n";
$hoge[1] = "bar\n";
> スカラーだと変数が32bitしかないから
Perlでは内部的に自動で整数型、不動小数点型、文字列型などを変換する。
ユーザ側は通常大きさを考えるようなことは無いし、この場合では文字列型になる。
0646nobodyさん
2006/02/13(月) 18:09:49ID:???# メモリの許す限り全Read
@lines = <IN>;
# 改行まで
$line = <IN>;
メモリ使用量に関して645さんのを補完すると
foreach (<IN>){ 〜処理〜 }
じゃなくて
while (<IN>){ 〜処理〜 }
です。
・・・だよね？ (；´∀｀)
0647nobodyさん
2006/02/13(月) 20:42:55ID:???0648nobodyさん
2006/02/13(月) 22:21:17ID:???上のaaa.cgiはフォーム入力からデータをファイルに書き出すCGIです。
SUBMITで自分自身を呼び出して何回も書き込めるようにしています。
下のbbb.cgiはaaa.cgiで作ったファイルからデータを1件づつ読み込んでいます。
【疑問】aaa.cgiでSUBMITを押してもbbb.cgiが動かないので画面のデータが更新されない。
【希望】aaa.cgiで更新したデータをすぐに下のbbb.cgiを動かして画面を更新したい。
bbb.cgiに更新ボタンを設置するのはやりたくない。
どうすればいいでしょうか？
0649nobodyさん
2006/02/13(月) 22:38:17ID:???■ このスレッドは過去ログ倉庫に格納されています