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

【Perl 】初心者コーナーPart8

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@お腹いっぱい。01/10/24 14:11ID:???
いらっしゃーい、perlのコーディングで困ってる人のスレです。

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

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

参考書籍はこちら【【Perl,CGI】参考書籍 第2版 】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【CGIだけど、なんか質問ある?part4】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50

過去ログ、その他の役立ち情報は>>2-10を見よう。
0413名無しさん@お腹いっぱい。01/11/25 01:09ID:ytkqM1hX
ファイル読み込みについて質問です。
open(DATA, "<./honbun.dat");
$bundata = <DATA>;
としてhonbun.datというファイルを$bundataに全て読み込めるのですが
下記のようにファイルパスを絶対参照にするとエラーが出てしまいます。
open(DATA, "<http://www.domain.com/honbun.dat");
下記のようなエラーメッセージです
[an error occurred while processing this directive]
パスを変更しただけで、他は何も変えてないんですが。
ちなみにSSIのincludeを使ってCGIを呼び出してます。
対処法アドバイスお願いします。
0414すみません01/11/25 01:21ID:2tsqouHY
Perlの本についているCDからPerl For Win32とJPerl For Win32を
インストールしました。

そこから、その本に書いてあるとおりにプログラムを始めたいのですが、
メモ帳で作っても良い、という風に書いてあったのでメモ帳で書いたのですが。
メモ帳で作ったデータをhello.plという名前で保存して、
MS DOS プロンプトでperl hello.plとしても、
Can't open perl script"hello.pl"〜以下と出てしまいます。
確認しましたが、確かにPerlのインストールはされていたのです。(Cドライブに入れました)
これにはどのような理由が考えられるでしょうか?
041541301/11/25 01:25ID:???
>>414
perlのパスを通してないとか?または
hello.plを保存したフォルダに移動してないとか?
0416名無しさん@お腹いっぱい。01/11/25 02:13ID:zHplANiE
>>409

>IEのブラウザから、そのCGIファイルがあるディレクトリを指定したのですが、
「アドレス」で指定せずに「ファイル」→「開く」にしたんじゃ?
041741301/11/25 02:15ID:ytkqM1hX
何度もすみません、>>413の質問内容を補足します。
他のサイトのhtmlファイルを読み込みたいんです(許可はとってあります)
その際、>>413のようにopenでアドレス指定でいいかと思ったんですが、
うまくいかないのです。それ以前に自分のサイト内でも絶対参照でopenしようと
してもエラーが出ます。読めていたファイルが絶対参照にしただけで読めなく
なるのでパーミッションではないと思うんですが。
0418名無しさん@お腹いっぱい。01/11/25 02:38ID:???
httpとOSのパスは違います
あなたが ./hoge.html とか index.html で読めていたファイルの
絶対パスは C:\www\hoge.html や /home/foo/public_html/index.html
で http://bar.com/hoge.html では***ありません***
って言うかそんな事出来たら困るでしょ?
httpd 仮想パス で検索しよう
041941301/11/25 02:49ID:ytkqM1hX
>>418 ありがとうございます。検索したらいっぱい出てきました。
ニュース記事のhtmlから見出し記事を自動抽出しようと思ったんですが。
(くどいですが許可はとってます)
見出しをdatにしてないのでhtmlから読み込むしかないよ〜と言われたもので
そのまま出来るのかなぁと。
調べてはみますが、無理って事なんでしょうか?
0420名無しさん@お腹いっぱい。01/11/25 03:17ID:???
>>419
それならLWPモジュール使うといいっす。
use LWP::Simple;
$bundata = get("http://www.domain.com/honbun.dat");
0421名無しさん@お腹いっぱい。01/11/25 03:18ID:???
出来ますよ
LWP::Simple と言うモジュールを使えば簡単に取ってこれます。
自分で書くことも出来ますが、、
どっちにしても、サーバがPerl(と言うかユーザ)にSocket接続を許している
のが大前提だけどね
http://x68000.startshop.co.jp/~68user/net/ ここをざっと読んでみて
042241401/11/25 06:57ID:DFU5N1cC
>>413
あ、多分それです。本にもパスがどうとか書いてあったし・・・。
ただ、それについてのやり方が全く具体的に書いてなかったので
分からないのです。。
初歩的すぎて書くまでもないことだったのかもしれませんが、
ちょっと始められなくなってしまってるので・・・
手順を教えていただけないでしょうか?
他のHPのPerlページでも、そこまで基本的なことは載っていないんで・・・
すみません。
042341301/11/25 09:56ID:ytkqM1hX
>>420-421 ありがとうございます!
LWPモジュールというのは聞いたこともなかったですが調べてみます。
420と421さん別人ですよね?タイミングがすごいなぁ(^^;
042441301/11/25 10:08ID:???
>>414
Cドライブのルートにperlがインストールされてると思うので
CドライブルートにあるAutoecec.batファイルにperlのパスを記述して
みるといいです。メモ帳で開いて大丈夫です。
上のほうにpath "%path%;c:\Perl\bin;"としてみて下さい。
書き換える前に、一応batファイルのバックアップとって下さいね。
書き換えたあとにパソコン再起動してから試して下さい。
042541401/11/25 10:16ID:sJfjrujt
>>413
ありがとうございます。
後で挑戦してみますね。

本に
Autoexec.batに以下のような記述をします、
PATH C:\WINDOWS;C:\WINDOWS\COMMAND
SET PATH=%PATH%;E:\USR\PERL5\BIN  ←この行を追加する

とかかれていたのですが、
AUTOEXECを開くと
Must Be installed Japanese Mode.
Cannot Install Device Driver.と出てしまいます。
これはどういうことなんでしょう?
日本語版をインストールすることが必要ということなんでしょうか?
0426 01/11/25 15:23ID:???
>>425
pathはおそらく通っている。
>>415にあるようにカレントにhello.plが存在しない。
perlよりも先に、MS-DOSを勉強することをオススメする。
042741401/11/25 19:45ID:elN1fKSW
>>426
了解です。ありがとうございます。
連続教えてチャンで恐縮なのですが、MS-DOSを勉強するのに何かオススメの
書籍・サイトってありますか?
検索サイトで調べても、ダウンロードとかについてしか
見つからないので・・・。
0428名無しさん@お腹いっぱい。01/11/26 12:50ID:z2hJCNpL
>>427
http://www.nara-edu.ac.jp/~asait/latex/msdos.htm
こんなところかな。他にもあるだろうけど。
身近にCGI勉強中で、HTMLとDOSの使い方も同時に学ぶ必要があって
苦労している人がいるからつい気になってしまった。

こういうことは知ってる人がいたほうがいいと思うけど、そういう知り合いは
いないの?
0429名無しさん@お腹いっぱい。01/11/26 19:19ID:o9/cvZ3V
スレ違いならすいません。
NT3.51ServerでWin32::DDEをuseできるようPerlを導入したいのですが、可能でしょうか。
実はActivePerl5.6.1-630をインストールしようとしてMSVCRT.DLLが足りないといわれ、
何とかインストールしてもPerlCRT.dllが足りないとかいわれてWin32::DDEがuse出来ないのです。
0430429です01/11/26 19:22ID:o9/cvZ3V
PerlCRT.dllは同じPerlをインストールしたNT4.0WorkStationでも見つかりませんでした。
Win32環境では必要ないのでしょうか?
0431名無しさん@お腹いっぱい。01/11/26 21:13ID:???
perlcrt.dllは存在しないよ。当方Win2K+SP2
0432名無しさん@お腹いっぱい。01/11/26 22:11ID:???
>429
インストーラはバージョンアップ済み?
043342901/11/26 22:37ID:Owo3tZsO
インストーラはmsiのことでしょうか?ならば使わずにインストールしました。
batchからインストールです。
>>431 perlcrt.dllがなぜ必要になるのか私も不思議です。
0434名無しさん@お腹いっぱい。01/11/26 22:58ID:???
>>433
InstMsi.exeを先にインストールしないとだめだよ〜ん
0435名無しさん@お腹いっぱい。01/11/27 00:49ID:9VBxm652
i-modeサイトやっていてPCでのアクセスを防ぐ為、
i-modeはリファラーが取れないのを利用してi-modeとPCを
振り分ける下のようなCGIを書いたのですがうまくいきません。
どこが間違ってるのでしょうか?
ちなみに初心者ですので大勘違いしてたらすいません。

#!/usr/bin/perl

$a1 = $ENV{'HTTP_REFERER'};
if ($a1 eq '') {
print "Location: http://www.aaa.com/i-mode.html\n\n";
}else{
print "Location: http://www.aaa.com/pc.html\n\n";
}
exit;
0436名無しさん@お腹いっぱい。01/11/27 00:52ID:???
>>435
PCからだってReffererを吐かない場合は幾らでもあるよ。
0437名無しさん@お腹いっぱい。01/11/27 01:09ID:???
$ENV{HTTP_*}は100%信用出来る情報ではないことを覚えておくとよろし。
0438名無しさん@お腹いっぱい。01/11/27 01:26ID:???
msvcrt.dllなんて、標準で入っているような
0439名無しさん@お腹グー01/11/27 03:17ID:???
>>429
ttp://www.activestate.com/Products/ActivePerl/download.plex から
リンクを辿ってInstMsi.exeを導入してからMSI versionのActivePerl
5.6.1-630をインストールし直した方が早いだろう。 Win32-DDEはppmで
インストールしろ。
MSVCRT.DLLについて文句言われるならversionが古いんじゃあないの?
NT3.51Serverはアップデートしてあんのかよ。perlcrt.dllはbuild
5XXの時の話だよ。 欲しいならCPANにある、取ってこい。
0440名無しさん@お腹いっぱい。01/11/27 06:36ID:LKRP0gaE
初心者というか、まだ勉強を始めてない者なんですが、
ウェブサイト更新時刻情報取得エージェント?(いわゆるアンテナ)を
作るためにはどの言語を勉強する必要があるんでしょうか?

↓こういう感じの奴
http://www.st.rim.or.jp/~kiwamoto/hina/

Perlであってます?
0441名無しさん@お腹いっぱい。01/11/27 07:10ID:???
別に言語はなんでも良い。
044244001/11/27 07:28ID:???
つーことはPerlでもOKなんすね。
ありがとございます。

ちなみに鯖の条件としては、CGI使えれば問題ないですかね?
0443名無しさん@お腹いっぱい。 01/11/27 07:35ID:???
鯖って専門用語ですか ??(・∀・)クスクス
0444名無しさん@お腹いっぱい。01/11/27 08:03ID:???
認識度の高い俗語です
044544001/11/27 08:14ID:???
>>443
すみません、誤変換されてしまいました。


   ++ __ ノ �
    ノ   ノ  \


です。
0446名無しさん@お腹いっぱい。01/11/27 08:50ID:???
>>445
読めません。
0447名無しさん@お腹いっぱい。01/11/27 11:30ID:???
>>445
犬か何かに見える。
新キャラクター鯖犬誕生! 何の話だ。
0448名無しさん@お腹いっぱい。01/11/27 11:35ID:???
_____________
      \  ++ __ ノ ・
鯖犬です  >  ノ   ノ  \
_____________/
0449名無しさん@お腹グー01/11/27 13:58ID:???
つまらん、もっと糞詰まりの話キボンヌ
0450名無しさん@お腹いっぱい。01/11/27 14:09ID:???
PerlでCGI組んでて
少しでもメモリの浪費を抑えたいんだけど
そういう場合foreachは使わないほうがいいの?
0451名無しさん@お腹いっぱい。01/11/27 14:36ID:???
おしえてください。
フォルダ内に二つのHTMLファイルを用意して
例えば a.htm と b.htm としてですね。
条件によってどちらかを表示させたいんですがどのようにすればいいの
でしょうか?
簡単なようでなぜかつまってます
0452名無しさん@お腹いっぱい。01/11/27 15:20ID:???
>>450
んなこたぁない。

>>451
print "Content-Type: text/html\n\n";
if ($jouken == 1) {
open HTML, './a.html';
while (<HTML>) {
print;
}
close HTML;
} elsif ($jouken == 2) {
open HTML, './b.html';
while (<HTML>) {
print;
}
close HTML;
}
045345101/11/27 15:46ID:???
>>452様
ありがとうございます。m(__)m
0454名無しさん@お腹いっぱい。01/11/27 15:49ID:???
>>451
んあ?

my $file = undef;
if (条件) {
  $file = 'a.html';
} else {
  $file = 'b.html';
}

open(F, $file);
print <F>;
0455名無しさん@お腹いっぱい。01/11/27 15:56ID:FtCrXKQ9
あ
0456名無しさん@お腹いっぱい。01/11/27 19:45ID:???
うにゅ?
0457クロスボウとやら01/11/28 11:10ID:4pa3crZc
質問です。

掲示板等のCGIで、投稿記事のIDに
$id = time . $$; # id = UTC秒数 + Perlプロセス番号
としてるものを見つけました。で、質問は2つ。

Q1:この$idはユニークな値であることが保証されるのでしょうか?
Q2:Q1がユニークであると仮定した場合、プロセス番号を付加する
メリットはなんでしょうか?

以上、よろしくデス。
0458名無しさん@お腹いっぱい。01/11/28 11:38ID:???
A1
1秒の間に同じプロセスIDが使われるような異常な環境でない限り大丈夫だと思います。
A2
1秒間に複数の記事投稿処理が行われた場合被ってしまいます。
常時、処理に1秒以上かかる重いスクリプトの場合は大丈夫な場合もあります。
0459名無しさん@お腹いっぱい。01/11/28 11:47ID:???
ふつーのUNIX系OSだと、pid は使い回さない(pid=65535まで使い切って初めて、pid=1から再利用を始める)ので、
短期的に見れば pid だけでも十分ユニークです。

pid に時刻を追加することで、長期的にもユニークであることを保証している、と考えた方がいいと思う。

というか、時刻だけってユニークなIDとして使い物にならない。
0460東京地裁は役立たず!01/11/28 12:19ID:???
日本生命の削除依頼公開スレッド

1 :ひろゆき@暫定管理人 ★ :01/11/01 15:49 ID:???
「削除依頼は公開」の原則に従って削除したものを公開してますー。
ソース。
http://www.dd.iij4u.or.jp/~cap/nissei/

14 :名無しさん@お腹いっぱい。 :01/11/01 15:59 ID:I8TSGCyI
むしろこのGIFを保存しといてそこらにミラー作りまくるのが
2chねらの使命かと

15 :名無しさん@お腹いっぱい。 :01/11/01 16:00 ID:pX4yzwVD
>>10 つか、それがひろゆきのねらいだろ

16 :名無しさん :01/11/01 16:00 ID:4XQtcOuc
オイラはとりあえず保存しといたよ

17 :ひろゆき@暫定管理人 ★ :01/11/01 16:01 ID:???
いやぁ、削除依頼は公開って原則ですから、、
( ̄ー ̄)ニヤリ

18 :va :01/11/01 16:01 ID:+W2rWnl4
同じこと書き込んだら、速攻で削除されるのかな?
0461名無しさん@お腹いっぱい。01/11/28 12:34ID:8tU8XC0g
ブラウザであるページ(A.html)を見たときに、自動的にあるスクリプト
(B.pl)が実行される仕組みをSSIを使わずに実現することは可能でしょうか?
<IMG SRC="../cgi-bin/B.pl" 〜>とかやってみたのですが、一応B.plは
実行されるものの、「画像無し」の×マークが表示されてまずいです。
どうか知恵をお貸しください。 既出っぽい気がしますが(;´Д`)
0462名無しさん@お腹いっぱい。01/11/28 12:42ID:???
B.plで 1 x 1 位の画像出力するようにしとけ。
0463名無しさん@お腹いっぱい。01/11/28 13:31ID:???
すいません、おしえてください。
ディレクトリ html にHTMLファイルとロゴなどのgifやjpegを
いれておきました。そこに .htaccess を置いて

order deny,allow
deny from all
allow from ***.***.***.***

と書いておいてCGIにてIDとパスで認証できた会員だけHTMLを
見せようとしたんです。
ところが、普通に文字は表示されるのですがgifやjpegが表示されない
のです。
普通に表示できないものなのでしょうか?
046446101/11/28 13:36ID:8tU8XC0g
>>462 さん
「CGIで画像を出力する」で検索してやり方を調べ、やってみました。
B.plは
#!perl-path
print "Content-type: image/gif\n\n";
print `cat $imagefile`;
でできました!!!
1x1の画像を作るのはペイントでできたんですね。知らなかったです。
ありがとうございました。
0465名無しさん@お腹いっぱい。01/11/28 13:47ID:???
>>163
basic認証使えば?

.htaccess
---
AuthType Basic
AuthName "Password"
AuthUserFile /home/user/.passwd
require valid-user
---

.passwd
---
User1:Password1
User2:Password2
046646501/11/28 13:48ID:???
>>465 の >>163 は >>463 の間違い。

スマソ。
0467名無しさん@お腹いっぱい。01/11/28 15:22ID:???
なんってーか・・・最近スレ違い多いね(汗
046846301/11/28 16:04ID:???
>>465氏、なるほど!
ありがとうございます
0469名無しさん@お腹いっぱい。01/11/28 17:08ID:???
説明しているところが見あたらないしよくわからないので
このスレで質問します。
携帯専用のサイトをしているのですが、PCから
アクセスできないようにするのにはどうしたらよいのでしょうか?
0470名無しさん@お腹いっぱい。01/11/28 17:16ID:???
>>469
せめてこの辺で聞きなさい。

CGIだけど、なんか質問ある?part4
http://pc.2ch.net/test/read.cgi/php/1000804655/
0471名無しさん@お腹いっぱい。01/11/28 17:25ID:???
>>469
>>1の
| CGIの質問はこちら【CGIだけど、なんか質問ある?part4】
| http://ebi.2ch.net/test/read.cgi/php/1000804655/l50
を読みなさい。
0472名無しさん@お腹いっぱい。01/11/28 20:49ID:eYEjqDt2
関数の呼び出し時間ケチりたい時ってどうします?
ちょっと凄いループの中とかで、マクロ使うような局面で
inlineに出来ないですよね
0473名無しさん@お腹いっぱい。01/11/29 03:19ID:???
おい教えろようんこ野郎!!
0474名無しさん@お腹いっぱい。01/11/29 04:46ID:???
>473
うんこ野郎には教えられないと思うんですが。
呼びかけるならうんこ野郎以外に向けて呼びかけないと。
0475_gunzip01/11/29 05:19ID:???
>>472 気持ちは分かるけど、大した差は無いから気にしないが吉
どうしても気になるならC/C++で書くよろし

#!/usr/bin/perl -P

#define SWAP(a,b) (a,b) = (b,a)

use strict;
use Benchmark;

our $a = 0, $b = 1;

sub swap($$)
{
@_[0, 1] = @_[1, 0];
}

timethese(1000000, {
    "inline" => sub { ($a, $b) = ($b, $a) },
    "using macro" => sub { SWAP($a, $b) },
    "function call" => sub { swap($a, $b) }
});
0476_gunzip01/11/29 05:23ID:???
$ ./test.pl
Benchmark: timing 1000000 iterations of function call, inline, using macro...
 function call: 11 wallclock secs (10.72 usr + 0.00 sys = 10.72 CPU) @ 93283.58/s
 inline: 3 wallclock secs ( 3.69 usr + 0.00 sys = 3.69 CPU) @ 271076.17/s
 using macro: 4 wallclock secs ( 3.72 usr + 0.00 sys = 3.72 CPU) @ 269179.00/s
0477Perl上級者01/11/29 07:15ID:???
うんこうんこうんこうんこうんこうんこうんこうんこうんこ
0478名無しさん@お腹いっぱい。01/11/29 10:45ID:???
久しぶりにベンチマーク見た(w
0479クロスボウとやら01/11/29 14:16ID:WXSThiyo
>>458
>>459
ありがとうございます。勉強になりましたー。
0480名無しさん@お腹いっぱい。01/11/29 15:57ID:???
opendir(DIR,"pic") or die "opendir miss";
@picfile = sort grep {/.jpg/} readdir(DIR);
closedir(DIR);

とした後でJPEG画像表示ってどうすればいいんでしょう?

foreach ( @picfile )
{
print $_,"<br>\n";
}

だとファイル名を表示しますよね?
0481名無しさん@お腹いっぱい。01/11/29 16:09ID:/dTb+5XA
ActivePerlのppm installってローカルファイルにも使えますか?
複数台にインストールしなきゃいけなくって、
アーカイブをダウンロードしておいて、それを使ってインストール
したいのですが、猿のようにppm installしていたので
ダウンロードの仕方やファイルの指定方法がわかりません
0482むぎ茶?01/11/29 16:56ID:Fa8sgCik
>>458
time_t が一周して同じ値になるとユニークじゃなくなるよ:D
0483むぎ茶!01/11/29 16:58ID:Fa8sgCik
>>480
print qq|<img src="$_"><br>\n";
はどう?
0484名無しさん@お腹いっぱい。01/11/29 17:43ID:???
>>483
なるほろ!ありがとです
0485名無しさん@お腹いっぱい。01/11/29 18:48ID:???
クッキーの有効期限が書き込めないんですがどこが悪いか教えてください
普通にクッキーは食ってくれるんですがブラウザ閉じると死にます。

sub set_cookie{
$c_name = "kunni"; $c_mail = "kumanko";
$name = $FORM{'name'};
$n ='10*60*60*24';
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg) = localtime(time+$n);
$ww = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday];
$mong1 = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mong];
$expires = sprintf("%s,%02d-%s-%02d %02d:%02d:%02d GMT",$wwg,$mdayg,$mong1,$yearg,$hourg,$ming,$secg);

print "set-cookie:$c_name=$name;expires=$expires;\n";
}
0486名無しさん@お腹いっぱい。01/11/29 19:08ID:???
ふざけた変数名だね
どうせKENTのパクるなら全部コピペすれば?
Sun, 01-Jan-2000 12:12:12 GMT
0487名無しさん@お腹いっぱい。01/11/29 19:19ID:???
>>486
書き込めたから前の質問はいいわ。
じゃあパクッてないクッキーの記述の条件をおせーてくれ。
無論ソースで実例記述はいらんよ。
こことこことここが違えばパクって無いオリジナルであるって条件。
スカラ変えればいいってもんでもないだろうし、一つ頼むわ。
0488名無しさん@お腹いっぱい。01/11/29 19:26ID:???
偉そうなヤツが居るな。
0489名無しさん@お腹いっぱい。01/11/29 19:30ID:???
つーか>>485ってKENTの奴に似てるように見えるかね?
時間取得から寄せ集めprintなんてどこでもやってると思うが。。。
どーでもいいが$C_mail=kumanko;はといあえず書き込んでないから
意味無いね。
0490名無しさん@お腹いっぱい。01/11/29 19:33ID:???
$c_mail = "kumanko";
これは何を意味してるんだ?一回しか出てこんけど。
0491名無しさん@お腹いっぱい。01/11/29 19:33ID:???
$ydaygなんてダサイ名前付けるのは限られてると思われ・・・
どう言う意味?$ydayg  ぷ
0492名無しさん@お腹いっぱい。01/11/29 19:36ID:???
変数を局所化してないから、他の変数とかぶらんように、
分かりにくい変数名にしないといかんのだろ。
0493名無しさん@お腹いっぱい。01/11/29 19:38ID:???
クッキーはちゃんとデコードしとけ。
0494486 01/11/29 19:40ID:???
あ、ゴメンネ 怒った(笑
まあパクって無いってんならそうなんでしょう
>>時間取得から寄せ集めprintなんてどこでもやってると思うが。。。
んな事しなくても、gmtimeに投げてsplitすりゃ良いんで
普通はそうします(w
KENTとは言わんがどっかで拾ったコード使って、変数の中吐き出して
確認も出来ないなら、そのまま使えばよろしいかと・・・
0495 01/11/29 19:39ID:???
滅茶苦茶叩かれとんな・・・
0496名無しさん@お腹いっぱい。01/11/29 19:42ID:???
誘導して闇討ちで実力計るつもりでいたが、即座に
実力いっぱいいっぱいの典型例>>488みたいなのが
出てくる所を見ると3段階、4段階の質問受けれる程話せそうな奴は
噂の2ちゃんにもいなさそうだな。天秤計測終了。
興味無いから適当に煽って後は放置でいいよ。君に興味無いから(ワラ

>>489
あーそうだよ。すまんね。意味無いからそこ削除するか
printで名前書きの下にもmail用の一行加えといてくれ。
ソッコーで書いたからミスっちまったい。
0497名無しさん@お腹いっぱい。 01/11/29 19:47ID:???
つーかこんな事一々配列で受けてゴチャゴチャやってる時点で
アホだと思うが
それを最初にばら撒いたのがKENT氏って事か?
0498名無しさん@お腹いっぱい。01/11/29 19:49ID:AMvwJSR+
>んな事しなくても、gmtimeに投げてsplitすりゃ良いんで
>普通はそうします(w

ちょっと溜息。パクってるって言われるくらいそっちのが
メジャーだと思うからシャレきかせたつもりだが。。。
書き方あえて変えてんだから読み取ってネ。じゃ無駄な時間使って
煽ってくれ。バイバーイ低次元。
049948601/11/29 19:50ID:???
>>497 そそ
んで、コンテキストも解らん人達がこのやり方を普及してるんです(笑
その典型じゃ無いかな
05003行で済むな 藁01/11/29 19:56ID:???
$exptime = gmtime(time+10*60*60*24);
($wday,$month,$day,$time,$year) = split(/ /,$exptime);
print "$wday, $day-$month-$year $time GMT\n";
ほら、これで満足だろ? GPLだからソース公開しろよ 藁
0501名無しさん@お腹いっぱい。 01/11/29 19:58ID:???
>誘導して闇討ちで実力計るつもりでいたが、、、
悲惨過ぎる・・・
0502486 01/11/29 20:21ID:???
>>500 多分このまま使って逆切れに一票(笑
0503名無しさん@お腹いっぱい。 01/11/29 20:52ID:???
素人が噛み付くとエライ目にあう事が実証されました(・∀・)
らくだ位読もうね みなさん
0504名無しさん@お腹いっぱい。01/11/29 22:30ID:???
ファイルの行数をカウントするエレガントな方法を教えて下さい

ぼくは下記のようにやっているのですが,すっごく厨房ぽいです


#!/usr/local/bin/perl
open FILE, $file or die "can't open $file:$!\n";

$cnt = 0;
while(<FILE>) {
$cnt++;
}

close FILE;

print "$fileの行数は$cnt行です\n";
0505名無しさん@お腹いっぱい。01/11/29 22:48ID:???
>>504
こんなん。
$cnt+= tr/\n// while read FILE, $_, 1024;
0506名無しさん@お腹いっぱい。01/11/29 23:04ID:???
>>500
これ役にたったよ、何も+1900とかしてシコシコ計算する事無いんだね
俺もKENT病だったようだ(´Д`;)
月をハッシュに入れて日本語表示も随分すっきりしました
# つくづく>485は悲惨だと思った
0507   01/11/30 00:27ID:JaJKMNFa
.アクセス制限は設定出来ますか?
http://home.big.or.jp/index.html?WWW_MENU=m021002h#003
の説明が良くわかりません。

.htpasswd

AuthUserFile /public/pub?/home?/(UserID)/html/secret/.htpasswd
AuthGroupFile /dev/null
AuthName member
AuthType Basic
<Limit POST GET PUT>
require user (UserName)
</Limit>

の設定をして、IDと、パスワードを要求される画面までいきますが・・
アクセス成功できません。Perlのバージョンによって記述が異なるようですが。
$ perl -v

This is perl, v5.7.0 built for i686-linux

です。
このサイトを利用しているかたのアドバイスをいただけないでしょうか?
0508 01/11/30 00:38ID:???
>>507
基本認証はperlとは関係ないよ。
.htpasswdは正確に記述してある?
AuthUserFileにはパスを正確に記述してある?
0509   01/11/30 01:08ID:JaJKMNFa
>>508
AuthUserFile /public/pub?/home?/hoge/html/cgi-bin/.htpasswd
・・・

こういう感じ
「?」っているのかな。外すと駄目みたい。

Options -Indexes

とした場合、に同ディレクトリにあるファイルに直接アドレス入力すると、
見えてしまうのですが、これを見せない方法ってありますか?
0510名無しさん@お腹いっぱい。01/11/30 01:14ID:???
htpasswd作ったのか? Telnet使えるみたいだから
その辺の説明サイトみながら作れ。
その/public/pub〜〜 って所はpwdって打って出てきたのを入れろ
0511名無しさん@お腹いっぱい。01/11/30 01:22ID:???
あれ? 5.7って出てたんだ。。。
0512なにがいけないんだろう?。01/11/30 01:41ID:2jA/moy4
>>510 ありがとうございます。 でも駄目みたいです。

ID:yokohama
Pass:monako

http://www15.big.or.jp/~s-w-/


AuthUserFile /public/pub/home/s-w-/html/cgi-bin/.htpasswd
AuthGroupFile /dev/null
AuthName member
AuthType Basic
<Limit POST GET PUT>
require user yokohama
</Limit>
0513??01/11/30 01:49ID:???
pub? の?はどこ行ったの?ここに何か入るんじゃないの?
上に書いてるけどtelnetで入ってpwdしてOSの絶対パス書かなきゃダメだって
AuthUserFile はおまじないじゃ無いよ、ISPなんて出鱈目書いてたりするし・・
■ このスレッドは過去ログ倉庫に格納されています