【Perl】初心者コーナー Part19
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/01/11 13:52ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
あとは>>2-10にまかせた。
0491474
03/01/24 20:27ID:i/64hvW7#!/usr/local/bin/perl
#=====================================================================
# カスタマイズ
#=====================================================================
# ★ perlのパス名
# このファイルの先頭の１行を、あなたが利用するサーバーにインストー
# ルされた perl コマンドのパス名に応じて変更してください。例えば、
# 私が加入している BIGLOBE では、#!/usr/local/bin/perl となります。
# 解らない場合は、プロバイダやサーバの管理者にお問い合わせください。
# 「#!」の前には、空文字や空行や他の文字がはいらないようにしてください。
# ★ 送信先メールアドレス
# $mailto = '[email protected]'; のようにあなたのメールアドレスに
# 書き換えてください。
$mailto = '';
# ★ サブジェクト(件名)
# 送信されるメールのサブジェクトを指定してください。
$subject = 'WwwMailからのメール';
# ★ メール送信コマンド
# WebサーバーがUNIXの場合はsendmailコマンド、Windows系の場合はBLATJ.EXE
# コマンドのパス名を指定（$mailcmd = 'C:\BLATJ\BLATJ.EXE'; など）してく
# ださい。このコマンドが存在しない場合は、WwwMail は動作しません。また、
# 存在していても、メール送信の設定が行われていない場合があります。詳細
# はプロバイダやサーバーの管理者にお問い合わせください。
$mailcmd = '/usr/lib/sendmail';
0492474
03/01/24 20:28ID:i/64hvW7# <<END_OF_DATA 〜 END_OF_DATA の間を好みにあわせて変更してください。
$header = <<END_OF_DATA;
<html>
<head>
<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">
<title>メール送信結果</title>
</head>
<body>
<h1>メール送信結果</h1>
<hr>
<p>下記のメールを送信しました。ありがとうございました。</p>
<hr>
END_OF_DATA
# ★ 送信結果メッセージ(フッタ)
# <<END_OF_DATA 〜 END_OF_DATA の間を好みにあわせて変更してください。
$footer = <<END_OF_DATA;
<hr>
<a href="../index.htm">[戻る]</a>
</body>
</html>
END_OF_DATA
0493474
03/01/24 20:29ID:i/64hvW7# 自己診断機能。
#====================================================================
# メール送信がうまく動作しない時に、
# http://〜/〜/wwwmail.cgi?test の形式で呼び出してください。
if ($ENV{'REQUEST_METHOD'} eq "GET") {
print "Content-type: text/html; charset=Shift_JIS\n";
print "\n";
print "<html>\n";
print "<head>\n";
print "<title>WwwMail自己診断</title>\n";
print "</head>\n";
print "<body>\n";
print "<p>CGIは正常に動作しています。</p>\n";
unless (-f $mailcmd) {
print "<p>$mailcmd がありません。</p>\n";
}
unless (-x $mailcmd) {
print "<p>$mailcmd が実行可能ではありません。</p>\n";
}
unless (-f "jcode.pl") {
print "<p>jcode.pl がありません。</p>\n";
}
unless (-f "mimew.pl") {
print "<p>mimew.pl がありません。</p>\n";
}
print "</body>\n";
print "</html>\n";
exit 0;
}
0494nobodyさん
03/01/24 20:30ID:i/64hvW7# 本体
#====================================================================
#
# ライブラリの呼び出し
#
require "jcode.pl";
require "mimew.pl";
#
# 入力値を読み取る
#
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
@a = split(/&/, $query_string);
foreach $x (@a) {
($name, $value) = split(/=/, $x);
$name =~ tr/+/ /;
$name =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
&jcode'convert(*name, "jis");
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$value =~ s/[\r\n]+/\n/g;
&jcode'convert(*value, "jis");
if ($FORM{$name} eq "") {
$FORM{$name} = $value;
$FORM[$cnt++] = $name;
0495nobodyさん
03/01/24 20:31ID:i/64hvW7$FORM{$name} .= (" " . $value);
}}}
#
# EMAILが正常なメールあどれすかどうか判断する
#
if ($FORM{'EMAIL'} =~ /^[-_\.a-zA-Z0-9]+\@[-_\.a-zA-Z0-9]+$/) {
$mailfrom = $FORM{'EMAIL'};
}
#
# メールヘッダを作成する
#
{
&jcode'convert(*subject, "jis");
$mailhead = "";
$mailhead .= "Content-Type: text/plain; charset=\"iso-2022-jp\"\n";
$mailhead .= "Content-Transfer-Encoding: 7bit\n";
$mailhead .= "MIME-Version: 1.0\n";
$mailhead .= "To: $mailto\n";
if ($mailfrom) {
$mailhead .= "From: $FORM{'EMAIL'}\n";
$mailhead .= "Cc: $FORM{'EMAIL'}\n";
} else {
$mailhead .= "From: $mailto\n";
}
$mailhead .= "Subject: $subject\n";
$mailhead .= "\n";}
0496nobodyさん
03/01/24 20:33ID:i/64hvW7# メールボディを作成する
#
{
for ($i = 0; $i < $cnt; $i++) {
$mailbody .= "$FORM[$i] = $FORM{$FORM[$i]}\n";
}
# "." のみの行は ". " に変換する。
# 2回繰り返さないと、2行連続で "." のみの行に対応できない
# "." を ".." に変換する処理が一般的だそうだが、あえて、
# "." を ". " に変換する。
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;}
#
# メールを送信する
#
if ($mailcmd =~ /sendmail/) {
unless (open(OUT, "| $mailcmd -t")) {
&errexit("メールの送信に失敗しました。(1)");}
unless (print OUT &mimeencode($mailhead)) {
&errexit("メールの送信に失敗しました。(2)");}
unless (print OUT $mailbody) {
&errexit("メールの送信に失敗しました。(3)");}
close(OUT);
} elsif ($mailcmd =~ /BLAT/i) {
&jcode'convert(*subject, "sjis");
$cmd = "$mailcmd";
$cmd .= " -";
$cmd .= " -t $mailto";
$cmd .= " -s \"$subject\"";
if ($mailfrom) {
0497nobodyさん
03/01/24 20:35ID:i/64hvW7$cmd .= " -f $mailfrom";}
unless (open(OUT, "| $cmd > NUL:")) {
&errexit("メールの送信に失敗しました。(4)");}
&jcode'convert(*mailbody, "sjis");
unless (print OUT $mailbody) {&errexit("メールの送信に失敗しました。(5)");}
&jcode'convert(*mailbody, "jis");close(OUT);} else {&errexit("メール送信コマンド $mailcmd が存在しません。");}
0498nobodyさん
03/01/24 20:36ID:i/64hvW7# ブラウザ画面に送信結果を書き出す
#
{&jcode'convert(*header, "sjis");
&jcode'convert(*footer, "sjis");
$mail = $mailhead . $mailbody;
&jcode'convert(*mail, "euc");
$mail =~ s/&/&/g;
$mail =~ s/"/"/g;
$mail =~ s/</</g;
$mail =~ s/>/>/g;
$mail =~ s/\n/<BR>/g;
&jcode'convert(*mail, "sjis");print "Content-type: text/html\n";
print "\n";
print "$header\n";
print "$mail\n";
print "$footer\n";
}
#
# エラーメッセージを出力して終了
#
0499nobodyさん
03/01/24 20:36ID:i/64hvW7local($err) = @_;
local($msg);
$msg = "Content-type: text/html\n";
$msg .= "\n";
$msg .= "<html>\n";
$msg .= "<head>\n";
$msg .= "<meta http-equiv=\"Content-type\" content=\"text/html; charset=Shift_JIS\">\n";
$msg .= "<title>メール送信結果</title>\n";
$msg .= "</head>\n";
$msg .= "<body>\n";
$msg .= "<h1>メール送信結果</h1>\n";
$msg .= "<hr>\n";
$msg .= "<p>$err</p>\n";
$msg .= "<p>ブラウザの [戻る] ボタンで戻ってください。</p>\n";
$msg .= "<hr>\n";
$msg .= "</body>\n";
$msg .= "</html>\n";
&jcode'convert(*msg, "sjis");
print $msg;exit(0);}
長くて申し訳ないです。どうでしょうか？
0500nobodyさん
03/01/24 20:37ID:???0502nobodyさん
03/01/24 20:56ID:???ブラウザに表示される画面をどうにかしたいってことか？
0503474
03/01/24 21:12ID:i/64hvW7そうなんです。
送信しましたの画面で（この下は474のコピペです）
下記のメールを送信しました。ありがとうございました。
--------------------------------------------------------------------------------
Content-Type: text/plain; charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
MIME-Version: 1.0
To: aaa@aaa
From: aaa@aaa
Subject:wwwmailからのメール
氏名 =
住所 =
といった感じなのですが
「下記のメールを〜」の下にそのまま「氏名＝」と来たほうが
送信した側もわかりやすいように思うのですが
「Content-Type:〜Subject:wwwmailからのメール」までを
消す（送信者に見えなくする）方法はありますか？
よろしくお願いします。
MySQLは3.23.52、PHPは4.2.3PHPです。
はっきり言って初心者なんですが、実用化を目指して勉強がてらデータベースを作ろうとしてスクリプト書いてました。
メモ帳使っての手書きスクリプトですが、アップロードしてみたらソコソコいけそうな感じでした。
ですが、あげたスクリプトを色々いじっているうちに変になってしまい収拾がつかなくなってしまったので全てのテーブル名を確認して
それらを全て削除したいのですが、やり方が分かりません。
色んなホームページを回ってみると出ているのですが、その殆どが個人のＰＣ上で行う方法が多いので、はたしてそのスクリプトが正しいのか分かりません。
実際実験してみてもうまくいかないので、多分ちょっとばっかり違うのでしょう。
TELNET接続も経験がないのと第一に使えないので、そのやり方も採れません。
テーブルを全て見るためのスクリプトと削除のためのスクリプトを教えてもらえないでしょうか？
ちなみに私が色々見て回ってこうかなと思って書いたものは…
<?
$hostname="localhost"; $port="3306"; $database="abcdefg";
$username="abcdefg"; $password="hogehoge";
$conn = mysql_connect($hostname,$database,$password);
mysql($database,"SHOW TABLE");
?>
…で最後の行を色々見たものをコピペって試しています。
0505nobodyさん
03/01/24 21:44ID:???# ブラウザ画面に送信結果を書き出す
って行があるだろ。その下あたりを修正すりゃいい。つかPerl勉強してこい。
>>504
SHOW TABLESと DROP TABLEを繰り返しするのじゃダメ？
うまくいかないって言われても…
0506504
03/01/24 22:05ID:+KMlj8qB上に書いたので繋がらないので分からないんですよ。
mysql($database,"CREATE TABLE $table( no int not null AUTO_INCREMENT,
hoge varchar(100),PRIMARY KEY(no))");
でちゃんとテーブル作れるんですがね。
0509nobodyさん
03/01/24 23:43ID:???何度も繰り返しになるが、テストはローカルでやれ。
アップしてテストをするな。
0510504、506
03/01/24 23:57ID:???今となっては同感です。
だからこそ、サーバー上のを見つけて削除したいんです。
0511nobodyさん
03/01/25 00:18ID:???だから、消し方もローカルでテストしてやりなさいって。
まずはローカルで同じ様なデータ作って消すやり方探せばいいでしょ。
ローカルなら、他人への迷惑をあまり考えずに色々と手探りで試せるんだから。
それはやってるのか？
0513nobodyさん
03/01/25 00:28ID:???0514504、506、509
03/01/25 00:33ID:???サーバー上でしかできないので、サーバーにアップしてやるしかないのです。
0515nobodyさん
03/01/25 00:50ID:???一生、悩んでなさいってこった。以後放置願います＞all
0516nobodyさん
03/01/25 00:52ID:???PHP + MySQL
http://pc.2ch.net/test/read.cgi/php/983250751/
【PHP】質問スレッド Part6
http://pc.2ch.net/test/read.cgi/php/1038988518/
mysql ヘルプ！
http://pc.2ch.net/test/read.cgi/php/1011683282/
0518ビビオパーラー
03/01/25 01:10ID:???PHPはようしらんが、、
http://search.net-newbie.com/php/ref.mysql.html
ここみたか？
で〜
>$hostname="localhost"; $port="3306"; $database="abcdefg";
>$username="abcdefg"; $password="hogehoge";
>$conn = mysql_connect($hostname,$database,$password);
↓
$conn = mysql_connect($hostname,$username,$password);
mysql_select_db($database)
>mysql($database,"SHOW TABLE");
↓
$result = mysql_query("SHOW TABLES");
while($row=mysql_fetch_row($result)) {
mysql_query("DROP TABLE $row[0]");
}
でダメかな？
ていうかPHPスレで聞け！perlなら
use DBI;
$dsn="DBI:mysqlPP:abcdefg:localhost";
$dbh=DBI->connect($dsn,'abcdefg','hoge');
$sth=$dbh->prepare('SHOW TABLES');
$sth->execute;
while(@row=$sth->fetchrow_array) {
$dbh->do("DROP TABLE $row[0]");
}
かな？
0519474
03/01/25 01:48ID:YsIz1kts>>508
助言を見まして検索したところ
&jcode'convert(*subject, "jis");
$mailhead = "To: $mailto\n";
# if ($FORM{'EMAIL'} ne "(unknown)") {
# $mailhead .= "Cc: $FORM{'EMAIL'}\n";
# }
こうすれば問題ないですか？
なんとなくまずいのはわかるのですが
良ければ詳しく教えていただけますか？
0521nobodyさん
03/01/25 13:31ID:???Webデータの取得にLWP::Simpleのget()を使いたいのですけど、
このモジュールはcgiを許可しているフリーのhosting service
には入れてないことの方が多いのでしょうか？ あるいは有料の
hosting serviceであれば入ってるでしょうか？
0523nobodyさん
03/01/25 17:23ID:???有料のトコなら管理者に頼めば入れてくれるかもしれないけど、
必要なモジュールは基本的には自分でインストールするもの
と考えたほうがいいよ。
http://search.cpan.org/author/GAAS/libwww-perl-5.69/
0525nobodyさん
03/01/25 18:29ID:???ダミーのモジュールを入れておいて優先順位？
0527初心者です。
03/01/25 18:44ID:WHb7ynpfCGI.pmを使用してて
perlに -w でCGIを実行すると
$data = param("form_name");
でフォームからデータを受け取って
このデータを下記のように条件式にかけると
if ( $data eq "hoge" ) {
}
ってやると
Use of uninitialized value in string eq at ./test.cgi line 8
ってWARNINGでるんですけど
このWARNINGださないようにするためにはみなさんどうしてます？
0529nobodyさん
03/01/25 19:05ID:J+PAIJA/違う。比較演算子は未定義値に使ってはいけない。
file?form_name=
で呼ばれたら、$dataは'' (空文字列?)だけど、
file?hoge=fuga
で呼ばれたら、$dataはundefになる。
つまり、こう書いておけばいい。
$data = '' unless defined $data;
0530nobodyさん
03/01/25 19:18ID:???おまけ:
undef, '', 0 はifに入れてみるとはみんなFALSEになるんだけど、
違うものだと思え。
よくある間違いで、
if (! $name) { error('名前を入れてちょ'); }
これは、$nameを0にできない。こう書くべきだね。
if ($name eq '') { ... }
0532nobodyさん
03/01/25 19:19ID:???入れてみると、みんなFALSEになる
0534nobodyさん
03/01/25 20:04ID:???普通こうします。。
0536nobodyさん
03/01/25 20:30ID:TLIt72nGreturn(next);
ってできますか？
0538nobodyさん
03/01/25 20:51ID:???みたいな感じになるはずだ。
0539nobodyさん
03/01/25 21:05ID:TLIt72nG0540 521
03/01/26 04:49ID:???ことをしたいのですけど、LWP::Simpleモジュールを使わなくても
可能でしょうか？
0542nobodyさん
03/01/26 10:04ID:???ログインができないんです。
if ($USER_DATA[0] eq $PW) {
ログイン完了
}
else {
パスワードちがう
}
とこのようにしているんですが、パスワードが合っていても違うという画面が出てしまいます。
出力して調べてみましたが
もちろん、$USER_DATA[0]と$PWの値は一緒でした（調べたときは両方に'a'という文字列をいれた）。
・・・どうすれば、きちんとした分岐結果が出るでしょうか？
ifの使い方が間違っているんでしょうか
0546nobodyさん
03/01/26 11:44ID:P6Egn5Az文字に改装を加えて投稿するにはどうすれば良いのでしょうか。
タグは使用不可で、スクリプトはCOMCHATです。
もし板違いだったらすいません。
0548nobodyさん
03/01/26 12:18ID:P6Egn5Az他の常連さんが成功してるみたいなので。。
0550nobodyさん
03/01/26 12:30ID:P6Egn5Azあまり喋らないので、気まずい...
0551nobodyさん
03/01/26 12:47ID:zx28i3UHhttp://ginrai.hp.infoseek.co.jp/
0552nobodyさん
03/01/26 12:58ID:10NDG8/sなんでもかんでもダブルクオートで囲むのはよろしくない。
それに、今はそれは全然関係ない。
>>542
自分が問題だと思っている部分だけじゃなくて、全体を出してみろ。
0553nobodyさん
03/01/26 16:22ID:???0554nobodyさん
03/01/26 17:09ID:???時間を決めて実行するための仕組み。
専用レンタルサーバとかじゃないと使えないから気にしなくていい。
スレ的には、「ある時間にCGIを実行したいんだけど」な気がするから、
「CGIが読み込まれたときに時間をチェックして実行するかどうか決めろ」
0555nobodyさん
03/01/26 17:56ID:lX4NK7pu0556nobodyさん
03/01/26 18:44ID:bvYo1DgEそもそもCGI使えないだろ
0558nobodyさん
03/01/26 22:37ID:???0560nobodyさん
03/01/26 23:30ID:2o0R3o6+小数点以下切捨てということで、
$tax = int($5*$total/100);
という感じでやっているのですが、
小数点以下四捨五入で･･･とするにはどうしたらいいのでしょうか？
初歩的な質問ですいません･･･。
0563560
03/01/26 23:47ID:???ありがとうございます!!!
$tax = int(($total * 0.05) + 0.5);
↑ちなみにこの２重括弧はやっぱり付けた方がいいんですか？
$tax = int($total * 0.05 + 0.5);
だけだとだめですか？
0566560
03/01/26 23:56ID:???0.5足して切り捨て、いわれれば納得!!!
つーか、最初の書き方変でしたね。
$tax = int($5*$total/100);
$5ってなんだ･･･（ｗ
どうもありがとうございました。
0568nobodyさん
03/01/27 05:26ID:???>がついてる文章を<BLOCKQUOTE>で括りたいんですが、
$message =~ s/a(.*)\n/<blockquote>$1<\/blockquote>/g;
とすると、
aあいうえお
aかきくけこ
さしすせそ
が
<BLOCKQUOTE>あいうえお</BLOCKQUOTE>
<BLOCKQUOTE>かきくけこ</BLOCKQUOTE>
さしすせそ
になってしまいます。
<BLOCKQUOTE>あいうえお<BR>
かきくけこ</BLOCKQUOTE>
さしすせそ
にする方法と、aじゃなくて、>で出来る方法（>を使うとなぜかエラーが出ます）
を教えてください。
0569568
03/01/27 05:27ID:???あ、この方法の欠点見付けました。
>で始まる行でも、改行してなかったら引用と認識しませんね。
>で始まる行の後に、文章を書かない事はないと思いますが、万が一のために、\nがなくてもOKなようにしたいんですが。
0570568
03/01/27 06:31ID:???>の個数が一個減るたびにその直前に</P></BLOCKQUOTE>をつける、でいいんでしょうかね。
0571nobodyさん
03/01/27 07:42ID:x/t6q6bL2.先読みを利用して最後の引用符の行に</BLOCKQUOTE>を追加
3.その他の引用符をすべて消去
http://www.kt.rim.or.jp/~kbk/perl5.005/perlre.html
0572nobodyさん
03/01/27 08:21ID:Npl77MmW本日23：00時より祭りを開催いたします。
是非、参加下さいます様、お願いします。
携帯ＰＨＳ
迷惑メールサイト一斉訪問お祭り開催
http://jbbs.shitaraba.com/news/bbs/read.cgi?BBS=853&KEY=1043335260
-------------------------------------------
0576bloom
03/01/27 08:53ID:2qTkpcb70577nobodyさん
03/01/27 15:48ID:???モジュールは自分で鯖にインストールしないといけないのでしょうか？
例えばLWPなどは一般的にどのような手順を踏めば使えるのでしょうか。
0579nobodyさん
03/01/27 16:11ID:x/t6q6bLこれが理解出来れば後は余裕かと
$message =~ s|>([^>\n]+)(\n*)(?!>)([^>]+)$|$1</AA>$2$3|s;
>577
場所によるけど良いレンタル鯖だとメジャーなモジュールは
インストール済みだったりする
http://www.zdnet.co.jp/help/tips/linux/l0495.html
0580577
03/01/27 16:21ID:???ありがとうございます。
＞前も来てなかった？
もし過去ログにあったなら見逃してました、すみません。
試してみて、また分からなくなったら来ます。
その時もよろしくお願いします。
0581nobodyさん
03/01/27 16:44ID:???LWPのインストールはPerlと関係ないのでもう来ないでください。
0582nobodyさん
03/01/27 17:00ID:???どなたか改造するポイントを教えてください。
因みに使っているバージョンは
ttp://mitinoku.jp/script/12ch_2.02.lzh
これです。
bbs.cgiというファイルを改造すればいいみたいです。
動作は、等幅チェックボタンをONにして書き込むと
<tt>「書き込み内容」</tt>
と、こんな風に<tt>タグでカキコの内容をはさむようにしたいです。
では、宜しくお願いいたしますです・・・。
0583582
03/01/27 17:04ID:???↓書き込みフォームの等幅チェック部分
等幅<input type=checkbox name=touhaba value=on>
↓$com(コメント)を<tt>ではさむ処理。
if ($email eq "haba" || $email eq "tohaba" ||$FORM{touhaba} eq "on"){$com="<tt>$com</tt>";$tt=1;}
0584nobodyさん
03/01/27 17:05ID:???【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/
0586nobodyさん
03/01/27 18:01ID:???どなたか分かる方いらっしゃいましたら教えてください。
0587nobodyさん
03/01/27 18:42ID:KZuCQWmj0588nobodyさん
03/01/27 21:32ID:???２バイト文字の処理を行っていないから？
とにかく >>1 から始めよ。
>>587
レスの半分近くが誘導になる悪寒ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
0589nobodyさん
03/01/27 21:46ID:???の[0-9]+、ようするにその部分に入る数字を
$renoって変数に格納するにはどうしたら?
0590nobodyさん
03/01/27 21:49ID:o8/ytwxU■ このスレッドは過去ログ倉庫に格納されています