トップページ⇒php
1001コメント308KB

【Perl】初心者コーナー Part15

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/08/08 23:19ID:???
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0183アップローダを作り隊02/08/15 20:17ID:OdAnllx3
>>180
http://ruffnex.oc.to/ipusiron/upload/1171.zip
↑一応ゆいのーとを使っているサイトにソースをアップしました。
最低限設定する必要がある部分など指摘していただけたら、と。
0184アップローダを作り隊 02/08/15 20:17ID:OdAnllx3
>>181ですた。
0185nobodyさん02/08/15 20:49ID:???
>>184
ちゃんと動くよ？(^^;
$url = 'http://www.hoge.com/~hoge/up/source.cgi';
$storeurl = 'http://www.hoge.com/~hoge/up/source/';
$counter_enable = 0;
source.cgi(755)とsourcelog.txt(777)とsource/(777)を置いてパーミッションを適当に。
妙な制限掛かってるんじゃない？
0186アップローダを作り隊02/08/15 20:57ID:OdAnllx3
>>185
そ。。。そうなんですか？
ちなみにスペース借りてるサーバーがWindows2000なんですが、
それも関係あるんでしょうか？
文字化けも激しいのですが。。。
0187nobodyさん02/08/15 21:08ID:???
win2k にも binmode() って必要なのかな？
0188nobodyさん02/08/15 21:23ID:???
>>186
それを先に言(以下略
unixを想定して作られてるんだろうからunixで使えば？
0189アップローダを作り隊 02/08/15 21:24ID:OdAnllx3
http://ruffnex.oc.to/ipusiron/upload/1172.gif
一応、いくつかファイルをアップした時の状態のものを晒しておきます。
何かこれからわかることがあったらよろしくです。
0190アップローダを作り隊 02/08/15 21:29ID:OdAnllx3
>>188
もともとソースファイルを参考にして自分で作ろうと思ってるので、
できれば>>183のソースファイルの何行目あたりが大事だぞ、とかだけでも言っていただけないでしょか？
ほんと聞いてばかりですみませんです。
0191nobodyさん02/08/15 23:55ID:???
>>190
binmode()は検討した？
0192nobodyさん02/08/16 00:02ID:???
携帯で画像をアップロードする方法を教えてください。
0193アップローダを作り隊02/08/16 00:09ID:kDsvONdE
>>191
今ソースファイルをわかり易く？まとめてるので、
binmodeを使うべきところがわかったら試してみようと思ってます。
使い方はわかったのですが、今までbinmodeというのは知らなかったので。。。
0194nobodyさん02/08/16 01:13ID:???
cgi-lib.plライブラリを使った方が早いんじゃないの。
CGI.pmでもいいけど。
0195nobodyさん02/08/16 14:48ID:???
質問を眺めていると、デリミタに<>を使っているものが多いんだけど、これは何でで
しょうか。普通:じゃないですか?
0196nobodyさん02/08/16 15:42ID:???
>>195
そんな既出ネタ書いて気分がいいのか？
0197nobodyさん02/08/16 16:37ID:???
>>196
厨房は書き込まないでね
0198nobodyさん02/08/16 17:45ID:gz1h7SNU
>>195
:をエスケープしないで済むからだとおもわれ。
タグを許可しなければ<>が入力されてくることはないので都合がよい。
0199nobodyさん02/08/16 18:53ID:???
おれは \t だなぁ。
ていうかこれが普通だと思いこんでいたけど。
0200nobodyさん02/08/16 20:57ID:???
ふつー\0でしょう
セパレータに2バイトも使うとは愚の骨頂ですね
\t　??　はつみみです
0201アップローダを作り隊=19302/08/17 04:09ID:17AkwzDg
ソースファイルを何度も変えて試したのですが結局うまくいかず、
それならばと、書店に行って「大人のCGIスクリプト」という本を買って
そこに出ている「ホームページにファイルをアップロードする」というところを
参考にしました。
それで、とりあえず本に載っているソースをそのまま書いて試したのですが、
うまくいきません。…つД｀）
もうどうしていいのかわからないのですが、
本に載ってたものをそのまま書いたソースファイルをアップしておきましたので、
もし見て何かわかることがありましたら、どうかお願いします。
http://ruffnex.oc.to/ipusiron/upload/1178.zip

状態として、CGI自体はエラーもなしに動くのですが、
ファイルがまったくアップロードされません。
1バイトもファイルが作られないので、何か決定的な間違えがあると思うのですが。。。
あと32行目当たりのコメントの後ろに「$bound =~ s/…」とあるのですが、（本がその通りに書いてあったので）
これは本来コメント部分なのか、それとも間違えてコメントの部分に書かれたものなのかがよくわかりません。
0202アップローダを作り隊=19302/08/17 04:12ID:17AkwzDg
付け足しなのですが、
本には”アップロードされたファイルは「./filepost/」というディレクトリに保存される。”
と書かれたありました。
0203nobodyさん02/08/17 09:27ID:???
「./filepost/」がパーミッション間違えてたりしてナ。
0204アップローダを作り隊02/08/17 10:12ID:17AkwzDg
>>203
パーミッションは755ではダメですか？
CGIスクリプトからの書き込みとパーミッションって関係ないと思ってたのですが。。。
あと、前述したのですがNTサーバーなのでパーミッションが変更できないのです。
（NTサーバーだから変更できないわけじゃないかもしれませんが、借りてる鯖は変更できません）
やっぱりパーミッションは777がいいのでしょうか？
020519502/08/17 13:13ID:???
なるほど。漏れはCGIじゃなくて普通にUNIX鯖でperlアプリを書いているので、
CGIの流儀には詳しくないんだ。スマソ。
0206nobodyさん02/08/17 13:20ID:???
>>204
>> パーミッションは755ではダメですか？
>> CGIスクリプトからの書き込みとパーミッションって関係ないと思ってたのですが

ええと、不特定の人がファイルをうpするんですよね。うp = 書きこみですから、
ファイルを保存するディレクトリに誰でも書きこめるようにしておかないと駄目です
よ。755なら所有者しか書きこめません。
って、これはUNIX鯖の話で、NTのことは分かりません。でもパーミッションが変更で
きなかったら使いものにならないような気がしますが...
0207nobodyさん02/08/17 14:19ID:???
if ($ENV{'REQUESTMETHOD'} eq "POST"){

まずはここから　⇒　REQUEST_METHOD
0208２０７02/08/17 14:28ID:???
sub fileget{
    if ($ENV{'CONTENT_LENGTH'} > 5050000){exit;}
    binmode(STDIN);  # 追加
    #ファイル名、区切り文字「バウンダリ」の取得
    while (<STDIN>){
0209２０７02/08/17 14:30ID:???
    if (open(OUT, "> ./$fname")){
        binmode(OUT);  # 追加
0210nobodyさん02/08/17 16:09ID:???
連続した番号（例えば1から100まで）を
ランダムに並び換えて（シャッフルして）出力するにはどうすればいいですか？
0211nobodyさん02/08/17 17:01ID:???
>>210
>>5
0212アップローダを作れ隊02/08/17 17:34ID:17AkwzDg
>>207
で、で、で。。。できますた〜。つД｀）
if ($ENV{'REQUESTMETHOD'} eq "POST")のところは
後で自分で気付いて「バカだな〜」と思ったのですが、
それ直しても全然できなくて。。。
バウンダリというものが、検索かけてもいまいちイメージがわかないのですが、
きっとそのうち自分で勉強して理解できるようになります！
本当にわざわざソース見て、指摘してくださってありがとうございます。
二日間ほとんど寝ずに頑張った甲斐がありました。
いつか初心者コーナーで答えられるようになって帰ってきます。
本当にありがとうございました。

>>206
NT鯖がどうなのかよくわからなかったのですが、
パーミッション755で無事アップロードできました。
そもそもパーミッションってあるのかな？っと思いました。
0213nobodyさん02/08/17 17:42ID:???
>二日間ほとんど寝ずに頑張った
案外、これが重要だったりする。
0214？？？02/08/17 18:07ID:mpsXRrac
本当の初心者なんですが、
サイトなどを見ながら、cgiの勉強しはじめたんです。

で、何か、perlを落として来いって書いてるんですけど、
perlをダウンロードしようと思ったら、
xpのところが「No additional requirements」って書いてて、
落とせないんですが、
どれを落とせばいいのでしょうか？
0215？？？02/08/17 18:10ID:mpsXRrac
あ、私のosが、xpなんですね。
んで、落とそうとしたサイトが、
有名なんでしょうが、一応書いとくと、
http://www.activestate.com/Products/Download/Get.plex?id=ActivePerl&_x=1
です。。。
0216nobodyさん02/08/17 18:16ID:Jdg3+PCY
http://hiero_pl.tripod.co.jp/
よし↑とりあえずこれいれろ5.8な、


、、んでだActivePerlのそれはインストーラーがうまくいかないOSは
パッチあててねって意味。2000/XPには必要ねーよってこと
0217nobodyさん02/08/17 18:20ID:???
http://www.activestate.com/Products/Download/Register.plex?id=ActivePerl
↑、どこでダウソするんだろうな？
有名も糞もなにもここにいるWin厨はみんなActivePerlだろう。
最近はネトランも付録CDにつけてるからな〜そういうのはいいんだがあの雑誌は
0218？？？02/08/17 18:25ID:???
あー！解りました！
アフォ過ぎだったんですね。
優しく教えていただき有難うございました！
0219nobodyさん02/08/17 20:03ID:fKAF/2/W
すみません、どなた教えてください。
PERLってパラメータ（変数）渡してファイル実行、てできないんでつか。

cgiページで別のcgi呼ぶのに

require 'XXX.cgi';

とやればいいのは分かるんですが、変数渡して実行するやり方が
分かりません。
0220nobodyさん02/08/17 20:38ID:???
>>219
グローバル変数はそのままサブに引き継がれるが・・・
難しいか？

====================
本スクリプト

$aa = 1;
$bb = 2;

require 'XXX.cgi';
&XXX;

====================
XXX.cgiの内容

sub XXX {
　$cc = $aa + $bb;
　print "$aa + $bb = $cc";
} 1;

====================
0221nobodyさん02/08/17 20:43ID:???
こういう方法もあるな

====================
本スクリプト

require 'XXX.cgi';
&XXX(1,2);

====================
XXX.cgiの内容

sub XXX {

　$aa = $_[0];
　$bb = $_[1];
　$cc = $aa + $bb;
　print "$aa + $bb = $cc";
} 1;

====================
0222nobodyさん02/08/17 21:02ID:???
>220-221
分かりました！ありがとうございます、やってみます。
0223nobodyさん02/08/17 21:08ID:???
最後の
} 1;
ってどういう意味があるのですか？
0224　02/08/17 21:13ID:???
>>223
このパッケージ関数の仕事は正常に終わったよ(ﾟДﾟ)､ﾍﾟｯ　　って意味。
0225 ◆4XfSMGTg 02/08/17 22:26ID:???
糞どもしねや
0226 ◆4XfSMGTg 02/08/17 22:45ID:???
#kusokote
まったくだ。CGIの話はして欲しくないな。
0227 ◆4XfSMGTg 02/08/17 22:46ID:???
低レベルなスレッドだな。ぷっ
0228nobodyさん02/08/17 22:47ID:???
>224-225
（ ゜д゜）ﾎﾟｶｰﾝ
0229nobodyさん02/08/17 22:48ID:???
>224ｽﾏｿ
>225-227
ﾀｲﾑ（ ゜д゜）ﾎﾟｶｰﾝ
0230 ◆4XfSMGTg 02/08/17 22:52ID:???
悔しかったらParrotの話でもしてみせろよ。糞ども
0231 ◆4XfSMGTg 02/08/17 22:53ID:???
ここにいる連中のレベルは底が知れているな。
0232 ◆4XfSMGTg 02/08/17 22:53ID:???
まったくだ。CGIの話はして欲しくないな。
0233 ◆4XfSMGTg 02/08/17 22:55ID:???
俺みたいにexeを生み出して見ろや。腐れ低脳どもが。
0234 ◆4XfSMGTg 02/08/17 22:58ID:???
まったくだ。俺はこのスレはもう立てるなってpart14で叫んだのに、、、（泣
0235nobodyさん02/08/17 23:32ID:???
>>233
exeを生み出して・・・・。
なんかカッコいい！！




























わけないジャン。
0236nobodyさん02/08/18 15:40ID:CpuDe273
perlでyahoo等のページを読み込のは無理ですか？
openでURLを指定してwhileでprintさせてみましたが
何も表示されませんでした。
もしできるのなら方法を教えてください。
0237nobodyさん02/08/18 15:44ID:???
>>236
http://ash.jp/perl/socket_http.htm
0238nobodyさん02/08/18 15:56ID:QsLadsc+
JAVAスクリプトで、Duriusというサイトからダウンロードした
アプレットを、なんとかしてホームページで使いたいと考えています。
WaterPicというアプレットなのですが、
「classファイルが見つかりません」とステータスバーに表示されてしまい
必要なファイルはすべてサーバーにアップしたのですが、
うまく表示されません。
海外サイトなので、翻訳ツールなど使ってFAQを読んでみたり
自分なりに検索をしてみたのですが、どこを直せば良いのかわからず…。
どなたかご教授戴けますでしょうか。よろしくお願い致します。

参考サイト　ttp://www.durius.com/index.php
0239nobodyさん02/08/18 16:17ID:???
>>238
おもしろーーーーーーーーーーーーーーーい！
0240nobodyさん02/08/18 16:27ID:QsLadsc+
設置できないのですよぅ…。とほほ。
024123602/08/18 16:28ID:???
>>237 サンキュー！
0242nobodyさん02/08/18 16:31ID:???
>>240
ここ Javaアプレット のスレじゃなくて perl のスレですよん？
>>1 読んでます？
アプレットの設置で詰まってるならWeb製作管理板へどうぞ

☆ Webサイト制作初心者用スレッドver29 ☆
http://pc3.2ch.net/test/read.cgi/hp/1028459248/l50
0243nobodyさん02/08/18 16:32ID:QsLadsc+
242さん、ありがとうございます。
0244nobodyさん02/08/18 17:42ID:iuSsoGyA
ソケットの接続をするために下のようなコードを書いたのですが
戻り値を得るのに時間がかかった時のために、タイムアウト時間を
指定する方法はないのでしょうか？
unless (connect SOCKET, $sockaddr) {
warn "don't connect $host:$port $!";
return 0;
}

一定時間後に別プロセスからシグナルを受け取ると、connect関数の
戻り値が得られていなくても次の動作にうつる、という方法も考えた
のですがもっと簡単な方法があれば教えてください。
0245+++02/08/18 18:00ID:R5t0PgRF
ActivePerlが、
http://www.ActiveState.com/ActivePerl/download.htm
↑ココから進んだ先で、DL出来ないんですが、
なぜでしょう？(Win の AS package)
どこか他でDL出来ないでしょうか？
0246nobodyさん02/08/18 18:02ID:???
MSIの方でいいんでないの？
http://downloads.activestate.com/ActivePerl/Windows/5.6/ActivePerl-5.6.1.633-MSWin32-x86.msi
0247+++02/08/18 18:07ID:R5t0PgRF
>>246
落ちてきます？
404なんですけど・・・。
0248+++02/08/18 18:10ID:R5t0PgRF
あ、サーバが見つかりませんでした。・・・なんですけど。
0249f02/08/18 18:25ID:zqX/Ef2t
-------風俗の総合商社・ＭＴＴどこでも-------

〇デートクラブ〇女性専用ホストクラブ〇
〇ハードＳＭ奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種！
●楽しく遊べます！　090-8002-8356番
-----------美男・美女会員など多数在籍中-----------
　 http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入（日払い）月100万円可能-----
-----レズビアン・スタッフ●ホモスタッフ●女性専用ホストスタッフ同募-----
http://www.mttdocomo.jp/
------------------------------------------------

0250+++02/08/18 19:21ID:???
お！今行ったら、落ちてきました！
メンテかなんかだったんでしょうかね？
とにかく、解決しました。スレ汚しスマソ。
0251nobodyさん02/08/18 20:15ID:???
>>244
alarmとevalを使えばよい。
http://www9.org1.com/~anach/memo/20020309.html
0252nobodyさん02/08/18 21:56ID:???
Win2K+Apache+ActivePerlの環境です。
スクリプトのエラーがあると、err500とかになっちゃいますが、エラーの個所とか出せないんでしょうか？
前はIIS+ActivePerlだったんですが、そのときはエラーログが残ったんですが。。
0253nobodyさん02/08/18 22:43ID:???
>>252
perl単体で起動できないの？
0254nobodyさん02/08/19 09:07ID:???
>>252
perl -cw filename
0255nobodyさん02/08/19 11:26ID:???
use Carp;
use sigtrap;
use diagnostics;
use warnings;
0256nobodyさん02/08/19 12:43ID:???
スイマセン、画像UP掲示板を作っていまして
CGI.pmを使ってフォームから
ENCTYPE="multipart/form-data" METHOD="POST"
としてCGIに送っているのですが、書き込みを中止させたときに
JavaScriptで書き込みのページに戻しているのですが（一から書き直させない為です）
「　警告 : ページの有効期限切れ　」
と、出てしまいます。
これはしょうがないのでしょうか？

CGI.pmを使わない普通の掲示板だと上手くいくのですが・・・。
0257nobodyさん02/08/19 13:38ID:???
>>251
自分で考えたものより簡単そうなので試してみます。
ありがとうございました。
0258nobodyさん02/08/19 13:59ID:???
>>244

IO::Socket の connect()メソッドのコードを見よ。
ってかIO::Socket::INET使え。

$sock = IO::Socket::INET->new(
　　PeerAddr => $host,
　　PeerPort => $port,
　　Proto => 'tcp',
　　Timeout => 60,
);
0259nobodyさん02/08/19 17:00ID:1kKCbwDN
a<>b<>cccccccccccccccccccceeeeee
上の形式で保存されているログファイルの中にあるcの数をカウントするにはどうすれば良いのでしょうか？
0260nobodyさん02/08/19 17:06ID:???
>>259
上にあったぞ
$count には $log の変換個数が入る。

$count = $log =~ s/c/c/g;
026125902/08/19 17:08ID:???
ありがとうございます！
メモしておきます！！！！！！！
0262nobodyさん02/08/19 17:49ID:???
>>256
Pragma:no-cacheとか吐いてるんじゃ無いの？
026325602/08/19 19:43ID:TnC/wrS+
Pragma:no-cacheの事が分らなかったので今急いで調べましたが
ヘッダーに入れてキャッシュを無くすものでしょうか？

自分では入れていないので、データを受取ってCGI.pmで
$query->param
しているのが原因でしょうか？
というか勝手にCGI.pmで処理されているのでしょうか？
0264nobodyさん02/08/19 21:34ID:nf8Usneb
可能な限りHTML的に正しいコードを吐き出したいんですけど、
「#」ってエスケープできないんでしょうか。
0265nobodyさん02/08/19 21:45ID:DxRxf6Pv
Perl5.8.0で
　use encoding "euc-jp";
してるときにURLエンコード・デコードってどうやるんでしょうか？
文字列がUNICODEになるせいか普通の方法だとできないです。
0266nobodyさん02/08/19 22:16ID:???
>>264
HTMLなら実体参照でもいいんじゃないか。
026726402/08/19 22:40ID:nf8Usneb
>>266さん
ええと、色コードの指定に使いたいんですけど、実体参照でも有効なんですか？
っていうのは板違いですかね。
調べてきます。
0268E04 ◆Ikb1Go.. 02/08/19 22:50ID:gHSnDTPF
掲示板に2ch掲示板のようなキャップ機能をつけたいと思っています。

ログファイルに書き込まれた文字列を$capとして読み込み、
読み込んだ後に暗号化したいんですけど…

YY-Boardのcryptルーチンを転用させてもらったら、アクセスするごとに表示されるキャップが変わってしまいました。
どなたか、キャップ機能のルーチンを書いていただけたら光栄です。
0269E04 ◆Ikb1Go.. 02/08/19 22:52ID:gHSnDTPF
すみませんキャップじゃなくてトリップですた
鬱じゃ
0270nobodyさん02/08/20 10:21ID:mXpjYiji
>>268
ｺﾋﾟﾍﾟする人のために書くルーチンは在りません。
ｶｴﾚ。
http://pc.2ch.net/test/read.cgi/php/1003131529/375
0271E0402/08/20 13:28ID:OO5Itufa
>>270
マジかよ・・それ俺じゃないのになぁ（´Д｀;
ま、マルチじゃないのにマルチと決め付けられたり、自作自演と決め付けられるのも、
この板ならではだからシカタナイか。
0272nobodyさん02/08/20 13:32ID:0fyshNrg
んじゃ
$trip = substr( crypt($cap, $cap), -8 ) ;
027327002/08/20 13:45ID:UfVInuyu
>>271
マルチは問題ではありません。
ていうか、そこまで出来るのであれば、
crypt
の動作を調べて自力で出来るはず。と思う。
ソレで出来なかったらソースを晒して下さい。
0274nobodyさん02/08/20 14:03ID:???
ログインをしたら、クッキーを食べさせて
ダウンロードするときなどに、認証するようにしたいのですが
どのような処理を行えばいいでしょうか(;´Д`)

ヒントを頂けないでしょうか？
0275nobodyさん02/08/20 14:12ID:???
ログイン時にクッキーを発行。
ダウンロードするときなどに、クッキーで認証する。
0276nobodyさん02/08/20 14:48ID:???
>>268
http://www.parkcity.ne.jp/~chaichan/qanda/qa3047.htm?02-08-20-14-46
0277nobodyさん02/08/20 15:04ID:???
やっぱりマルチやんか。
プンプン
027825602/08/20 16:39ID:???
亀レスですが・・・。
>>262さん
原因がわかりました、一度投稿した後そのまま記事表示させ、
その後の投稿でエラーなどで、投稿が中断され戻ると、
警告が出てきていました。

ですので、書き込み処理の後にHTTP-EQUIV=Refreshで更新させ
たら、上手く行きました。
すいませんでした。
027925602/08/20 16:41ID:???
×その後の投稿でエラーなどで、投稿が中断され戻ると
　その後の投稿が中断され、ブラウザの戻るボタンで戻ると
0280nobodyさん02/08/20 22:43ID:EZdiVz9h
perlでのWebページ表示について質問です。

ttp://books-support.softbank.co.jp/pq/backnumber/012_ans_reader.html
この例のwebアドレス部分をauctions.yahoo.co.jpに置き換えると
とうまくいかないのはなぜですか？
www.yahoo.co.jpだとうまくいくんですが。
0281nobodyさん02/08/20 22:59ID:???
旨くいかない？　上手くいかない？　美味くいかない？　美味く逝かない？
HTMLは取れますけどね
028228002/08/20 23:25ID:EZdiVz9h
>>281
すみません。オークショントップは繋がりました。
（さっきはできなかったのに）

rating.auctions.yahoo.co.jp/jp/show/rating?userID=nakatax2002&filter=-1
こっちアドレスだと「通信が確立できませんでした」が出るんですが
なぜでしょうか？
■ このスレッドは過去ログ倉庫に格納されています