Perl コーディング初心者質問コーナー Part27
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/08/14 06:06ID:xOc/6R60【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0182nobodyさん
03/08/17 20:58ID:qWovZd+9まぁまぁ、そう自己紹介しなさんな。
0184nobodyさん
03/08/17 23:06ID:???require './cgi-lib.pl';
%form = &read_input('euc');
$name = $form{'name'};
print "Content-type: text/html\n\n";
print "<html><head><title>結果</title></head><body>\n";
print "<p>名前：$name</p>\n";
print "</body></html>\n";
↑のようなスクリプト作ってANHTTPDを起動し、
実行しようとしても「サーバーがみつかりません」が表示されます。
何がいけないんでしょうか？
0185nobodyさん
03/08/17 23:06ID:???日本語で解説してある際とがぜんぜんないもんで。
use IO::File;
my $fh = new IO::File('log.dat','r'); #読み込み
my $fh = new IO::File('log.dat','w'); #書き込み
my $fh = new IO::File('log.dat','r+w'); #両方
などでオープンできるとこまではわかったんだが、
このファイルから全部読み込む場合にはどうしたらいい？
my @array = $fh->read; ← こんな感じでよいのかい？
あと、書き込むときは
$fh->print('文字列');
で、可能みたいなんだが、英語が四面からわからん。
0186nobodyさん
03/08/17 23:18ID:???perlコーディングとは「全く」関係無いですね。そのエラーから「推測」すると、
あなたのクライアントからサーバーが見れていないようです
0187nobodyさん
03/08/17 23:20ID:???こんな事言う様じゃ解答する気になれないな。
これを機会に読めるように辞書片手に必死こいて読んで見たら？
解答者の中にはそうやってスキルとか知識身につけてる人もいるんだから
0190139
03/08/18 00:10ID:???仕事でパッケージ化するかもしれないといわれたので、
完全オリジナルでなかったら何かと問題が出るかと思い、
質問させていただきました。
もともとは趣味で作ってたものなので。
標準モジュールは使っても問題ないのでしょうかねぇ、、、
0194nobodyさん
03/08/18 01:32ID:???できねーっていってんだろ！馬鹿！！
おまえみたいなよく読まない奴は、うざいからさ。とっととどっか行ってくれない？
まじに迷惑なの、わかんない？？
0195あぼーん
NGNG0196あぼーん
NGNG0197あぼーん
NGNG0198あぼーん
NGNG0199あぼーん
NGNG0200あぼーん
NGNG0201あぼーん
NGNG0202あぼーん
NGNG0204nobodyさん
03/08/18 05:42ID:???0205nobodyさん
03/08/18 06:19ID:???日付のチェックを行う便利なライブラリがあったので
インストールしたんですが、なぜか使えません。
my $date = new Date::Simple(1999,12,31);
を実行すると
Undefined subroutine
というエラーが出ます。new関数が定義されてないとか言われ増す。ためしに
print $Date::Simple::VERSION;
とやってみたら、ただしく 1.03 と表示されたので、
ライブラリのパスが間違っているとかそういうことはないと思うんですが、
どうやったら使えます？
0207nobodyさん
03/08/18 09:38ID:???TCPクライアントなら必要なし。
http://www.kt.rim.or.jp/~ksk/sock-faq/unix-socket-faq-ja-3.html#ss3.6
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlipc.html#Internet_TCP_Clients_and_Servers
0208nobodyさん
03/08/18 11:11ID:rz7xuT5aif($ran==6)
だと６の時という事ですが、
６以外と指定するのはどう書くんですか？
0209nobodyさん
03/08/18 11:12ID:???http://www5a.biglobe.ne.jp/~n_rieko/perl/5.htm
0210nobodyさん
03/08/18 11:31ID:???エラーの原因はそれだけでは分からんが、
Date::Simple の最新版は 2.04 だね。
http://search.cpan.org/author/JTOBEY/Date-Simple-2.04/
0211nobodyさん
03/08/18 12:12ID:WxMQyRS0スクリプト１個でblogを作るスレ
http://s37.1000gex.net/test/read.php/pc/1061132998/
・２ｃｈブラウザはこちら
スクリプト１個でblogを作るスレ
http://s37.1000gex.net/test/read.cgi?bbs=pc&key=1061132998
0214nobodyさん
03/08/18 13:06ID:???＞ http://s37.ポン既知/test/read.php/pc/1061132998/ と表示されますが何か？
0217nobodyさん
03/08/18 14:27ID:PgjPpzIP普通にｷﾓｲと思います。多分伊達眼鏡とかかけてる人。
0219nobodyさん
03/08/18 14:48ID:OsKLKOac重いPerl製CGIをサーバーに置こうと思ってるんですが、
少しでも動作を軽くしようと思っています。
そこでききたいのですが、Perlのコメント部分を全て消して余分な部分を少しでも減らしたら少しでも軽くなるでしょうか？
コメントを消したりしたら軽くなる、ってはなし聞いたことないんですが、実際のところはどうなんですか？
一応、少しだけでも軽くなれば目標達成なので。
0220nobodyさん
03/08/18 14:50ID:WxMQyRS00221nobodyさん
03/08/18 14:56ID:???ナノ秒やピコ秒単位でなら早くなるかもね。
0223nobodyさん
03/08/18 18:35ID:???書き込み時にファイルが存在しないとファイルが作成されるのは知ってるのですが、
unless (-e $datafile){
＜unlinkの逆＞ $datafile;
};
をやりたいのですが。。。
0224nobodyさん
03/08/18 18:44ID:P7pot7R5touch ちんこ
0225nobodyさん
03/08/18 18:47ID:???パスワードの生成（しかも、使える文字は[a-z0-9]で大文字はなし）が
どうすればいいのでしょうか？
0229nobodyさん
03/08/18 18:57ID:???そんなエレガントな(?)関数は無いよ。
sub touch ($) {
local *FH;
my $ret = open(FH, ">>$_[0]");
close(FH);
return $ret;
}
0232nobodyさん
03/08/18 18:59ID:???open FILE , ">$datafile" unless -e $datafile;
close FILE;
これで空ファイルつくるだろ。
0234nobodyさん
03/08/18 19:03ID:???なぜか面白いことがしたくなる…
@char = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
print join '' @char[ map(int rand @char, 1 .. 8) ];
0235nobodyさん
03/08/18 19:04ID:???print join '', @char[ map(int rand @char, 1 .. 8) ];
0236nobodyさん
03/08/18 19:05ID:???@char = (0 .. 9, 'a' .. 'z');
0237あぼーん
NGNG0238あぼーん
NGNG0239nobodyさん
03/08/18 19:09ID:???こうだな
@char = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
print join '' @char[ while(int rand @char, ..) ];
0240あぼーん
NGNG0241あぼーん
NGNG0242あぼーん
NGNG0243nobodyさん
03/08/18 19:28ID:???newメソッドがないと
Can't locate object method "new" via package "Date::Simple"
とでるので、別の原因があると思われ。
Date::Simpleはpure perlだから、/Date/Simple.pmを探してみそ。
0244nobodyさん
03/08/18 20:01ID:???荒らしは放置しる。
0245nobodyさん
03/08/18 23:23ID:???0246nobodyさん
03/08/19 00:55ID:???ＣＧＩ（Perl）で、カレントディレクトリにあるHTMLを、
呼び出して、それをそのまま表示する方法が分かりません。
具具ってもなかなか見つからないので、お助け下さい。
0247nobodyさん
03/08/19 01:08ID:???(略)
if(!open(FILE,"file.html")){
print "Can't open\n";
exit(1);
}
undef $/;
$a=<FILE>;
print $a;
0248nobodyさん
03/08/19 01:48ID:???・そんなことしても意味がない
・簡単すぎるから解説するまでもない
0249nobodyさん
03/08/19 01:53ID:???my $file = "hoge.html";
open(Fh, $file) or die "Could'nt open $file $!\n";
print while(<Fh>);
close(Fh);
Perlっぽく。
CGIならContent-typeとか、dieするとまずいとかあるから、注意。
0251nobodyさん
03/08/19 18:46ID:???何故ぐぐってもわからない馬鹿が質問するか？
・>>246 は生きる価値のないクズ！
・>>246 は初心者で板違いの迷惑やろう
・早く死ね！
0252あぼーん
NGNG0253あぼーん
NGNG0254あぼーん
NGNG0255あぼーん
NGNG0256あぼーん
NGNG0257あぼーん
NGNG0258あぼーん
NGNG0259あぼーん
NGNG0261nobodyさん
03/08/19 19:12ID:???が、大文字でなかったために色々妙な動きをしてるやつがいたな。
意図していない動きをしているので、大文字でやっとけってことだよな。
大文字にしといたら、それがハンドルであることに気付きやすくなってちょっと幸せ。
0262nobodyさん
03/08/19 21:49ID:???別に使っても害はないけど、なんか気分的に。
0263nobodyさん
03/08/19 22:14ID:IYLLDi9mぐぐったけど、初心者なんで分からないでつ。
0264nobodyさん
03/08/19 22:23ID:???ここ大量のモロ画像とモロ動画がある！
びっくり・・・・・
http://vs2.f-t-s.com/~moemoe/index.html
0267nobodyさん
03/08/19 23:55ID:???／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣￣
|∵ | ＿_|＿_ | ＜ おい、誰かＰｅｒｌ教えろ！！
＼| ＼＿/ ／ ＼＿＿＿＿＿
＼＿＿＿_／
0268nobodyさん
03/08/19 23:55ID:???／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣￣
|∵ | ＿_|＿_ | ＜ パールだ！パール！真珠じゃねえぞ
＼| ＼＿/ ／ ＼＿＿＿＿＿
＼＿＿＿_／
0269nobodyさん
03/08/19 23:56ID:???／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣￣
|∵ | ＿_|＿_ | ＜ まずはパンチ５分の２な！
＼| ＼＿/ ／ ＼＿＿＿＿＿
＼＿＿＿_／
0270nobodyさん
03/08/19 23:57ID:???／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣￣
|∵ | ＿_|＿_ | ＜ おまえは５分の２、おれのケーキは５分の３な
＼| ＼＿/ ／ ＼＿＿＿＿＿
＼＿＿＿_／
0271nobodyさん
03/08/20 00:01ID:???／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣￣
|∵ | ＿_|＿_ | ＜ あと、イフとエルスとリリスとアダムも教えろよ！
＼| ＼＿/ ／ ＼＿＿＿＿＿
＼＿＿＿_／
0273205
03/08/20 02:43ID:???実は mod_perl を使っていたんだが、
今日、mod_perl を外して、普通のCGIとして実行させたら、
Date::Simple の new メソッドが正常に動きました。
この場合、mod_perl が原因なのは明らかだが、
具体的に mod_perl のなにがおかしかったのかよくわかりません。
わかる人レスください、
0274nobodyさん
03/08/20 03:55ID:LVmz2hpaメモ帳に本のとおりにこのように書きました。
（長いので２回にわけます)
#!C:\Perl\bin\perl
$agent = $ENV{'HTTP_USER_AGENT'};
print "Content-type:text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>環境変数</title>\n";
print "</head>\n";
print "<body>\n";
print "環境変数の取り出し\n";
print "<hr/>\n";
print "$agent\n";
print "</body>\n";
print "</html>\n";
exit;
0275続きです
03/08/20 03:56ID:LVmz2hpa「環境変数の取り出し」という文字はブラウザに表示されるのですが、
本に載っているような実行結果が出力されません。
(本にはMozilla/4.0(compatible〜...と載っています)
ブラウザのソースを見てみると
<html>
<head>
<title>環境変数</title>
</head>
<body>
環境変数の取り出し
<hr/>
</body>
</html>
とだけなっていて、空白のようです、
アドバイスお願いいたします、、
0276_
03/08/20 04:08ID:???0277nobodyさん
03/08/20 04:11ID:???と
print "<hr/>\n";
0278_
03/08/20 04:17ID:???0279２７４
03/08/20 04:18ID:???１番上は#/ur/local/bin/perlの書き間違いです
print "<hr />\n";これを取り外せばよいのでしょうか、
やってみます
0280nobodyさん
03/08/20 04:41ID:???これは単にタグがおかしいだけ。
0281２７４
03/08/20 05:02ID:???やっとつながりました、遅くなりました、
やってみたのですがMozilla/4.0(compatible〜...と出てくれません、、
次のページのものはずらずらっと文字が表示されて成功だったのですけど、
１番最初のができないまま進めてしまってよいものなのかなぁ、、
寝て起きたらもうすこしやってみます、
>>227さん、>>280さん、お返事ありがとうございました
■ このスレッドは過去ログ倉庫に格納されています