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/
0478nobodyさん
2007/03/26(月) 08:04:04ID:???Perlの内部的なワイド文字か
それともただのUTF-8の文字列かどっち？
0479nobodyさん
2007/03/26(月) 09:18:04ID:???0480nobodyさん
2007/03/26(月) 12:48:08ID:???>>477さんので解決したっぽいです。ちなみにuse charnames ":full"しなくても
動きました。
>>476さん
違いをよくわかっていません。が、調べられそうなので調べてみます。
0481nobodyさん
2007/03/26(月) 18:31:41ID:???ログを何度も読み込みしなおしてしまった
0483nobodyさん
2007/03/27(火) 20:50:22ID:VNeopaMKメールの解析は出来そうなんですが、いつ送信されるか分からないメールを待って、メールが来たらそれを受けて処理を始める仕組みをどう作れば良いのか分からないので教えて頂けませんか？
0484nobodyさん
2007/03/27(火) 20:51:46ID:???0485nobodyさん
2007/03/27(火) 21:07:13ID:WKbYIT6w0486nobodyさん
2007/03/28(水) 11:06:28ID:???スレッドごとに違うIDを表示したいのです。
どういう風にやったらよいのかよくわからないので
参考になるような例を教えて欲しいです。
0487nobodyさん
2007/03/28(水) 11:08:23ID:???0488nobodyさん
2007/03/28(水) 11:22:02ID:???折角のレスありがとうございます。
それをPerlでやるとなると、どういう風な感じになるのでしょうか？
そもそも別のIPから同一のIDを出さない、しかしIDからIPがばれないようにする
という所で、もう行き詰まって、いっぱいいっぱいです。
0489nobodyさん
2007/03/28(水) 11:47:27ID:???0490nobodyさん
2007/03/28(水) 11:52:32ID:???GNU拡張の$1$～使うなら別だが素のcryptは先頭8文字しかみないので
場合によっては役に立たない。特にIPアドレスを文字列で食わせたり
したらアウトだね。
0491nobodyさん
2007/03/28(水) 12:09:26ID:???0492nobodyさん
2007/03/28(水) 12:18:19ID:???そうです、単純にやったのでは文字数の問題があるのと
あと、IPアドレスって数字と区切りの点のみを暗号化するってことじゃないですか
やろうと思えば簡単にIDからIPアドレスの一部がわかっちゃうのではと
だから他の人はどうやってるのか、ちょっと具体例が知りたかったのです
0493nobodyさん
2007/03/28(水) 12:20:41ID:???配列 @character を次のように定義しました。
@character = ('a'..'z', 'A'..'Z','0'..'9');
しかし "l" (小文字のエル) や "1" (数字の一) 等の文字は紛らわしいので配列から排除したいです。
@character = ('a'..'k', 'm-z', 'A'..'Z','0'..'9'); みたいにやるとコードが汚くなるので、
一度配列を定義した後、特定の文字の要素を削除したいのですが、要素 'l' を削除するスマートな方法はないでしょうか？
初歩的な質問で申し訳ないですが、よろしくです。
0494nobodyさん
2007/03/28(水) 12:41:03ID:???.pl ファイルをダブルクリックすると実行されるんですが、終わった後に勝手にコマンドプロンプトが終了してしまいます。
ダブルクリックのみで実行して、終わったらそのままコマンドプロンプトを終了させない方法は無いでしょうか？
教えていただけたら嬉しいです。
0495nobodyさん
2007/03/28(水) 12:48:08ID:???@omit = qw(1 l);
map { $idx{$_} = $i++ } @chars;
map { splice(@chars, $idx{$_}, 1); } sort { $idx{$b} <=> $idx{$a} } @omit;
print @chars,"¥n";
0496493
2007/03/28(水) 12:48:29ID:???「これは酷い」という部分があったら、教えてくれると助かります＞＜
#!C:\Perl\bin\perl.exe
use strict;
# パスワードの文字数を聞く
print STDOUT 'パスワードの文字数を入力して下さい。';
my $passLength = <STDIN>;
# 使用許可文字と使用拒否文字の定義
my @allowChara = ('a'..'z', 'A'..'Z','0'..'9');
my @denyChara = ('b', 'i', 'l', 'q', 'D', 'I', 'O'. '0', '1', '9');
for my $allowCharaNo (@allowChara) {
for my $denyCharaNo (@denyChara) {
if ($allowChara[$allowCharaNo] eq $denyChara[$denyCharaNo]) {
splice(@allowChara, $allowCharaNo, 1);
}
}
}
# ランダムなパスワードを生成・出力
srand;
my $password = '';
foreach (1..$passLength) {
$password .= $allowChara[rand(@allowChara)];
}
print STDOUT $password;
exit;
0497493
2007/03/28(水) 12:49:25ID:???す、凄い…。
>>496 のごちゃごちゃになっていた部分が凄いシンプルに！
登場した関数をぐぐって調べてみます。
ありがとうございます。
0498nobodyさん
2007/03/28(水) 12:52:27ID:???for (ARRAY) BLOCK に置き換えると理解しやすいと思われ。
0499nobodyさん
2007/03/28(水) 12:52:50ID:???cmd /K perl
0501nobodyさん
2007/03/28(水) 13:03:46ID:???@character = grep !/l|1/, ('a'..'z', 'A'..'Z','0'..'9');
0502494
2007/03/28(水) 13:04:35ID:???ｔｈｘです
前者は動かない…('A`)
------------------
print STDOUT 'aaa';
sleep;
------------------
だと何も表示されずに固まります。
理由は最後まで実行してからコマンドプロンプトに結果送っているからだと思われます。
後者は、バッチファイルやショートカットを作って、
"cmd /K perl ファイル名" を呼び出すってことですね。
こっちはできました。
0503493
2007/03/28(水) 13:06:31ID:???シンプルすぎて感動で涙が出ました…。
(l または 1) にマッチするもの以外を配列に突っ込む、日本語で書くことをそのままPerlにしたといった感じですね。
0505nobodyさん
2007/03/28(水) 13:09:01ID:???@character = grep 'bilqDIO019' !~/$_/, ('a'..'z', 'A'..'Z', '0'..'9');
0506nobodyさん
2007/03/28(水) 13:20:15ID:???なるほどね
右の内容が順番に評価されて $_ には各項目が入る
パターンマッチ演算子を使ってその文字列の中にアルファベットがあるか調べる
単純かつ美しい流れ
しかしこんなくだらん命題でいろいろな答えがでるとはおもわんかった
0507nobodyさん
2007/03/28(水) 13:25:54ID:???0508nobodyさん
2007/03/28(水) 17:03:34ID:sUHWjomTwhile(<SOCK>){
while(s/\n|\r\n|\r//is){}
if($_ =~ /(<a href="(http:[\w\.\~\_\-\/\?\&\+\=\:\%]+)")/is){
push @img, "$2\n";
}
}
なんか獲得できるのとできないのがあるみたいで･･･
$_に複数個あるときも1つしか抽出できませんでした
0509nobodyさん
2007/03/28(水) 17:10:42ID:???そういうときはソケットから読んだ文字列がどうなってるか確かめて、
1)ソケットから読んだ文字列がおかしい
2)ある文字列のときにif以後がうまく働かない
のどちらであるか切り分けしてから質問するものだ。
0510nobodyさん
2007/03/28(水) 22:46:18ID:???while(s/\n|\r\n|\r//is){}
はおかしすぎる
if($_ =~ /(<a href="(http:[\w\.\~\_\-\/\?\&\+\=\:\%]+)")/is) は、
「$_ が /(<a href="(http:[\w\.\~\_\-\/\?\&\+\=\:\%]+)")/is」にマッチしたら
なので、最初の一個がマッチした時点でpushし、次のループに移行する
つまり$_にいくつaタグがあろうと、最初の一個しか抽出できない
書くならこんな感じか？
$_ = do {local $/; <SOCK>};
my @img = map {"$_\n"} (/<a href="(http://.*?)"/gis);
あと、aタグの記法がこれで固定されているって判っているなら構わないけど
hrefの前に別の属性が記述されている場合とか
「"」じゃなくて「'」で括られていたりコーテーションがついていなかったり
する場合も考慮するのが普通かと
0511510
2007/03/28(水) 22:51:27ID:???my @img = map {"$_\n"} (/<a href="(http://.*?)"/gis);
は
my @img = map {"$_\n"} (/<a href="(http:\/\/.*?)"/gis);
に訂正
偉そうに書いておいてエスケープ忘れた…
0512nobodyさん
2007/03/29(木) 00:42:31ID:???今後の参考にさせていただきます＾＾；
>>510
>最初の一個しか抽出できない
あ～･･･だから抽出したリンク数が合わなかったんですね＾＾；
ありがとうございます。
これからmap関数?を調べて(初めて見るんで;)それから試してみようと思います
0513nobodyさん
2007/03/29(木) 12:49:04ID:???回答はもう結構です。お騒がせしました。
0514nobodyさん
2007/03/30(金) 04:04:21ID:???「表」というディレクトリに chdir して、
その中で opendir, readdir とかしたいのですが、うまくいきません。
うまくいく方法があればお願いします。
0515nobodyさん
2007/03/30(金) 06:41:02ID:???答えは忘れたけどｗ
0516nobodyさん
2007/03/30(金) 07:44:15ID:???0517nobodyさん
2007/03/30(金) 07:44:58ID:???0518nobodyさん
2007/03/30(金) 11:12:45ID:Ov/YkxL/{
my($query,$pair);
if($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
}
else{
$query = $ENV{'QUERY_STRING'};
}
foreach $pair(split(/&/,$query)){
my ($key,$value) = split(/=/,$pair);
$value =~ tr/+/ ;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
$FORM{$key} = $value;
}
}
というプログラムでhttp://www.e777.co.jp/perlcw/perlcw.htmlのサイトを使って文法チェックしたところ
Bareword found where operator expected at tmp.pl line 75, near "9a"
(Might be a runaway multi-line // string starting on line 74)
(Missing operator before a?)
Unquoted string "a" may clash with future reserved word at tmp.pl line 75.
syntax error at tmp.pl line 75, near "9a"
Unrecognized file test: -F at tmp.pl line 75.
が出てきました
正しいプログラムをコピペしても出てきたんですが
どこが違うか教えていただけないでしょうか？？
0519nobodyさん
2007/03/30(金) 11:53:25ID:???スラッシュがぬけてる。
0520nobodyさん
2007/03/30(金) 12:14:19ID:???File::Find と Path::Class はうまく扱えませんね。
0521nobodyさん
2007/03/30(金) 12:17:30ID:???> 答えは忘れたけどｗ
Perlについての質問箱 30箱目
http://pc11.2ch.net/test/read.cgi/tech/1173880452/10
これもうまく動かない。
0522nobodyさん
2007/03/30(金) 20:49:19ID:???s/%([\da-f]{2})/chr hex $1/ieg;
s/%([\da-f]{2})/pack 'H2', $1/ieg;
どっちがはやいんだろ。
0523nobodyさん
2007/03/30(金) 21:28:36ID:???use Benchmark qw( timethese cmpthese ) ;
use CGI::Util qw(escape);
my $str = escape("Perlコーディング初心者質問スレ");
my $r = timethese( 100000, {
chrhexi => sub {
local $_ = $str;
s/%([\da-f]{2})/chr(hex($1))/ieg;
},
chrhex => sub {
local $_ = $str;
s/%([0-9A-Fa-f][0-9A-Fa-f])/chr(hex($1))/eg;
},
packh2i => sub {
local $_ = $str;
s/%([\da-f]{2})/pack('H2', $1)/ieg;
},
packh2 => sub {
local $_ = $str;
s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
},
} );
cmpthese($r);
0524nobodyさん
2007/03/30(金) 21:29:20ID:???chrhex: 8 wallclock secs ( 5.21 usr + 2.13 sys = 7.34 CPU) @ 13623.98/s (n=100000)
chrhexi: 7 wallclock secs ( 6.72 usr + 0.71 sys = 7.43 CPU) @ 13458.95/s (n=100000)
packh2: 8 wallclock secs ( 7.25 usr + 0.57 sys = 7.82 CPU) @ 12787.72/s (n=100000)
packh2i: 8 wallclock secs ( 7.54 usr + 0.61 sys = 8.15 CPU) @ 12269.94/s (n=100000)
Rate packh2i packh2 chrhexi chrhex
packh2i 12270/s -- -4% -9% -10%
packh2 12788/s 4% -- -5% -6%
chrhexi 13459/s 10% 5% -- -1%
chrhex 13624/s 11% 7% 1% --
perl -v
This is perl, v5.8.8 built for i386-linux-thread-multi
uname -a
Linux colinux.localdomain 2.6.11-co-0.6.4 #1 Mon Jun 19 05:36:13 UTC 2006 i686 i686 i386 GNU/Linux
0525518
2007/03/31(土) 06:34:34ID:x8D9Mjhzあっ本当ですね
でも文法でひっかかるのはその下の
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;という部分なんです
0526518
2007/03/31(土) 07:58:19ID:x8D9Mjhzエラーってでるとこが悪いとは限らないんですね
ありがとうございました
0527nobodyさん
2007/03/31(土) 11:00:31ID:???/がないから、s/の/までがtrだと思われてるわけだろ?
0528nobodyさん
2007/03/31(土) 11:01:12ID:???0529nobodyさん
2007/04/01(日) 07:53:31ID:uYKSgLT/Ⅰ if(not exists $FORM{'adminpass'}) {
printGatePage();
}
Ⅱ elsif($FORM{'adminpass'} eq $ADMINPASS) {
loadUserfile();
}
else {
printErrorPage("管理パスワードが違います。");
}
exit;
というプログラムでif文とelsif文について教えてください
Ⅰが真 つまり$FORM{'adminpass'}がなかった場合
Ⅰのプログラムが実行されてⅡのelsifのプログラムは実行されないはずなんですが
本によればⅡのプログラムも実行されるんです
どういうことかと言いますと
Ⅰで真
→$FORM{'adminpass'}がないのでprintGatePage();で$FORM{'adminpass'}を存在させるようにする
→Ⅱのプログラムが実行
となっています
これは本当はⅠが真であればⅡのプログラムは実行されず終わるんではないでしょうか？
よろしくおねがいします
0530nobodyさん
2007/04/01(日) 08:34:15ID:???0531nobodyさん
2007/04/01(日) 08:43:42ID:???# ローマ数字(I、II、III、…)は機種依存なので使うのをやめましょう
# 本によれば、というからには、本のタイトルや出版社など原典がわかるようにしましょう
%FORMについてなにも説明がありませんが、はフォームデータを解析・デコードして入って
いるのだと思います。で、Iが真ならばIIは評価されないというのはその通りです。
なお、「$FORM{'adminpass'}がなかった場合」というのは、%FORMに adminpassという
キーが存在しなかった場合、という意味です。普通パスワードの入力欄は、inputタグを
使うのであり、空欄のままsubmitを押しても、"adminpass="という文字列が送られて
きますので、それを%FORMに格納した場合、 adminpassというキーは存在しているので、
Iは常に偽となります。パスワードが空欄かどうかを判定するには、existsではなく
空文字列との比較($FORM{adminpass} eq "")をする必要があります。
0532529
2007/04/01(日) 09:36:29ID:uYKSgLT/自分で確かめたらelsifが実行されていたのでここで聞いています
>>531さん
詳しい説明ありがとうございます
ではなぜelsifのプログラムが実行されたのでしょうか？？
プログラム全部を載せたいのですが改行で無理みたいなので…
sub printGatePage
{
print <<END;
Content-type: text/html; charset=$CHARSET
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>ゆーざーかんり</title></head>
<body>
<h1>ユーザー管理</h1>
<form action="$ENV{'SCRIPT_NAME'}" method="POST">
管理パスワード：<input type="password" name="adminpass"><br>
<input type="submit" value="決定">
</form>
</body>
</html>
END
}
本の名前は『１０日でおぼえる Perl/CGI』著：高橋大吾です
この本の６章で認証プログラムを作っているのですが
0534nobodyさん
2007/04/01(日) 13:23:47ID:???・I → printGatePage() → II → loadUserfile()
という流れだと思い込んでるから、自分で確かめても if と elsif を両方通ってると思うだけで。
・何かのフォームからPOST → Iが真 → printGatePage() → exit # >>532のHTMLを吐いて一旦終了
・続いて「ゆーざーかんり」ページからPOST → 同じスクリプトが叩かれる → Iが偽 → II
…こう動いてるような気はしませんか。
0535529
2007/04/01(日) 15:33:33ID:uYKSgLT/本当に捨ててやりたいです
でも独学なのでこの本が一番分かりやすかったんで…
>>534さん
つまり
<form action="$ENV{'SCRIPT_NAME'}" method="POST">
でもう一度同じとこに戻っていることですよね？？
ありがとうございました 大変助かりました
0536nobodyさん
2007/04/03(火) 16:20:52ID:7w7pj3iquse CGI;
foreach (&CGI::param) {
$FORM{$_} = &CGI::param($_) || undef; }
print &CGI::header(-charset=>'Shift_JIS'),
&CGI::start_html(-encoding => 'Shift_JIS');
if(not exists $FORM{'adminpass'}) {
&printGatePage; }
elsif($FORM{'adminpass'} eq 'aaaa') {
&loadUserfile; }
else {
&printErrorPage; }
sub printGatePage {
print <<END;
<h1>ユーザー管理</h1>
<form action="$ENV{'SCRIPT_NAME'}" method="POST">
管理パスワード：<input type="password" name="adminpass"><br>
<input type="submit" value="決定"></form></body></html>
END
exit(0); }
sub loadUserfile {
print 'loadUserfile</body></html>'; exit(0); }
sub printErrorPage {
print 'printErrorPage</body></html>'; exit(0); }
0537nobodyさん
2007/04/03(火) 20:04:01ID:Ex+wZs3rLocationヘッダをContent-type:text/htmlを出力した後に
使いたいのですが何か方法はないでしょうか。
0538nobodyさん
2007/04/03(火) 20:51:15ID:???<q cite="http://www.studyinghttp.net/cgi-bin/rfc.cgi?3875#Sec6.2.2";>
スクリプトはいかなる他のヘッダフィールドも message-body も
返してはならない
</q>
0539nobodyさん
2007/04/03(火) 20:52:16ID:???これなんですが、標準入力をリダイレクションでファイルに変更すると
標準出力されません、なぜでしょうか？
0540５３９
2007/04/03(火) 20:53:22ID:???0541５３９
2007/04/03(火) 20:54:01ID:???http://homepage2.nifty.com/~~~/utf8_decode.pl
0542nobodyさん
2007/04/03(火) 21:07:53ID:???0544nobodyさん
2007/04/03(火) 21:22:35ID:???Perlについての質問箱 30箱目
http://pc11.2ch.net/test/read.cgi/tech/1173880452/163-178
0545537
2007/04/03(火) 21:22:59ID:???つまりはできないということなのでしょうか？
もしできないのであればCGIにてhtmlを出力した後に
別ページを表示することはMETAタグを使わずには打
開策すらないのでしょうか…。
0549nobodyさん
2007/04/04(水) 09:32:06ID:???0550nobodyさん
2007/04/04(水) 14:01:56ID:???6.2.4. Client Redirect Response with Document
にできるのかな。
0551５３９
2007/04/04(水) 20:34:07ID:???D:\htdocs\awstats\utf8_decode.pl < T:\Logs\a.txt
ではダメで、
perl D:\htdocs\awstats\utf8_decode.pl < T:\Logs\a.txt
ではＯＫです。
先頭のperlを書きたくなければ、下記らしいです。
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
\Policies\Explorer
にInheritConsoleHandlesというDWord値を作り1をセット
0552nobodyさん
2007/04/04(水) 21:42:58ID:???0553nobodyさん
2007/04/04(水) 23:16:32ID:???とりあえず、正常動作おめ
0554nobodyさん
2007/04/05(木) 00:54:13ID:???0556nobodyさん
2007/04/05(木) 11:31:17ID:???配送エラーのとき、$from_mailに返信させたいのですができません。
$from_mail="[email protected]"; # $from_mailは存在します。
$to_mail="[email protected]"; # $to_mailは存在しません。（hoge2.jpは存在しないものとします。）
open (MAIL,"| $mail_pass -t") || &error("posfixエラー");
# print MAIL "Error-To: $from_mail\n"; # Error-To:ヘッダがあっても無くても返ってきません
print MAIL "From: $from_mail\n";
print MAIL "To: $to_mail \n";
これを実行したところ、エラーの連絡が$from_mailに送信されません。
上記と同じメールの内容で、outlookを使用して、手作業で送信すると
件名：failure notice のエラーのメールが、返ってきました。
・posfixの設定で、足りないものあるのでしょうか？
・perlのプログラミングで、足らないことがあるのでしょうか？
よろしくお願いします。
0557nobodyさん
2007/04/05(木) 11:42:22ID:???> $from_mail="[email protected]"; # $from_mailは存在します。
> $to_mail="[email protected]"; # $to_mailは存在しません。（hoge2.jpは存在しないものとします。）
メール送信以前の問題なので$from_mail,$to_mailの値をチェックすることを
お勧めします。
ヒント: 文字列リテラルへの(配列)変数の埋め込み
0558nobodyさん
2007/04/05(木) 11:43:28ID:???シングルクォートで
$from_mail = '[email protected]';
$to_mail = '[email protected]';
としてやればおｋ
# hoge.jpは実在するドメインだから、こういうときの例にはexample.comを使おうな
0559nobodyさん
2007/04/05(木) 12:29:53ID:???>>558
お返事ありがとうございます。
シングルクォートに変更し、存在するメールには、
送信できること確認できました。
[cgi]
$from_mail = '[email protected]';
にしてみましたが、配信エラーの通知がされませんでした。
また、ドメイン検索で存在しないことを確認したドメインを
指定してもだめでした。
[outlook]
手作業で送信したとき、配信エラーが返って来るか確認してみました。
存在しないことを確認したドメインで、outlookでyahooや他のメールサーバから
送信すると戻ってきましたが、'[email protected]'は、戻ってきませんでした。
[考察]
ドメイン検索で存在しないことを確認したドメインで
outlookから送信すると、普通にエラーが帰ってきました。
cgiだと帰ってきません。cgiでなにかおかしいんじゃないかと思ってます。
open (MAIL,"| $mail_pass -t")の-tオプションが無いと
メール送信できなかったので付けてます。
思い当たることなどありますでしょうか。
よろしくお願いします。
0560nobodyさん
2007/04/05(木) 13:09:03ID:???まったく無関係で、送信プログラムにsendmail(postfixのsendmail互換コマンド)
を使っているならばプログラムを実行したユーザのアドレスになるのがデフォルトで、
変更したい場合は-fオプションで指定する必要がある。
open (MAIL,"| $mail_pass -t -f $from_mail")
0561nobodyさん
2007/04/05(木) 16:00:15ID:???丁寧な解説ありがとうございます。
open (MAIL,"| $mail_pass -t -f $from_mail")
にしてみましたが、配送エラーのメール送信されませんでした。
Envelope-From:ヘッダー、を試しましたがエラーは返信されませんでした。
cgiじゃなくて、postfixの設定ファイル/etc/postfix/main.cf
の設定がおかしい可能性高いでしょうか？
/etc/aliasesの設定がおかしいのかと思いまして、
FROM:ヘッダーを除いて、存在するメールを指定すると、
送信者はApache表示で$from_mailは、きちんと指定されていました。
$from_mailは、レンタルサーバのメールアドレスですが、
postfixサーバから普通に送信できるので、大丈夫だと思うのですが。
ん～。難しいです。
0562nobodyさん
2007/04/05(木) 16:40:06ID:???postfixのログを見られるなら見るのが一番だが、レン鯖などで
見られないなら、まず自分に送ってみて届いたメールが思い通りに
なっているか確認するのが基本だな。
envelope fromはたいていreturn-pathというヘッダに保存されるので
それが自分が設定したつもりのものか確認するといい。
0563nobodyさん
2007/04/05(木) 16:56:54ID:???自宅サーバで、勉強してます。
違うcgiの過去の受信メール見てみるとReturn-Path:があるときと、
無いときがありました。ということは、cgiがおかしいのかもです。
どうもありがとうございました。
原因がわかりましたら、報告いたします。
0564nobodyさん
2007/04/05(木) 18:06:22ID:2CVq1dn3で、ググった結果jcodeg.plを知り、これをアップロードして、半角文字のみで
書き込みのテストをしたらちゃんと半角で表示されました。
とここまでは良かったのですが、文章に全角と半角文字を混ぜた状態で
投稿すると、投稿後の記事内の文章が全て全角で表示されてしまいます。
入力した通りに投稿するには、jcodeg.plのドコを変更したらよいのでしょうか？
0565nobodyさん
2007/04/05(木) 18:58:00ID:???0566nobodyさん
2007/04/05(木) 18:59:13ID:???0568nobodyさん
2007/04/06(金) 07:42:58ID:???port25は開けていました。
試しにコマンドラインで、[email protected]に送信してみました。
--------------------------
# /usr/sbin/sendmail -t
Envelope-From:"普段のメール"
To:[email protected]
.
--------------------------
で送信しましたが、配送エラーのメール返って来ませんでした。
・コマンドのオプション
・Envelope-From:"普段のメール"で、何かあるのか。
いろんなメール指定してみましたがダメでした。
・ヘッダーオプションで他に何か必要か
ぐらいと思うのですが、どのあたりがおかしいでしょうか。
これが解決したら、perlにそのまま反映すれば
配送エラー返ってくる気がするんですが。。。
よろしくお願いします。
0569nobodyさん
2007/04/06(金) 09:53:13ID:???Envelope-From: などというヘッダはない。
# /usr/sbin/sendmail -t [email protected]
To: [email protected]
本文…
.
#
のように指定します。-fの直後に指定するのがenvelopeアドレスです。
上記の場合、envelopeアドレスに何かメールを戻したいなら、Toヘッダのアドレスを
実際に存在しないアドレスとか、ドメインにしてみないと、Toのアドレスに普通にメールが
届いて終わるので注意。
さもなくば、telnet localhost 25 でMTAと直接交信してみるとか。
0570nobodyさん
2007/04/06(金) 12:41:32ID:???お返事ありがとうございます。
#/usr/sbin/sendmail -t -f<存在するメール>
To:[email protected]
エラーメール戻ってきませんでした。
メールが送信できたのか、送信できていないのかも区別が付きません。orz
DNSの設定かと思い検索してます。
スレ違いになってきてしまいまい、申し訳ないです。
maillogは、下記の通りです。
Apr 6 12:26:04 localhost postfix/pickup[20462]: 4CCACC04193: uid=48 from=<存在するメール>
Apr 6 12:26:04 localhost postfix/cleanup[20527]: 4CCACC04193: message-id=<・・・@mail.example.com>
Apr 6 12:26:04 localhost postfix/qmgr[17310]: 4CCACC04193: from=<存在するメール>, size=301, nrcpt=1 (queue active)
Apr 6 12:26:04 localhost postfix/qmgr[17310]: 4CCACC04193: to=<[email protected]>, relay=none, delay=0,
status=deferred (delivery temporarily suspended: Host or domain name not found. Name service error for name=example.jp type=MX:
Host not found, try again)
0571570
2007/04/06(金) 19:26:09ID:???経過ですが、存在しないメールアドレスに送信した場合、
delivery temporarily suspended: Host or domain name not found.
Name service error for name=example.jp type=MX: Host not found, try again)
このパターンになるようです。
やっぱり、エラーのメールが自分に帰ってこないと不便ですよね。
tailf maillogで、眺めていたら突然、上記のパターンでログが大量に流れました。
昔送信したでたらめなメールで、しかも、try againっていうぐらいなので、
送信されずに、再送待ちになってるみたいです。
ttp://www.postfix-jp.info/trans-2.0/jhtml/faq.html
あとは、再送待ちじゃなくて、配送エラーが送信すればいいんですね。
再送のメールはどこにあるのとか、いろいろ、つまずいてます。
あとちょっとのような気がしてきました。
丁寧にレスありがとうございました。
0572570
2007/04/07(土) 04:16:46ID:???で解決しました。
ログを見ることと、検索能力が少しアップしました。
ありがとうございました。
0573nobodyさん
2007/04/07(土) 18:44:41ID:MSfJ44Rvよいですか？
Linuxです。
0574nobodyさん
2007/04/07(土) 18:50:58ID:???とか置いてそこからlwpなりで適当に
取ってくればいいんじゃないすか
0575573
2007/04/07(土) 19:10:45ID:MSfJ44RvPerlでグローバルIPを取得する関数がないとすると、
シェルで組んだ方がよさそうですね。。
ありがとうございました
0576nobodyさん
2007/04/07(土) 19:31:41ID:???とか勝手なこと言ってみる
0577nobodyさん
2007/04/07(土) 19:56:03ID:???127.0.0.1みたいなのを取り除いて残ったもの」とすればよさそうだが、
これを複数もつホストもあるだろうなぁ。
■ このスレッドは過去ログ倉庫に格納されています