【Perl】初心者コーナー Part15
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/08/08 23:19ID:???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あたりを見よう。
0236nobodyさん
02/08/18 15:40ID:CpuDe273openでURLを指定してwhileでprintさせてみましたが
何も表示されませんでした。
もしできるのなら方法を教えてください。
0237nobodyさん
02/08/18 15:44ID:???http://ash.jp/perl/socket_http.htm
0238nobodyさん
02/08/18 15:56ID:QsLadsc+アプレットを、なんとかしてホームページで使いたいと考えています。
WaterPicというアプレットなのですが、
「classファイルが見つかりません」とステータスバーに表示されてしまい
必要なファイルはすべてサーバーにアップしたのですが、
うまく表示されません。
海外サイトなので、翻訳ツールなど使ってFAQを読んでみたり
自分なりに検索をしてみたのですが、どこを直せば良いのかわからず…。
どなたかご教授戴けますでしょうか。よろしくお願い致します。
参考サイト ttp://www.durius.com/index.php
0240nobodyさん
02/08/18 16:27ID:QsLadsc+0242nobodyさん
02/08/18 16:31ID:???ここ Javaアプレット のスレじゃなくて perl のスレですよん？
>>1 読んでます？
アプレットの設置で詰まってるならWeb製作管理板へどうぞ
☆ Webサイト制作初心者用スレッドver29 ☆
http://pc3.2ch.net/test/read.cgi/hp/1028459248/l50
0243nobodyさん
02/08/18 16:32ID:QsLadsc+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:R5t0PgRFhttp://www.ActiveState.com/ActivePerl/download.htm
↑ココから進んだ先で、DL出来ないんですが、
なぜでしょう？(Win の AS package)
どこか他でDL出来ないでしょうか？
0246nobodyさん
02/08/18 18:02ID:???http://downloads.activestate.com/ActivePerl/Windows/5.6/ActivePerl-5.6.1.633-MSWin32-x86.msi
0247+++
02/08/18 18:07ID:R5t0PgRF落ちてきます？
404なんですけど・・・。
0248+++
02/08/18 18:10ID:R5t0PgRF0249f
02/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:???alarmとevalを使えばよい。
http://www9.org1.com/~anach/memo/20020309.html
0252nobodyさん
02/08/18 21:56ID:???スクリプトのエラーがあると、err500とかになっちゃいますが、エラーの個所とか出せないんでしょうか？
前はIIS+ActivePerlだったんですが、そのときはエラーログが残ったんですが。。
0255nobodyさん
02/08/19 11:26ID:???use sigtrap;
use diagnostics;
use warnings;
0256nobodyさん
02/08/19 12:43ID:???CGI.pmを使ってフォームから
ENCTYPE="multipart/form-data" METHOD="POST"
としてCGIに送っているのですが、書き込みを中止させたときに
JavaScriptで書き込みのページに戻しているのですが（一から書き直させない為です）
「 警告 : ページの有効期限切れ 」
と、出てしまいます。
これはしょうがないのでしょうか？
CGI.pmを使わない普通の掲示板だと上手くいくのですが・・・。
0258nobodyさん
02/08/19 13:59ID:???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上の形式で保存されているログファイルの中にあるcの数をカウントするにはどうすれば良いのでしょうか？
0261259
02/08/19 17:08ID:???メモしておきます！！！！！！！
0263256
02/08/19 19:43ID:TnC/wrS+ヘッダーに入れてキャッシュを無くすものでしょうか？
自分では入れていないので、データを受取ってCGI.pmで
$query->param
しているのが原因でしょうか？
というか勝手にCGI.pmで処理されているのでしょうか？
0264nobodyさん
02/08/19 21:34ID:nf8Usneb「#」ってエスケープできないんでしょうか。
0265nobodyさん
02/08/19 21:45ID:DxRxf6Pvuse encoding "euc-jp";
してるときにURLエンコード・デコードってどうやるんでしょうか？
文字列がUNICODEになるせいか普通の方法だとできないです。
0267264
02/08/19 22:40ID:nf8Usnebええと、色コードの指定に使いたいんですけど、実体参照でも有効なんですか？
っていうのは板違いですかね。
調べてきます。
0268E04 ◆Ikb1Go..
02/08/19 22:50ID:gHSnDTPFログファイルに書き込まれた文字列を$capとして読み込み、
読み込んだ後に暗号化したいんですけど…
YY-Boardのcryptルーチンを転用させてもらったら、アクセスするごとに表示されるキャップが変わってしまいました。
どなたか、キャップ機能のルーチンを書いていただけたら光栄です。
0269E04 ◆Ikb1Go..
02/08/19 22:52ID:gHSnDTPF鬱じゃ
0270nobodyさん
02/08/20 10:21ID:mXpjYijiｺﾋﾟﾍﾟする人のために書くルーチンは在りません。
ｶｴﾚ。
http://pc.2ch.net/test/read.cgi/php/1003131529/375
0271E04
02/08/20 13:28ID:OO5Itufaマジかよ・・それ俺じゃないのになぁ（´Д｀;
ま、マルチじゃないのにマルチと決め付けられたり、自作自演と決め付けられるのも、
この板ならではだからシカタナイか。
0272nobodyさん
02/08/20 13:32ID:0fyshNrg$trip = substr( crypt($cap, $cap), -8 ) ;
0273270
02/08/20 13:45ID:UfVInuyuマルチは問題ではありません。
ていうか、そこまで出来るのであれば、
crypt
の動作を調べて自力で出来るはず。と思う。
ソレで出来なかったらソースを晒して下さい。
0274nobodyさん
02/08/20 14:03ID:???ダウンロードするときなどに、認証するようにしたいのですが
どのような処理を行えばいいでしょうか(;´Д`)
ヒントを頂けないでしょうか？
0275nobodyさん
02/08/20 14:12ID:???ダウンロードするときなどに、クッキーで認証する。
0276nobodyさん
02/08/20 14:48ID:???http://www.parkcity.ne.jp/~chaichan/qanda/qa3047.htm?02-08-20-14-46
0277nobodyさん
02/08/20 15:04ID:???プンプン
0278256
02/08/20 16:39ID:???>>262さん
原因がわかりました、一度投稿した後そのまま記事表示させ、
その後の投稿でエラーなどで、投稿が中断され戻ると、
警告が出てきていました。
ですので、書き込み処理の後にHTTP-EQUIV=Refreshで更新させ
たら、上手く行きました。
すいませんでした。
0279256
02/08/20 16:41ID:???その後の投稿が中断され、ブラウザの戻るボタンで戻ると
0280nobodyさん
02/08/20 22:43ID:EZdiVz9http://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は取れますけどね
0282280
02/08/20 23:25ID:EZdiVz9hすみません。オークショントップは繋がりました。
（さっきはできなかったのに）
rating.auctions.yahoo.co.jp/jp/show/rating?userID=nakatax2002&filter=-1
こっちアドレスだと「通信が確立できませんでした」が出るんですが
なぜでしょうか？
0283nobodyさん
02/08/21 00:24ID:???0284nobodyさん
02/08/21 00:49ID:???フォームから受け取った変数に文字列が何も入ってない場合の
処理をしたいのですがどうすれば良いでしょうか？
if($hensu==null){}
if($hensu==""){}
この二つを試してみたんですが駄目でした。
0285nobodyさん
02/08/21 01:23ID:???0287nobodyさん
02/08/21 08:52ID:wr41ngxxちゃんと動作してるcgiを(無意味ですがうっかり)書き換えなしに
上書きアップロードしたら動作しなくなってしまいました。
なぜなんでしょうか？サーバー側には問題ないようなんですが・・・
0289nobodyさん
02/08/21 09:59ID:???「書き換えなしに」というのが嘘っぱちか.
0290送料
02/08/21 10:12ID:piy6swDN送料が表示されるというもの。
前提１ プルダウンのvalueは漢字で北海道…
前提２ 料金は別ファイルに記述 hokkaido=790…
で、次のようにしたのですが、
@pref = ("北海道","青森県","秋田県","岩手県"…）;
@price = ($hokkaido,$aomori,$akita,$iwate…);
$inx=0;
foreach $pref (@pref) {
if (index ($pref,$form_data{'pref'})>= 0) {
last;
}
$inx++;
}
$soryo = $price[$inx];
誰か、もっといい方法、教えてください。
0291名も無き冒険者
02/08/21 10:33ID:???実はこんな事が出来るCGIが無いかと探しています。
定期的に特定のサーバーへpingを打ちその結果を表示する。
※イメージ的にはMRTGでpingの応答時間をグラフ化した感じ
出来たら、グラフ表示で過去ログを見えるとベストですが、共有サーバー上なので
勝手な設定やソフトを導入出来ない為に諦めています。
目的は、あるサーバーへの応答時間（経路またサーバー負荷かによる原因は区別しない）
を、監視するサイトを作る為です。
表示の度に実行するタイプとcronで５分間隔程度で実行するタイプのどちらかを探しています。
かなり探したつもりですが、見つける事が出来ませんでした、
ここのエロい方々なら知っているのではないかと思い書き込んでいます。
どうか、おながいします。
0292nobodyさん
02/08/21 11:16ID:???$DATA{'hokkaido'} = "hokkaido,北海道,十円";
$DATA{'aomori'} = "aomori,青森,百円";
$soryo = (split(/\,/, $DATA{$form_data{'pref'}}))[2];
とか？
いや、もっといい方法あると思うけど。ケースバイケースで。
0293nobodyさん
02/08/21 11:20ID:???http://pc.2ch.net/test/read.cgi/php/1021897804/l50
何故、エロいと判った！？
0295
02/08/21 21:17ID:koSJYhB+レンタルのカウンター使いたいんです。
でもＨＰにタグを挿入とか意味が分からない
どうやるんですか？？
0296送料
02/08/21 21:18ID:piy6swDNレスありがとう。
$form_data{'pref'}は、北海道とか、青森とか
漢字が入ります。が、大丈夫ですよね。
試してみます。
0297nobodyさん
02/08/21 21:22ID:NuztNbpZリスト作っとくだけで出せるだろ。
%pref =(
'北海道',"$hokkaido",
'青森件',"$aomori",
'秋田県',"$akita",
'岩手県',"$iwate",
);
$soryo = "$pref{$form_data{'pref'}}";
0299nobodyさん
02/08/21 21:54ID:???次のページへ移動する時にログファイルの行数で判断しようと思っています。
下の方法だと、行数のためにログを開くのがかなり無駄に思えるのですが
ｱﾌｫなので良い方法が見つかりません。ﾋﾝﾄをご教授して頂けませんか？
$page は1ページの表示数です
open(LOG,$log)
@lines = <LOG>;$lines=@lines;close(LOG);
$end = $page + $now_no;
if ($end < $lines) {$next = "bbs.cgi?～";}
else {$next = "";}
open(IN,$skin); $locate = \@header;
while(<IN>){
if (/<!--start-->/) { $locate = \@table; next; }
if (/<!--end-->/) { $locate = \@footer; next; }
push(@$locate,$_); }
close(IN);
print @header;
open(LOG,$log);
while(<LOG>){print $table;}
close(LOG);
print @footer;
一部省略しているので、分かりにくいかも知れませんが・・・
0301nobodyさん
02/08/21 22:29ID:???よくわかんないけど。
print @header;
print @lines;
print @footer;
じゃﾀﾞﾒﾎﾟ？
0302送料
02/08/21 22:39ID:piy6swDNレスありがとう。これで、やってみたらできますた。
深く感謝。
これって、'北海道',"$hokkaido", でセットになっているんですか？
北海道の場所がわかると、その横の変数が表示できるということ？
0303nobodyさん
02/08/21 22:40ID:???それじゃ、ダメなんですよ。ｽﾏｿ
open(LOG,$log)
@lines = <LOG>;$lines=@lines;close(LOG);
この処理はなくてもいいんですが、
記事が無くなっても、次のページへと言うのが
残ってしまうんです
0304297
02/08/21 22:55ID:NuztNbpZハッシュについて調べてみ。
%hoge("キー","値");
$hoge{キー}で値が呼べる。
0305 ◆RbZL6NeQ
02/08/21 23:13ID:myM0YIeg各タグ、延々と同じようなことを繰り返す
もっとマシな書き方(効率・処理etc)ないでつか？
#####<HTML></HTML>#####
#$agent=[i=0/j=1/Ez=2/...]
sub html{
my($temp)=@_;
if(@$temp==2 && $$temp[1] eq 'tag_close'){
if($$temp[0]!=2){print '</HTML>'}else{print '</HDML>'}
}
else{
if($$temp[0]!=2){print '<HTML>'}
else{print '<HDML VERSION=3.0';
if(@$temp>1){
@text=('TTL','MARKABLE','PUBLIC','ACCESSDOMAIN','ACCESSPATH');
foreach(1..@$temp-1){
unless($$temp[$_] eq 'N'){print ' '.$text[$_-1].'='.$$temp[$_]}
}
}print '>'}}
}
@_=($agent,...)
ライブラリのわりに、コピペして'1;'忘れ
0307nobodyさん
02/08/21 23:26ID:???0308nobodyさん
02/08/21 23:29ID:???;# がよくて # が悪い？？？？？
0309nobodyさん
02/08/21 23:37ID:???0310_gunzip
02/08/21 23:54ID:???;# コメント
の形式のコメントが、たまに使われることがあるのは、
そのスクリプトが -P オプションでCプリプロセッサに前処理させることを前提としている場合、
#コメント がプリプロセッサディレクティブと誤認されないようにするため。
もっとも、jcode.plはそうではないが。
0311nobodyさん
02/08/22 00:06ID:???とりあえず本物かどうか知らんがトリップぐらいしようね。
名前欄に_gunzip#hogehogeってやるんだよ
>>もっとも、jcode.plはそうではないが。
じゃああれはなんとなくってこと？
0312_gunzip ◆/Re6aTC.
02/08/22 00:11ID:???0313nobodyさん
02/08/22 00:11ID:SxBa3EGu0314nobodyさん
02/08/22 00:13ID:SxBa3EGu0315305 ◆Eth6qXuM
02/08/22 00:15ID:F/orcdTEｽﾏｿ、何も考えず適当に入れてた
最強なのか…一応変えとく
0316_gunzip ◆H/XdoCNg
02/08/22 00:33ID:???作者ではないので真意は分からないが、スタイルでそうしているだけだと思う。
#トリップ御教示ありがとう。
0317nobodyさん
02/08/22 01:03ID:???こいつ鬱陶しすぎ
マジむかつく
0319nobodyさん
02/08/22 01:26ID:lGXorje/ほれ 糞用のスレ立ててやったから
こっちに来い
http://pc.2ch.net/test/read.cgi/php/1029945604/l50
もう来てるみたいだけどな （ｗ
0321nobodyさん
02/08/22 01:41ID:lGXorje/糞頭じゃ足りない事が、人間には沢山有るんでね
0323nobodyさん
02/08/22 12:42ID:C0K12SytKENT WEBの宅鯖計画を見ながらソフトのインストールを試みたんだけど
Active Perlのインストール中に警告ダイアログが出て
どうしてもうまくいきません。
うまくやる方法をうまく教えてください。
0324nobodyさん
02/08/22 12:43ID:???0325323
02/08/22 14:34ID:C0K12Syt警告文は
"There is a problem with this Windows Installer package.
A script required for this install to complete could not be run.
Contact your support personal package vender."
です。
0326nobodyさん
02/08/22 14:41ID:???0327323
02/08/22 16:01ID:C0K12Syt出直してきます。
お手数をお掛けして申し訳ありませんでした（逝）
0328nobodyさん
02/08/22 16:28ID:???Windows Installer 2.0 for Windows 2000 and Windows NT 4.0
http://www.microsoft.com/downloads/release.asp?ReleaseID=32832
http://download.microsoft.com/download/WindowsInstaller/Install/2.0/NT45/EN-US/InstMsiW.exe
Windows Installer 2.0 for Windows ME, Windows 98 Second Edition, Windows 98, and Windows 95
http://www.microsoft.com/downloads/release.asp?ReleaseID=32831
http://download.microsoft.com/download/WindowsInstaller/Install/2.0/W9XMe/EN-US/InstMsiA.exe
0330初必者
02/08/22 21:52ID:???↓これおかしいですか？動かんようになったんです。
##############################################
#リピート部分プログラム
sub output {
#mail入力の有無
if ($email eq '') {
print "$name : ";
}
else {
print "<A href="mailto:$email">$name</A> : ";
}
#メッセージの表示
print "$msg";
}
###############################################
コレだけやったら「ワケワカラン」ですかねぇ・・・
0331nobodyさん
02/08/22 21:56ID:???if ($email eq ''") { <=（。∀゜）「"じゃなくて""じゃないの？」
print "$name : ";
}
else {
0332nobodyさん
02/08/22 21:57ID:???print "<A href=\"mailto:$email\">$name<\/A> : ";
0334初必者
02/08/22 22:03ID:???超初歩的でしたね（スイマセン・・・）
１時間悩んだのが、５分ほどでいけました。
何やってたんだろ・・・
どもでした！
0335nobodyさん
02/08/22 23:05ID:???""のなかに"が入る場合は\でエスケープするよりも、
print "<A href=\"mailto:$email\">$name<\/A> : ";
↓
print qq(<A href="mailto:$email">$name<\/A> : );
で書くほうがすっきりするよ。
0336初必者
02/08/23 00:25ID:???おっ！そんな方法もあるんですね。
参考になります。
なんせ、実質昨日から始めたみたいなモンなんで・・・
もう、お世話にならなくて済むようにガンバリマス。
ありが㌧でした。
■ このスレッドは過去ログ倉庫に格納されています