CGIだけど、なんか質問ある？
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001名無しさん
NGNGprint "くだらねぇー質問はココから始めろ！";
0830MMQ
NGNG配ってるサイト知りませんか？前にヤフーと同じものを
みかけたのですが、どこで見たのかわからなくなってしまいました。
できるだけ高性能でデザインのよいもの探してます。
0831名無しさん
NGNGちょっとしたもので良いのなら 自分で作った方がいいと思うぞ。
好きなだけいじれるし。
自分も某ネットワークゲームのアイテム販売に自分で作って使ってる。
0832MMQ
NGNG0833名無しさん
NGNGどうにも失敗してしまいます。
cgi-bin ― bbs ― bbs.cgi
｜
home ― image ― *.gif
上のようなディレクトリ構造で、bbs.cgiから*.gifを
呼び出すのにはどのように記述すれば良いのでしょうか。
0834MMQ
NGNG0835名無しさん
NGNG0836上のようなディレクトリ構造
NGNG作りたいんですが、randなどの使いかたがわかりません。
ジャバスクリプトのランダムでだした関数をデータとして
送る方法も試したのですがだめでした。だれか教えて下さい。
使った掲示板はhttp://www.web-kyoto.com/web/board/です。
0837名無しさん
NGNGありがとうございました^-^。やってみます。
0838ほういち
NGNGどのへんでつまずいてるのかわかりませんが・・・
適当な乱数で表示するだけなら
@unsei = ('大既知','中既知','既知','既知外','小基地','狂') ;
$no = int( rand() * @unsei ) ;
print "@unsei[$no]\n";
こんな感じです。
rand( n )は0からnまでの乱数を発生します。
nを省略すると1となります。
つまり上に書いた rand() * @unsei はrand( @unsei )と
等価です。
perl4の場合はrandを使うまえにsrandで初期化する必要があります。
0839ほういち
NGNG3行目の
print "@unsei[$no]\n"; は
print "$unsei[$no]\n"; です。
0840サゲ茶漬け
NGNG../../home/image/*.gif
0841名無しさん
NGNGの便乗質問なんですが。
私の使っているサーバはhomeディレクトリにあるファイルにアクセス
する時は
www.xxx.ne.jp/gazou/*.gif
（homeディレクトリ内のgazouディレクトリ内の*.gifを呼び出す場合）
と書くのですが、その場合の相対パスもhomeって入れないとだめでしょ
うか。何度やっても旨く行かないんですが。
0842名無しさん
NGNG0843841
NGNGそうです。ftpソフトで覗くとhomeっていうディレクトリがあるんですが、
実際アクセスするときにURLにhomeとは書かないんです。
絶対パスで行けるcgiなら平気なんですが、相対パスじゃないとだめなやつ
だとだめなんですよ。
0844名無しさん
NGNG違ったら許してね
とりあえず絶対パスで書いてみるのに一票
でもpublic_htmlだってURLには出てこないよね
たぶん、その辺。
0845名無しさん
NGNG基本的にはFTPソフトで表示されるパスで出来ると思うんだが。
相対の../../は階層ランクあってる？
0846自信がない下げ
NGNGだとしたら表向きのツリー構造にしたがうだけかと。
>>833の場合，apacheのhttp.confで
DocumentRoot "/usr/local/apache/home"
ScriptAlias /cgi-bin/ "/usr/local/apache/cgi-bin/"
のようになっていると，外からはhomeの下にcgi-binが見えることになる。
以上のような混乱をしたことがあります。Web鯖をはじめていじったときに。
0847悩みっ子
NGNGcgiで掲示板を使っていますが、最近いたずらが多くて困っています。
そこで登録制にしようと思うのです。
ID/Passを発行してログインできるのですが、問題は掲示板です。
希望としては見るのは誰でも出来る。
でも書き込みしようとすると認証要求が出るか、ログインしてないと
いけない・・・っていう風にしたいんです。
一つのプログラムですけど投稿するときだけ制限するってできますか？
どうか宜しくお願いします。
0848名無しさん
NGNG投稿時にパス入れさせる。
0849二重投稿問題再び
NGNG>ログファイル本体の内容を参照するのでは駄目なの？
と上の方にあり参考になりました。
一つのHTTPアドレスを複数のサーバで処理するような大規模システムでは、
どうやって対処してるのでしょうか？宜しくお願いします。
0850名無しさん
NGNGどうやるんでしょうか？
ご存知の方レスお願いします。
0851名無しさん
NGNGありません。見えなくなったらブラウザも描画できないじゃないですか。
0852名無しさん
NGNGあるらしい。
しかし「表示」→「ソース」にするとどうなるんだろう？
0853名無しさん
NGNGShift+F10でもいいし、ブラウザ以外で見りゃいい。
HTML Encoder（だっけ？）というのもあるが、パス入力が必要なので客は逃げるだろう。
Flashしかないね。
0854名無しさん
NGNG無理だよ。
だって自分のブラウザで見えてる時点でソースを
料理してんだからさ
公開しないのが一番の方法
0855名無しさん
NGNG気をつける点はなんでしょうか？
下手するとやばいと聞いたので。
お願いします。
0856名無しさん
NGNG0857水もみ
NGNGGETで取得すると$ENV｛'QUERY_STRING'｝に「=」と「&」でくぐられて
データを取得できるじゃないですか？それでPOSTの場合どんなデータ構造して
受け渡されるのか教えてください。
どうやってPOSTを使ってCGIの方でデータを取得していいかわかりません。
たとえば
<input type="text" name="mailadd">って場合にCGIの方で入力したデータ
を$mailaddに入れたいときどうしたらいいのかな？って思ってます。
あとメールアドレス取得するときに@が入ってるんですがこれはなにか処理
をしなくちゃいけないんでしょうか？教えてください。
0858名無しさん
NGNG@data = split(/&/,$query);
foreach (@data){
($key,$value) = split(/=/,$_);
if($key == 'mailadd'){
$mailadd = $value;
}
}
0859名無しさん
NGNG read STDIN, $query, $ENV{CONTENT_LENGTH};
}
else{
$query = $ENV{QUERY_STRING};
}
データの構造はGETでもPOSTでも同じです。
処理は、@でも何でも、とにかく
foreach( split /&/, $query ){
( $name, $value ) = split /=/;
$value =~ tr/+/ /; # (1)
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2',$1)/eg; # (2)
$form{$name} = $value;
}
さえやってりゃOKです。
あとは場合によっては jcode::convert を使ったり、
場合によっては $name の方も(1),(2)を行なう必要があったり、
場合によっては $value =~ s/[^-.@\w]//g; で汚染チェックを行なったりします。
（何を言ってるのか解らないうちは、作ったCGIは自分だけで使おう）
0860水もみ
NGNGありがとう！！
ってことはほとんどGETと一緒で標準入力からもってきてる（？）って感じ
でいいのかな？
0861名無しさん
NGNGなんとなく解説・・。
$queryへSTDIN（標準入力）から$ENV{CONTENT_LENGTH}（データの量）分read（読み込む）
0862水もみ
NGNG簡単に理解できました。シンプリイヅベストっすねぇ〜
なっとく〜
0863名無しさん
NGNG0864ぶくぶく
NGNG掲示板に、レンタルのアクセスカウンタをつけるには、
どうしたらいいのですか
0865名無しさん
NGNG存在するのか？
それともマニュアルに2chで聞けって書いてあったか?
0866名無しさん
NGNGコード化されてしまう場合が、１００回に１回くらいあるようです。
これってIE５．０で起きてるのですが、これってバグですか？
0867名無しさん
NGNG0868名無しさん
NGNGhttp://images.amazon.com/images/P/4072227986.09.LZZZZZZZ.jpg
0869名無しさん
NGNG知らんのか？
0870名無しさん
NGNGhttp://japan.infoseek.com/Titles?qt=Perl&lk=noframes&qp=0&nh=10&svx=101640&col=JW%2Ccat_RES&oq=%A4%E9%A4%AF%A4%C0
この板１番の らくだ博士 になれるかも...
0871名無しさん
NGNG送信したログデーターを別の鯖のファイルに出力することは、化膿でしょうか？
0872AyuMoe(JAPU)
NGNG日本語で質問してください。
0873名無しさん
NGNG0874名無しさん
NGNG0875867
NGNGこれから勉強していこうと思います。
ありがとうございました。
0876初心者
NGNGメールアドレスに使用できる文字がわかりません。
メールアドレスに使用できる文字が書かれているのはRFCのいくつなのか教えてください。
またはRFCの全文検索のできるサイトがあれば教えてください。
0877AyuMoe(JAPU)
NGNGかな。
正規表現で書くのは非常に面倒なので、素直に Mail::Address モジュールを使おう。わざわざ車輪の再発明するのは多くの場合無意味です。
use Mail::Address;
$addrs = << 'EOF';
Just Another Perl User <AyuMoe@JAPU.ORG>
Webmaster <webmaster@JAPU(Ayumoe).org>,
hoge@JAPU.ORG (Just Another Perl User)
EOF
@addrs = map { $_->address } Mail::Address->parse($addrs);
print "@addrs\n";
ここからゲット。http://search.cpan.org/
RFCの検索はここ。
http://www.rfc-editor.org/rfcsearch.html
http://rfc.asuka.net/
0878876
NGNGありがとうございます。
＞わざわざ車輪の再発明するのは多くの場合無意味です。
あえて自分でやってみたいんです。
0879超初心者
NGNG比較対象を変数にするってのは無理なんでしょうか？
if ($a =~ /$b/) { ; } else { next; }
こんな感じで比較したいんですけど、なぜかできなくて。。。
//の中は変数じゃダメなんでしょうか。
それともう一つ。
またまた文字列比較なんですが、年齢を比較したくて
$cに20、$dに20〜25 という文字が入っていたとして
$cが$dの間に入っていればtureを返す構文の書き方を
教えてください。
先生方、よろしくお願いします
0880Ｔ女の竹田
NGNG一番目
$b=~s/\+|\\|\(|\[|\{|\^|\$|\*|\?|\./\\$&/g;
を前に入れると(・∀・)ｲｲ!!
ようするにメタ文字が入っていたらそれの前に\を
つけるってこと。
0881Ｔ女の竹田
NGNG後半
if ($c >= (split(/〜/,$d,2))[0] && $c<= (split(/〜/,$d,2))[1]) {hoge;}
でどうかな。
0882教えて下さい
NGNGアドレスを知られてしまいました。アクセス解析を取っているのですが、
明らかに会社からアクセスした形跡があるんです。（時間的に、
自分が帰ってからだし、その時間まで残っている人間は一人）
特定のIPをはじく方法はありますか？
真面目な話、ストーキングされそうでとても怖いんです。
お願いします。
0883AyuMoe(JAPU)
NGNGif($a =~ /\Q$b/) { ... } とするか、
$b = quotemeta $b; if($a =~ /\Q$b/){ ... } とするか、
if((index $a, $b) > -1) { ... } とすればよいです。
0884882
NGNGすみません、教えて下さい。
自分で調べたら、掲示板のいたずら書きこみを
やめさせる方法とかはありました。
reuire './_icode.pl';
っていう後にipを書くやり方。でも、これだとcgiのページしか
出来ませんよね？自分のＨＰのＴＯＰページで弾きたいんです。
お願いします。
.htaccessっていうファイルを作る方法も調べました。
<limit get post>
っていう方法。でも、私perl初心者で分からないけど、postって
掲示板とかの投稿を防ぐやり方じゃないんですか？
本当に困っています。どなたか、教えて下さい。お願いします。
0885Ｔ女の竹田
NGNG\Qって知らなかった…ﾊｽﾞｶｼ
\Eとセットなのね
φ(．． )ﾒﾓﾒﾓ
0886名無しさん
NGNG<Limit GET POST>
order allow,deny
allow from all
deny from 会社のIPとかHOST
</Limit>
じゃだめ？
0887882
NGNGレスありがとうございます。
書いていただいたのをそのままエディタで書いて
.htaccess保存して置けばいいんですか？
postって書いてあるから、掲示板とかの書きこみ撃退だと
思っていました。やってみます。
0888とび対策
NGNG0889名無しさん
NGNG<Limit GET POST>と</Limit>があったら意味ないって。
そんなものつけてたら全部弾けない。
882=887の方がわかってる。
0890名無しさん
NGNG0891名無しさん
NGNGhttp://japache.infoscience.co.jp/japanese_1_3/manual/mod/core.html#limit
0892名無しさん
NGNG0893名無しさん
NGNGlimitあるのとないのではどう違うのかjapuさん教えて
0894AyuMoe(JAPU)
NGNGhttp://httpd.apache.org/docs/mod/core.html#limit
あたりを見てください。
>>891 のURLでもよいけどさ。
0895亀詰
NGNGCGIのパーミッションなんですけど
普通755〜700で動きますよね？
なんか最近借りたところ動かなくて困ってます
ここなんですけど
http://www.mixedmedia.net/
だれか使ってる方いたら教えてください
サポート問い合わせても応答ないし。゜(Ｔ^Ｔ)゜。
0896名無しさん
NGNGIn the general case, access control directives should not be placed within a <limit> section.
つまりlimitないほうが良いかもってこと？？？
あと、limitの中で指定するmethodは
GET, POST以外にもたくさんあるけど
特定のIPからすべてのアクセスを拒否する場合
結局どれを指定すればいいのですか？
googleで検索してみたけど
なんだか盲目的に<Limit GET POST>ばかりで・・・
中には<Limit GET>でだめな場合は
<Limit POST>でとかあって・・・
さらに<Limit GET POST PUT>とか・・・
methodについての肝心の説明がなかなか見つかりません
0897名無しさん
NGNGだれか教えてもらえないでしょうか・・
DLしてきたNet_SSLeay.pm-1.03.tar.gzの中に入っていた、.pmファイルを
MacPerlのlib/Netの中に突っ込んでみただけで動くもんだと思ってたのですが、
どうやらそう甘いもんでもないようで、エラーが返ってきてしまいます。
0898名無しさん
NGNGwhich perlとか。
>>896
HTTPのmethodのうち，制限をかけるものとかけないものを分けるときに使うものと
解釈しております。
http://www.w3.org/Protocols/rfc2616/rfc2616-sec9.html
それより
<IfModule mod_access.c>
Order allow,deny
allow from all
deny from 2xx.xxx.xxx. ←会社のIP（クラスC）
</IfModule>
じゃダメなんかい？別のネットワークから見られる可能性があるけど。
.htaccessの偉い人擦れも参考に。
0899名無しさん
NGNGヒントを教えてください
0900AyuMoe(JAPU)
NGNG1. JavaScript を無効にします。または非対応のUAを使用します。
2. Mozilla 0.8であれば、prefs.js に以下の行を追加します:
user_pref("capability.policy.default.windowinternal.open","noAccess");
user_pref("browser.target_new_blocked", true);
3. adzapper などの広告カットプロクシサーバを利用します。
0901giko6@†
NGNGそこの利用者でCGIも組んだり使ったりしてるけど、
今まで動かなかったことない。まさかCGIの書きミスして
500エラーってこたないよね…
0902896
NGNG私はlimitあるのとないのではどう違うのかが
知りたいだけなので、リンク先で勉強してきます
＞.htaccessの偉い人擦れも参考に。
こちらでもlimitないほうがいいみたいな事書かれてますね
あると有害とまで書かれてるし・・・
でもアクセス制限の解説ページには、ほぼ100%limitがある
ふぅ・・・
0903名無しさん
NGNG同じ理由で、俺も最初<Limit>は必須だと思ってましたね。大笑い。
ああいう解説ページはみんなどっかの情報の丸写しなんじゃないすか。
0904名無しさん
NGNG他のパッケージはどうやってインストールしてます？
Mac使いではないので詳細は不明ですが、
同様にインストールすればいいと想います...
# MacShell(?) とか使うのかな???
0905897
NGNGお恥ずかしいことにモジュールのインストール自体初めてで、
試行錯誤でいろいろ試してはみてるのですが、ひたすらエラーの連続です。
0906８９９
NGNG0907名無し
NGNGMethod Not Allowed
というエラーが出るんですけど、どうしたらいいですか？
0908名無しさん
NGNGそれはサーバ側のメッセージですか？
それともそのスクリプト側のメッセージですか？
0909名無しさん
NGNGモジュール化するという方法はサーバー上では
正常に動かないものなのでしょうか？
自分で試しているのですがスクリプトエラーが
起こっているようなのです
0910名無しさん
NGNG配列の中身は
'23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9'
だったとして、$xxという変数にa〜dのいずれかの文字が入ります。
例えば$xxにcが入ったらcという要素を含む3要素目の'14<>c<>3'
の3を1増減、4にして
'23<>a<>0','26<>b<>5','14<>c<>4','30<>d<>9'
になった配列をデータファイルに上書き保存したいのですが
どのように組めばよいのでしょうか？
open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
@LINES = <IN>;
close (IN);
$i = "0";
foreach (@LINES){
($t1,$t2,$t3)=split(/<>/,$_);
if ($xx =~ /\Q$t2/) { last; }
$i++;
}
$t3++;
$all = $t1;
$all .= '<>';
$all .= $t2;
$all .= '<>';
$all .= $t3;
$all .= '\n';
$LINES[$i] = $all;
open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
print OUT (@LINES);
close (OUT);
こんな感じで組んだんですが、全然ダメで。。。
どなたか教えてください。
0911Ｔ女の竹田
NGNG'\n'→"\n"（シングルクォーテーションでは改行に変換されない）
なお長いので
$all = join('<>',$t1,$t2,$t3)."\n";
としたほうがいいかも。
それと、$xxの中身を含む要素の値を変えたいんだよね？
それなら if ($xx=~/\Q$t2/) の所は if($t2=~/\Q$xx/)だと思う。
0912_gunzip
NGNG-----
#!/usr/bin/perl -w
@array = ('23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9');
@array = map{
@t = split(/<>/,$_);
if($t[1] eq "c"){
$t[2]++;
$_ = join("<>",@t);
}
$_;
} @array;
print join(",",@array);
-----
とか。
0913名無しさん
NGNGどう違うのでしょう？
UNIXから入らないとだめですか?
0914/bin/名無しさん
NGNGmy($xx) = 'c';
my(@LINES) = ('23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9');
my($i) = 0;
foreach (@LINES) {
split(/<>/);
$_[1] eq $xx ? last : $i++;
}
$LINES[$i] = join('<>', $_[0], $_[1], ++$_[2]);
なお、上をそのまま組みむだけでは動かない(と思う)。
また、ファイルの読み書きも確実に間違ってるので、
print "[$LINES[0]]";
とか
print @LINES;
print "---\n";
print join("\n",@LINES), "\n";
とかを試して自分で考えてみること。
0915/bin/名無しさん
NGNGmy($xx) = 'c';
my(@LINES) = ('23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9');
foreach (@LINES) {
split(/<>/);
if($_[1] eq $xx) {
$_ = join('<>', $_[0], $_[1], ++$_[2]);
last;
}
}
0916名無しさん
NGNG書き方間違ってるのかなぁ？？
open MAIL , "|$nkfpath -j | $sendmail -t " or die "メール送信処理失敗\n";
print MAIL "From: $m_mail\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $m_sub\n";
print MAIL "Return-Path: $Errmail\n";
print MAIL "Errors-To: $mail\n";
print MAIL "Mime-Version: 1.0\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-Type: text/plain; charset=\"ISO-2022-JP\"\n\n";
print MAIL "$m_com\n";
close(MAIL);
これだけじゃ足りない？？
0917AyuMoe(JAPU)
NGNGで、Return-Path:, Errors-To: を付けるのは明らかに間違っています。前者はユーザレベルで付けるものではなく、後者は標準的なものではありません。エラーメールの送信先を変更したければ、-f you@example.com のようにしましょう。
0918916
NGNG＞一部の村でしか通用しない、わけわからん略語を使うのはやめよう。
すいません メールアドレスですね(^^;
それで
print MAIL "Return-Path: $Errmail\n";
print MAIL "Errors-To: $mail\n";
の2行を消してみたんですけど、やっぱり届かない。。
ちなみに届かないメールアドレスのサービス会社は
http://www.24h.co.jp/です
ほかは届くのに何故なんでしょ。。
0919AyuMoe(JAPU)
NGNG(24h.co.jp ではSPAMのブラックリストを利用していて、
その送信元のサーバがそのリストに登録されていれば受け取り拒否されます。)
http://www.orbs.org/
http://www.maps.vix.com/
0920916
NGNG諦めるしかなさそうですね(^^;
AyuMoe(JAPU) さんありがとうございました<(__)>
0921むぎ茶
NGNG＞一部の村でしか通用しない、わけわからん略語を使うのはやめよう。
わからない奴のほうが一部の村だろ。（ｍ
┐(´ー｀)┌
┏━━━━━━━━━┓
┃（'Д'）y ─┛~~ ┃
┃むぎ茶 ┃
┃mugicha@360.cc ┃
┗━━━━━━━━━┛
http://www.freeml.com/ml_info.php?ml=bitvalley
0922/bin/名無しさん
NGNGてか、ブラクラしこみたいんだよね。厨房がウザいから。(笑)
0923/bin/名無しさん
NGNGやりかた知らないけど。(笑)
0924名無しさん
NGNGは難しいですよ
2chですらあなたの書込みを制限出来てないもん
0925ヒロヒト（顔面神経痛）
NGNG0926一回のアクセスで
NGNG0927名無しさん
NGNGいちばん簡単でしょうか?
0928927
NGNG0929困ってマス
NGNG| フレーム１ |
|___________________|
| フレーム２ |
|___________________|
| フレーム３ |
|___________________|
こんなフレームの構成で、
フレーム１、２には複数のオブジェクトが
あって、フレーム３にsubmitボタンがあります。
で、フレーム３のボタンを押したら、１、２の
オブジェクトの内容を取得して、フレーム２のみ
再読込したいんですけど、そういう事は可能ですか？
0930929
NGNG右がヘコんだフレームじゃありません
レス数が900を超えています。1000を超えると表示できなくなるよ。