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

【Perl】初心者コーナー Part19

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん03/02/09 00:24ID:s0tpWWxg
初めに→「perl」その物のスレです。

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

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


CGIだけど、なんか質問ある？ Part 9
http://pc.2ch.net/test/read.cgi/php/1041530204/
参考書籍の話題は【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は 【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/

あとは>>2-10。
0513nobodyさん03/03/02 17:51ID:???
>>512
死ねクソマルチ。　
051450203/03/02 17:57ID:???
みなさん回答していただいてありがとうございます！
おかげでできそうです
初めてなんですけどここの板の人って親切ですね
また何か困ったことがあったらよろしくお願いします。
0515nobodyさん03/03/02 18:29ID:???
なんだマルチか。
0516nobodyさん03/03/02 18:44ID:???
>>514
自分で勉強する意志のある人には協力するさ（うわっ、なんか俺かっけー
0517nobodyさん03/03/02 18:46ID:???
>>516
同意。
0518nobodyさん03/03/03 00:20ID:???
こんな事をできる定義の方法ってあります？

$b="b";
@a[0]="a";
printf("[%s]",$b);
### [a]と表示
0519nobodyさん03/03/03 00:36ID:???
>>518
$bにbを代入してる以上、お前は天才かアホかのどっちかだ。
0520nobodyさん03/03/03 00:58ID:???
>>519
@a[0]と$bを同じ変数として扱う方法はありますか？
という質問です。
@a[0]="a";によって$b="b";が上書きされるという事を表現したかったんです。
説明不足で申し訳ありません。
0521nobodyさん03/03/03 00:59ID:???
>>519
いや待て、ちょっと待て。
何かがあるかも知れぬぞ。

では518さんのご登場です↓
0522nobodyさん03/03/03 01:04ID:pK+Ijnrw
バカばっか
0523nobodyさん03/03/03 01:26ID:???
>>520
参照・・・Perlではリファレンスか。それについて調べてみ。
0524nobodyさん03/03/03 01:30ID:???
my @a;
local *b; # 動的スコープに注意
*b = \$a[0];

$b = 'b';
$a[0] = 'a';
print "[$b]";
0525nobodyさん03/03/03 01:34ID:???
Cで言うところのポインタ
0526nobodyさん03/03/03 01:36ID:???
>>519と>>521がめちゃ格好悪いってのだけは理解した
0527nobodyさん03/03/03 01:36ID:???
my @a;
local *b; # 動的スコープに注意
*b = \$a[0];

$b = 'b';
$a[0] = 'a';
print "[$b]";
my @a;
local *b; # 動的スコープに注意
*b = \$a[0];

$b = 'b';
$a[0] = 'a';
print "[$b]";
my @a;
local *b; # 動的スコープに注意
*b = \$a[0];

$b = 'b';
$a[0] = 'a';
print "[$b]";
my @a;
local *b; # 動的スコープに注意
052852403/03/03 01:47ID:???
>>527
# 動的スコープに注意
は癖なんですが…。

他に問題あります？
052951803/03/03 01:49ID:???
>>524
ありがとうございました。
0530nobodyさん03/03/03 03:24ID:MIMHRhQC
簡単な掲示板を作れるようになったんですが・・
記事削除のやり方がワカランチンです。
投稿に記事ナンバーをつけ、削除のフォームに記事ナンバーを入力して
削除って形をやりたいんですが・・・

よかったら上記の簡単なコードの流れを教えて下さい。お願いします。
0531nobodyさん03/03/03 03:27ID:???
>>530
kentさんとかのソースをぱくるよろし
あとすれ違いっぽい
0532nobodyさん03/03/03 04:11ID:???
投稿時に削除Passを指定しといてそれと照合しればいい
管理人削除とか既にできてるならそれの応用で。
0533nobodyさん03/03/03 04:18ID:???
　　　　　　　　　　　　　∩
　　　 　 　 ∧＿∧ 　　| |　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　 　 （　 ´Д｀）／/　　＜　先生！こんなのを発見シマスタ！
　　　　　 ／ 　 　 　 /　　　　｜
　　　　 / /|　　　　/　　　　　　＼ 　http://saitama.gasuki.com/hiroyuki/
　 ＿＿| | .|　　　　| 　　　　　　　 ＼
　 ＼　 ￣￣￣￣￣￣￣＼ 　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　||＼　　　　　　　　　　 　 ＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　 　 .||　 　 　 　 　 　 　 ||
0534nobodyさん03/03/03 14:30ID:yTVIkXIk
メインルーチンにあるハッシュの値の一つだけをサブルーチンで
使いたい場合、（例1）引数としてハッシュ丸ごと渡してサブルーチンで
取り出すのと、（例2）呼び出し前に取り出して一つだけを引数として
渡すのでは、呼び出し以降の効率の違いはあるのでしょうか？

例1
&shori (%DATA);

sub shori {
my %DATA = @_;
$DATA{'name'} を処理
}

例2
$name = $DATA{'name'};　←　これは既に得られているものとする
&shori ($name);

sub shori {
my $name = @_;
$name を処理
}
0535nobodyさん03/03/03 16:30ID:???
>>534
引数にハッシュを指定すると、ハッシュの各要素がすべて展開されて渡されるから
効率は悪いかもしれない。特にサブルーチン側で別のハッシュにコピーするのは
ちょっと良くないんじゃないかな。
&shori(%DATA) → &shori('key1','value1','key2','value2', ... )

使う値が１つだけであれば、例2のように１つだけ渡すのがいいと思う。
またはリファレンスを使うとか。

&shori(\%DATA);

sub shori {
my $hashref = shift;
# $hashref->{name} または $$hashref{name} のように参照する
}
053653403/03/03 18:45ID:???
>>535
値渡しとリファレンスをうまく使い分けながらやってみることにします。
ありがとうございました。
0537nobodyさん03/03/03 20:33ID:F3LmFaEY
アクセスカウンターを作りたいのですが、
htmlからcgiを呼び出すときに、IMGタグを使って呼び出すには
どうすればいいのでしょうか？
イメージタグを出力するだけでは駄目なんですね。
ご存知の方いらっしゃいましたら、お願いします。
0538nobodyさん03/03/03 20:35ID:???
スレ違い
0539nobodyさん03/03/04 00:02ID:???
>>537
フリーのアクセスカウンター使ってろ。
それの仕組みが理解できるようになってから自作とかほざけ。
それに、ここはPerlのスレであってCGIのスレじゃねえ。
0540nobodyさん03/03/04 00:43ID:???
>>539
＞それに、ここはPerlのスレであってCGIのスレじゃねえ。

はプログラム板のこっちだと思われ。

Perlについての質問箱 3箱目
http://pc2.2ch.net/test/read.cgi/tech/1041205885/l50


晒しageとくな。
0541nobodyさん03/03/04 02:26ID:???
1嫁
0542nobodyさん03/03/04 09:56ID:???
厨房初心者な質問はここでよいのでしょうか？（すみません）


ええと、時間なのですが、昨日の時間などとか、イロイロ出したいのですが一番手っ取り早い方法はなんでしょう。

今考えた方法は、現在時刻
2003/03/04/01:01.00
（年/月/日/時:分.秒）
から引いたり足したり、繰り上げたりするのを考えたんですが、非常に効率悪くて作りにくいです。
特に、繰り上がったり繰り下がったりするのが大変です。
しかもうるう年とかよく分からないし。汗

超初心者な事やってますか？俺
どうやれば手っ取り早く出来るのでしょうか？
0543nobodyさん03/03/04 10:27ID:???
localtime(time() + $hoge)
で増減分を$hogeにつっこむ。
054454203/03/04 10:47ID:???
な、なるほど！

ありがとうございます。
あまりに俺が房だったようですね…。

単位は秒ですよね？秒でやってみます。

m(_ _)m
0545nobodyさん03/03/04 16:01ID:gscrXgmO
#! /usr/local/bin/perl

mkdir('./testing',705);
open (NTT,'./vcount/vcount.cgi')|| die "ファイルを開けません :$!\n";
@nt = <NTT>;
close (NTT);
open (VVT,'./testing/vcount.cgi');
print VVT "@nt";
close (VVT);
exit();

"./vcount/vcount.cgi"の内容を"tester"ディレクトリの作りその下に"vcount.cgi"で作りたいのですが
上の記述ではフォルダが作られても中にファイルが生成されません。
どうしてでしょうか。要はあるディレクトリ内のファイルを全て別のディレクトリに自動コピーさせたくて
とりあえず１ファイルに絞って書いてみました。どうすれば内容を自動コピーできるんでしょう。
環境はWin98とActive　Perl、An　HttpdをオンラインでダイナミックＤＮＳ経由で自分のＰＣのＣ
ＧＩを実行しています。
0546nobodyさん03/03/04 16:06ID:???
>>545
open (VVT,'>./testing/vcount.cgi');

それから print VVT "@nt"; だと期待と違った結果になるので注意。
print VVT @nt; のように汁。

054753403/03/04 16:19ID:???
バイナリモードで扱ったほうが後で文字化け防止になるだろう
0548nobadyさん03/03/04 16:44ID:???
checkboxで一旦チェックを入れたら、それ以降再びチェックして外すまで
チェックが入ったままにするにはどうしたらよいでしょうか？
個人データを扱う物で、複数回内容を書き換える事を前提にしています。
ご存知の方いらっしゃいましたら宜しくお願いします。
0549nobodyさん03/03/04 16:49ID:gscrXgmO
>>546
ありがとうございます！！きっちり生成されました！！
助かりました！
0550nobodyさん03/03/04 17:46ID:???
>>548
Perlと何の関係が？
0551nobadyさん03/03/04 18:05ID:???
>>550
そうか、関係ないのか・・・
逝ってきます。
0552nobodyさん03/03/04 18:19ID:???
>>548
クッキーに保存かiniファイルの保存
055355203/03/04 18:20ID:???
ファイルのじゃなくてファイルにね。
で、checked属性にブール値を設定する
0554nobadyさん03/03/04 18:44ID:???
>>552
ありがとうございます。早速検索してやってみますね。
0555nobodyさん03/03/04 20:24ID:???
ネット上のデータ(例えばヤフーのトップページのソースとか)
をPerlで読み込む場合はopen関数ではないんでしょうか？
ペーペーにはまだまだ手の出ないコードでしょうか？

同ディレクトリとかつながっているディレクトリのデータを読み込む事を
やっていて、ふと思ったので。
0556Ｔ女の竹田03/03/04 20:27ID:???
>>555
もうその質問何十回目だろう（笑
FAQでも作るべきかな？

LWP::Simpleってので調べてみるといいよ。
WinのActivePerlなら最初から入ってるはず。
0557nobodyさん03/03/04 20:37ID:???
HTMLで開始タグと終了タグが一致しているかどうか調べたい

例えば、<em>mona>/strong>や
終了タグの閉じ忘れでエラーがでる

のですが、具体的にどうすればよいのかさっぱりです。
何がいい方法があれば教えて頂けないでしょうか。
0558nobodyさん03/03/04 20:40ID:???
>>557
validatorにかけてみる。
http://validator.w3.org/
055955703/03/04 20:44ID:???
<em>mona>/strong>でしたね。大して変わらないけど。

>>558
例えば掲示板の投稿時なんかに最低限のチェックをしたいだけなのでvalidatorはちょっとです。
0560Ｔ女の竹田03/03/04 20:49ID:???
>>559
タグは全部許可なの？
056157703/03/04 20:58ID:???
また間違えてるし。

>>560さん
タグは属性をもつものや空要素も含めて全て許可しています。
最低限属性を持たないタグの整合性だけでもチェックしたいのですが。
0562nobodyさん03/03/04 21:58ID:???
>>556
ありがとうございました。
方法はわかりましたが､導入難し･･･まだまだ先は遠いようで､いろいろ調べてみます。
0563nobodyさん03/03/04 22:07ID:???
>>561
がんばってスタックでも書いてみたら？
でも、< />な要素が入ると崩壊するか。難しいな。
0564Ｔ女の竹田03/03/04 22:13ID:???
>>561
難しいね。
その場しのぎの方法ならそれなりにありそうだけど、それでも
それなりにめんどくさそうだなぁ。
0565validator厨03/03/04 22:15ID:???
投稿時に http://validator.w3.org/ でチェックしろと促す（ｗ
0566nobodyさん03/03/04 22:35ID:???
http://www.din.or.jp/~ohzaki/regex.htm#NoEndTag
0567Ｔ女の竹田03/03/04 22:50ID:???
適当に書いてみた（超いいかげん）。
タグの中で'<'や'>'が書けないのは仕様です。

my $temp = $to_check;
$temp =~ s|<!--.+?(-->)||sg;
$temp =~ s{<(script|style).*?(</\1>)}{}sgi;
$temp =~ s{</?(br|p|li|hr|meta|input|img|base)[^>]*>}{}sgi; # 閉じないことを許可するタグ
while ($temp =~ s|<(\w+)[^>]*>[^<>]*(</\1>)||si){}
error() if $temp =~ /[<>]/s;

>>566 気づかなかった。
056856103/03/04 22:53ID:???
>>563さん
取りあえずこんなの書いてみますたが
$data = "<a><b>a</b></a><c /><d></f>";

my(@stack) = ();

while($data =~ /<\/?(\w+)\s*.*?>/){
if($data =~ /<(\w+)>/){
push(@stack,$1);
}elsif($data =~ /<(\w+)\s*\.*?\/>/){
;
}elsif($data =~ /<\/(\w+)>/){
$tmp = pop(@stack);
if($1 ne $tmp){die "不整合";}
}
$data =~ s/<\/?(\w+)\s*.*?>//;
}

print "end\n";

なんかスマートじゃないですね。というかそれ以前に正規表現が怪しい。
属性がつくともうだめぽ

>>565
きっと誰も従いませんよ（w
0569nobodyさん03/03/04 22:55ID:???
>>566,>>567さん
ありがとうございます。これから解読します。
0570Ｔ女の竹田03/03/04 23:03ID:???
ちょっと修正。
どっちにしても役に立たなさそうだけど。

$temp =~ s|<!--.+?(-->)||sg;
$temp =~ s{<(script|style|pre|textarea)(\s[^>]*)?>.*?(</\1>)}{}sgi;
$temp =~ s{</?(br|p|li|hr|meta|input|img|base)(\s[^>]*)?>}{}sgi; # 閉じないことを許可するタグ
while ($temp =~ s|<(\w+)(\s[^>]*)?>[^<>]*(</\1>)||si){}
0571nobodyさん03/03/04 23:22ID:TX/Dujet
$str1="20030304" を使って
$str2="2003年03月04日" を生成したいのですが
どうすればよいですか？
0572nobodyさん03/03/04 23:24ID:???
>>571
$date =~ s/^(\d\d\d\d)(\d\d)(\d\d)$/$1\/$2\/$3/;

057356103/03/04 23:24ID:???
初めて見た特殊文字が多かったので解読に手間取りました。
正規表現雑技の方は$(の辺りが今一解読できてませんが。

>>570さん
役に立たないなんてそんな。
\数字は目からウロコでした。さっき書いたコードが恥ずかしいです。
当面の間このコードを借用させて頂きます。ありがとうございました。
0574nobodyさん03/03/04 23:32ID:???
>>571
$str1 =~ s/(\d{4})(\d{2})(\d{2})/$str2 = qq{$1年$2月$3日}/e;
0575nobodyさん03/03/05 01:23ID:???
>>574
それは $str1 の内容も書き換えるので

($str2 = $str1) =~ s/(\d{4})(\d{2})(\d{2})/$1年$2月$3日/;
0576nobodyさん03/03/05 23:48ID:LLn1UqDh
何となく DB というものを使ってみたくなり、Perl で PostgreSQL を扱いたい訳なんですが・・・

ぜんぜん勉強法が見えてきません。“ Perl で”っていう時点で、もう駄目なのかなあ・・・やっぱ PHP なんですかね？

もし宜しければ、オススメのサイトや参考書を教えて頂きたいのですが。
0577nobodyさん03/03/05 23:57ID:???
>>576
DBIとか。
0578nobodyさん03/03/06 00:04ID:/oqmBN82
なるほど。DBI を勉強しろと言うことなのか・・・なるほど。
0579nobodyさん03/03/06 00:09ID:???
自分で作ったモジュールの中からさらにモジュールオブジェクトを作成すると
newでの変数初期化がされない現象が起こるのですが、これはperlの仕様ですか？

↓-------------------- a.pl
package a;
sub new{
my $this=shift;
my $a=0;
my $obj{'obj'=>$a};
bless $obj,$this;
return $obj;}1;
↓--------------------- b.pl
package b;
require('./a.pl');
sub new{
my $this=shift;
my $b=0;
my $obj{'obj'=>$b};
bless $obj,$this;
return $obj;}
sub test{
my $a = new a;
print "a=$$a{'obj'}";}1;
↓--------------------- main.cgi
require('./b.pl');
sub test
{my $b = new b;
$b->test();}
-------------------------------------
結果：a=
（何も表示されない）
0580nobodyさん03/03/06 00:13ID:???
>>576
まずは道具をインストールする。
で、SQLを適当に理解する。
あとは、
connect prepare execute fetch finish disconnect
0581nobodyさん03/03/06 00:13ID:???
仕様=バグとか言うふざけた前提でほざいてると解釈して良いのか？
0582nobodyさん03/03/06 00:14ID:???
>>579
newは「変数初期化」なんて機能じゃないけれど。
0583nobodyさん03/03/06 00:18ID:???
>>579
前置(?)のnewは、コンパイルするときに、それが関数か、
メソッドかを決定しないといけない。
で、newっていうサブルーチンがある(ように見える)から、関数になった。と。

a->new()でどうだ。
058457903/03/06 00:22ID:???
＞newは「変数初期化」なんて機能じゃないけれど。
あい、それは承知してます。
newでオブジェクトのメンバを初期化したいという意味でした。
>>579の場合だと、a.plで
$a=0;
・・・
$obj={'obj'=>$a};
としているのに、bから作成したときは$a->{'obj'}に0が入っていないのです。
（0以外でも同様。main.cgiから直接作成した場合は初期化される）
これがバグなのか、仕様なのかどこにも説明してないので設計に困ってます。
058557903/03/06 00:24ID:???
>>583
ありが㌧ございます。試してみます。
0586nobodyさん03/03/06 00:26ID:???
>>579
http://www.geocities.co.jp/SiliconValley/5634/t82E2_0001.html#1941
http://www.geocities.co.jp/SiliconValley/5634/t82A2_0003.html#2203
0587nobodyさん03/03/06 00:28ID:???
perlobjにWARNINGって大きく書いてあるんだけどなぁ～
0588nobodyさん03/03/06 00:30ID:???
>>580
どうもです！いろいろやってみるしかないですね・・・
0589nobodyさん03/03/06 01:02ID:???























0590nobodyさん03/03/06 11:24ID:rJoYB8KP
ActivePerlの5.6と5.8って共存できますか？
0591nobodyさん03/03/06 11:26ID:???
>>590
できる。
0592nobodyさん03/03/06 12:35ID:nlUIeg7X
あの…

日本語を交えて変数を作りたいのですが、
「全部」ハッシュにしたらアホでしょうか？

$file{'ログファイル'}
$file{'登録ファイル'}

やっぱ重くなりますか？
アホ丸出しのような気がしますが、この方が作りやすいんです。
0593nobodyさん03/03/06 12:55ID:???
>>592
そういう質問をするレベルならどうせ動かないから好きに作っていいよ。
ただしサーバには上げないでローカルでやってくれな。
0594nobodyさん03/03/06 13:21ID:???
>>592
日本語を使いたいのはわからんでもないですが、
はっきりいってアホです。
0595nobodyさん03/03/06 13:28ID:???
VB使え。
0596nobodyさん03/03/06 14:17ID:???
>>595
VakaBasicでつか？
0597nobodyさん03/03/06 15:09ID:???
>596
そでつ
0598nobodyさん03/03/06 16:25ID:???
$変数 = 1;

Unicodeでなんとかならんか?
0599nobodyさん03/03/06 16:42ID:???
>>592
別にいいんじゃない？
ハッシュの構造上、考えてるほど重くはならないよ。

ただ、他人がそのソースを見たら（ ´,_ゝ｀）ﾌﾟｯ　とは思うかも。
0600nobodyさん03/03/06 18:20ID:mX/0qgeV
>>592
そんなあなたにPerlのオブジェクト指向文法！

$this->{field} = 'test';
$this->{公安二課課長補佐} = undef;

主な利点：日本語がちょっとだけ目立たない。
0601nobodyさん03/03/06 18:25ID:???
BSD magazine No.12 P127～P128 より
> use encoding "euc-jp"; # スクリプトと同じ文字コードを指定
> use utf8;
> my $人 = 1;
> $人++; # 私たちは繁殖している!
060260103/03/06 18:26ID:???
要 Perl 5.8.0 な。
0603nobodyさん03/03/06 19:30ID:???
>>600
それができるのは、キーが\wのとき。日本語の場合は何かでくくらないとだめ
0604nobodyさん03/03/06 20:58ID:+0RpBVtX
すいません、ActivePerl-5.8.0.805-MSWin32-x86にwin32-apiをppmを起動してインストールしようとすると
ppm> install win32-api
Error: no suitable installation target found for package win32-api.
と表示されインストールできませんでした。
ppm>sarch win32-api
ppm> search win32-api
Searching in Active Repositories
1. Win32-API-OutputDebugString [0.03] OutputDebugString Win32 API support
ppm> install 1
Package 1:
Error: no suitable installation target found for package
Win32-API-OutputDebugString.
サーチをかけてインストールしてもパッケージがないと言われます。
また、
no suitable installation target found for package
の一文で検索をかけても英語圏HPしかでてこず、多分どこかにパッケージを
ぶち込んだらＯＫだと言う解釈なのですがどうにもヘタレ読解力ではキビシイです。
アドバイスお願いできないでしょうか？
0605nobodyさん03/03/06 21:09ID:???
>>604
ありゃ、インストールされた。
日を改めてインストールしてみたら？
0606nobodyさん03/03/06 21:13ID:+0RpBVtX
粘って粘って３日目です(;´д⊂)
0607nobodyさん03/03/06 21:46ID:+0RpBVtX
しまった・・。
環境はＸＰproでｃ￥perlにperlをインストールしています。
0608nobodyさん03/03/06 22:41ID:???
　 ∋8ノノハ.∩
　　 川o・-・）ノ　＜先生！こんなのがありました！
＿_/ / 　 　/ 　　
＼(_ﾉ￣￣￣＼
||ヽ||￣￣￣￣||
　...||￣￣￣￣||
http://saitama.gasuki.com/shinagawa/
060959203/03/07 12:00ID:???
>>593-600

分かりました。ありがとうございます。
別に
アホ丸出しだろうが
（ ´,_ゝ｀）ﾌﾟｯと思われても構わないので
今後は全部ハッシュで作ろうと思います。
0610nobodyさん03/03/07 16:16ID:o/kX6MY9
特定のホストからのアクセスのみ通すアクセス制限をしたくて探したのですが、
逆の「特定のホストからのアクセスをはじく」アクセス制限のCGIしか見つけられず
そこで、これを改造したら使えないかなあと考えました。
が、どこをどういじって良いのか見当がつきません。どなたかお知恵を貸してください・・。
@deny = ("*.co.jp","*.hoge.net");

sub get_host {
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
# gethostbyaddr関数を使用する場合は1
$gethostbyaddr = 1;
if ($gethostbyaddr) {
if ($host eq "" || $host eq "$addr") {
$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
}
}
if ($host eq "") { $host = $addr; }
}
sub axs {
# ホスト名を取得
&get_host;
if ($deny[0]) {
local($flag)=0;
foreach (@deny) {
if ($_ eq '') { last; }
$_ =~ s/\*/\.\*/g;
if ($host =~ /$_/) { $flag=1; last; }
}
if ($flag) { &error("許可されていないアクセスです") }
}
}
0611nobodyさん03/03/07 16:20ID:???
>>610
.htaccess じゃダメなの?
061261003/03/07 16:20ID:o/kX6MY9
いっそシンプルにこうしたら・・・？？
sub axs {
&get_host;
if ($_ ne "@deny"){ &error("許可されていないアクセスです")}
}
061361003/03/07 16:21ID:o/kX6MY9
.htaccessもSSIも使えないです（＾＾；
■ このスレッドは過去ログ倉庫に格納されています