Perlコーディング初心者質問スレ Part 40
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
05/01/27 18:08:42ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
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 用の編集で動くようになったのでしょうか？
動くようになったこと自体はいいのですが、サーバー側に迷惑をかけてる可能性はありますでしょうか？
0240質問
05/02/08 22:09:04ID:???↓
表示したリストからpptファイルへリンク
これって出来ますか
0242nobodyさん
05/02/08 22:16:03ID:???君が初心者なのはわかった。
でも君がやろうとしてる事はちょっとだけ初心者の域を抜けかけてる。
初心者が下手にやると危険。
中級者になってから挑んでください。
0243239
05/02/08 22:44:01ID:???危険な事だという事はわかりましたので、素直に Image::Size を
サーバー管理者にインストールして貰うようにメールしてみます。
あと、私の犯した過ちは Win 用のファイルをあげた点で間違いないでしょうか？
0244nobodyさん
05/02/08 23:20:35ID:???自分のスクリプト内に、サイズ求めるソース組みこだらいい。
検索したら何かあるでしょ。
0246nobodyさん
05/02/09 00:34:32ID:???いいや。今のまま使い続けても、何も心配する必要は無い。
Image::Size は様々な形式の画像ファイルのサイズを得る機能を有しているが、
ある特定の形式（例えばgif）のみのサイズを得たい場合
には、その形式に必要な機能のみを、メモリに展開すれば済む。
そこで、実際に指定された画像形式に応じて必要な機能のみを
実行時にメモリに展開するのがAUTOLOADだ。
> 実際にした編集というのは use AutoLoader 'AUTOLOAD'; と __END__ の2行を消しただけです。
それをやると、Image::Size が対応しているあらゆる画像形式の
機能が全てメモリに展開されることになる。だから、メモリ容量が
多少無駄になるが、特に支障があるというわけではない。
0247nobodyさん
05/02/09 00:52:14ID:cKLRZBQZ0248nobodyさん
05/02/09 07:37:58ID:???cryptは８文字目以降は無視するようなので
crypt以外で８文字以上の文字列を暗号化する良い方法を教えてください
0251nobodyさん
05/02/09 10:13:54ID:???CGI.pmを使用して、クライアントからファイルのアップロードをさせたいのですが・・・
コードはこちらです。
#!/usr/bin/perl
use strict "vars"；
use strict "subs"；
use CGI；
print "Content-typt： text/html； charset=euc-jp\n\n"；
our $fh；
our %columns｛upload_file｝ = $query->param（’upload_file’）；
&hozon（）；
sub hozon（） ｛
my $query = new CGI；
$fh = $query->upload（’upload_file’）；
print ”$fh<BR>”；
while(<$fh>) ｛
print "$_<BR>"
｝
｝
というコードだと、ブラウザにwhileの中の$_の内容を出力できないのです。
print ”$fh<BR>”；はきちんとファイルパス名が出力されます
ここでour $fhと宣言しますが、これを削除し、
my $fh = $query->upload（’upload_file’）；
とローカルとして宣言するとブラウザに出力される事になります。
何が原因なんでしょうか？
0252nobodyさん
05/02/09 10:50:26ID:???空白や記号が全角になってるのを半角に直してperlに食わせてみたが
そもそも構文エラーでるじゃん。実際におかしいものと違うコードを
見せられてもなぁ。
0254251
05/02/09 11:27:13ID:???書き込むときってみやすいように全角使ったんですけど、
こういうのって直接コード書いたほうがいいんですかね？
#!usr/bin/perl
use strict "vars";
use strict "subs";
use CGI;
print "Content-typt: text/html; charset=euc-jp\n\n";
our $fh;
our %columns;
&hozon();
sub hozon() {
my $query = new CGI;
$columns{upload_file} = $query->param('upload_file');
$fh = $query->upload('upload_file');
print "$fh<BR>";
while(<$fh>) {
print "$_<BR>";
}
}
0255nobodyさん
05/02/09 11:54:12ID:???Cでいったら/* */見たいなやつです。
0257nobodyさん
05/02/09 14:01:11ID:???Content-typtという打ち間違いがある状態でまともに動いて
いるとは思えないのだが、そのコードでちゃんとおかしな現象が
再現してるのを確認してるかい? おかしい現象が起きてるものを
そのまま出してもらわないと付き合いきれんよ。
ちなみにそのtypoを直して実行してみたところ、そのコードで
普通にファイルの中身も出力された。
0258251
05/02/09 14:43:07ID:???実際に動かしているコード
#!/usr/bin/perl
use strict "vars";
use strict "subs";
use CGI;
print "Content-type: text/html; charset=euc-jp\n\n";
our $fh;
our %columns;
&hozon();
sub hozon() {
my $query = new CGI;
$columns{upload_file} = $query->param('upload_file');
$fh = $query->upload('upload_file');
print "$fh<BR>";
while(<$fh>) {
print "$_<BR>";
}
}
やっぱりこれで、ブラウザに表示されないですね。
$fhにはC:\Documents and Settings\hogehoge\デスクトップ\新規テキスト ドキュメント.txtと出力されます。
$fh = $query->upload('upload_file'); を my $fh = $query->upload('upload_file'); にして
our $fh; を #our $fh;
にするとすべてブラウザに出力されますね。
リファレンスとか絡んでるんだろうか？
0259nobodyさん
05/02/09 16:03:09ID:XVTcbf3E時間,名前,コメント
時間,名前,コメント
時間,名前,コメント
というようなデータの列挙が1000件以上あります。
これを元に色々な処理をしたいので、ハッシュに入れようと思ったけど、キーがないので入れられません；
1000件以上になるのでabcd...なども無理です。
そこで「a行数」のキーを与えようかとも思ったのですが、論理的なキーではないのでイマイチ気が乗りません。
何か良い方法はないでしょうか？普通はこういうときってどうするのでしょうか？
やはり「a行数」というキーを持たせるしかありませんか？
0260nobodyさん
05/02/09 16:05:36ID:???特にハッシュにしなきゃいけない理由って何かあるの?
0261nobodyさん
05/02/09 16:07:48ID:???0263259
05/02/09 16:15:15ID:XVTcbf3Eそうか・・・・・
>>261
それは知りませんでした；
しかし>>260さんが言うようにa行数のようにしたい時点で配列を使えばいい状況
ということですねm(_ _)m
配列の中にリファレンスでいれておきます。解決です。ありがとうございました！
0264nobodyさん
05/02/09 16:16:02ID:???配列に入れちゃダメなの？
open(FHIN,'csvfile') or die "can not open csvfile\n";
$i = 0;
while(<FHIN>) {
($time[$i],$name[$i],$coment[$i]) = split(/,/,$_);
}
とかで、いろいろ出来ると思うけど。
逆の他の人に聞きたいのは
while(<FHIN>) {
@datas[$i] = split(/,/,$_);
}
とかで
@datas0にデータ入れて
じゅんじゅんに
@datas1とかに入れるのってどうやってやんの？
0266251
05/02/09 16:27:57ID:???みんな、ありがとう。
いい夢みろよ！！
0267nobodyさん
05/02/09 16:51:03ID:???#!/usr/bin/perl -w
my @data;
chomp, push @data, [ split /,/ ] while <DATA>;
print $data[1][2]; # h
__DATA__
a,b,c,d,e
f,g,h,i,j
k,l,m,n,o
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldsc.html
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perllol.html
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlref.html
0269nobodyさん
05/02/09 17:31:30ID:???chomp, push @data, [ split /,/ ] while <DATA>;
はいくらなんでも詰めすぎじゃないかと。
普通に書くなら
while (<DATA>) {
chomp;
push @data, [ split /,/ ];
}
ぐらいじゃないかなー。
0271nobodyさん
05/02/09 18:59:46ID:???私は
chomp, push @data, [ split /,/ ] while <DATA>;
の方が直感的に頭に入ってくるな
0273nobodyさん
05/02/09 20:09:21ID:???下主流
0274nobodyさん
05/02/09 21:09:26ID:???0275nobodyさん
05/02/09 22:00:05ID:???あれ面白い？っていゆーか実践的な内容？
0276nobodyさん
05/02/09 22:19:03ID:oNgMiBujデータを送ることができないと思うのですが、POSTで送る方法などはありますか？
0277nobodyさん
05/02/09 23:07:01ID:???http://homepage3.nifty.com/hippo2000/perltips/lwpcook.html#POST
0278nobodyさん
05/02/10 02:07:22ID:???とするとき、改行\nを消す方法があれば教えてください
0279nobodyさん
05/02/10 02:36:02ID:???chomp @hoge;
0280nobodyさん
05/02/10 03:26:26ID:???$::info{'no_dir'} = [ q[test], q[test2] ];
BEGIN {
#▼なんかディレクトリからファイルを返す関数
sub file_list (&$;$) {
my ($code, $dir_name, $mode) = ($_[0], $_[1], $_[2]);
my $pass;
{
$pass = $dir_name . q[./], last if(qq[\l$mode] eq q[p] or !$mode);
$pass = "", last if(qq[\l$mode] eq q[f]);
return(); #モードが変なのは処理しない。
}
opendir DIR, $dir_name or return ();
my @file_list = grep{ $_ = $pass . $_; &$code; } (readdir DIR);
closedir DIR;
foreach my $file (@file_list){$file =~ s[/\./][/]g;}
return(@file_list);
}
0281nobodyさん
05/02/10 03:27:00ID:???{
search($::info{'pass'}); #対象ディレクトリ全検索
sub search {
foreach my $dir (@_){
my @list;
@list = file_list { #ディレクトリ全取得
-d #範囲をディレクトリに絞って…
and !(m/[\/\.]+$/) #自己参照ディレクトリの類は排除して…
and my $now_dir = $_ #ちょっとキモい処理をして…
and !( grep { $now_dir =~ m[/$_$]; } @{$::info{'no_dir'}} ) #除外指定ディレクトリは無視。ところがこれがエラー
} $dir;
@list = map {$_ . '/'} @list; #なんかUNIXではこれやらないとダメっぽい。(winではいらない)
push @::dir_list, @list; #ディレクトリ追加
search(@list) if(@list); #ディレクトリがまだあったら再帰
}
}
}
0282nobodyさん
05/02/10 03:27:47ID:???and !( grep { $now_dir =~ m[/$_$]; } @{$::info{'no_dir'}} ) #除外指定ディレクトリは無視。ところがこれがエラー
↑ここんことが変になるんですけど、どーしたらいいんかね？
0284nobodyさん
05/02/10 05:12:42ID:FuWRzUOO新しいサイトでフォームを使いたいのですがうまくいきません。
書き込み用のform.html(仮名）とform_mail.cgiは古いサイトでは
フォームの送信後メールがちゃんと届いたのですが、
新しいサイトでは何故か機能しません。
cgiのパールへのパスとドメイン所属のメールアドレス、
form.html内のform_mail.cgiへのパスは正しく書き換えている
（つもり）のに。。。ディレクトリーも同じように設定してます。
フォーム送信にhtmlとcgiファイル以外でしなければいけない事、
必要なファイルってありますか？
ひとつ疑問に思ったのは古いサイトではcgiのパーミッションを入力して
再接続すると前回に入れた数字(755)が残るのに、
新しいサイトでは入力後に再接続してもその数字は残っていません。
あとフォームを機能させるためにhtaccessって必要ですか？？？？
分かる人どうか宜しくお願いします！！
0285284
05/02/10 05:14:53ID:FuWRzUOO0286nobodyさん
05/02/10 09:55:26ID:GQajLbsS$a = 1;
}elsif(条件b){
$a = 2;
}else{
$a = 0;
}
これを1行ないし2行で収めることはできませんか？
?演算子を使えばできるかと思ったのですが、3つは無理みたいで；
知恵をお貸し下さいm(_ _)m
0287nobodyさん
05/02/10 10:09:46ID:???$a = 条件a? 1: 条件b? 2: 0;
で普通にいけると思うけどなんか変になるのかね?
条件の部分は場合によってはカッコいるかも。
0288286
05/02/10 10:25:55ID:GQajLbsS！？
そういうのもありなんですねm(_ _)m
0289286
05/02/10 11:06:28ID:GQajLbsSXSS対策にメタ文字エスケープをするときってCGI関係ではよくありますよね。
基本的には埋め込む直前にケースバイケースのエスケープをするのですが、
みなさんはどうやってますか？
元の文字列を加工したものを『他の新しい変数に入れて』ますか？それとも
『元の変数に上書き』してますか？
後者だと元データがなくなるので何かと不都合の原因になりますよね。
しかし新しい変数を用意すると、色々なところで色々なエスケープが必要になるので
だんだん頭がこんがらがります；簡潔性を欠くといいますか・・・
0290nobodyさん
05/02/10 11:42:53ID:???俺は普通に上書きしてる
>元データがなくなるので何かと不都合の原因になりますよね
これの意味がわからん。必要なときは元に戻せばいいじゃないか。不可逆変換やってるわけじゃないんだから。
0291nobodyさん
05/02/10 11:45:26ID:???私は最終出力時にエスケープ派であります。といっても
最近はほとんどテンプレートライブラリ使うので、テンプレート
側でエスケープ形式を指定するだけのことがほとんどですが。
■ このスレッドは過去ログ倉庫に格納されています