Perlコーディング初心者質問スレ Part 40
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
05/01/27 18:08:42ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0141nobodyさん
05/02/05 02:45:38ID:???0142137
05/02/05 02:51:46ID:???0143nobodyさん
05/02/05 03:17:56ID:???Perlの起動が上手くいきません…
XPでPerlのVerは5.8.3です
とりあえずデフォルトでインストールは終わったのですが
コマンドプロンプトを開くと即閉じてしまいます。
サイトみてもXPの説明が…
0144nobodyさん
05/02/05 03:28:41ID:???スレ違いです。
△▲ WebProg 初心者の質問 Part11 ▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/
0145nobodyさん
05/02/05 03:30:56ID:???0148nobodyさん
05/02/05 05:41:11ID:???とりあえず2個目の foreach の @value を @$value に変えて正常に出力されるのを確認したら、
http://www.google.co.jp/search?hl=ja&q=Perl+%E9%85%8D%E5%88%97%E3%81%AE%E9%85%8D%E5%88%97
で勉強してくれ。
>>147 なんつーか…
print'<table>',(map{('<tr>',map("<td>$_</td>",@$_),'</tr>')}@tbl),'</table>';
0149nobodyさん
05/02/05 17:35:50ID:???if ($name = ~/fusianasan/){
$name = ~s/fusiansan/<strong>$host<\/strong>/
}
注）$name…名前欄の文字列 $host…$ENV{'REMOTE_HOST'}
とすると、名前欄にfusianasanが入っていてもいなくても
名前欄が4294967295になってしまいます。
また、同様に
foreach (@post_check_list){
~ s/</</gi;
~ s/>/>/gi;
~ s/\r\n/<br \/>/gi;
~ s/\r/<br \/>/gi;
~ s/\n/<br \/>/gi;
~ s/"/&guot;/gi;
~ s/&/&/gi;
~ s/\0//g;
${"$post_check_list2[$i]"} = $_;
$i++;
}
注）@post_check_list = （\$name ,\$mail, \$honbun…
$nameは名前欄、$mailはメール欄、$honbunは本文
@post_check_list2 =('name', 'mail', 'honbun'…
とするとメール欄などが全てREF(0x814d354)となってしまいます。
文字コードはeucなのになぜなのでしょうか…知っている方ご教
授いただければ幸いです。
0151nobodyさん
05/02/05 17:52:11ID:???fusianasanのほうは他の処理に原因があるのだろう。
@post_check_listは中身がリファレンスなんだから当然の結果。
eucとかそういう話は無関係。
0152nobodyさん
05/02/05 18:36:20ID:???日本語をwriteすると文字化けるというのは仕様でしょうか?
#以下ソース
$hoge = 'test1';
$hoge2 = 'あ';
format STDOUT =
TITLE : @<<<<<<<<<<
$hoge
TITLE2 : @<<<<<<<<<<
$hoge2
.
write (STDOUT);
#$hoge2が化けてます。
0153nobodyさん
05/02/05 18:42:39ID:???if ($name = ~/fusianasan/){
$name = "<strong>$host<\/strong>";
}
0155nobodyさん
05/02/05 19:50:46ID:???if ($name = ~/fusianasan/){
$name = "<strong>$ENV{REMOTE_HOST}<\/strong>";
}
0156nobodyさん
05/02/05 19:54:28ID:???つか、漏れの借りてる鯖は$ENV{'REMOTE_HOST'}禁止なんだよね。
0157nobodyさん
05/02/05 19:55:01ID:???でもいいな。
0161未承諾広告※ ◆TWARamEjuA
05/02/05 21:13:22ID:???0162149
05/02/05 21:15:54ID:???ありがとうございました。スペースを削除したら上手くいきました。
>>151
リファレンスにせずに、普通に
@post_check_list = （$name ,$mail, $honbun…
としたら上手くいきました。ありがとうございます。
>>155,>>157
それだと、名前欄に「ほげほげ fusianasan」などと入れたときに
ほげほげが消えてしまいます。
0163nobodyさん
05/02/05 21:39:54ID:???勘違いしてるみたいだけど、~ は正規表現の先頭に付ける文字じゃないからね。
後半のソースは左辺値がないからたまたま期待通り動いてるだけ。
どういう意味があるのかは調べてみてください。
0164nobodyさん
05/02/05 22:35:02ID:???$name = ~/fusianasan/;
これは
$name = (~($_ =~ m/fusianasan/));
と同じ意味。
0165nobodyさん
05/02/05 23:56:22ID:5Rr9/6OZprint << " END_OF_PRINT";
処理
END_OF_PRINT
って書くけど、
こんな時に処理部に例外処理が沢山あって
print << " END_OF_PRINT";
処理A
END_OF_PRINT
print << " END_OF_PRINT";
処理B
END_OF_PRINT
･･･
ってな感じで細かく使わないといけないけど普通のprint文を使うまでも無いって時はどうしてる？
なんかソースが汚く見えるんだよね。
0166nobodyさん
05/02/05 23:58:48ID:???意味わかんないんだけど。
スペースも意味わかんない。
0167nobodyさん
05/02/06 00:31:46ID:???例えとしてもそんなこと書いているようでは汚いのは当然かも。
0168nobodyさん
05/02/06 00:44:01ID:???0169nobodyさん
05/02/06 00:48:00ID:???0170nobodyさん
05/02/06 00:52:30ID:???0171nobodyさん
05/02/06 01:13:35ID:???サブルーチンを分けるか、ファイルを分ける。
スペースは意味わかんないから __END_OF_PRINT__ とか書く。
0173165
05/02/06 02:10:26ID:???0174nobodyさん
05/02/06 05:39:04ID:???一度変数に入れてしまう。
my $str_a =<< " END_OF_PRINT";
処理A
END_OF_PRINT
my $str_b =<< " END_OF_PRINT";
処理B
END_OF_PRINT
print $str_a;
# 何か処理
print $str_b;
0175nobodyさん
05/02/06 11:18:05ID:???処理A
EOT1
処理B
EOT2
0176nobodyさん
05/02/06 12:36:07ID:???@{[...]}とか使えばなんでも書けるけどさ...
0177nobodyさん
05/02/06 13:01:53ID:???0178nobodyさん
05/02/06 13:03:56ID:???綺麗とかそういう基準なんて、誰かが勝手に言い出した物で、
別に基準なんかじゃないんだからさ。
自分が後から見て理解できるように書けばいい。
0179nobodyさん
05/02/06 13:17:10ID:???0180nobodyさん
05/02/06 13:32:38ID:???複数ファイルのCRC16チェックを行い、その結果を表示するCGIを作ったのですが
１ファイル毎に結果が送られなくて、１０個ほど毎にブラウザに返してきます。
これを１個づつこまめにレスポンスを送るにはどうすれば良いのでしょうか？
Unixの場合は $|=1 等で手段が有るようですが、Windows環境では無理でしょうか？
0181nobodyさん
05/02/06 14:53:09ID:???スレ違い
△▲ WebProg 初心者の質問 Part11 ▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/
0182180
05/02/06 14:55:56ID:???0183nobodyさん
05/02/06 16:44:56ID:fwG0kktYテキストエリアに表示させる時、改行文字は何になるのですか？
<TEXTAREA COLS=65 ROWS=5 NAME=\"ets\">$ets</TEXTAREA>
と記述し、$etsのデータの改行したいところに\nとか\rとか\r\r\nとか
入れてみたのですが、そのまま表示されます。
0184nobodyさん
05/02/06 16:46:35ID:???スレ違い
△▲ WebProg 初心者の質問 Part11 ▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/
0185nobodyさん
05/02/06 17:25:47ID:???0186nobodyさん
05/02/06 17:28:45ID:???$ets = '〜\n'; みたいにシングルクオーテーションだと \n 、
$ets = "〜\n"; みたいにダブルクオーテーションで書けば 改行 で入ると思う。
0187nobodyさん
05/02/06 17:43:51ID:???0189nobodyさん
05/02/06 17:51:47ID:???普通に質問に答えてあげればいいと思うが。
0191nobodyさん
05/02/06 18:27:46ID:fwG0kktYありがとうございます。
まだうまく行きませんが、WebProg 初心者の質問 Part11の方で
継続して質問しています。
0194nobodyさん
05/02/06 19:29:14ID:???自治初心者スレとか必要だな（ｗ
0195nobodyさん
05/02/06 23:57:25ID:???0196nobodyさん
05/02/07 10:09:59ID:Xo+VK5jqメールアドレスをそのまま入力してもらうと正規表現がたいへんなので、
@はこちらで用意して左辺と右辺を別々に書いてもらうことにしました。
入力スペース @ 入力スペース
こんな感じです。そして不正なアドレスだと感知したらメールを送るのをやめます。
右辺は英数字とピリオド以外が混入していたら中止。
左辺は何が混入していたら中止にすればいいのでしょうか？
確かメールアドレスに含んでよい記号ってかなりありますよね；
@を除いてそれら以外が混入してれば中止とすれば安全なのでしょうか？
0197nobodyさん
05/02/07 10:28:38ID:???よくXSS対策などと言いますが、リファラーを取ってマッチングしない場合は
別の処理をするみたいな事をすればXSSなんて起こりませんよね？
もちろん結局はしないと変なスクリプト掲示板に埋められたり、注文客が
思いっきりスクリプト攻撃したりということがありますが、それってXSSでは
ないですよね。
つまりXSS対策って実はリファラーだけ取れば回避できるんですよね？
それともXSSっていうのの意味には前段落で挙げたようなことも含まれているんでしょうか？
0198sage
05/02/07 10:41:49ID:+1BETA+W既存のスクリプトを使用した方が早くないか？
>確かメールアドレスに含んでよい記号ってかなりありますよね
普通はアルファベットと数字、アンダーバーやハイフン程度だろ
>>197
しかしそう簡単にはリファラーを渡さないのがノートン先生ですよ
0199196
05/02/07 10:55:01ID:Xo+VK5jqドメイン側は
$domain =~ /[^\w\.]/;
としていてこれにマッチするなら不正と考えます。
ユーザ名側は確か通常URIに含められる文字列なら全て含めることができたような記憶があるんですよね；
print MAIL "to: ".$user.'@'.$domain."\n";
みたいにするんですが、UNIXには詳しくないのでどういう文字列を渡すと危険なのかが
把握できていません・・・
$user =~ /[^\w\-]/;
これだと実際には正常なアドレスなのに送れないケースが出てくると思うんですよね。
やはり既存のフォームメールスクリプトを探すのが早いですかね？
さっきPerlメモ読みましたが、ユーザ名側で何をエスケープするべきかは書いてなくて
ややこしいコードだけがありました。
ユーザ名側に含めることができる記号一覧があるRFC文書を探してますが、
英語に悪戦苦闘ですorz
0200nobodyさん
05/02/07 10:55:14ID:???正規表現以外でやろうとする方が大変。
ちなみに携帯のメールアドレスとか規格に則してなかったような。
>>197
リファラは偽装できる。
0201197
05/02/07 11:15:16ID:???やっぱ俺って天ちゃんなのね
0202nobodyさん
05/02/07 11:15:29ID:???>>198
メールアドレスのローカルパートって他の世界のメールシステムとの
やりとりもありうるので適切にエスケープすればほぼなんでもありの
仕様になっています。rfc2821の4.1.2にBNFがあるのでLocal-partって
とこを見ればいいですが、「"」でくくってQuoted-stringにすれば\を
前に置くことでCR,LF以外の任意の文字を書くことが出来ます。
くくらない場合は、英数字または「!#$%&'*+-/=?^_`{|}~」からなる1文字
以上の文字列、またはそれをを「.」をはさんで複数つなげたものが許され
ます。ただし、一部のケータイなどで連続した「.」を含んだり末尾が「.」
で終わる仕様に違反したアドレスを許しているので、あまり厳しくチェック
すると文句がでるかもしれません。
これを気にしなくてよければEmail::Validそのままでいいんだけどね。
0203nobodyさん
05/02/07 11:16:20ID:???http://bbq.uso800.net/code.html
にあるＢＢＱによる方法で導入してみました
動作確認したいのですが公開串って何処で公開されてるんでしょうか
0204nobodyさん
05/02/07 12:26:41ID:???perlに関係ないじゃん。
rfcでアドレスに使える文字を調べないさいよ。
>>203
板違いだね。
初級ネット板かセキュリティ板へ。
0207nobodyさん
05/02/07 13:29:03ID:???0208nobodyさん
05/02/07 15:47:18ID:???壊れますよね。
いわゆる排他処理って言うと思うんですが、今まで一度もやったことがありません。
Perlの経験はネットショップをmysqlとの連携で構築したりその他ちまちましたものばかりです。
基本的にファイルではなくDB連動ばかりだったので勝手に排他処理をしてもらってたせいで。
どこかPerlでやる排他処理について詳しいサイトありますか？
一応windowsでもUNIXでも共通の方法を探してます。
0210nobodyさん
05/02/07 19:09:05ID:???今回は違う人が誘導したんでしょ。
誘導厨フォーマットじゃないし。
↓
>>000
スレ違い
△▲ WebProg 初心者の質問 Part11 ▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/
0211未承諾広告※ ◆TWARamEjuA
05/02/07 19:20:38ID:???【BBQ 3本目】公開串登録所 【ピンポイント規制】
http://qb5.2ch.net/test/read.cgi/sec2chd/1105274729/l50
ここを眺めればいくらでも（ｗ
0213nobodyさん
05/02/07 21:02:12ID:???0214nobodyさん
05/02/07 21:42:44ID:???0215nobodyさん
05/02/07 21:54:28ID:???0217nobodyさん
05/02/07 23:02:26ID:???0218nobodyさん
05/02/07 23:05:47ID:???#!/usr/bin/perl
require './require.pl';
&hogehoge;
# hogehoge2を呼び出さずに終了
exit;
-------------------------
# require.pl
sub hogehoge{
(中略)
}
sub hogehoge2 {
(中略)
}
--------------------------
この場合に呼び出していない、require.plのhogehoge2はコンパ
イルされるのでしょうか。
それとも、呼び出さなければコンパイルされないのでしょうか。
教えていただければ幸いです。
0219nobodyさん
05/02/07 23:18:56ID:???ttp://homepage1.nifty.com/glass/tom_neko/web/web_04.html
http://web.archive.org/web/20040216083853/www98.sakura.ne.jp/~jun/perl/flock.html
0221nobodyさん
05/02/07 23:39:55ID:Cfgr4b2rEmail::Valid
Email::Valid::Loose
Docomoの変なのもおっけ
到達可能かもみます
0222nobodyさん
05/02/07 23:43:35ID:???コンパイルされますか…
# main.cgi
#!/usr/bin/perl
$_ = 1;
if ($_ == 1){ require './require1.pl }
elsif ($_ == 0){require './require2.pl'}
&hogehoge;
# require2.plを呼び出さずに終了。hogehoge2を
# コンパイルしない分負荷が減る
exit;
----------------------
# require1.pl
sub hogehoge {
(中略)
}
----------------------
# require2.pl
sub hogehoge2 {
(中略)
}
-----------------------
みたいな感じで別ファイルにして対処しようと
思います。ありがとうございました。
0223nobodyさん
05/02/08 02:09:22ID:???0224nobodyさん
05/02/08 02:15:40ID:???0225nobodyさん
05/02/08 02:54:05ID:???0226nobodyさん
05/02/08 03:39:12ID:???0227nobodyさん
05/02/08 03:43:09ID:???なんでこんなに即レスなの？
0228nobodyさん
05/02/08 03:51:50ID:???0229nobodyさん
05/02/08 13:26:19ID:???いつも誘導に反応する奴なんてまったくいないのに。
何人もいるように見せかけているが、近い時間に書いてるし。
いずれにしても注意してるヒマがあったら、ここでも誘導先でも
答えてやればいいのに。
0232nobodyさん
05/02/08 16:58:30ID:???みなさんはページ移動をどうやってますか？
私は今まで
if ( $form{page} eq "hoge") {#hogeページの処理
}elsif( $form{page} eq "hage" ){#hageページの処理
}
こうしてました。で、ふと思ったのですが、もしかしてページごとにサブルーチンに
しておいて、$form{p}の値を見てどのルーチンを呼ぶかを分岐させた方が
わかりやすいかもって。
みなさんはどうやってますか？
0235nobodyさん
05/02/08 18:48:30ID:???同じぐらいに時間に登場とはわかりやすい。
0236nobodyさん
05/02/08 19:24:33ID:???お前に何の権利があるんだよとか、いちいち注意してんじゃねーよとか
意味不明な反抗をする高校生みたいになってきてるな。
0237nobodyさん
05/02/08 19:25:19ID:???0239nobodyさん
05/02/08 21:45:37ID:???そこで画像サイズを取得し、<img width="***" height="***" src="***">のように書き出そうと
Image::Size を使用しようとしましたがサーバーにはインストールされておらず、 Size.pm を設置する事にしました。
ローカルでは README.win32 に書かれたとおりの編集をし
perl/site/lib/Image/Size.pm に置く事で動きました。
サーバーに設置する事も想定し、スクリプトのあるフォルダに
lib/Image/Size.pm と設置し、スクリプトに use lib "lib"; の記述で動くことも確認しました。
そして、サーバーに同様の構造で「未編集」の Size.pm を設置しましたが動きませんでした。
# 正確にいうと ($width, $height) = imgsize("$file_name"); で止まるようです。
しかし、 README.win32 に書かれた編集を施した Size.pm では無事に動きました。
実際にした編集というのは use AutoLoader 'AUTOLOAD'; と __END__ の2行を消しただけです。
何故、 Win 用の編集で動くようになったのでしょうか？
動くようになったこと自体はいいのですが、サーバー側に迷惑をかけてる可能性はありますでしょうか？
■ このスレッドは過去ログ倉庫に格納されています