【Perl】初心者コーナー Part16
■ このスレッドは過去ログ倉庫に格納されています
00013PIO ◆3pIoOHKo
02/09/15 15:11ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0271nobodyさん
02/09/23 09:45ID:???常識的な範囲なら。
#!/usr/bin/perl より前に書いたりとかexit;より後ろに書いたらもちろん無理だが。
0272nobodyさん
02/09/23 09:51ID:???require "cgi-lib.pl";
# require "jcode.pl";
&ReadParse;
$tosi = $in{"tosi"};
してんでしょね。
0274nobodyさん
02/09/23 10:07ID:???$abcを使ってるとか。
$abcを出す直前に計算させてもダメ？
0275nobodyさん
02/09/23 10:08ID:???ん、それは大丈夫でした。けど、でもやっぱりだめなんです。
どうしてなんでしょう…。ログファイルに書き込めてないのでしょうか。
えと、もうちょっと考えてみます。簡単な筈なんですよね？
0276nobodyさん
02/09/23 10:37ID:???あっ、すいません。今気がつきました。
自分で１から組んでるやつじゃなくてですね、インサイドウェブさんのX-BBS Lineをちょっとだけ弄ったんです。
ですから、plとか全然使ってないみたいなんです。もしかしてそこがダメだったんですか？
>>273
それが入らないんです。もしかしたら>>272さんの仰る
$tosi = $in{"tosi"};をしてないからなんでしょうか？
>>274
はい、$abcは計算と、最後の表示にしか使っていないのです。
それで計算もちゃんと表示する前にしているのですが…。
0277nobodyさん
02/09/23 11:17ID:???0278nobodyさん
02/09/23 11:26ID:???改造…依頼じゃないような気がしたので。申し訳ございません。
アドバイス有り難うございました。
取り敢えず楽しようとしないで自分で１からやってみます。
0279nobodyさん
02/09/23 11:27ID:???0 + 50 はいくつ？
$abcを計算の後に使ってるなら空って事はないだろ。
その動作じゃ通らないブロックの中で計算してるとかじゃないか？
あと、フォームから送られたデータは勝手には変数に入らないよ。
入れる処理を自分で追加しないと。
0280nobodyさん
02/09/23 11:43ID:???掲示板で投稿された "http://〜"で始まるURLに自動リンクを貼りたいのですが、
その際に、リンクして行った人を数えるため、link.cgiにurlを渡してリンクさせ
ようと思ったのですが、
$message =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+)/$1<a href=\"$2\">$2</a>/g;
$url = $2;
$url_ec = $2;
$url_ec =~ s/(\W)/'%'.unpack("H2", $1)/ego;
$url_ec =~ tr/ /+/;
$message =~ s/<a\ href=\"\Q$url\E\"/<a href=\"link.cgi?url=$url_ec\"/g;
このように書くと、最後だけがlink.cgi呼び出しになって、
それ以前のものは、通常にリンクされてしまいます。
link.cgiにエンコードしたurlを完全に渡す方法を教えて下さい。
0281nobodyさん
02/09/23 11:54ID:???$message =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+)/$1<a href=\"$2\">$2</a>/g;
がめちゃくちゃだよ。
正規表現道場で鍛えた方がいい。
0282nobodyさん
02/09/23 12:07ID:???$tosi = $in{"tosi"};
が、データを変数に入れるって事ですよね？
ですがこれはjcode.plを使った時だけとかじゃ…ないのでしょうか。
このもともとのcgiにも使われていないんです。
0283nobodyさん
02/09/23 12:13ID:???0284nobodyさん
02/09/23 12:15ID:???じゃあそのスクリプトはどうやって入力データを変数に格納してるんだ？
0285nobodyさん
02/09/23 12:24ID:???jcode.plはコメントにしてるだろうが。
変数を取り込んでるのは、cgi.plだあよ。
最近のは、use CGI;とかじゃねの。
0286280
02/09/23 12:32ID:???正規表現道場で少し勉強して来ました。URLの正規表現は変えようと思います。
>>283
ありがとうございます。
でも、それだとURLエンコードが出来ないので困っています。
link.cgiに渡すURLは、エンコード済みのものにしたいのですが。
0288280
02/09/23 12:55ID:???http://www.google.co.jp/search?q=%E6%AD%A3%E8%A6%8F%E8%A1%A8%E7%8F%BE&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=
こういうURLを貼られると、&があるので、URLが途中までしかlink.cgiに渡せないんです。
0289nobodyさん
02/09/23 13:10ID:???エンコード云々の問題じゃないでしょ。
&もメタ文字だからエスケープすれ。
>>283さんのじゃだめなんか？
その後、&link.cgi(metaquote($message))じゃだめなんか？
0290AOHU.zVE
02/09/23 13:30ID:???m/\Q$tai\E/
0291nobodyさん
02/09/23 13:34ID:pjFAvyv+１度目の呼び出しはうまくいくのですが、２度目以降は
「現在処理中の操作です」というメッセージが出て
ソケットの育成ができません。なぜなんでしょうか？
関数の一部を抜粋
$socket = IO::Socket::INET->new( PeerAddr => $host,
PeerPort => $port,
Timeout => '30' );
# 以下が実行されてしまい「現在実行中の操作です」と表示される。
unless ($socket) {
print "socket: $!";
}
0293291
02/09/23 14:42ID:pjFAvyv+関数の最後にclose($socket);と書いてみると
今度は、以下のようなエラーメッセージが出ました。
やはり２度目のソケット育成に失敗しているみたいです。
Can't use an undefined value as a symbol reference at ./test.pl line 185, <FILE> line 35.
socket: 現在処理中の操作です
コード抜粋
181:unless ($socket) {
182: print "socket: $!";
183:}
184:
185:print $socket "GET $url HTTP/1.1\n";
186:print $socket "Host: $host\n";
187:print $socket "Connection: close\n\n";
0294282
02/09/23 15:06ID:???>>285
解らないです。
cgi-lib.plもjcode.plもcgi.pmも使っていないように見えるのです。
http://www.galstown.m-n-j.com/8/internet/lia/board.txt
↑これにcgi-lib.plかcgi.pmを組み込もうとしたんですけれど、悉く失敗してしまって。
0295nobodyさん
02/09/23 15:41ID:???0296nobodyさん
02/09/23 15:41ID:???ｽﾏｿ書き込めた。
>>294
> $nini = $comment + 50;#ここに、年齢の式を書いてみました。
の位置が違う。
0298nobodyさん
02/09/23 17:04ID:???私は、>>294さんではないんですが、
cgi.libもCGI.pmも何も使わずにユーザーの入力を直接受け取る
っていうのは、初めて見たのですが、結構多いんでしょうか。
0299nobodyさん
02/09/23 17:06ID:???処理
}
という文で、例えば@data[0]を処理している場合にのみ別の処理に分岐させるには
どうしたらいいでしょうか？
つまり、@dataのなかの今何行目をあつかっているのかを得たいのですが・・。
if(@data[0]){&print;}
とやってもうまくいきませんでした。
0300297
02/09/23 17:07ID:???多いです。けどマネするのはやめましょう。
http://www.perldoc.com/perl5.6/pod/perlfaq9.html#How-do-I-decode-a-CGI-form-
0301299
02/09/23 17:10ID:???なんかスマートな方法がありそうなんですが・・
0302297
02/09/23 17:12ID:???http://www.kt.rim.or.jp/%7ekbk/perl5.doc/perlfaq9.html#How_do_I_decode_a_CGI_form_
0303AOHU.zVE
02/09/23 17:26ID:???$x_x=@data;
for($i=0;$i<=$x_x;$i++){
if($i eq 0){
&別の処理{};
print $date[$i];
}else{
print $date[$i];
}
↑適当
0304294
02/09/23 17:34ID:???>>297
ありがとうございました。そうですか、問題があるのなら使用を諦めようと思います。
やはり自分で最初からもう一度頑張ってみますね。
取り敢えず入門書でも買って来よう…
0306nobodyさん
02/09/23 17:37ID:???Oh, thanks.
日本語訳まずいね。最初のとこだけでも、原文では、
「POSTのCONTENT_LENGTHと同じバイト数をSTDINから盲目的に
読むプログラムやGETのデコードでQUERY_STRINGをひっつかむプログラム
」って書いてあるのに、和訳では、
「$ENV{CONTENT_LENGTH} や$ENV{QUERY_STRING}を含んだプログラム」
ってなってるよ。他にもいっぱい誤訳あるけど・・・
0308306
02/09/23 17:42ID:???だから>>300読むといいよ。そこには、うまく動かないこともあるって
書いてあるけど、あのスクリプトは、その上、受け取った変数、
例えば、$commentをそのまま検証しないでif文に入れてるから、
exec文でも書いてあったらやばいんじゃないかってことだと。
0310297
02/09/23 17:45ID:???ゴメン。新しいのがあった。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq9.html#How_do_I_decode_a_CGI_form_
>>305
スクリプトを読んで分らないなら、とにかく
使わないでください。
0312nobodyさん
02/09/23 18:00ID:???ハッシュデータをサブルーチンへ渡そうと思うのですが、
%DAT = ( "2by4" => "8", "4by8" => "32");
&D_write(\%DAT);
sub D_write {
my($data) = $_[0];
print"これがデータ ： $$data{'2by4'}";
return 1;
}
まず"\%DAT"でリファレンスを渡しますが、その受け取りが普通の変数なのは"メモリの番地自体"を収めているから
という認識で良いのでしょうか？
また、さらにその値自体を参照したいときは1次参照なので$を1つだけ加えて"$$"になるという考え方でよいのでしょうか？
0313nobodyさん
02/09/23 19:07ID:???$aは${a}って書けるのはわかるよね？
なら $$data{'2by4'} は ${$data}{'2by4'} ってなるのもわかるよね？
なら %$data (%{$data}) ってなるのもわかるよね？
そゆこと。
0314299
02/09/23 20:28ID:???sub make{
foreach $data(@file){
$_=split(/,/,$data);
&print;
$a++;
if($a eq 10){last;}
}
}
sub print{
$list=<<"_HTML_";
$list
$_[1]$_[2]$_[3]
_HTML_
}
299です。>>303さんレスありがとうございます。
勉強中の身でもうひとつ…
上記の例で、CSVデータから頭１０件を取り出して表示したいのですが、
foreachで強制的に10件カウントしたら終わらせているのですが
こうじゃなくて普通にforあるいはwhileで書いたらどうなりますか？
@fileから取り出す記述が分からないです。
また速度は変わりますか？
どうも適当にかじってるので基本的なものが出来てないです。
0316nobodyさん
02/09/23 20:49ID:iHNT8XWdフォームに入力した文字が半角じゃないといけない所が全角だったり、
入力する数がおかしかったりする時に
間違ってますよと表示するにはどうすればいいですか？
0317さやか
02/09/23 21:07ID:UR9fVmIXこれのps_user.cgiだと思うんですが588行あたりが
たぶんネックです。
さやかは、後から登録した奴は下に表示したいんです
検索エンジンって、フリーでもらえる奴はみんな
後から登録されたサイトが上に出るじゃないですか
それを逆にしたいんです。
難しいです。こんな質問してるさやかは嫌いですか？
私体も弱いんです。男の人も怖いし。優しい人いないかな？
ちなみに男って言われました。文章が男っぽいのかな？
私の周りにはくわしい人いません。男の人ならくわしい人いそうですが
男の人さやか苦手です。女子高生です！←男の人ってこうかくと
優しくなるらしいですね。うそじゃないですよ。
0318nobodyさん
02/09/23 21:24ID:???それだけの説明では、こう答えるしかない。
$入力された文字列 =~ /半角を表す正規表現/ or &間違ってますよと表示
$入力された数字 =~ /数字以外を表す正規表現/ or &間違ってますよと表示
それぞれの正規表現は頑張って調べてね。
0319nobodyさん
02/09/23 21:28ID:???質問者が誰かなんてどうでもいいんだよ。
なんで人を小馬鹿にしたような質問の仕方するかなぁ。
優しい人？そんな聞き方されて喜んで答える奴はタダのスケベだろ。
つーかそんな聞き方されたら答える気無くなるつーの。
答えが欲しけりゃ
普 通 に 聞 け 。
0321さやか
02/09/23 21:42ID:UR9fVmIXでも、さやかにはくわしい人いないの・・・。
迷惑だったですよね・・・。
すいません。一から勉強します。>>320ショックです。
そんな酷い事いわれると。
0322nobodyさん
02/09/23 21:46ID:???SJISならこんな感じかな
if(length($in{kana}) > $kana_max ||
length($in{eigo}) > $eigo_max ||
length($in{suuji}) > $suuji_max){error('文字多いよ');}
if($in{kana} =~ /[^\x20\xa7-\xdd]/i){error('半角カナで入れてね');}
if($in{eigo} =~ /[^\x20a-z]/i){error('半角英字で入れてね');}
if($in{suuji} =~ /[^\x20\d]/){error('半角数字で入れてね');}
>>321
ここは匿名掲示板だからね
相手の概要はわからないほうが色々と都合が良いのよ
むしろ余計な情報は邪魔
0324nobodyさん
02/09/23 21:53ID:???動作を勉強したいんじゃなくて既製のスクリプトを改造したいのなら
こっちじゃない？
【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/l50
0325さやか
02/09/23 21:56ID:UR9fVmIXseek(ファイルハンドル,0,0)
これを0→2にしてもだめだったです。
たぶんこれが悪の正体です↓
while(<IO>){
if (index($_,">$siteyrl<")!=-1){
@y2=split(//<>/,$_);
close(IO);
とにかくこの辺がキーだと思います。苦しい。
0326さやか
02/09/23 22:06ID:UR9fVmIXなんかロールプレイングみたい！
0327nobodyさん
02/09/23 22:13ID:???> if($in{suuji} =~ /[^\x20\d]/){error('半角数字で入れてね');}
理解して参考にする人はいいが、丸写しする人は困るよな。
$n = '2' . "\x20" . '3';
print $n . "\n";
print $n + 0;
相手が出していない条件を黙って付け加えるのは危険だよ。
0329318
02/09/23 23:58ID:???半角→半角以外
or→andだね。
0330nobodyさん
02/09/24 01:45ID:???ファイルを読み込み・書き込みする場合、
+<、+>の入出力両用をあまり使用しないのは何故でしょうか？
0331nobodyさん
02/09/24 02:19ID:???ファイルサイズを求める場合
$size1=(stat( $filename))[7];#statを用いて
$size2=(-s $filename)#ファイルテスト演算子
それぞれの違い・利点は何でしょう？
0332nobodyさん
02/09/24 03:24ID:???意外と(存在|使い方)を知らない人が多いから。
…じゃ、答にならない?
使える場面では気にせず使えばいいよ。
>>331
# stat の返す 13 要素から成るリストを作り、その 8 番目の要素を得る
$size1 = ( stat $filename )[7];
# ファイルサイズのみスカラー値として得る
$size2 = -s $filename;
perl のソース確認したワケじゃないけど、内部的には大差ない気が。
でもたった一つの要素の為にリスト吐かせるのはバカらしいと思う。
「8 番目」よりは「-s」の方が、パっと見で分かりやすいし。
0333nobodyさん
02/09/24 04:11ID:???作業を終えるまでオンメモリで行ける小規模なものなら+<は使うが
巨大なログをテンポラリに小出ししながら記録していく場合は
ログへの直書きは必要無いので普通に読みテンポラリに普通に書く。
331は速度的にはどっちも似たようなもんだね。
statは他の情報も取れるし一度使えば後で何度でも結果が
使いまわせるのでタイプが面倒じゃないならstatのが
良いかも。
0334294
02/09/24 08:49ID:???$name = $in{'name'};
$a1 = $in{'a1'};
$a2 = $in{'a2'};
$a3 = $in{'a3'};
〜〜〜以下続く
$a15 = $in{'a15'};
$b1 = $a1 * 3;
$b2 = $a2 * 6;
$b3 = $a3 * 5;
$b4 = $a4 * 3;
$b5 = $a5 * 3;
$c = $b1 + $b2 + $b3 + $b4 + $b5;
$b6 = $a6 * 3;
〜〜（略）
$b10 = $a10 * 3;
$d = $b6 + $b7 + $b8 + $b9 + $b10;
（もう一度繰り返して15まで終わらせて、最後の式を$eにします）
$f = $c + $d + $e
として、
print "$name … $c ： $d ： $e ： 「$f」\n";
と示すと、「1、2、3、4、5、1、2、………5」と入力したとすると
名前 … 57 ：＝@：＝@： 「156」 と示されてしまうのです。
ログを見てみると、<>57<>45<>54<>156<>となっていて、同じ数字を入力して同じ計算をしても違う数字になっていて…。一番最初のはあっているのですが。計算の仕方を間違えてしまっているのでしょうか？
0336334
02/09/24 12:18ID:???ありがとうございます！急いで修正します。
…では、計算がおかしいのはどうしてでしょうか。
<>57<>57<>57<>171<>にならないとおかしい筈なのですが…。
0337nobodyさん
02/09/24 13:59ID:aoR+W3Ks**,***,***,***,**,***
**,***,***,***,**,***
**,***,***,***,**,***
とデータ（データは動的）が入っています。
これを配列data[][]
にいれるのどうしたらいいのでしょうか？
すいません教えてください。
だれかやさしい人お願いします
0338nobodyさん
02/09/24 14:29ID:???while(<>){
@date=split(/,/,$_);
}
0339訂正
02/09/24 14:30ID:???while(<FILE>){
@date=split(/,/,$_);
}
0341nobodyさん
02/09/24 14:36ID:???my @data;
open F, $csv;
while (<F>)
{
chomp;
$data[$. - 1] = [ split /,/ ];
}
(ここ数日変な質問のしかたする人が目立つ気がする)
open(CSV,$filename);
my@data=map{chomp;[split/,/]}<CSV>;
close(CSV);
0343nobodyさん
02/09/24 14:59ID:4thlbHdp# findpattern
while (<STDIN>) {
if (/Jackson$/) {
print;
}
}
findpattern < people.txt
と、本のとおりにやって、Jacksonで終わるデータだけを出力したいのに、
何も出力せずに終わってしまいます。
いろいろ試してみましたが、文字列の末尾にマッチさせる$のときだけ
うまくいかないようです。
原因がわかりません。
どこがおかしいんでしょうか？
0345nobodyさん
02/09/24 15:05ID:???どうすればいいんでしょうか。
ベンチマーク？で検索してもいまいちわからないもので..おながいします。
0346nobodyさん
02/09/24 15:09ID:???下の2行をスクリプトの2行目辺りに置いて
use Benchmark;
$start = new Benchmark;
下の3行をexitする直前にでも置いとけば？
$last = new Benchmark;
$bench = timediff($last,$start);
print timestr($bench);
0347nobodyさん
02/09/24 15:11ID:4thlbHdpwhile (<STDIN>) {
chomp;
if (/Jackson$/) {
print;
}
}
でしょうか？
ダメでした。
入力のパーサーがおかしいのか、処理がおかしいのか、
データを埋め込みにしてみるなりして、どこが問題なのか
切り分けをしてみたらどうでしょう＞
>>345
Benchmarkモジュールって標準ではいってなかったけ？
http://search.cpan.org/author/JHI/perl-5.8.0/lib/Benchmark.pm
0349nobodyさん
02/09/24 15:20ID:???ああ、STDINか。POSTデータ？
while(<STDIN>){print "[$_]";}
一度こんな感じでどんな形でデータが入って来てるか見てみ。
0351nobodyさん
02/09/24 15:37ID:???1 wallclock secs ( 0.10 usr + 0.01 sys = 0.11 CPU)
てなカンジのものがでてきますた
哀しいかな読みとれません
意味を教えていただけると幸いでつ
0352nobodyさん
02/09/24 15:43ID:4thlbHdpこんなかんじでした。
[Micheal Jackson
][Janet Jackson
][Joe Jackson
][Joni Mitchel
][Jackson 5
][Micheal Johnson
][Jon Anderson
][Sade
]
末尾に何かがあるみたいですが、
chomp;を入れると、"]"しか表示されませんでした。
>>350
キャリッジリターンとは改行コードのことでしょうか？
取り除く方法はchompでは間違ってますか？
上の結果を見ると、違うっぽいですがわかりません。
0353b
02/09/24 15:43ID:PxGGzvM00354nobodyさん
02/09/24 15:45ID:???%giko = ( "1" => "1gorula", "2" => "2dorula", "3" => "itteyosi");
%mona = ( "2" => "2cher");
この2つのハッシュから
%abone = ( "1" => "1gorula", "2" => "2cher", "3" => "itteyosi");
を作ろうとしたら
while (($key, $value) = each(%giko)) {
if( defined($mona{"$key"}) ){
$giko{"$key"} = $mona{"$key"};
}
}
とかやるしかないんでしょうか？
これだと
%mona = ( "2" => "2cher", "4" => "sindeyosi");
のような形式に対応できないし、もっと簡潔な方法は無いかなと思うのですが・・・。
0356nobodyさん
02/09/24 16:03ID:???ありがとうございます。
Cygwin 上でしたが、できました！
もし、よろしければ、\r について教えて下さい。
Unix 上では \n の変わりに \r を使うのでしょうか？
で、chomp は \n は取り除けても \r は無理ってことですか？
0357355
02/09/24 16:13ID:???Unix 上なら普通 \r なんか使わない (\n しか使わない) ので、
問題は起きない。
DOS (Windows) 上だと、自動的に \r が入力から取り除かれるのかな？
Cygwin はよく分らない。
詳しい人の解説キボンヌ。
0358nobodyさん
02/09/24 16:19ID:aoR+W3Ks>>**,***,***,***,**,***
>>**,***,***,***,**,***
>>**,***,***,***,**,***
>>とデータ（データは動的）が入っています。
>>これを配列data[][]
>>にいれるのどうしたらいいのでしょうか
if(!open IN,'< Q1.dat'){
print "オープンエラー";
}
@list=<IN>;$row=0;
foreach $rec(@list){
@data=split("/,/",$rec);
for($j=0;$j<8;$j++){
$mondai[$i][$j]=$data[$j];
print "($i)(($j)$mondai[$i][$j]\n";
print "$mondai[$i][$j]\n";
}
$row++;
}
これじゃだめなのですか？
わかりません ＰＥＲＬの超初心者
0366nobodyさん
02/09/24 22:39ID:???undef $b;
undef $x;
これを1行にまとめられますか
0367nobodyさん
02/09/24 22:52ID:???0368nobodyさん
02/09/24 23:03ID:???036969
02/09/24 23:32ID:???0370nobodyさん
02/09/25 01:11ID:???最初から10文字無いものは後ろに空白で(10-title文字数)を入れて揃えるとして
どうしたらいいのでしょうか？
$title = substr($title,0,10);
if(length($title) < 10){$title = sprintf(???????,$title)};
多分こんな感じでしょうか？
御教授願います〜
■ このスレッドは過去ログ倉庫に格納されています