Perlコーディング初心者質問スレ Part 52

**nobodyさん** · 2006/09/15(金) 14:01:51

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >>2-10

前スレ　http://pc8.2ch.net/test/read.cgi/php/1153987463/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/

**nobodyさん** · 2006/09/15(金) 14:02:17

関連スレ
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

【Perl,CGI】参考書籍第三版
http://pc8.2ch.net/test/read.cgi/php/1030209573/

【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/

★負荷軽減対策委員会（Perl、PHP)★
http://pc8.2ch.net/test/read.cgi/php/1034645635/

CGIに依存しないPerlの話題一般/Part2
http://pc8.2ch.net/test/read.cgi/php/1030548610/

★三　【スクリプト改造工房 PART 9 】　★三
http://pc8.2ch.net/test/read.cgi/php/1143834740/

【スクリプト改造依頼スレ】(丸投げ) part5
http://pc8.2ch.net/test/read.cgi/php/1141174205/

**nobodyさん** · 2006/09/15(金) 14:02:58

ム板Perlスレより 1 of 2

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www.site-cooler.com/kwl/perl/

[本]
リャマ: http://www.oreilly.co.jp/books/4873111269/
駱駝: http://www.oreilly.co.jp/books/4873110963/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/books/4873112028/

[オンラインマニュアル] (追加)
最新のドキュメント: http://search.cpan.org/~nwclark/perl-5.8.8/
perl5.8.xのドキュメント(一部): http://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: http://www.cpan.jp/search.cgi
perldoc.jp: http://www.perldoc.jp/
Perldoc.com: http://www.perldoc.com/

**nobodyさん** · 2006/09/15(金) 14:05:07

ム板Perlスレより 2 of 2

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/
Perlの小技: http://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
http://www.pure.ne.jp/~learner/program/Perl_unicode.html
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

**nobodyさん** · 2006/09/15(金) 14:16:42

次スレ
http://ex16.2ch.net/test/read.cgi/news4vip/1158297150/

**nobodyさん** · 2006/09/15(金) 15:47:59

>>1
s/(.*'-')o/~~otukare-/;

**nobodyさん** · 2006/09/15(金) 23:40:06

VIPのバカが釣りにはしゃいで喜んでいます

女子大生拉致監禁事件！？12くらい
http://ex16.2ch.net/test/read.cgi/news4vip/1158323954/

「どう見ても釣りだろ」
というと顔を真っ赤にしてレスしてくるので注意！！！

**nobodyさん** · 2006/09/16(土) 11:00:05

chomp(@lines = <STDIN>);
@lines = sort @lines;
print "@lines\n";
がソートされたものを表示して

@lines = sort chomp(@lines = <STDIN>);
print "@lines\n";
が要素の個数を表示するのは

前者は配列をダブルクォーテーションの中で展開していて
後者はリストをスカラーコンテキストで使っているから
という解釈で正しいでしょうか？

**nobodyさん** · 2006/09/16(土) 11:18:12

chompの戻り値は切り落とした文字数だからね

**nobodyさん** · 2006/09/16(土) 11:37:13

>>9
ありがとうございます。

**nobodyさん** · 2006/09/16(土) 22:23:36

一行にしたいなら:
chomp(@list = sort <STDIN>);

**nobodyさん** · 2006/09/18(月) 19:19:34

STDINに直接sort指定できるんだ。
その発想は無かった。

**nobodyさん** · 2006/09/18(月) 22:14:51

そりゃsortが要求するのはLISTであってARRAYじゃないしね。
普段はあんまり意識しないけど、LISTとARRAYの違いは重要。

**nobodyさん** · 2006/09/18(月) 22:14:58

>>12
STDIN を直接ソートしてるわけじゃなくて、
リストコンテキストで評価することでファイルの中身をソートしてるだけ。

**nobodyさん** · 2006/09/18(月) 22:32:44

なるへそ。
そういう動作の仕方を知ってると色々応用できるし参考になるよ。

**nobodyさん** · 2006/09/19(火) 06:52:45

Shift_JIS でコーディングをする場合のセキュリティについての質問です。

例えば、次のようにユーザ入力の値をダブルクォート内に代入したとします。
この時エスケープする文字列は、 & と < と > と " と ' です。

<a href="http://$hoge";>

バイナリエディタで解析した " (ダブルクォート) の 16進表記は、"22" です。
ここで、$hoge にバイナリレベルで "82" をいれてみるとどうなるかやってみました。(バイナリファイルを一般のテキストエディタで表示したときの、"・"(半角) と表示されるあれです。)
それを出力して、IE と Firefox と Opera で表示したところ、 "82 22" で 1つの不正な文字 "・"(全角) として表示され、ダブルクォートが消えうせていました。

当然、掲示板のURL欄にこういう文字列をいれられたら、それ以降のデータがダブルクォート内のものと扱われますし、
その後の投稿内容の一部が " (ダブルクォート) 外にすることも可能で、"onload" イベントなどを使った、XSS攻撃も可能になるわけです。

大手CGI配布サイトのCGIで実験してみたところ、なんと実際にXSS攻撃が可能でした。

つまり、下記の条件を満たしてるPerlには脆弱性があることになります。

・文字コードとしてShift_JISを使っている。
・ダブルクォート内に正規表現などで入力内容を規制していない文字列が代入される。
　（所謂、< とか > とか " のサニタイズをしていてもこの攻撃は可能。）
・Shift_JIS に存在しないコードを含む文字列が存在しないかの確認をしてない。

16 · 2006/09/19(火) 06:56:55

上の脆弱性を要約すると、

「"(ダブルクォート) は 1バイト文字だけど、ユーザが送る文字列の最後に不正な1バイトコードをいれることで、
その1バイトコードと、ダブルクォートが合体した、不正な文字化けした2バイトデータと扱われ、ダブルクォートが消失してしまう(文字化けした・になる)」ということです。

こういった「文字化けを悪用した攻撃」に関する解説サイトはなかなか見つからず困っています。（上の情報は自分で検証した結果です。）
これの対処についていくつか質問があります。

・ユーザから送られてきた文字列が、Shift_JIS として正当であることを確認する、モジュールなどはないでしょうか？
それができたら、文字化けを悪用した攻撃は防げるかと思います。

・EUC-JP や UFT-8 ではこのような問題は発生しないのでしょうか？
参考: http://www2d.biglobe.ne.jp/~msyk/cgi-bin/charcode/bbs.cgi?past=1&c=r&n=82

　・もし、EUC-JP などなら問題が生じないのであれば、スクリプトの文字コードの変換をやろうかと思います。
　　Shift_JIS の駄目文字を "\" でエスケープしているコードを自動的に変換するソフトはないでしょうか？

ご教示お願い致します。

16 · 2006/09/19(火) 06:58:25

>>16 の <a href="http://$hoge";> が2chブラウザで見ると、
実体参照化される場合があるようです。

＜a href＝”http://$hoge”＞です。

**nobodyさん** · 2006/09/19(火) 12:24:14

XSSはブラウザ依存だからなぁ。
「このサイトはテキストブラウザ専用です」と書いておけばおｋ。
完全に排除したいなら最後に半角スペースを入れるくらいしかないと思う。
なぜならクライアントはページ製作者の指定したエンコードで表示するとは限らないから。

**nobodyさん** · 2006/09/19(火) 12:38:09

>"onload" イベントなど
s/=/？/g;

>Shift_JIS として正当であることを確認
正規表現

**nobodyさん** · 2006/09/19(火) 12:39:43

表示されてない…
s/=/=/g;

**nobodyさん** · 2006/09/19(火) 15:40:09

>>16
てーか普通URLに \x7f 以上の文字あるときはそれ全部エスケープするだろ？
あのくだらない日本語ドメインかなんかですか？（＾ω＾；

**nobodyさん** · 2006/09/19(火) 17:02:06

>>17
> ・ユーザから送られてきた文字列が、Shift_JIS として正当であることを確認する、モジュールなどはないでしょうか？
正規表現一行で実現できるよ。

**nobodyさん** · 2006/09/19(火) 18:25:23

if構文でandとorなんですが、
AでかつBでかつCの場合、のような全部andというわけではなく
AでかつBかCの場合、という混合の書き方はありますでしょうか？
現在は
if($foo eq 'A'){
if($bar eq 'B' or $bench eq 'C'){
print $foobar;
}
}
みたいに入れ子にしてます。

**nobodyさん** · 2006/09/19(火) 18:27:03

>>24
($foo eq 'A') && ($bar eq 'B' or $bench eq 'C')

**nobodyさん** · 2006/09/19(火) 18:28:07

>>25
即答有難う御座いました。
使っていきます。

**nobodyさん** · 2006/09/19(火) 18:39:53

http://www.technorati.jp/home.html

テクノラティで任豚が発狂中～～ｗｗｗ
ここの左側で「踊っているマリオ」のところが任豚ブログだ。
任豚パワーは凄まじい～～。

**nobodyさん** · 2006/09/19(火) 20:00:03

>>23
ｋｗｓｋ

**nobodyさん** · 2006/09/19(火) 20:10:20

>>28
$str = qr/^([\n\x20-\x7e\xa1-\xdf]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$/;
実際に使ってるのはこんな感じ。

**nobodyさん** · 2006/09/19(火) 20:29:05

>>29
サンクス。
使ってみる。

**nobodyさん** · 2006/09/21(木) 03:42:14

Perlでのセッション管理で汎用的に使用されているような
モジュール・ライブラリがあれば教えていただきたい次第
です。

CGI::SessionやWalrus::Session::Lite等が検索で出てきま
すが、環境によって動作する・しないというものもあるみた
いなので一番安全で手軽に導入できるものがあれば
有り難いです。

**nobodyさん** · 2006/09/21(木) 06:44:43

CGIで使うんならCGI::Sessionが無難と思われ

**nobodyさん** · 2006/09/21(木) 08:00:46

foreach構文についてなのですが、
1万行に渡るデータを、一行ずつ拾って、という処理をさせていると、
foreach構文の後ろを実行せずブラウザが完了と返してきます。
1万行が多いのか、foreach構文の中身の処理が多いのか、判別つきませんが、
ちゃんときっちり完了させる書き方ってありますでしょうか？
（タイムアウトなのでしょうか？）

foreachに送る@配列を1000ずつとかに切って、それの処理が終わるのを待ってから次の1000を処理する、とか、
いろいろ考えたのですがその待たせるという処理の仕方も思いつかなかったです。
なにか方法ありませんでしょうか？
お教えくださいますようお願いいたします。

33 · 2006/09/21(木) 08:04:08

ちなみに、
foreachの中で行ってる処理も途中で中断されてるみたいです。
出力結果は途中まででした。

これはコーディングで解決できるような問題なのでしょうか？
@配列の行を20行ほどにして試してみたら普通に処理されたので、
構文ミスではないと思います。

**nobodyさん** · 2006/09/21(木) 08:38:30

>>33-34
高負荷（実行時間が長すぎる）なので途中で実行停止されるように
鯖で設定されているのでは。

33 · 2006/09/21(木) 08:50:05

>>35
なるほどやはりタイムアウトのような感じの処理をされているんですね。
ありがとうございます。

foreach $foo(@foo[0...200])
とかぶつ切りにすればそれぞれの処理は軽くなるような気がしますが、
それを
for ($bar = 0; $bar < 10000; $bar+200){

}
内で処理させたら同じになっちゃいますでしょうか。
（$john = $bar+200;
foreach $foo( @foo[$bar...$john])
のような切り方にして）

テスト環境がもろいので、あまり何度も試す事ができなくて困ってます。

何か方法御座いませんでしょうか？

**nobodyさん** · 2006/09/21(木) 09:05:15

実行時間で切られてるんだからどう切っても全体の処理量が変わらなければ
何の効果もない。1回あたりの処理が短い時間で終わるようにがんばって書き
直すしかないだろう

**nobodyさん** · 2006/09/21(木) 09:08:43

>>33
ループ回数だけで言うと、10000回くらいなら一瞬で終わるよ、こんなのなら
my $i;
foreach (0..9999) { $i++ }
print $i;
なのでループの回数そのものの問題ではないでしょう。
起動時から完了までどのくらい時間がかかっているのですか?
ループの中の処理はどんなことをしているのですか?
子プロセス起動させてバックグラウンド処理ができるなら、そのようにするとか。
小分けにして、処理後にリダイレクトさせるようにして、続けるとか。
do.cgi→do.cgi?1000→do.cgi?2000→…

33 · 2006/09/21(木) 09:12:56

>37
やはり、一回の処理にはかわりはないんですね。
ありがとうございます。

>38
会員制サイトのメールマガジンのシステムなんですが、
1万件のアドレスを切って、メール送信、次のアドレス、という風に処理してるんです。
以前この質問をしたとき、なにに使ってるかを最初に書いたら「スパム業者に力は貸せない」と一蹴されてしまったので、書くのを躊躇してしまいました。
やはりsendmailの処理が重いのでしょうか。

**nobodyさん** · 2006/09/21(木) 09:20:46

>>39
メールマガジンなら BCC で1回で送るのでは不都合あるかな？

**nobodyさん** · 2006/09/21(木) 09:26:05

制限はずせばいいんじゃないの? 制限を自分でいじれない貸し鯖なら
そもそもやるべきではない。

33 · 2006/09/21(木) 09:28:54

>>40
う
最近携帯ばっか触ってたので、bccが4つまでしか使えないと勝手に脳内で設定されてました。
ありがとうございます。それでやってみます。

みなさま有難う御座いました。

33 · 2006/09/21(木) 10:58:40

えと、初歩的なことのような気もするんですが、

foreach $mail(@mail){
print MAIL "Bcc: $mail\n";
(受け取った$mailに配信)
}
とループしてたのを、

print MAIL "Bcc: $mail\n";
（$mailにBCCの内容を）
とするつもりなんですが、

BCCの区切り子って,（カンマ）じゃないんですか？
$mail = join(/,/,@mail);
とすると、

open(MAIL,"| $sendmail -t");
print MAIL "Bcc: $mail\n";
print MAIL "From: $from\n";
print MAIL "Subject: $title\n\n";
print MAIL "$message\n";
close(MAIL);
のデータのsubject、Fromが空になって、本文に表示されるようになってしまいました。
本文に、ずれ込んだ件名なども表示されてます。

なんか根本的に間違ってるのでしょうか？

**nobodyさん** · 2006/09/21(木) 11:24:13

根本的な間違い: 事故の元だからBccで送るな。

33 · 2006/09/21(木) 11:46:43

$mail =~ tr/\r\n//d;
で改行したらいけました。
有難う御座いました。

**nobodyさん** · 2006/09/21(木) 11:48:09

1万のメルマガをBCCで送るなんて怖くてできねーｗｗ

33 · 2006/09/21(木) 11:50:02

>>46
すみません、後学のためにBCCの恐怖をお教えいただけないでしょうか？
他に軽く出来る処理のヒントになるかもしれないですし。

46 · 2006/09/21(木) 12:00:24

>>47
BCCで送るつもりがCCになっててメルアド流出ってニュース聞いたことないですか？
「事故の元」って>>44が言ってるのもそういうことだと思いますよ

33 · 2006/09/21(木) 12:04:51

>>48
あー、そっちの意味ですか。
それは大丈夫です。
>>44は
＞Bccで送るな。
と言ってますからBccで送ってはいけない、って意味なので違う事を危惧してくださっていると思います。

**nobodyさん** · 2006/09/21(木) 12:23:58

大丈夫大丈夫って飲酒運転して人を轢き殺すタイプだな

**nobodyさん** · 2006/09/21(木) 12:24:45

これはとあるシリアル制御機器にコマンドを送る命令である

○
$test->printf("%c%c",0x1b,0x40);

これでは問題なく動いてくれるが、
ちょっとコマンドを長めに投入するとだめ。
原因はなんだろう

×
$test->printf("%c%c%c%c%c%c",0x1b,0x40,0x1f,0x03,0x1b,0x40);

33 · 2006/09/21(木) 12:30:16

>>50
お前>>48で46を名乗って「>>44が言ってるのも」と他人の振りをしてるのはなぜだ？
>>44=>>46=>>48=>>50
答えれねーならしゃしゃんじゃねーよクズが。

46 · 2006/09/21(木) 12:34:25

はいはい妄想乙。

**nobodyさん** · 2006/09/21(木) 12:46:46

>>52 != >>33
だろ

**nobodyさん** · 2006/09/21(木) 12:50:01

　 |　　　　|　　　　|　／-------------石綿-------------
　 |　　　　|　　　　|／| 　　　　　　　　　　∧　　　| lllllllllll |
▲|　 schindler ／　 | 　　　ｼｭﾚｯﾀﾞｰ　 |雪| 　　| ﾊﾟﾛﾏ | ｌ|￣￣￣|
▽|　　　　|　／／l . |　　　　|ｱｲﾘｽ | 　|印|　　 | O。O | ||＿＿＿|　アメリカ産牛肉
　 |　　　　|／／　│ |　　　　|ｵｰﾔﾏ| 　￣　　｀┬┬_´ ..||ε(;; ;)3|＼　　__
　 |　　／..│　　|　|　　＿＿￣￣＿＿_ . / ┌┘/l .　||ε(;; ;)3|. 　||　|#|イトーヨーカドー電気ストーブ
＿|＿／　　│　　|　|　 |Mac ||_　　|:|ﾃﾞﾙ|:| lニニﾆl/　　.||ε(;; ;)3|. 　||　~~~
.　／ . 　　 |　　　|　|　/＿＿/l|:.. : |ニﾆニ|.::.:.:.||.:..:::..::..: ￣￣￣＼|| 　　　　　　　　　　　＿／￣￣＼_三菱
.／ . 　　　 |0,　　|　|::_||.::..:...||:..::.SH902iS::::.[PS2]::::: /＼＼ : | |　.　　　　　　　　　　　└-○--○- ┘
　設計　　 |　　　|／.::.↓>>52.:..::::.／ヽ-、.:（PSP）: .| ＼|￣|=| |ｺ=　　　　 /＼＼ :　＿／￣￣＼_トヨタ
姉歯事務所| 　.／.::..:..:＜⌒/　　　　　ヽ.::..:..:◎..:...::.. .| ＼| 　|: | | 松下|　　.| ＼|￣|　└-○--○- ┘
.　　　　　　　|／.::..:..:..::::.＜_/＿＿＿＿/.::.: ｿﾆｰBMG:..＼.|＿|: | | FF式 . 　.| ＼| 　|　　ファイヤストンタイヤ
　　　　　＿＿＿＿　　　＿＿＿　　　　＿＿＿＿＿　　＿＿＿＿＿＿＿_...＼.|＿|:サンヨー石油ファンヒーター

**nobodyさん** · 2006/09/21(木) 13:03:19

>>47
メールアドレスに改行仕込まれるとそれ以降のアドレスが駄々漏れになる。
sendmailの引数で指定すれば(シェルに解釈させないように注する)、その心配はまったく無くなる。

付録:
一行の長さの制限とか考えてないでしょ。

**nobodyさん** · 2006/09/21(木) 13:43:19

>>56
Sendmail の引数で指定するのは、一般的にはやっちゃいけない方法と言われてるね

リスクとしては、

OSインジェクション　＞＞＞　メールアドレス漏洩　だし、

シェルに解釈されないようにする＆RFC準拠のメルアドを全て使えるようにする手間　＞＞＞　改行コードとカンマとスペースを排除する手間

シェルコマンドは色々あるからね。
まぁシェルコマンドを全部エスケープすればすむだけだとは思うけど。

**nobodyさん** · 2006/09/21(木) 13:46:31

そもそもメールマガジンで1万って考えられないな。
スパムじゃないの？

**nobodyさん** · 2006/09/21(木) 13:47:40

>53

>54

>55

おいおいいきなりID出して別人工作か。
もちっと頭使え。

**nobodyさん** · 2006/09/21(木) 13:50:34

>>58
メールマガジンで1万ってのは普通だろ

むしろ、スパムで「たった」1万通なわけないじゃん

スパムのアクション率なんて、0.00001％　とかだぞ。
スパムするなら、最低500万通/日、業者なら1億通/日は送っているだろ。

**nobodyさん** · 2006/09/21(木) 13:50:39

>>58
また出た。
お前がツクリャ30人が関の山だろうが、俺の文章読みたさにがんがん登録があるってわけ。
貧相な想像力でねちねち言ってんじゃねーっつーの。

**nobodyさん** · 2006/09/21(木) 14:22:11

ｗｗｗｗｗｗｗ

**nobodyさん** · 2006/09/21(木) 14:22:18

でも個人のメールマガジンで1万の登録が有るってのもな。

**nobodyさん** · 2006/09/21(木) 16:30:17

てか、みんな一応質問に答えてやってんだから
それぐらいで着火するようなら自分で考えて自分でやれ
ちょっと調べればいくらでも出てくるぞ

**nobodyさん** · 2006/09/21(木) 19:39:32

↓そろそろ釣りでした宣言

**nobodyさん** · 2006/09/21(木) 20:13:30

本日の営業時間終ったから、レスは明日じゃないかな

**nobodyさん** · 2006/09/21(木) 21:46:53

スパマーも一応仕事だからな。

33 · 2006/09/22(金) 06:53:12

回答ありがとうございます。

>>56
仰るとおり長さの制限に引っ掛かりました。
ヘッダーが32kb超えてる、みたいな感じのエラーが出たので、10件ほどでのテストでは判明しない問題でした。
>>38が提案してくださったようなプロセスの小分けの方向で模索してみます。

>>57
シェルコマンドをエスケープですか。
難しそうですが、勉強してみます。

33 · 2006/09/22(金) 07:18:25

自分の頭の整理も含め、もう一度書き直しますね。

1：自分はこういう事がしたい。
1万件のメールアドレス（@配列にいれてあります）にメールを送信したい。

2：それでこんな風にやってみたが･･･
a.foreach構文で1万回sendmailをやってみた
b.全部を$mailに入れてBccとして送らせてみた

3：こんなエラーが出て上手く行かなかった。
a.実行時間が長すぎて、途中で切られた
b.ヘッダーが長すぎると言われた

ヘッダーを短くするには繰り返し構文を使うしか思いつきません。
>>38の案を模索してみたんですが、バックグラウンド処理、リダイレクトというのがさっぱりわからなかったです。
一回の処理を短く行う方法は御座いませんでしょうか？

お教えくださいますようお願いします。

**nobodyさん** · 2006/09/22(金) 09:54:19

>>69
僕の使ってるサーバではやらないでね。

33 · 2006/09/22(金) 09:55:43

ない知恵を絞ってみました。
@maill[0..99]←（[]の中身は変数で変更可能）
で100回だけループするようにして、
htmlのリフレシュを使って、@mail[100..200]を処理する（getメソッドで数値を渡しておく）ようにして、
それが@mailの行数を超えるまでリフレシュさせまくる、というのは不安定でしょうか？

それか、100件ごとに
sleep 5;
などを入れて休憩させるといけるのか、とかも考えましたが、
これだと「一回の処理の時間の長さが50秒追加されるだけで余計長くなってる」ってことになるでしょうか？
100件ごとに一回の処理として扱われるなら最後までいけると思うんですが。

33 · 2006/09/22(金) 09:57:18

>>70
昨日の結局何も答えてはいないだけのクズか。
しつけーぞ。しゃしゃり出るならなんか回答してみせろ無能め。

38 · 2006/09/22(金) 10:13:02

>>69
ふつう、1万件のメールをCGIプログラムでは送りません。タイムアウトするから。
ヘッダが長すぎるというのはあたりまえ。1行の長さが998文字以下と決まってるのです。
だから、やるなら、

Bcc: xxxxxx@xxxx.xx,
xxxxx@xxxx.xx,
yyyy@yyyy.yy,

のように、1つのヘッダ行が複数にまたぐ場合は、2行目以降は行頭に空白文字(スペースあるいはタブ)を置いて続けることができます。
このような仕様がいろいろあるので、メールクライアントを作りたかったら、RFCを読みましょう。
ttp://www.ietf.org/rfc/rfc2822.txt
ttp://www.puni.net/~mimori/rfc/rfc2822.txt(日本語訳)

プログラムで送ろうとせずに、eml形式のメールデータをローカルなperl環境で1万個作ってメーラーにインポートして一斉に送ってはいかが?
スパムを送られたら幇助しているようでいやなので詳しく書く気はないです。ごめんなさい。

**nobodyさん** · 2006/09/22(金) 10:18:03

> 1万件のメールアドレス（@配列にいれてあります）にメールを送信したい。
もうこの時点で目的は何であれスパムだよな。

そうじゃないんだったらメルマガやメーリングリストでも使えばいいじゃん。

**nobodyさん** · 2006/09/22(金) 10:20:42

>>72-73

>>35と>>40
を書いた者だが、
もうおまえ去れ。
スパム業者でないという保証もないし。
これだけヒントもらってるんだから自分でやれよ。

**nobodyさん** · 2006/09/22(金) 10:39:14

>>74
そういうシステム使うと、その業者を儲けさせるだけ
やつらは、人様が苦労して作成したコンテンツに広告を載せて配信し、ぼろ儲けしている

33 · 2006/09/22(金) 10:50:43

>>73
> プログラムで送ろうとせずに、eml形式のメールデータをローカルなperl環境で1万個作ってメーラーにインポートして一斉に送ってはいかが?
ありがとうございます。
最終段階で送信プログラムを実行するんじゃなく、
<p><a href="mailto:foo\@bar.com?bcc=$mail&subject=$subject$body=$body">SUBMIT</a></p>
というHTMLを吐き出すことにしました。

>>74
>> 1万件のメールアドレス（@配列にいれてあります）にメールを送信したい。
> もうこの時点で目的は何であれスパムだよな。
配信希望者に送る場合もでもスパムというのでしょうか？

> そうじゃないんだったらメルマガやメーリングリストでも使えばいいじゃん。
そのメルマガのコーディングについての質問です。

>>75
いただいたヒントを参考に解決しました。

みなさま、本当に有難う御座いました。

**nobodyさん** · 2006/09/22(金) 11:04:03

ID出して否定しないし33の名前は全部同一人物だろ
結局mailtoでBCCｗｗｗｗｗ
Perl関係ないじゃんｗｗ
解決乙。もう来るなよ

>>75
>>73は33とは別の人ね。すげー親切で泣ける

75 · 2006/09/22(金) 11:10:34

ホントだ・・。>>73さんごめん。

33 · 2006/09/22(金) 11:12:12

>>78
> ID出して否定しないし33の名前は全部同一人物だろ
最初にIDを出していないので、否定しようと騒いでも余計に悪化すると思いまして。

お陰様で解決しました。

**nobodyさん** · 2006/09/22(金) 11:13:44

変ななりすましはスルーでOK

**nobodyさん** · 2006/09/22(金) 11:56:21

だが、否定ぐらいはしとけと。

**nobodyさん** · 2006/09/22(金) 12:14:06

>>57
最近のperl使ってシェルを経由させずに起動すれば良いだけ。

> Sendmail の引数で指定するのは、一般的にはやっちゃいけない方法と言われてるね
無知をさらけ出されても困る。

**nobodyさん** · 2006/09/22(金) 13:09:56

>>76
自分で鯖立てればいいだけじゃん。

**nobodyさん** · 2006/09/22(金) 16:20:39

post データが
a0=1&b0=1&a1=4&b1=2&a2=2&b2=2&・・・&an=8&bn=9
と"a".$i =数字と"b".$i=数字となっているものを
postgresql にperl でupdateしたいのですが、

for($i=0;$i < n; $i++){
$str ="update table set a=$html->param('\"a\".$i') where b=$html->param('\"b\".$i)";
$sth=$dbh->prepare($str);
$sth->execute();
}
こんな感じでupdateしたいのですが,試行錯誤の上に挫折中です。
うまい方法はないですか？

**nobodyさん** · 2006/09/22(金) 16:31:12

$html->param('\"a\".$i')
をprintしてみたらどうでしょうかね

**nobodyさん** · 2006/09/22(金) 16:38:47

$html->paramはなんですか？文字列ですか？メソッドですか？
$strに何が代入されてるんですか？

**nobodyさん** · 2006/09/22(金) 16:50:49

>>87
どうみても $html は CGI のインスタンスだし、$str には SQL 文が代入されてるがな。（´・ω・）

文字列の中でメソッド呼び出しってできたっけ？
一旦 param の内容を変数に代入してから $str に埋め込んでみては？

**nobodyさん** · 2006/09/22(金) 16:50:53

>>87
>$html->param
は
$html=new CGI;
です。
>$str
にはpostgresqlに対するupdate のストリングが入って欲しいものです。

>>86
CGI=HASH(0x804c914)->param('"a".1')
となりました。

**nobodyさん** · 2006/09/22(金) 16:56:20

てか、パラメータを直接 SQL 文に埋め込むと SQL インジェクションできるんじゃね？

**nobodyさん** · 2006/09/22(金) 16:58:49

流石○○板だな

86 · 2006/09/22(金) 16:58:56

>>89
いや意味的には>>88と同じで変数を確認ってことです
っつーかbのシングルクォート

**nobodyさん** · 2006/09/22(金) 17:03:18

$html->paramはなんですか？クォートの中から呼び出せるんですか？
$strに何が代入されてるんですか？
確認しましたか？

**nobodyさん** · 2006/09/22(金) 17:04:10

アッー！

**nobodyさん** · 2006/09/22(金) 17:51:48

>>85
$htmlってのは
use CGI;
my $html = new CGI;
したもんだと仮定しますた。それから、
$dbh は、DBI/DBD::Pgで接続したときのインスタンスと仮定しますた。んで、

まず、$html->param('\"a\".$i') ってのがおかしい。全体をシングルクォートしてしまうと$iは展開されません。
まあ、$html->param("a$i") だとします。

そんで、ダブルクォーテーションの中に $html->param("a$i") を入れちゃうと、
$html と ->param("a$i") とに分かれて解釈されちゃうので、外に出してください。

だけれど、せっかくprepare使うんなら

my $sth = $dbh->prepare("update table set a=? where b=?");
for ( $i=0; $i < n; $i++) {
$sth->execute($html->param("a$i"), $html->param("b$i"));
}

などとしてはいかがでしょうか?

※上記のソースで n が裸で出てくるのはおかしいです。use strictすれば教えてくれます。
※SQL-injectionのチェックはしてくださいね。

**nobodyさん** · 2006/09/23(土) 06:00:23

Perlで、サニタイズするときの定番の関数は何ですか？
PHPだとhtmlspecialchars()というのが標準で備わっているんですけど、Perlでそれに相当するものは何になるんでしょうか。
（自分で書くのは簡単なんですけど、できればPerl標準のものがあればそれを使ったほうがいいかなと考えています。）

**nobodyさん** · 2006/09/23(土) 06:57:54

PHPのそれに相当するビルトイン関数はないよ

**nobodyさん** · 2006/09/23(土) 07:46:28

>>97
ライブラリ関数で結構ですので、教えていただけませんか。

**nobodyさん** · 2006/09/23(土) 08:34:56

Perl標準もデファクタスタンダードと呼べるものもないと思うよ

HTMLを使用するモジュールには大概あるから（CGI、TT、HTML::Templateなど）
あとは自前で用意するんじゃないかな

**nobodyさん** · 2006/09/23(土) 08:39:51

>>98
http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI.pod#item__escaped_string___escapeHTML__unescaped_string___

**nobodyさん** · 2006/09/23(土) 09:31:06

サニタイズゆうな。クズ。

16 · 2006/09/23(土) 16:17:05

今日、＠IT に自分が質問していた内容に関する記事が追加されました。

http://www.atmarkit.co.jp/fsecurity/rensai/hoshino10/hoshino01.html

自分が書き込んでから数日以内のことなので、ひょっとしたらこのスレ見ててくれたのかな、と思ったりｗ
偶然かもしれないですけど・・・

もし、見ていてくれたのなら杉山さん、本当にありがとです。

**nobodyさん** · 2006/09/23(土) 17:05:32

ねーよｗ

**nobodyさん** · 2006/09/23(土) 17:24:16

>>16 より引用

> バイナリエディタで解析した " (ダブルクォート) の 16進表記は、"22" です。
> ここで、$hoge にバイナリレベルで "82" をいれてみるとどうなるかやってみました。(バイナリファイルを一般のテキストエディタで表示したときの、"・"(半角) と表示されるあれです。)
> それを出力して、IE と Firefox と Opera で表示したところ、 "82 22" で 1つの不正な文字 "・"(全角) として表示され、ダブルクォートが消えうせていました。

>>http://www.atmarkit.co.jp/fsecurity/rensai/hoshino10/hoshino02.html より引用

> 赤坂さんの入力には、「%82」という文字列が含まれている。

22 はダブルクォートだけど、82 はようするに22と組み合わされて1つの2バイト文字と扱われればいいわけで、82である必然性が無い。
参考リンクの、http://applesoup.googlepages.com/bypass_filter.txt にも 82 は出てこないからね

以上の理由により、杉山氏はこのスレを見ている可能性が高い

**nobodyさん** · 2006/09/23(土) 17:43:34

http://www.atmarkit.co.jp/fsecurity/rensai/hoshino10/hoshino03.html　によれば、
php なら、mb_convert_encoding($_GET{'hoge'},'SJIS','SJIS'))　で対策できるみたいだね。

Perl の jcode.pl で同じことやったが、無理だったわ。
不正な文字列を変換してもそのままになっちゃうみたい。

Perlで対策するにはどうすればいいんだろうか･･･。

**nobodyさん** · 2006/09/23(土) 17:59:04

>>29 じゃだめなんかい。
そんなに面倒だったら、受け取った文字列の後ろにスペース一個くっつけとけば？

**105** · 2006/09/23(土) 18:02:03

>>106
なるほど
それでできるのか
ありがとうございます

**105** · 2006/09/23(土) 18:15:29

$str = qr/^([\n\x20-\x7e\xa1-\xdf]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$/

の qr ってなんだろう。と調べてみました。

http://psst.jp/syn/archives/000199.html

つまり、>>29 は、「^([\n\x20-\x7e\xa1-\xdf]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$」を、正規表現としてコンパイルしているわけですね。

実際に $GET_hoge の無効な文字列を削除するには、

$GET_hoge =~ s/$str//g

とすればいいわけですね。

ありがとうございます。

**nobodyさん** · 2006/09/23(土) 18:23:40

この脆弱性、CGI配布サイトで配られている大部分の掲示板スクリプトとかにとかに影響していますね･･･
漏れの使っている Child Tree とかはもろ影響してるし

実はphpユーザなんでPerlのことよくわからないや(´･ω･`)
しかも自分で書いたスクリプトじゃないから修正が大変です＞＜

本来出力時のエスケープがいいと思うのですが、、print 内の変数を全て書き換えるのは大変なので、
GET と POST として送られてきた全てのデータに >>29 の正規表現を適用させる方法は無いでしょうか

どうかお願いします

**105** · 2006/09/23(土) 18:33:56

あれ、動かしてみたけど、駄目でした。

> つまり、>>29 は、「^([\n\x20-\x7e\xa1-\xdf]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$」を、正規表現としてコンパイルしているわけですね。

まではいいんですが、

> 実際に $GET_hoge の無効な文字列を削除するには、
> $GET_hoge =~ s/$str//g

は違ったようですね。

「^([\n\x20-\x7e\xa1-\xdf]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$」は正しいパターンなので、

if ($GET_hoge !~ $str) {
&error("貴方が送信した文字列はShift_JISとしてValidではありません。");
}

みたいに使うってことだったようです。

**nobodyさん** · 2006/09/23(土) 18:36:49

Encode.pmでは無理か？

**nobodyさん** · 2006/09/23(土) 18:38:01

>>109
製作者に言えよｗ

**nobodyさん** · 2006/09/23(土) 18:52:41

指定したファイルを読み込んで、そのファイル内に記述された$aaa等の変数をperl内の内部変数に置き換えるにはどうすれば良いですか？

**nobodyさん** · 2006/09/23(土) 18:57:30

>>110
最後の1バイトがゴミかどうか調べてみれば？

>>113
while(<DATA>){
${$1} = $2 if /^(\w+)=(.*)/;
}
print $aa;
__END__
aa=bb

**nobodyさん** · 2006/09/23(土) 19:01:07

^([\n\x20-\x7e\xa1-\xdf]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$　の意味を考えてみた

"\n" は改行文字、"\x" はなんだか良く分からないけど、バイナリレベルで調査するって宣言かな
"\x20-\x7e" は、16進数の "20" から "7e" ってことか
2桁の16進数だから、

16^2 = 256 = 2^8 = 1バイト

つまり、この [] の1ブロックで、1バイトってことだね
1ブロック目、2ブロック目、3ブロック目全てが 1バイトのよう

これを括弧でかこって繰り返しにしている

あれ？

ってことは、3バイトの文字列で始まり、それが0回以上繰り返される？
例えば、ユーザ入力値が "ab" だったら不正扱い？

でも試してみたらそうならないし

う～ん

**nobodyさん** · 2006/09/23(土) 19:36:39

正規表現ってそんなわかりにくいのかな。

>>110,115
その場合こう。
というかちょっと数行に分けて書き換えてみるからこれでわかって。

my $reg_alpha = qr/(?>[\t\r\n\x20-\x7e]+)/; # アルファベットの連続
my $reg_han_kana = qr/(?>[\xa1-\xdf]+)/; # 半角カナの連続
my $reg_multi = qr/(?>(?:[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])+)/; # 2バイト文字の連続

$GET_hoge =~ s/^((?:$reg_alpha|$reg_multi|$reg_han_kana)*).*$/$1/;

テストはしてない。

**nobodyさん** · 2006/09/23(土) 19:39:36

>>113
状況がよくわからんが、
・require
・eval
・正規表現
お好きなのを使ってどうぞ

**nobodyさん** · 2006/09/23(土) 19:42:38

>>116
あー、o 修飾子つけた方がよかったかもしらん。たいしてかわらんかもだけど。;

**nobodyさん** · 2006/09/23(土) 19:49:01

>>115
全然違う…。

[¥n¥x20-¥x7e¥xa1-¥xdf]
が、ASCIIキャラクタとsjis半角カナ ... A

[¥x81-¥x9f¥xe0-¥xfc][¥x40-¥x7e¥x80-¥xfd]
がsjis２バイト文字 ... B

/^(A|B)*$/
だから、1バイト文字と2バイト文字で構成されている文字列にマッチする。
(sjisのみ対応)

正規表現の2バイト目の最後、0xfdまで文字あるから直しておいた。

**nobodyさん** · 2006/09/23(土) 19:51:21

>>116
(´･ω･)
$GET_hoge =~ s/^((?:$reg_alpha|$reg_multi|$reg_han_kana)*).*$/$1/os;

**115** · 2006/09/23(土) 20:10:01

>>116
ご親切にありがとうございます。
あとでそれぞれの修飾子の意味を調べながら解読してみようかと思います。

>>119
なるほど。
プロポーショナルフォントなせいで "|" を見落としていました。
そのせいで、3バイトを意味すると思って混乱していたようです。
誤解が解けてすっきりしました。
本当にありがとうございます。

「ASCIIキャラクタとsjis半角カナ」　と　「sjis２バイト文字」　では当たり前かもですが、1バイト目が重複することはありえないわけですから、
Shift_JIS の [？x81-？x9f？xe0-？xfc] で終わっているようなのは不正ですね。

# http://www.atmarkit.co.jp/fsecurity/rensai/hoshino10/hoshino02.html の
# [マルチバイト文字の１バイト目(0x82)]　ってどういうことなんでしょう。
# "82" がマルチバイト文字の1バイト目ということは分かるんだけど、"0x" って･･･。
# マルチバイト文字の1バイト目が "82" であるということを、"0x82" と表記するって決まりがあるんだろうか。

**115** · 2006/09/23(土) 20:10:35

2chブラウザでコピペしたときに正規表現が変になっちゃいました

**nobodyさん** · 2006/09/23(土) 20:21:34

おまえらおもしろいな

use Encode qw/encode decode/;
encode( 'sjis', decode( 'sjis', $q->param('query') ) );

**nobodyさん** · 2006/09/23(土) 20:23:05

>>121
0x の接頭辞は、16進数である事を示す。
0x82 で16進数の82を指す。

**nobodyさん** · 2006/09/23(土) 20:24:48

貼るの忘れた
http://search.cpan.org/~dankogai/Encode-2.18/Encode.pm#Handling_Malformed_Data

**nobodyさん** · 2006/09/23(土) 20:43:33

まあ、いちいち変換→逆変換するのは無駄い気もするけどね。

**121** · 2006/09/23(土) 21:39:58

>>124
サンクスです

**nobodyさん** · 2006/09/23(土) 21:39:59

PERL5ってこのスレでいいの？

**nobodyさん** · 2006/09/23(土) 21:49:51

>>123
あーEncodeって半端なマルチバイトを落としてくれるのか知らなんだ
入力された文字コードのチェックするしコストにはならないよね

**nobodyさん** · 2006/09/24(日) 00:58:20

Encode.pmはjcode.plよりも劣るから使ってない
jcodeにはutfパッチのやつとかあるしさ

**nobodyさん** · 2006/09/24(日) 01:07:12

>>130
凄い釣りですね＾＾
次はPerl5はPerl4より劣るから使ってないとか言い出すんですか？

**nobodyさん** · 2006/09/24(日) 01:15:21

ﾜﾛｽ

**nobodyさん** · 2006/09/24(日) 01:27:45

そんなエサに俺様がクマー

**nobodyさん** · 2006/09/24(日) 04:38:21

勉強になるなぁ。

**nobodyさん** · 2006/09/24(日) 04:47:31

釣りの？(´･ω･｀)

**nobodyさん** · 2006/09/24(日) 05:19:33

=チラシの裏
最近 perl の
　 my $this = shift or return;
　 $hoge ||= 'hogehoge';
　 $piyo &&= piyopiyo($piyo);
こういう書き方にエクスタシーを感じてきた。 if文いらないのステキすぎ。
=cut

**nobodyさん** · 2006/09/24(日) 05:33:37

おまいらPerlメモを知らないのか?
ttp://www.din.or.jp/~ohzaki/perl.htm

**nobodyさん** · 2006/09/24(日) 11:31:51

良くわからない正規表現使うよりは、
String::Multibyteモジュールを使ってみるのも。
use String::Multibyte;

my $str = "イリーガル\x82";
my $sjis = String::Multibyte->new('ShiftJIS');
print $sjis->islegal($str) ? 'true' : 'false';

ttp://homepage1.nifty.com/nomenclator/perl/shiftjis.htm
も参考になる。

**nobodyさん** · 2006/09/25(月) 00:34:54

21:00pmにc:\beta.exeを終了させるプログラムはどのようなソースになりますか？

**nobodyさん** · 2006/09/25(月) 01:22:59

>>139
>>1 ぐらい読め。
> 【投稿する際の注意】
> 質問するときは内容をよく吟味してから投稿してください。
> 「コマンドの意味がわかんない」とかはマニュアル見ましょう。
> 回答者さんは何でも屋じゃありません。
>
> 1：自分はこういう事がしたい。
> 2：それでこんな風にやってみたが･･･
> 3：こんなエラーが出て上手く行かなかった。

**nobodyさん** · 2006/09/25(月) 06:43:54

>>99,100
さんくすです。

**nobodyさん** · 2006/09/27(水) 10:30:04

ひさびさにPerlメモ見たら、

※上記の内容について
最近の perl(perl5.8.8等)では，index 関数を使うよりも， /\Q$keyword\E/ という正規表現を使った方が速いようです．実行速度は perl のバージョンや実行環境，スクリプト等に影響されるため，必要に応じてベンチマークをとるのがよいでしょう．

って書かれてた。7月下旬に更新されたらしい。
数年越しでも書き換えなきゃいけない情報をちゃんと更新するのは偉いなあ・・・。ちょっと遅いけど、まあGJ！

**nobodyさん** · 2006/09/27(水) 12:02:27

正規表現を使わないなら関数を使うより速いことが多い

**nobodyさん** · 2006/09/27(水) 16:45:21

日本語でおｋ

**nobodyさん** · 2006/09/27(水) 16:57:20

/\Qpenis\E/ ⇒ 正規表現なし ⇒ 高速
/^pen(?: )?is$/ ⇒ 正規表現あり ⇒ 低速

C言語のstrcmp()に置き換えできるような場合、Perlでは/～/を使う方が速い
…とどこかのサイトに書いてあったがURLを紛失してしまった

**nobodyさん** · 2006/09/27(水) 17:13:22

でも誤差程度ならindexでいい気が。

**nobodyさん** · 2006/09/28(木) 08:51:24

@new_word_list = keys %new_bad_hash;
print "new_word = $new_word","\n";
print "last_bad_hash{new_word} = $last_bad_hash{$new_word}","\n";
とすると
$new_wordはちゃんと入っているのですが、ハッシュの値が表示されません。

@new_word_list = keys %new_bad_hash;を
@new_word_list = ("A","B","C");と直に書くとうまく表示されます。

printで表示すると両者ともＡ B Cと表示されます。
前者と後者の違いはなんだろうと思い、
chomp、=~ s/\s/ /g;をしてみたり、lengthで長さを確認してみたのですがいっこうに
違いがみいだせません。
この違いは何なんでしょうか?

**nobodyさん** · 2006/09/28(木) 08:55:20

すみません>>147の$new_wordは@new_word_listから適当にとってきたものです。

**nobodyさん** · 2006/09/28(木) 09:11:56

$new_word もそうだが、
%last_bad_hash は %new_bad_hash と関係あるのか >>147 じゃわからないんだがｗ
情報小出しにしないで、自分で質問文読んで理解できるように書いてね・・・

**nobodyさん** · 2006/09/28(木) 09:28:43

えと、%last_bad_hash は %new_bad_hashとキー($new_word)が同じハッシュで、
%new_bad_hashからキーを取り出して$last_bad_hashのハッシュ値を得ようとしています。

しばらくいじってたんですが、
キーが全部アルファベットだとうまくいくみたいです。
日本語だと前者はダメで、直に書いた後者は大丈夫でした。

**nobodyさん** · 2006/09/28(木) 12:32:45

>>147
整理すると、
$new_word の値は、%last_bad_hash のキーであるはずなのに、$last_bad_hash{$new_word} の値が表示されないのですね。
%last_bad_hash のキーの中に $new_word の値が存在しないからそのような現象が起きるので、$new_word の値と、
%last_bad_hash のキーをすべて表示させてみてはいかがですか。値の中にスペースが入っているということはないんですか?
2バイト文字の場合文字コードの問題もありますよ。
print unpack("H*", $new_word);
print unpack("H*", join(",", keys %last_bad_hash));
とでもやって値を比較してはどうですか。

**nobodyさん** · 2006/09/28(木) 13:43:21

文字コードの問題でした。。。。EUCとJISが混在してました。
すみません。ありがとうございます。

**nobodyさん** · 2006/09/28(木) 17:27:09

はじめまして。
スレ違いでしたら、申し訳ありません。

社内で使用するために、掲示板を設置する作業を請け負いました。
フリーの添付ファイルアップロード機能付きの掲示板を設置したのですが、
添付ファイル名に日本語が使用したいという希望により、
レス番などを用いたユニークなファイル名に変換して、
サーバーへ保存する改造を行いました。
すると、ダウンロードする際に名前が変わってしまうので（当たり前ですよね；）
どうにかならないかとの希望が出て、どうすればいいか迷っています。

コメント文を保存しているファイルには、
『添付ファイルの元の名前』『サーバー保存用に変換している名前』も書き出しています。

添付ファイルのダウンロードは、単純に<a></a>で直接ファイル名を指定しております。
ダウンロードの際に、元のファイル名に変換するという事が出来るのでしょうか？
また他に何かいい方法があれば、お知恵を貸していただきたいのですが。
よろしくお願いします。

**nobodyさん** · 2006/09/28(木) 17:40:49

> また他に何かいい方法があれば、お知恵を貸していただきたいのですが。
> よろしくお願いします。

御社の出入り業者に発注すればよろしいのではないかと。

**nobodyさん** · 2006/09/28(木) 18:04:21

>>153
できるよ。
ファイル名に変換するんじゃなく、保存するときのデフォルトのファイル名を変えるってだけだけど。

**nobodyさん** · 2006/09/28(木) 18:09:05

簡単に言うとこうか
print "Content-Disposition: attachment; filename=\"$filename\"\n";
くわしくは ↑ でぐぐって。

**nobodyさん** · 2006/09/28(木) 18:31:39

日本語ファイル名だとさらにひとひねり必要だが、↑をぐぐってよく調べれば
その辺もわかるだろう。

**nobodyさん** · 2006/09/28(木) 18:58:11

http://www.google.com/search?num=75&hl=ja&rls=ja&q=Content-Disposition+attachment+filename&lr=lang_ja

なんか、ややこしいね

**nobodyさん** · 2006/09/28(木) 19:03:19

>>154-158
レスありがとうございます。
頭こんがらまくりですが、がんばって調べてみます。
でも多分、私なぞの頭では無理そうなので、
「出来ません！」と開き直る率高しです。(;´Д`)

>>154さんのご指摘の通り、
こんなHP担当もどきに頼まず、ｹﾁってないで外注さんに依頼しろ！って感じです。
ｸﾞﾁってもしかたないですがｗ

ありがとうございました！

**nobodyさん** · 2006/09/28(木) 21:27:50

> でも多分、私なぞの頭では無理そうなので、
> 「出来ません！」と開き直る率高しです。(;´Д`)

坊や頭大丈夫かい？

**nobodyさん** · 2006/09/28(木) 23:16:37

>>160
ああああ　ごめんなさい。
書き方悪かったですね。
私に依頼してきた、社内の人にです。
私には分不相応ですので、ファイル名には気をつけてくださいと伝えるつもりです。
教えてくださった事は、勉強しています。

**nobodyさん** · 2006/09/29(金) 00:22:15

$HOUSYUGAKU = "-892-4305-2940";
$KOSUU = "-4-1-2";
$GOUKEI_HOUSYUGAKU = "-3568-4305-5880";
$SYOHIN_CODE = "-CODEA-CODEB-CODEC";

@housygaku_list = split(/\-/,$HOUSYUGAKU);
@kosuu_list = split(/\-/,$KOSUU);
@goukei_housygaku_list = split(/\-/,$GOUKEI_HOUSYUGAKU);
@syohin_code_list = split(/\-/,$SYOHIN_CODE);

for($i = 0; $i < @housygaku_list; $i++) {
$TOTAL .= "&si=" . $housygaku_list[$i] . "." . $kosuu_list[$i] . "." . $goukei_housygaku_list[$i] . "." . $syohin_code_list[$i];
}

として、$TOTALの値を&si=892.4.3568.CODEA&si=4305.1.4305.CODEB&si=2940.2.5880.CODEC
としたいのですが、&si=...&si=892.4.3568.CODEA&si=4305.1.4305.CODEB&si=2940.2.5880.CODEC
となってしまいます。

どのようにすれば問題解消するでしょうか？
ご教授お願いします。

**nobodyさん** · 2006/09/29(金) 00:24:23

自宅サーバ板で聞いたら鯖関係なかったみたいなので
こちらで質問します

↓これ自分です
948 名前：DNS未登録さん：2006/09/26(火) 20:33:39 ID:szdp6kC6
質問です。ググッたけど分かんなかったです
環境はWinXP Home SP2 apache1.3.27

画像をアップロードして掲示板から参照するCGIを
作ったんですが、日本語ファイル名をSJISで
アクセスしようとすると、FORBIDDENになります

例えば
猫.jpgにhttp://%94L%2ejpgでアクセスできない
あ.jpgにはできる

ログを見ると罵.jpgにアクセスしようとしています
罵.jpgは%94l%2ejpgなので、SJISの2バイト目のＬ大文字がｌ小文字になってる事が
原因だと思うんですが、何か解決策はないでしょうか？

もしやWindowsが大文字と小文字区別しないから無理、とかですか？

どなたかお願いします

いただいたレスでＬを%4Cにすればイイとあったんで
$filename =~ s/(\W)/'%' . unpack('H2', $1)/eg;
$filename =~ s/([A-Z])/'%' . unpack('H2', $1)/eg;
↑の様にして見ましたが結局%94%4c%2ejpgでアクセスしても
Apacheのエラーログに罵.jpgにアクセスしていると書かれます

これってこういうものなんでしょうか？

**nobodyさん** · 2006/09/29(金) 01:06:10

HTML に URL エンコードされた文字列を書くんじゃなくて、直接日本語ファイル名を HREF に書いてみ

**163** · 2006/09/29(金) 01:24:30

レスありがとうです
猫.jpgにアクセスしてみたんですが同じでした

エラーログも
(2)No such file or directory: file permissions deny server access:
と出るのが気になります。なんでパーミッションエラー？
ファイル名が違うのなら404だと思うんですが…

**nobodyさん** · 2006/09/29(金) 06:55:52

うちの IEﾀﾝと Fxﾀﾝでは %94L.txt 、 %94l.txt 両方とも普通に判別してできたけど？
何が違うんだろうねえ。
windows でも、たとえば猫.txt と罵.txt は同じフォルダに共存できてるので、そのせいじゃないっぽい気がするけどね。
もしかしたらブラウザのせいかもしれないよ。

**nobodyさん** · 2006/09/29(金) 10:12:37

向こうでも見たけど、普通にアクセス権がないだけとかじゃねーかよ。

**nobodyさん** · 2006/09/29(金) 10:44:20

あるあるｗｗｗ

**nobodyさん** · 2006/09/29(金) 13:34:48

まじかよｗ
「Apacheのエラーログに罵.jpgにアクセスしていると書かれます」
が全てにおいてなってるって信じてそれは除外してたのにｗ

**ソケット** · 2006/09/30(土) 01:35:35

次のコードでソケットが生成できないです。ヒントでも欲しい。。。
どうもサーバの問題な気もするけど。。。
$proto = getprotobyname('tcp');
unless($iaddr = Socket::inet_aton($host)){return;}
$sock_addr = Socket::sockaddr_in($port, $iaddr);
unless(socket(SOCKET, Socket::PF_INET, Socket::SOCK_STREAM, $proto)) {
print "error"; return;
}

でerrorになります。スクリプトはコピペじゃなくて手書きなので、
万一誤記があったら申し訳ありません。
ただし、問題のコードは別のレンタルサーバで動いていたので、
実機に誤記はないはずなんです。
$hostはlocalhostです。

環境：fedora core4 perl5.8

**nobodyさん** · 2006/09/30(土) 01:41:09

>>170
とりあえず、情報が少なすぎるので氏ね

**ソケット** · 2006/09/30(土) 01:51:07

申し訳御座いませんでした。
perlのバージョン:5.8
インストールされているライブラリは多くて書き込めないのですが、
fedora core 4 の「サーバインストールモード」でインストールして、
その後sendmail-cf、qpopper、gccをrpmで入れました。

すみません。他にどんな情報が必要なのかが。。。
サーバ関係の板かな？

**nobodyさん** · 2006/09/30(土) 01:55:43

そんな断片的なコードで動く動かないと言われても、
誰も答えることができないよという意味。

ぼくのちんちんで彼女がイってくれません。どうしてでしょう？と同じだもん。

最小のテストコードで試して何が悪いか追求しましょう。

**ソケット** · 2006/09/30(土) 03:31:10

不快な思いをさせまして、すみませんでした。
追求してみます。

**nobodyさん** · 2006/09/30(土) 08:18:25

＞ぼくのちんちんで彼女がイってくれません。どうしてでしょう？と同じだもん。
例えが素晴らしい

**163** · 2006/09/30(土) 13:43:31

>>167-169
レスありがとうです

猫.jpgと罵.jpgを同じフォルダに置いて
http ://%94%4c%2ejpgにアクセスすると罵.jpgが表示されます
しかもその際他の画像よりロードが長いです
また、http ://猫.jpgでも罵.jpgが表示できました

%94%4c%2ejpg→%94L%2ejpg→%94l%2ejpg→罵.jpg
こういう流れなのでしょうか…？

**nobodyさん** · 2006/09/30(土) 16:11:26

>>176
mod_encoding
スレ違い

**nobodyさん** · 2006/10/01(日) 12:28:14

正規表現に、ー（長音記号）を使うにはどうしたら
いいのでしょうか？

**nobodyさん** · 2006/10/01(日) 12:58:10

???

**nobodyさん** · 2006/10/01(日) 14:00:28

>178
日本語でおk

**178** · 2006/10/01(日) 17:57:37

すみません。

perlのＣＧＩでhtmlファイルを標準出力に出力しようとしています。
それでhtmlのformのvalueに「カラー」と入れています。
そしてCGI側で変数に
$color = "カラー";
としていて、$colorとマッチした行を書き換えたいのです。

それで
$line =~ s/$color/xxxxx/;
と書いているのですが、
htmlファイルが上手く出力されません。

この行をコメントアウトするとhtmlがすべて出力されるので
この行に問題があるようなのです。

**nobodyさん** · 2006/10/01(日) 18:08:31

>>181
「カラー」が「color」ならうまくいきません？
それでうまくいったら文字コードの関係でしょう。

**nobodyさん** · 2006/10/01(日) 20:28:54

$color = quotemeta $color;
あるいは
$line =~ s/\Q$color\E/xxxxx/;

**nobodyさん** · 2006/10/01(日) 21:19:06

俺も初心者だけど。。。

Shift-JISだと、”ー”の第2バイトが”[”ってことかな～？
後々の事を考えると、EUCかUTF-8がいいかもね。

use encoding "shiftjis";

**nobodyさん** · 2006/10/01(日) 21:56:19

use encoding なんか薦めないでくれｗｗｗ

**nobodyさん** · 2006/10/01(日) 21:57:04

>>184
初心者に不用意に encoding.pm を教えるなよ。

**nobodyさん** · 2006/10/01(日) 22:17:27

encoding って負の遺産だろ・・・

**nobodyさん** · 2006/10/01(日) 22:32:53

さんざんでわろたｗ

**178** · 2006/10/01(日) 22:43:04

みなさんアドバイスありがとうございます。
ということは>>183さんのやり方がいいのでしょうか？
明日試してみます。ありがとうございました。

**163** · 2006/10/02(月) 00:08:50

>>177
遅れましたがレスありが㌧
ちょっと調べたんですが、Windows版のApache1.3用mod_encodingって
もしかして無いんでしょうか？

自分でビルドするしかないって事になるのでしょうか

あ、自宅サバ行った方がいいかな

**nobodyさん** · 2006/10/02(月) 18:06:42

ASCIIコードを文字に変換するのってどうすんの？
"\x20"→" "みたいな感じ

**nobodyさん** · 2006/10/02(月) 18:12:31

perl -e 'print +( chr( "¥x20")) . "¥n"'

**nobodyさん** · 2006/10/02(月) 18:14:51

おおまちがい orz...

**nobodyさん** · 2006/10/02(月) 18:54:08

ハッシュのアドレスを使ってそのアドレス先のハッシュのキーを取り出すことは可能ですか?
$ref_hashがハッシュのリファレンスだとすると
keysはハッシュしか受け付けてくれないので、
$ref_hashからハッシュを復元(?)してkeysで取り出したりできないだろうかと
思っているのですが

**nobodyさん** · 2006/10/02(月) 18:56:59

？

**194** · 2006/10/02(月) 19:03:04

あるハッシュへのアドレスがあって、そのアドレスが$ref_hashです。
それで、そのハッシュのキー値がしりたいのですが、
無名ハッシュなので、なんとかしてアドレスからわからないだろうかと・・・

**nobodyさん** · 2006/10/02(月) 19:15:47

デリファレンスってどうやんだっけ？

**nobodyさん** · 2006/10/02(月) 19:26:18

$ref_hashがハッシュのリファレンスなら

keys %$ref_hash

だがアドレスといっているので何か違う世界の話かもしれないな...

**nobodyさん** · 2006/10/02(月) 19:41:16

リファレンスを文字列にすると、"型(アドレス)" が得られるけど、このアドレスの事？
perl -e "print [123];" → ARRAY(0x123456)

まあリファレンスの事だろうけど

**nobodyさん** · 2006/10/02(月) 19:46:10

encoding って使うとまずのですか？