【Perl】初心者コーナーPart11
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん
02/03/27 12:53ID:wAXxxOxPいらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【CGIだけどなんか質問ある Pert 5.01 】
http://pc.2ch.net/test/read.cgi/php/1015127347/l50
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
過去ログ、その他の役立ち情報は>>2-10を見よう。
0930926
02/04/26 19:48ID:???$c .= $n eq "└" ? " " : "│" if($n);
while(@{$restree{$log}}){
@data=split(/\t/,$list{$log == 0 ? shift(@{$restree{$log}}) : pop(@{$restree{$log}})});
if($data[1] != 0){$n= @{$restree{$log}} ? "├" : "└";}
if($n eq "├"){$o = $data[1] == $log ? "│" : "";}
elsif($n eq "└"){$o = $data[1] == $log ? " │" : " ";}
print "$data[0]:$data[3] [$data[4]] $data[6]";
if($data[1] == "0" && $data[1] != $log){$sen = "<br>｜ ";}
else{$sen = "<br>$c$o"." ";}
print"$sen$sen";
$data[7] =~ s/<br>/$sen/g;
print "$sen<nobr>$data[7]</nobr>$sen";
&treelist($data[0],$c,$n,$o,$size - 2);
}
}
へぼなコードでほんとにすいません。おねがいします。
0932nobodyさん
02/04/26 20:41ID:???0934nobodyさん
02/04/26 21:25ID:???人に理解してもらおうという気がないようだと思っただけだよ。
@{$restree{$log}}が何かも書かずにさ。
0935903
02/04/26 23:24ID:???system("/usr/local/bin/gpg -r D44EC5AA -o bbbb -ea aaaa");
とやると、エラーはでてきませんが、bbbbファイルが作成されません、
GnuPGはサーバーの/usr/local/bin/gpgにインストールされてますので、
telnet上の操作では、暗号化ファイルbbbbは問題なく作成されます。
問題は違うとこにあるのでしょうか？
元々やりたかったことは、フォームメールに入力されたデータを
暗号化されたメールとして受け取りたいということです。
解説ページなんてたくさんあるだろうと思って、暗号、PGP、GPG、GnuPG、フォーム、
他にもいろいろ検索ワードを試しましたが、それらしいページが見つかりません。
ひとつだけみつけましたがPHPでした。
http://www.hotwired.co.jp/webmonkey/2000/20/index3a.html
もし対処法や解説ページがありましたら、よろしくお願いいたします。
0936nobodyさん
02/04/27 00:25ID:???@{$restree{$log}}がなんだかはシランが、ツリー掲示板なら
ログがあるはずだから、そのログを精査して子記事のあるものに
フラッグつけろ。
で、whileかかってる記事番号の処理の中でフラッグがあれば
そいつの下に線をたらせばいんじゃないかい？
0939nobodyさん
02/04/27 01:15ID:pZywQtFXともかく分からないので、質問自体が間違ってるかもしれませんが。
0940nobodyさん
02/04/27 01:23ID:???ともかく分からないので、質問自体が間違ってるかもしれませんが。
0942nobodyさん
02/04/27 02:03ID:???XML::DOM、XML::LibXML、XML::GDOMEなどなど。XML関係は腐るほどあるけど。
思うに一般のプロバイダーのサーバーではインストールされていないかと。
>>940
おもろい。
0943903
02/04/27 02:09ID:???$?の中は512となってますが。
できあいのCGIを設置したり、ちょびっと変えるぐらいしか
やったことない身には、さっぱりわかんないです。
0946nobodyさん
02/04/27 02:53ID:???モジュールも鯖にあげてパス通す、というのは出来ない？知らんけど。
#/usr/bin/perl -I~/cgi-bin/
みたいのを１行目にするとか。
0947903
02/04/27 02:59ID:???パーミッションは問題ないはずなんですが、、、
全開放で試してもダメでした。
海外のページを探してみたら、GPG対応のフォームメールが
いくつか見つかりました。これを改造して使えないかなと中を見てるとこです。
日本語の解説ページもたくさんありそうなもんですがねぇ、
関連ワードで国内を検索しても、ショッピングサイトしかでてこないです。
0948944
02/04/27 03:22ID:???スクリプトが、そのsystem()の行まで辿りつく前にエラーになってる可能性は
ないかな？
実行パーミッションがついてないとか、perlのpathが間違ってるとか。
あと、telnetでログインしたときと、CGIで叩いた時の $PATH が
違うという可能性か、入力ファイルが実は無かったとか。うーむ。
推測だらけですまん。
0949903
02/04/27 03:43ID:???親切なレスありがとうございます。
pathは間違ってないですねぇ、、、ファイルも存在してます。
実行パーミッションもついてます。う〜ん？？
簡単なテストで、こんなのやってみました。
#!/usr/local/bin/perl
system("/usr/local/bin/gpg -r D44ECAAA -o bbbb -ea aaaa");
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
print "暗号化終了<BR>";
print "</BODY></HTML>\n";
exit;
エラーはでないですが、bbbbファイルが作られません、
絶対パスでファイルを指定してもダメ。
すごい初歩的な思い違いをしてるような気もしますが、、、。
0950944
02/04/27 03:59ID:???つーことは、なんとなーくgpgの実行時にエラーが出てる予感。
print "Content-type: text/html\n\n";
print `/usr/local/bin/gpg -r D44ECAAA -o bbbb -ea aaaa`;
てな感じで、エラー表示されないかなぁ
0951903
02/04/27 04:39ID:???こんな時間までお付き合いいただいて恐縮です。
やってみましたが空白ページでした、は〜ぁ。
試しに自分のPCにGPG、AN HTTP、ActivePerlを入れてテストしたら
無事に暗号化ファイルが作られました。
う〜ん、何なんでしょ？
関係のあるファイル、ディレクトリを
777にしちゃいましたが動かないし。
0952nobodyさん
02/04/27 04:40ID:???でもXML::DOMもXML::LibXMLもXML::GDOMEもCライブラリが必要でしょ
(expat,libxml2)？なんかそこまでするのもなぁ、と。できないことは
なかろうが。
0953nobodyさん
02/04/27 04:48ID:o5qoi2dCこの少数点以下を切り捨てにしたい場合はどうすればいいんでしょうか？
0954nobodyさん
02/04/27 04:52ID:???perldoc -f sprintf
my $foo = sprintf( '%d', 5 * 1.3 );
0956903
02/04/27 08:02ID:???問題はGPGの環境変数の設定にあったようです、
$ENVで設定すればOKでした。
お付き合いいただいて、本当にありがとうございました。
0957Atsuhi ◆UvChluUE
02/04/27 10:08ID:vZVa5O3I<input type=text name=2ch></form>
GETorPOSTフォームから送信された内容を、CGI側の変数$in{'2ch'}に格納するにはどうしたらいいんでしょう。
0959Atsuhi
02/04/27 15:38ID:2uDiaJDyその方法試しましたが、
なぜか、フォームから送信された内容を処理できません。
cgi-lib.plも使いたくないです
0961nobodyさん
02/04/27 16:06ID:???tr/+/ /;
s/%(..)/pack"H2",$1/eg;
s/</</g;
s/>/>/g;
s/"/"/g;
$_
} split/[&=]/, do{
uc $ENV{REQUEST_METHOD} eq 'POST'
? do{ read STDIN, $_, $ENV{CONTENT_LENGTH}; $_}
: $ENV{QUERY_STRING};
0963nobodyさん
02/04/27 16:23ID:AgrfpFbJその際にrefererを空にしたいと考えてます。なぜだか。
何かよい方法ありませんか？
0965nobodyさん
02/04/27 16:38ID:AgrfpFbJすみません。反省します。
0966nobodyさん
02/04/27 19:52ID:???0967nobodyさん
02/04/27 21:53ID:sDcizlcBどーやりますか?
0969nobodyさん
02/04/27 22:22ID:sDcizlcBマジカヨ!!ソケットって何??逝ってきます
0970nobodyさん
02/04/27 22:28ID:???0971nobodyさん
02/04/27 22:40ID:sDcizlcB???
0972nobodyさん
02/04/27 22:47ID:???0973nobodyさん
02/04/27 22:50ID:sDcizlcBすこし分かりました。
できそうです。
0974nobodyさん
02/04/27 22:56ID:???#/usr/bin/perl
use LWP::Simple;
$url='www.somewhere.com/index.html'
$file='local.html'
LWP::Simple::mirror( $url, $file );
0975nobodyさん
02/04/27 23:04ID:M0a39fTIあの事でお聞きしたい事があるんですが、このスレで聞いても良いんでしょうか？
htmlだけじゃなく、cgiなどの方も関係してるのでこのスレが妥当だと思うんですが、
一応確認したくて。
0978nobodyさん
02/04/27 23:09ID:???0979975
02/04/27 23:17ID:M0a39fTIすみません、無駄にしてしまいました。
どうせなので、私が次スレ立てさせて頂きますね。
0981nobodyさん
02/04/27 23:18ID:???http://pc.2ch.net/test/read.cgi/php/1019917048/
0982nobodyさん
02/04/27 23:19ID:???【Perl】初心者コーナー Part12
http://pc.2ch.net/test/read.cgi/php/1019917048/
0983975
02/04/27 23:21ID:M0a39fTI0984975
02/04/27 23:22ID:???レス数が950を超えています。1000を超えると書き込みができなくなります。