03/04/17 12:15
（＾＾）
73:山崎渉
03/04/20 06:18
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
74:山崎渉
03/05/22 02:19
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
75:山崎渉
03/05/28 17:10
∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎―◎ 山崎渉
76:山崎 渉
03/07/15 11:23
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
77:山崎 渉
03/08/02 02:30
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
78:ぼるじょあ ◆ySd1dMH5Gk
03/08/02 05:04
∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎―――◎ 山崎渉&ぼるじょあ
79:山崎 渉
03/08/15 23:23
(⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
80:nobodyさん
04/01/18 02:34 t2VKLwUG
URLﾘﾝｸ(members8.tsukaeru.net)
URLﾘﾝｸ(members8.tsukaeru.net)
なんか動かないんですよ。どこか間違ってるとこないですかね？
perl、sendmailの設定は大丈夫です。
81:nobodyさん
04/01/18 02:49 t2VKLwUG
すみません、ソースURLﾘﾝｸ(members8.tsukaeru.net)です。
82:nobodyさん
04/01/18 07:13
>>81
エディタ何使ってる？
変な部分に全角スペースが入ってるから、全角スペースが見えるエディタを使えばいいよ。
それと、あれで全文なの？
そうじゃないでしょ？
もしあれで全文なら、フォームデコードしる部分が無い。
もう一つ、
> なんか動かないんですよ。
はやめろ。
エラーが出るのかで無いのか。
エラーが出たならどんなエラーが出たのか書く。（「500エラーです」は却下！）
思うような動作にならない場合、思うような動作とはどんな動作とか書く。
サーバはどことかこことかの環境も入れたほうがいいな。
ソースをテキストにしてUPしたのは好感が持てる。
最後にもう一つ、
こんな氏んでるスレで質問したってみんな気がつかないぞ。
改造スレでいいんじゃないかな？
83:nobodyさん
04/01/18 19:47
>>81
おそらく、
<FORM action=$url>
の所だな。FORMとその属性の間に全角スペースが入ってるのが問題だろう。
84:nobodyさん
04/01/18 20:37 hNXjpgSZ
>83
ああ、ほんとだ！！
直してみます。
85:82
04/01/18 20:55 hNXjpgSZ
Undefined subroutine &main::get_form called at (eval 1) line 6.
こういうエラーが出ます。
８３さんが指摘されていたことはやりました。
86:nobodyさん
04/01/18 21:29
拾ってきたものを設置できないやつはスレ違いだ
87:nobodyさん
04/01/18 22:47
ＪＰＧさん 。。。 ネタ？
88:nobodyさん
06/07/30 12:22:49
$browser = $ENV{'HTTP_USER_AGENT'};
if($browser =~ /DoCoMo/ ){$imgformat = '.gif';}
else{$imgformat = '.png';}
$ENV{'QUERY_STRING'} =~ tr/";<>|//d;
print "Location: $ENV{'QUERY_STRING'}$imgformat\n\n";
exit;
呼び出し
<img src="img.cgi?abc">
携帯向けに機種別でabc.gifとかabc.pngになるように書いたんだけれども
DoCoMo505iだと表示されないっす。auだとおｋだった。
原因判る方いらっしゃいませんか？
89:nobodyさん
06/07/30 15:55:48
解決しますたすんません
90:rZbGVOabKHexPvIEY
09/10/23 08:57:23
How could I not become friends with these wonderful poets? ,
91:nobodyさん
09/11/26 14:31:35
perlなら
#!/usr/bin/perl
の下にでも
use CGI::Carp qw(fatalsToBrowser);
の１行くらいは書こう！
エラーがあったらどの行にエラーがあるかがブラウザ出力されて便利
92:nobodyさん
10/05/10 21:52:01
Subjectに日本語を含むメールを送信する場合の処理について教えて下さい。
件名を「test てすと」にしたいとして、以下のコード(抜粋)にしましたが、件名が文字化けします。
MIMEエンコードした$subjectをnkfでJISに変換しているからだと思うのですが、
$subjectだけnkfを掛けないようにするには、コードをどう書き換えれば良いでしょうか？
1|$subject = "test =?ISO-2022-JP?B?Pw==?=";
2|$recipient = 'test@foobar.com';
3|
3|open(MAIL, "| /usr/local/bin/nkf | /usr/lib/sendmail -t") ;
4|print MAIL "From: $FORM{'email'}\r\n" ;
5|print MAIL "To: $recipient\r\n" ;
6|print MAIL "Subject: $subject\r\n" ;
7|print MAIL "Mime-Version: 1.0\r\n" ;
8|print MAIL "Content-Type: text/plain; charset=iso-2022-jp\r\n" ;
9|print MAIL "Content-Transfer-Encoding: 7bit\r\n\r\n" ;
10|print MAIL "==================================================\r\n
11|テストです。\n
12|
13|==================================================\r\n" ;
14|close(MAIL) ;
nkfやsendmailなどサーバ側のシステムを変更することは出来ないです。
Perlのバージョンは5.005_04らしく、メーラーはOutlookを使用しています。