Perl 初心者コーナー Part22
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/04/15 10:15ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
参考書籍の話題は、【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0552542
03/05/04 00:34ID:???>>549
まだ何も解決してないｙｏ！
たとえば、
「Perl サブルーチン集」
ttp://www.antun.net/tips/cgi/perl.html
ここにあるget_homepageをcgiファイル上にコピペして
（すこしバグ修正して）動くようにする。
で、get_homepageを別のplファイルにカット＆ペースト。
するとアラ不思議。
select(SOCKET); $|=1; select(stdout);から先が動かねええぇっ！！
なぜ？
0554nobodyさん
03/05/04 00:37ID:???まぁ、スレ違いなのだが。
0555nobodyさん
03/05/04 00:38ID:???＞関数をplファイルに移し変えたとたん
だからどこか間違ってるんだろ。
一部分だけ書いてなぜって聞かれて誰がわかるってんだ。
0559542
03/05/04 00:56ID:???たとえばどういうとこが？
ちなみに
select(SOCKET); $|=1; select(stdout);
のあたりはWebページ読み込みの紋切り型の処理の一部のようだから
判る人にはわかるにちがいないと思ったんだよ〜。
もしかしたらpl化するときのFAQ的なことなんじゃないだろうかと思ったので
バグがどうとか言うより、plではselectがうまく動作しないとかいうことがあるのかな、とか
そんな話が聞きたかった。
0560nobodyさん
03/05/04 01:00ID:???＞バグがどうとか言うより、plではselectがうまく動作しないとかいうことがあるのかな
そんなことはない。
どっちにしても全ソース晒さなければ答えようがない。
0561nobodyさん
03/05/04 01:26ID:???.plがCGIとして実行されていないのでは？
どうせsub get_homepageに渡す引数は$ENVから取ってるんでしょ？
空っぽだったりしてね。
0562nobodyさん
03/05/04 01:27ID:???0563連ｶｷすまそ
03/05/04 01:30ID:???>>547を見る限り変な改造してそうだ。
print "0<br>";
の前に
print "$SrcFileName<br>";
print "$host<br>";
print "$port<br>";
print "$addr<br>";
print "$name<br>";
を付け足して.cgi,.pl両方の結果を晒してみろ。
0564542
03/05/04 01:51ID:???552のソースで実験したもの。
cgi版
address = http://www.geocities.co.jp/AnimeComic-Tone/4606/index.html
host = www.geocities.co.jp
port = 80
addr = ﾒ兀ｾ
name = Pﾒ兀ｾ
pl版
address = http://www.geocities.co.jp/AnimeComic-Tone/4606/index.html
host = www.geocities.co.jp
port = 80
addr = ﾒ兀ｾ
name = Pﾒ兀ｾ
0565542
03/05/04 01:53ID:???#! /usr/local/bin/perl
require "test2.pl";
use Socket;
{
# HTMLヘッダ
print "Content-type: text/html\n\n";
print '<html><head>'.
'<meta http-equiv="content-type" content="text/html;charset=x-sjis">'.
'<title>$strProject</title>'.
'</head><body>';
if ( 1 )
{
# cgi版
my $html= get_homepage('http://www.geocities.co.jp/AnimeComic-Tone/4606/index.html');
print "$html<br>";
}
else
{
# pl版
my $html= &test2'get_homepage('http://www.geocities.co.jp/AnimeComic-Tone/4606/index.html');
print "$html<br>";
}
# HTMLフッタ
print '</body></html>';
exit;
}
#この後ろにget_homepageが来る
#ただし、return値は $homepage{"body"} にしてある
0566542
03/05/04 01:55ID:???package test2;
use Socket;
$system_agent = 'unknown';
sub get_homepage
{
# get_homepage
# ただし、return値は $homepage{"body"} にしてある
}
1;
0569250
03/05/04 05:40ID:???を指定してるところを書き変えてないとかしょーも無いところでないの？
おおよそ、解ってないんであればソースを全部アプロダなりに上げるぐらいするべきでは？
スレ汚れすぎてみる気もせんわい・・・
0570nobodyさん
03/05/04 10:37ID:???コーディングミスしかないわな
0571nobodyさん
03/05/04 18:11ID:???代入された値が数字でないものを
インクリメントするというのはどういうことなのでしょうか？
0574nobodyさん
03/05/04 21:17ID:SY2E/p10use Socket;
my $host = 'live2.2ch.net';
my $port = 80;
my $path = '/news/subback.html';
〜省略〜
print SOCKET "GET $path HTTP/1.0\r\n";
print SOCKET "\r\n";
while (<SOCKET>){
m/^\r\n$/ and last; }
print "Content-type: text/html\n\n";
while (<SOCKET>){
print ($_);
}
socketでニュー速のsubback.htmlを取得したいのですが，
変なページに飛ばされてしまいます．
イラク情勢のsubback.htmlは問題なく取得できるのですが・・
どうやったらニュー速のsubback.htmlを取得できるんでしょうか？
0575nobodyさん
03/05/04 21:24ID:???GET /news/subback.html HTTP/1.1
Host: live2.2ch.net
を出してるみたいだね
0576nobodyさん
03/05/04 21:33ID:SY2E/p10print SOCKET "GET $path HTTP/1.1\r\n";
print SOCKET "Host: live2.2ch.net\r\n";
print SOCKET "\r\n";
こんなふうにしたらできるようになりました．どうもありがとうございました．
0577nobodyさん
03/05/04 21:37ID:???複数同時にやって処理を高速化したいと考えています。
forkを使って作ってみたのですが、プロセスの終了を待たずに
forkを繰り返すスクリプトでは、どうしても途中でエラーになってしまいます。
(win2kでActivePerlを使用)
forkを使う何かうまい回避方法か、
forkを使わないなるべく簡単な方法はありませんか?
0579nobodyさん
03/05/04 22:48ID:???子プロセスのプロセスIDを知ってるのが子プロセスだけなので、
自殺してもらうしかないような気がします。
っていうか、exitはさせてます。でもゴーストが溜まります。
0581nobodyさん
03/05/04 22:52ID:???Windows2000だと違うのか？
0582bloom
03/05/04 23:10ID:c6ZqX6LO0583nobodyさん
03/05/04 23:15ID:digHu/wF0584nobodyさん
03/05/04 23:22ID:???どのバージョンか知らんが、Windows版ActivePerlのforkは
いくつか注意点あるぞ。
0585nobodyさん
03/05/04 23:25ID:???孫プロセス：やりたい処理（GETでファイルをとってくる）。
親プロセス：子プロセスをwait待ちのあと、子をkill。
孫は自分の親を失ったときから孤児になり、あとは孤児院(ていうかOS)が面倒をみてくれる。
と思う。わからんけど。
0586nobodyさん
03/05/04 23:55ID:???あ、そうですね。なんか逆に思ってた。
unless ($pid = fork()) {子}
という書き方をしたからか。
>>585
forkを二段にするのは、やってみれとどこかに書いてあったので
試してみましたが、結果は同じでした。
そらそうだろうなあ、とその時は納得したのですが、
OSが孫の面倒を見てくれるという背景があるとは知りませんでした。
かなり処理系に依存しそうな話なので、うちでは無理なのかもしれません。
という感じで fork に頼るのは半ば諦めているのですが、
fork 以外の方法もお願いします。
system() で別のperlを呼んじゃうのもアリかな、と考えてますが。
0588nobodyさん
03/05/05 01:22ID:???できないかな、と思ったんですが。
そうすると、本当に例えば10のソケットを作って、
順番に様子を見ていく、みたいな処理を書かないといけないのかな。
print SOCKET
だけしといて、
<SOCKET>
は後回しにして、whileは使わずにEOFを調べる、みたいな。
0589nobodyさん
03/05/05 05:19ID:LXl5aCv3htmlで作ったForm(input,textarea,select,radio,submitとか)のデータを
受け取ったり逆にデータ手渡す方法orガイドしてるHPとかないですか？
JavaScriptでは作った事有るんですがやっぱりCGIだとかなり便利だし、
何か知ってる方いらっしゃられたら些細な事でも教えて下さい、、
0590nobodyさん
03/05/05 05:42ID:???0591nobodyさん
03/05/05 05:44ID:???とりあえずこれ
http://www.google.com/search?as_q=perl+&num=100&hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=%E3%83%87%E3%83%BC%E3%82%BF%E3%82%92%E6%B8%A1%E3%81%99%E6%96%B9%E6%B3%95
0592初心者です
03/05/05 10:25ID:MabQ6h0K自分が幾つか持っているHPの日記に一度に書き込みをしたいのです。
それでperlで書いてみたんですけど、
foreach $bbslist (@bbs){
print "Location: $bbslist\n\n";
}
@bbsの中身はhttp://〜から記述した内容がget形式で渡されています。
で、このソースを実行すると１つめの日記に書き込みをした時点で、
処理が終わってしまい、次の日記を書きに行ってくれません。
Locationは一度実行すると処理を終えてしまうようなことを
どこかで見かけた気がしますが、それなら、どのように書けばいいのでしょうか？
どなたか教えてください。
0593nobodyさん
03/05/05 10:36ID:???荒らしスクリプトっぽいからダメ。
0594初心者です
03/05/05 10:38ID:MabQ6h0Kああ、そうなるのですか･･･
言われてみればそうですね。
変なこと尋ねて申し訳ありませんでした。
0595nobodyさん
03/05/05 10:44ID:???これ以上は言わん。
0596bloom
03/05/05 11:10ID:lHdchtO/0597nobodyさん
03/05/05 11:25ID:???0598nobodyさん
03/05/05 11:43ID:???perlをwinにインストールしようと思い、以下のサイトに行きました。
http://www.activestate.com/
英語は全く読めないのですが、勘で進みました。
するとダウンロードの所に２種類あるではありませんか。
ActivePerl 5.8.0 build 806
Windows MSI 11.5MB
Windows AS package 11.4MB
意味が分かりません。
MSIと、ASは、なにが違うのでしょうか？
よろしくお願いします。
0599nobodyさん
03/05/05 11:47ID:???自分はスキルがあるのに実力が発揮しにくいです。
0600nobodyさん
03/05/05 11:51ID:???ここ、コーディングのスレなんだけど・・・
まぁ、MSIのほうダウンロードしといたらええよ。
で、ダブルクリックしたらインストール始まる。
ただし使ってるWindowsの種類によってはMicrosoftのサイトから
Windows Installerのファイルを落としておかないとインストールできない。
このへんのことは検索したらwindowsマシンへのActivePerlのインストール
方法を解説してるサイト見つかると思うので、あとは自力でがんばって
0602nobodyさん
03/05/05 13:11ID:eAEbJzW0ありがとうございます＾＾
検索下手には嬉しいHit結果です、お手数かけました〜、
0603_
03/05/05 13:25ID:???! i iﾉﾉﾘ）) 〉
i l l.´ヮ｀ﾉﾘ ＜先生！こんなのがありました！
l く/_只ヽ
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku07.html
http://japan.pinkserver.com/kaorin/zenkaku/index.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku08.html
http://japan.pinkserver.com/kaorin/hankaku/hankaku10.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku07.html
http://japan.pinkserver.com/kaorin/hankaku/hankaku03.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku05.html
http://japan.pinkserver.com/kaorin/hankaku/hankaku01.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku06.html
http://japan.pinkserver.com/kaorin/hankaku/hankaku04.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku09.html
0604nobodyさん
03/05/05 14:35ID:eAEbJzW0文字列に直すと整数の桁数が不安定で1/100から切れたり1/10から切れたりします、
どうすればいいでしょうか？、
0605nobodyさん
03/05/05 14:42ID:???0606nobodyさん
03/05/05 14:56ID:???他サーバで処理させたカウントを
ＣＧＩの動かないサーバに置いてあるページ内にｇｉｆをつかって表示させるには
どうしたらいいでしょうか
0608_
03/05/05 15:06ID:???|:￣＼(∩´∀｀) ＼ ＜先生！こんなのがありました！
|:在 |:￣￣ U￣:|
http://www.japan.pinkserver.com/kaorin/moe/jaz09.html
http://japan.pinkserver.com/kaorin/mona/index.html
http://www.japan.pinkserver.com/kaorin/moe/jaz10.html
http://japan.pinkserver.com/kaorin/moe/jaz08.html
http://www.japan.pinkserver.com/kaorin/moe/jaz07.html
http://japan.pinkserver.com/kaorin/moe/jaz03.html
http://www.japan.pinkserver.com/kaorin/moe/jaz05.html
http://japan.pinkserver.com/kaorin/moe/jaz01.html
http://www.japan.pinkserver.com/kaorin/moe/jaz06.html
http://japan.pinkserver.com/kaorin/moe/jaz04.html
http://www.japan.pinkserver.com/kaorin/moe/jaz02.html
0609bloom
03/05/05 15:10ID:lHdchtO/0610bloom
03/05/05 15:10ID:lHdchtO/0611nobodyさん
03/05/05 15:47ID:eAEbJzW0$aはsortのみたいに書き変えないでいい物かと思って失敗しましたけど
違うんですね、、
それにperlにも整数に直すint型が有るんですねー。（C++かじった事有）
これで小数点に悩まされずに済みます、ありがとうございました〜
0612nobodyさん
03/05/05 16:03ID:???0614nobodyさん
03/05/05 16:29ID:???無型流自由殺法
0615nobodyさん
03/05/05 17:53ID:???これまで1か0のフラグとして使っていた変数$aの真偽を判定するのに
if($a == 1)
と記述していたのですが、もしかして
if($a)
だけでも良いのでしょうか。良いのならコードがかなりすっきりするんですが…。
良い、悪いだけでも結構ですので、どなたか教えていただけませんでしょうか。
0616nobodyさん
03/05/05 17:57ID:???か
if ($a & 1){ hoge; }
が正解でつ。
0617nobodyさん
03/05/05 18:03ID:???真偽判定だけならそれでもかまわない。
ないとは思うが、
if(1) # 真
if(0) # 偽
if('') # 偽
if('0') # 偽
if('00') # 真
こういうワナもあるので注意。
0618nobodyさん
03/05/05 18:38ID:???if ($a)
とやると、$a = "0" の罠にはまる。
0619nobodyさん
03/05/05 18:40ID:???動かないスクリプトとか、普通に出回ってそうだ
0621nobodyさん
03/05/05 19:14ID:???こんな感じの。うちではちゃんと動くけど。
0622615
03/05/05 19:38ID:???トラップに陥らないよう注意して、書き直していこうと思います。
0623Dream ☆
03/05/05 21:39ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0624nobodyさん
03/05/06 01:24ID:???607さんのいったカウンタのリンクを貼るってどういうことですか？
レンタルカウンタ色々みたけど、どれがどれなのか。。。
0625nobodyさん
03/05/06 01:26ID:???プログラム覚えるのと、英語覚えるのどっちが難しいですか？
両方出来る人が居たら、教えてくだしい
0626nobodyさん
03/05/06 01:34ID:???0627nobodyさん
03/05/06 01:36ID:???このスレで聞くのがいいんじゃないか?
0628nobodyさん
03/05/06 01:41ID:???0630nobodyさん
03/05/06 18:03ID:39bU8fpCPerl←の読み方教えてぇーペリ？ピール？
0631nobodyさん
03/05/06 18:04ID:39bU8fpC0632nobodyさん
03/05/06 18:24ID:???0635nobodyさん
03/05/06 21:19ID:???0636nobodyさん
03/05/06 21:32ID:???と
$value =~ /./g;
って、同じと考えていい？
なんか違いある？
0637nobodyさん
03/05/06 23:25ID:Bmqf5moKこれ↓を
SELECT * FROM MEMBER WHERE {NAME='[personName]' AND }AGE=[age]{ AND TEL='[tel]'} ORDER BY AGE;
こういう風に
SELECT * FROM MEMBER WHERE AGE=[age]{ AND TEL='[tel]'} ORDER BY AGE;
変換したいのですが下記ではだめなのでしょうか。
/\{.*?\[personName\].*?\}//
0639nobodyさん
03/05/06 23:58ID:5MrMxTMp送信元がメールソフトででませんねぇ。
ﾛﾘﾎﾟなんだが、
[email protected]ってなる。
sendmailするとanonymousになっちまうのか？
ちなみに、
print MAIL "From: $address\n";
とやりました。
0640nobodyさん
03/05/07 00:56ID:???$mailprog = '/usr/lib/sendmail';
open(MAIL,"| $mailprog -t") || &error("メール送信に失敗しました");
print MAIL "To: $mailto\n";
print MAIL "From: $email\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "X-Mailer:r\n\n";
close(MAIL);
0641nobodyさん
03/05/07 02:08ID:???0643nobodyさん
03/05/07 05:35ID:???ファイル出力時に機能せず，エスケープシーケンスのまま
出力されます．環境はWin2000sp3，ActivePerl v5.6.1です．
#input.txt(sjis)
\t\t\n\n
#test.pl(sjis)
open(IN, "input.txt");$command=<IN>;close(IN);
open(OUT, "> output.txt");print(OUT "$command");close(OUT);
test.plを実行すると，output.txtには見事に「\t\t\n\n」と出力されます．
願わくばタブタブ改行改行と出力されて幸せになりたいです．
おいらは何か勘違いしているでしょうか？
0644nobodyさん
03/05/07 08:16ID:???$command =~ s/\\t/タブ/g;
$command =~ s/\\n/改行/g;
open(OUT, "> output.txt");print(OUT "$command");close(OUT);
open(IN, "input.txt");$command=<IN>;close(IN);
$command =~ s/\\t/\t/g;
$command =~ s/\\n/\n/g;
open(OUT, "> output.txt");print(OUT "$command");close(OUT);
0645へるぷみー
03/05/07 16:32ID:IktPSMvp> Microsoft-Outlook-Express-Macintosh-Edition/5.02.2106
> Microsoft-Outlook-Express-Macintosh-Edition/5.0.6
のメーラーを使用している方から文字化けの報告があります。
件名は問題なく日本語でも文字化けしていないのですが、本文がぐちゃぐちゃです。
http://www.c-5.ne.jp/~itsuki/ の"Code Check"を使用して、
機種依存文字のチェックもしましたが、問題ありませんでした。
Microsoft-Outlook-Express-Macintosh-Editionに問題があるのかもしれませんが、
以下にソースを書きますのでプログラムに問題があれば教えて下さい。
解決方法をご存じの方、是非宜しくお願い致します。
0646へるぷみー
03/05/07 16:33ID:IktPSMvp$send_subject = "サブジェクト";
$send_text = <<__EOF__;
日本語の本文
__EOF__
&jcode'convert(\$send_text,'jis');
&jcode'convert(\$send_subject,'jis');
$Subject = &mimeencode($send_subject);
$SendMessage .= "To: <$MailAdr>" . "\r\n";
$SendMessage .= "From: <from\@hogehoge.com>" . "\r\n";
$SendMessage .= "Subject: $Subject" . "\r\n";
$SendMessage .= "MIME-Version: 1.0" . "\r\n";
$SendMessage .= "Content-Type: text/plain; charset=ISO-2022-JP" . "\r\n";
$SendMessage .= "Content-Transfer-Encoding: 7bit" . "\r\n";
$SendMessage .= "\r\n";
$SendMessage .= $send_text;
open MAIL,"|/usr/lib/sendmail -t -i -f from\@hogehoge.com";
print MAIL $SendMessage;
close MAIL;
0647nobodyさん
03/05/07 17:55ID:???か
メール本文 =~ s/\r//g;
でどうよ｡
・・・・・自信なし｡
0648nobodyさん
03/05/07 22:23ID:???0650648
03/05/07 22:30ID:???0651639
03/05/07 23:24ID:BGSRMxiAopen(MAIL, "| $sendmail -t");
print MAIL "TO: $email\n";
print MAIL "Subject: $mailsubject\n";
print MAIL "Content-Type: text/plain;\n\n";
print MAIL "名前: $mailname\n";
print MAIL "From: $mail\n";
print MAIL "$mailbody\n";
print MAIL "$addr\n$age_a{\"$age\"}\n";
close(MAIL);
これで、送信元がちゃんとでるはずなんですけど・・・
でませんね
0652nobodyさん
03/05/07 23:26ID:???んなこたぁない。
\n=・だと、本気で思ったのなら、ちょっと笑ってしまう・・・(w
どういう環境なのかさっぱり書いてないな・・・。
質問の仕方悪い。
ソースの文字コードは？
ファイルに出力して・になるの？
デフォルト標準出力で・になるの？
もっと、詳しく書いてくれないと分からない。
■ このスレッドは過去ログ倉庫に格納されています