Perlコーディング初心者質問スレ Part 54
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2007/02/10(土) 19:21:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >>2-10
前スレ http://pc10.2ch.net/test/read.cgi/php/1164519503/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0685nobodyさん
2007/04/26(木) 10:50:46ID:???書いたとおりに動いてるだろと言われて終了だよ。
あとはエスパーさんよろしく。
なぜ/&n/でsplitするのかとか、あとでまたsplitするのはなぜかとか
$text1, $text2はどこへいったのかとか、@lineどんどん太るぞとか
いろいろつっこみどころはありそうだが。
0686682＝677
2007/04/26(木) 10:59:54ID:???レスありがとうございます。
$logfile は下記です。
log.txt
------------------------
1_g9gnt3<>text1<>text2<>
2_ghtt3d<>text1<>text2<>
・
・
------------------------
やりたいことはログの一括編集です。
（掲示板なんかの編集機能などログファイルの一行だと思いますが
それの複数行を一括で編集するような機能）
&nの理由は&だけで分割したらforループ時回数がわからなくなってしまうなぁ、、
というなんとなくでやってみました。ループ中にもう一回splitした理由は
=で分割しないといけないかなぁ、、という理由です。
@lineが太るということについてはわかりません、、すみません。。
0687nobodyさん
2007/04/26(木) 12:23:48ID:???あまりにアレすぎて添削する気が萎えるので、チェックポイント。
・フォームデータのデコードはCGI..pmにやらせる
・フォームでtext1とtext2が何回も出てくるので、それが各行のnoの値とちゃんと対応させられるか保証がない
→そういうときは、
<tr><td><input type="hidden" name="no" value="1_g9gnt3">1_g9gnt3</td>
<td><input type="text" name="text1_1_g9gnt3"></td><td><input type="text" name="text2_1_g9gnt3"></td></tr>
というように、name属性にnoの値をつけて、CGIプログラムでデータを受けたときに参照しやすいようにすると吉。
つづく
0688nobodyさん
2007/04/26(木) 12:27:08ID:???use CGI;
use strict;
my $q = new CGI;
# noに指定された値の入力欄が存在するかの判定用
# name="no"のhiddenタグと、対応するtext1、text2のフィールドが
# 必ず対応していることが条件
my %no_exist = map { $_ => 1 } $q->param("no");
my @data;
open(R, $logfile) or die $!;
while (<R>) {
my($no, $text1, $text2) = split(/<>/);
push(@data, $no_exist{$no}
? join("<>", $no, $q->param("text1_$no"), $q->param("text2_$no"))."<>\n"
: $_
)
}
close(R);
open(W, "> $logfile") or die $!;
print W @data;
close(W);
※全角スペース使用のためコピペ注意。
結局全部書いてしまった…orz
動作確認してません。
$logfileの中身を@dataに全部食わせるので、ファイルサイズがでかいとメモリも食います。
0689nobodyさん
2007/04/26(木) 13:30:23ID:???「input nameの付け方が悪い」
これだけでおｋ
0690nobodyさん
2007/04/26(木) 14:21:39ID:2xFOBqUQそのディレクトリに別のディレクトリの中身をコピーしするＣＧＩを作りたかったのですが
動きません＞＜ 環境はジオシティーズのジオプラスです
ソース
#!/usr/bin/perl
# 1.REQUEST_METHODをチェックしてリクエストプロトコル（GET or POST）を判断する
if( $ENV{'REQUEST_METHOD'} eq "GET" ) {
# 2.GETであれば、QUERY_STRINGからクエリを読み込む
$buffer = $ENV{'QUERY_STRING'};
} else {
# 3.POSTであれば、CONTENT_LENGTHを使用してリクエストのサイズを調べ、
# 標準入力からクエリを読み込む
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
print "Content-Type: text/html", "\n\n";
print "<HEAD>", "\n";
print "<META HTTP-EQUIV='Refresh' CONTENT='5;URL=index.html'>", "\n";
print "<META name='GENERATOR' content='IBM HomePage Builder 2001 V5.0.3 for Windows'>", "\n";
print "<title>作成</title>", "\n";
print "</HEAD>", "\n";
print "<font size=5>書き込み中</font>", "<br>\n";
print "<b>Data</b> ", $buffer, "<br>\n";
print "<b>Split Data</b><br> ", "\n";
0691nobodyさん
2007/04/26(木) 14:25:00ID:???本を一冊読め・・・
ソースにはディレクトリなんてひとかけらも出てきてないだろ
クエリ受け取ってそれ表示してるだけ。
もうなんていうか死ねばいいのに。
0692690
2007/04/26(木) 14:25:54ID:2xFOBqUQmy @pairs = split(/&/,$buffer);
foreach $pair (@pairs){
# 5.イコール（ = ）で連結されたキーと値を分割（kye=value）
my($name, $value) = split(/=/, $pair);
# 6.プラス( + )をスペース( )に変換
$value =~ tr/+/ /;
# 7.16進数にエンコードされた文字列をデコード
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
@data = ($name, $value);
print "$name : $value<br>";
mkdir (".$name", 0755) || die "ディレクトリ生成失敗 : $!";
open(IN,"./index.html"); #コピー元ファイル をオープン
while(<IN>){ # 一行毎の読み込みループで変数$Bufに読み込む
$Buf .= $_;}
close(IN); #ハンドル IN が不要になったので閉じる
open(OUT,"> ../$name/index.html); #コピー先ファイル をオープン
print OUT $Buf; #ソースの内容($Buf)を書き出す
close(OUT); #ハンドル OUT が不要になったのでクロス
}
と、このように書いてみましたがエラー表示が出て動きません＞＜
エラーの詳細がわからないので直し方がわかりません。
ｴﾛｲ人教えてください。
0693nobodyさん
2007/04/26(木) 14:28:28ID:???0694nobodyさん
2007/04/26(木) 14:30:01ID:???http://mixi.jp/view_bbs.pl?id=17607679&comm_id=1401396
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！)
（Web系であればOK）
ルール：
Google検索で調べてわかるようなことでも質問してもOKです
（初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので）
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o
ここ池
0695nobodyさん
2007/04/26(木) 14:30:49ID:???スクリプトの2行目に
use CGI::Carp qw(fatalsToBrowser);
と書きましょう。
シンタックスエラーの原因が表示されるようになります。
# まずは、これでいいんじゃね？＞ALL回答者
0696682＝677
2007/04/26(木) 17:01:44ID:???ずっとあれからやってたのですがなぜかハッシュに代入されなくて
ソース部分を別CGIとして作り、データを投げたところ上手く行きました。
これからもっともっと勉強して色々覚えたいと思います。
本当にありがとうございました！
0697nobodyさん
2007/04/26(木) 23:13:22ID:???動かすにはどうしたらいいのでしょうか？
IO::SelectはIO::Socketでないと使えないのでしょうか？
0698nobodyさん
2007/04/27(金) 09:34:20ID:???素直にsocket使うべき。
0699nobodyさん
2007/04/27(金) 14:53:44ID:???0700nobodyさん
2007/04/27(金) 20:33:48ID:???入所前（7年前）にはそんなの無かったはず
いやぁ〜プログラミングは楽しいね
0701nobodyさん
2007/04/27(金) 21:57:47ID:???0702nobodyさん
2007/04/27(金) 22:44:25ID:???0703nobodyさん
2007/04/28(土) 00:13:57ID:???下のように書いても5秒どころか30秒位待たされることがあるよ。
なんでだろう？
$ua = LWP::UserAgent->new;
$ua->timeout(5);
0704nobodyさん
2007/04/28(土) 01:22:35ID:???Get/set the timeout value in seconds. The default timeout() value is 180 seconds, i.e. 3 minutes.
The requests is aborted if no activity on the connection to the server is observed for timeout seconds. This means that the time it takes for the complete transaction and the request() method to actually return might be longer.
0705nobodyさん
2007/05/02(水) 11:13:15ID:sZgTnz1Hmy $a = 2/3;
としたら一体どうなるのでしょうか？
割り切れない数なのでforの∞ループみたいに悲惨なことになりますか？
今暗算練習のCGIを作ってます。足し算引き算までつけてあるのですが、
割り算もつけようかなと考えてたらこの問題にぶちあたりました。
my $a = int (rand 100) / int (rand 100);
実際はこんな感じで使おうと思ってたのですが、割り切れない計算になったときどうなるのでしょうか？
適当なところでやめてもらえるのでしょうか？
それとも/演算子に対して「小数点第５位まででやめろ」という命令をあらかじめだしておけるでしょうか？
0706nobodyさん
2007/05/02(水) 11:14:07ID:???0707nobodyさん
2007/05/02(水) 11:19:00ID:???やらずに質問するの？
脳の一部に障害のある方ですか？
0708nobodyさん
2007/05/02(水) 11:28:03ID:???これが気になってんだろう
0709nobodyさん
2007/05/02(水) 11:35:47ID:???> my $a = int (rand 100) / int (rand 100);
これ、計算せずにエラー吐いてくれるときがあるよ。
0710705
2007/05/02(水) 11:58:22ID:sZgTnz1Hその通りです。
＞ときがあるよ。
というのは運任せという意味ですか？
それともuse strictのような無限ループコードストップモジュールでもあるという意味ですか？
0711nobodyさん
2007/05/02(水) 12:12:57ID:???0712nobodyさん
2007/05/02(水) 12:20:33ID:???0713nobodyさん
2007/05/02(水) 12:46:53ID:???0714nobodyさん
2007/05/02(水) 13:12:51ID:???>#!〜から始まる1行目(名前を忘れた)に変数を初期化するオプションがあったはず
SpeedyCGIのオプションって、
ttp://perldoc.jp/docs/modules/CGI-SpeedyCGI-2.21/SpeedyCGI.pod
ここ見つかりましたが、
#!/usr/bin/speedy
にどんなオプションつければ、いいでしょうか？
0715705
2007/05/02(水) 13:22:14ID:sZgTnz1Hなるほど。
では0ではないときの全てが無限ループのような事になってしまうのですか？
0717nobodyさん
2007/05/02(水) 13:47:59ID:???という発想にはならんのかな。
0718705
2007/05/02(水) 14:14:41ID:sZgTnz1Hmy $a = 2/3;
print $a;
とすると無限ループのように延々6.6666666666666666666666666666666666...
となるんでしょうか？ならないんでしょうか？
0719nobodyさん
2007/05/02(水) 14:16:22ID:???0720nobodyさん
2007/05/02(水) 14:28:30ID:???0721nobodyさん
2007/05/02(水) 14:33:08ID:???自分で試してみてはどうでしょうか
というか自分で試さないのはなぜでしょうか
私はPerlの実行環境がないのでPHPで試してみました
結果は
0.66666666666667
でした
ただみんながこの結果になるとは限りません
パソコンの環境（特にCPU）が変われば結果も変わることが多いです
0722nobodyさん
2007/05/02(水) 16:04:38ID:???○ あまりに馬鹿すぎて答えたくない
0723nobodyさん
2007/05/02(水) 16:13:48ID:???0724705
2007/05/02(水) 17:33:02ID:sZgTnz1Hありがとうございます！
なるほどです。適当なところで打ち切るようになっている可能性が高いわけですね。
ではその打ち切る桁数、小数点第何位までせよという命令は出せますか？出せませんか？
私の環境では小数点第15位のところで四捨五入されるようです。
小数点第30位まで計算させるなどはperlで制御はできないものなのでしょうか？
0725nobodyさん
2007/05/02(水) 17:42:01ID:???コンピュータのことをもっと勉強してください。
0726山本山
2007/05/02(水) 18:10:10ID:???0727nobodyさん
2007/05/02(水) 18:57:52ID:???その方法は絶対お前に教えてやんねー
少しは自分でやってから質問しろカス
0728705
2007/05/02(水) 19:05:56ID:sZgTnz1Hそんなにカマって欲しいのか？
確実に俺より頭いいだろうに精神年齢は俺以下じゃ恥ずかしいよ。
回答する気がなければ無視を決め込むというのがどこのスレでも回答者の大人のマナー。
0729nobodyさん
2007/05/02(水) 19:15:55ID:???自然と答えは出てくるさ
0731nobodyさん
2007/05/02(水) 19:25:46ID:???0732nobodyさん
2007/05/02(水) 23:06:30ID:???packとかsprintfでも適当にググってください
でなきゃ数値変換あたらでさがせばヒントぐらいはでてくるかと
で、それが分かったらプログラミングは卒業してください
0733nobodyさん
2007/05/02(水) 23:59:24ID:???もし、あなたが誰かに「カップラーメンの待ち時間を３分から５分に
変えたら味はどうなりますか？」と質問されたら、どう答える？
とりあえず「味が変わります」と答えたとして、
更に「どう味が変わりますか？」と質問されたら？
それに対して「美味しくなくなります」と答えたとして、
更に「どの位美味しくなくなりますか？」と質問されたら？
それに対して「食えなくもない不味さ」と答えたとして
更に「じゃあ、４分なら大丈夫ですか？」と質問されたら？
書き込みから>>705には、そういう質問者の感じがする。
だから、みんな「自分で試してみろ」と答える。
すごく自然。大人な対応。精神年齢も低くない。
むしろ、不自然なのは、そこまでしても自分で調べようとしない>>705
0734nobodyさん
2007/05/03(木) 02:48:42ID:4s8Yv8pi教えてください
0735nobodyさん
2007/05/03(木) 03:40:24ID:???っていうのは循環(無限)小数でしょ。算数(数学)をもう少し勉強してね。
無限ループっていうのは、
while (1) { print "6" }
のように、永遠に終わらないループのこと。
int(rand(100))は、何から何までの整数を返す可能性があるかわかって使っていましたか?
なお、コンピュータは内部的には2進数で計算しているので、丸め誤差というのがあるよ。
でかい小数桁数を扱うためのモジュールはあるけど、その手前のことをすべてこなしてから考えたら?
0736nobodyさん
2007/05/03(木) 04:03:11ID:???> それとも/演算子に対して「小数点第５位まででやめろ」という命令をあらかじめだしておけるでしょうか？
my $a = sprintf "%3.5f",int (rand 100) / int (rand 100);
これじゃダメ？
第5位までの結果を出せ、ってので、主旨とはそれるけど
0738nobodyさん
2007/05/03(木) 10:27:51ID:???IO::Allが助けになるかもしれない
0739nobodyさん
2007/05/03(木) 11:12:02ID:???0741nobodyさん
2007/05/03(木) 15:42:37ID:???&LWP::Simple::getstore
0743nobodyさん
2007/05/04(金) 16:26:45ID:???書き込みと表示を同一スクリプトでやる場合はファイルロックすればいいと思うんだけど、
書き込みと表示を別スクリプトにした場合、
書き込み用でログファイルに書き込みしてる時に表示用でログファイルを開くとログファイルが壊れると思うんだけど、
こういう場合はどういう風にすればいいの？
0744nobodyさん
2007/05/04(金) 16:38:32ID:???こういう頓珍漢な質問してるようだとロックを正しく理解してないから
勉強しなおせ。
0745nobodyさん
2007/05/04(金) 16:51:01ID:???一度に1プロセスのみがアクセスしていいよという自前のルール
ルールを無視したプロセスが一つでもあれば壊れる
0747nobodyさん
2007/05/05(土) 02:51:43ID:???0748nobodyさん
2007/05/05(土) 03:25:19ID:???PHPみたく日本語版の公式マニュアルはないけど。
0749nobodyさん
2007/05/06(日) 23:46:01ID:???コマンドラインにて
perldoc -h
して使い方をまなんで、
perldoc perl
perldoc perlfaq1
perldoc perlre
あたりから入れ
0750nobodyさん
2007/05/07(月) 02:13:17ID:???それぞれの画素のRGB値を一発で配列に入れてくれるようなモジュールありませんか？
0752nobodyさん
2007/05/07(月) 03:16:37ID:???0753nobodyさん
2007/05/07(月) 11:11:07ID:???X/Y値を指定してRGB情報を取ってくる
モジュールならどこかで見た覚えがあるので
後は気合と根性で
0754nobodyさん
2007/05/07(月) 11:35:40ID:???メモリが足りるかどうかは知らんけど。
ttp://www.imagemagick.org/script/perl-magick.php
0755750
2007/05/07(月) 21:07:25ID:???メモリは気を付けます。
0756nobodyさん
2007/05/08(火) 00:26:12ID:???でけぇ〜
是非共有鯖ではやってくれるな
0757nobodyさん
2007/05/08(火) 00:59:03ID:???32bitってのは、ビデオメモリに展開する時の話であって。
0758nobodyさん
2007/05/08(火) 01:11:06ID:???0759nobodyさん
2007/05/08(火) 01:24:11ID:???0760nobodyさん
2007/05/08(火) 18:48:57ID:???処理結果を表示した状態からラジオボタンのフォームへ復帰するのに、
$cgi->td($cgi->a(href=>{$ENV{SCRIPT_NAME}},
$cgi->input({type=>"button", value=>"戻る"})));
と書いてローカルのapache2.2に置いてiceweselで動作をチェックしたら戻るボタンで正常に復帰したのですが、IEでチェックしたら戻るボタンが機能しませんでした。
仕方なくJavaScriptを使って
$cgi->td(
$cgi->input({type=>"button", value =>"戻る",
onClick=>"history.back(-1)"}));
と書いてみたらIEでも戻るボタンが機能したのですけども、これではJaveScriptが使えないブラウザから使えません。
w3mとかでも使いたいので、なんとかJavaScriptに頼らない良い方法は無いでしょうか？
ブラウザの名前を取得してIEとIE以外で場合分けするしか無いのでしょうか？
0761nobodyさん
2007/05/09(水) 01:46:37ID:???イマイチ意味不明だけど、$cgi->aの引数が違うんじゃね
> $cgi->a(href=>{$ENV{SCRIPT_NAME}},
$cgi->a({ href => $ENV{SCRIPT_NAME} },
それとAタグの中にINPUTタグ入れてるみたいだけど君は正しいと思うのかい？
0762nobodyさん
2007/05/12(土) 23:27:21ID:???あるので質問させてください。
http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify
s/\x0D\x0A/\n/g;
tr/\x0D\x0A/\n\n/;
上記の部分の１行目は x0Dx0A を \n に変換していると理解したのですが
２行目はなぜ必要なのでしょうか？１行目が終了した時点で
x0Dx0A は \n に変換されているので必要ないのではと思ったのですが。。
0763nobodyさん
2007/05/12(土) 23:50:46ID:???いちばん頭に書いてある
s/\x0D\x0A|\x0D|\x0A/\n/g;
を高速化したのが
s/\x0D\x0A/\n/g;
tr/\x0D\x0A/\n\n/;
1行目だけだと足りないだろ。
0765nobodyさん
2007/05/13(日) 00:19:19ID:???>>764
解決しました。
764さんの述べられている通りtrは \x0D\x0A と一続きに
なったものを変換しているものと思い込んでいました。
ありがとうございました。
0766nobodyさん
2007/05/13(日) 21:00:15ID:J1kSit9o掲示板のスパム対策に、"http"って文字列が5個以上投稿に含まれてる場合に
その投稿を弾こうと思って
if($FORM{'comment'} =~ /(http){5,}/){ &error(); }
とやったんですが、どうやらちゃんとマッチできてないようです。
どこがおかしいんでしょう･･･
0767nobodyさん
2007/05/13(日) 21:10:24ID:???0768nobodyさん
2007/05/13(日) 21:13:04ID:???は "http" が5個以上連続したら、って意味だから
"httphttphttphttphttp" って文字列が含まれてないとマッチしない
@l = ($FORM{comment} =~ /http/g); if (@l >= 5) 〜
とかすればいいんでないかい
0769nobodyさん
2007/05/13(日) 21:35:09ID:???か、
scalar(@tmp = $FORM{'comment'} =~ /http/g);
じゃまいか。
0770nobodyさん
2007/05/13(日) 22:45:32ID:J1kSit9o初歩的な勘違いだったんですね･･･
ありがとうございます。
0771nobodyさん
2007/05/14(月) 03:20:34ID:ha/4Ezv5特定の文字列 「HOGE」
を、
$aaa「HOGE」$aaa「HOGE」$aaa「HOGE」$aaa.......
というように$aaaで「HOGE」を挟む形で並べたいのですが、
while(){
$fuga .= "$aaa「HOGE」";
}
$fuga =~ s/「HOGE」$//;
とやるのはおかしくないでしょうか？
何となく野暮ったい感じがするんですが、
こういった処理のセオリーみたいなものはありますか？
他にも「これの方がまだマシ」という書き方があれば是非アドバイスお願いします。
0772nobodyさん
2007/05/14(月) 03:42:42ID:???$fuga = $aaa;
while( ... ){
$fuga .= "「HOGE」$aaa";
}
あとは、0回の繰り返しも必要なら、全体をifで囲むとか。
0773771
2007/05/14(月) 03:55:40ID:???おぉ、なるほど！
先に$fugaに入れてしまえばスマートにいきますね。
こんな時間に即レス、ありがとうございました！
0774nobodyさん
2007/05/14(月) 06:53:09ID:???my @aaa = ( $aaa, $aaa, $aaa, ........) ;
$fuga = join q{「hoge」}, @aaa ;
0775nobodyさん
2007/05/14(月) 09:28:37ID:???難しく考えすぎ
0776nobodyさん
2007/05/14(月) 17:37:17ID:oZfrkKb+接続直後だと 0 になるのですが、
DB接続→INSERT後にしかAUTO_INCREMENTの値を取得できないのでしょうか？
またその場合、INSERT前に取得して利用したい場合どういう方法がありますでしょうか？
0777nobodyさん
2007/05/14(月) 18:15:30ID:???0779nobodyさん
2007/05/14(月) 18:37:28ID:oZfrkKb+普段テーブルにはレコードがありません。
でもphpMyAdminでは「次へ Autoindex」と見れるので、何か方法があると思うのですが
0780nobodyさん
2007/05/14(月) 19:45:44ID:???きれいな方法かどうかは知らないけど・・・
0781nobodyさん
2007/05/14(月) 19:55:30ID:???それはshow table statusで調べているのだと思われる。
普通のプログラムでこれから値を抜き出して使うのは
おすすめしません。
多分何か変わったなことをしようとしているからそんな
値が必要になってるんじゃないかという気がするので
そもそもそこに立ち戻って考え直したほうがいいんじゃ
ないか。
0782nobodyさん
2007/05/14(月) 20:00:29ID:oZfrkKb+phpMyAdminでは↑のSQLでテーブル情報取得してるんですね。
DBIで上記SQL発行して、Auto_incrementフィールド読み込んで処理することにします
0783nobodyさん
2007/05/14(月) 22:36:32ID:???別プロセスもINSERT前に同じ値を取得したりして整合性とれるの？
■ このスレッドは過去ログ倉庫に格納されています