CGIとかPerlとか超初心者なんだけど、

てか何もわかってない厨房なんだけど、掲示板を自鯖へ移転する必要性
が非常に高くなってきたのです。
http://green.jbbs.net/travel/511/saitama.html

ス連でも相談にのってもらってるんだけど、ここでも相談したい。
とりあえずFTPって何？どういうふうに使うの？

Furefure Tin Pocoの略

確かにPerlは関係ないと思う。

FTP知らなくても運営出来るのね。

ファイルをサーバーにコピーしたり、サーバーからコピーするための仕組み。
詳細はこちら。ftp://ftp.isi.edu/in-notes/rfc959.txt
FTP クライアントと呼ばれる種類のソフトが使う。人が意識する必要が
あることはめったに無い。

・・・もうちょっと「ほーむぺーじを作ろう」といった本とか雑誌とか
読んでから質問してくれ。

>>5
RFCは詳細すぎ(笑

>>1
とりあえずWeb制作板でウェブサイトの基本知識を学んでから出直してきてくれ。
http://natto.2ch.net/hp/index2.html

>>5
RFCは詳細すぎ(笑

>>1
とりあえずWeb制作板でウェブサイトの基本知識を学んでから出直してきてくれ。
http://natto.2ch.net/hp/index2.html

二重書き込み失礼した…

ファイル　飛んでけ　プロトコル（FTP）

ファイル
転送プロトコルを使う時のURIの
プレフィクスがftp://

FTPはファイル転送プロトコル。
「Fairu Tensou Purotokoru」 の略だよ。

２チャンみたいな掲示板
を作成するプログラムを知りたいのですが、
自分のサーバはCGI対応になってますが、動きますかね。

むむ、ガード下げるとガンガン来るみたいだ　　ｗ
>>12
一杯有るよ、動くかどうかは解らない

素敵なスレッドをありがとう
どうやら夏休みみたいですね（ｗ

>>13
動くかどうか分らないって何？それとSSI？というのを聞いたのですが
CGIとどう違うのかな。

>>15
>動くかどうか分らないって何？
動くかどうかは自分で試せ。

>それとSSI？というのを聞いたのですがCGIとどう違うのかな。
検索エンジンで調べろ。

>>15
聞く前にやってみて
「こうしたけどここがこう駄目だった」
と聞くのが筋だろ。。

夏休み限定ルール「1行質問には1行レスで」ってね、、、疲れるよ。

初めてこの板に来たのですが、優しみさんが多いですね。
悪いモノでも食べたんですか？

>>19
夏房の大量発生に疲れ果てているだけ。

CGIファイルの中身をテキストで開いて変更したのですがそのまま保存しますとテキストでの保存となってしまうのです。
中身を替えた後もう一度CGIファイルのままで変更の設定を保存するにはどうすれば良いのでしょうか?
素人なので申し訳御座いませんが教えて頂けないでしょうか。

Ctrl+Sで、上書き保存すれば、いいんでないの？

>>21
一つの板内でマチポストとはなかなかやるな。
氏ね。

>>21　エディ太使え

テキストファイルからCGIファイルにするには、.cgiをつけるだけだ。
ＣＧＩをテキストで開いて変更して保存するとテキストになる？！なんだそれは。メモ帳でもそんなことないぞ。メモ帳が悪いのか、オマエの頭が悪いのか、どっちだ？

WINだと設定によってそうなっちゃうんだよhogehoge.cgi.txtみたいに
、、つーか何で一ヶ月も前のに熱くレスする。。。（´Д｀；）

自作のcgiが動くかどうが試すとき如何やてやるの？

IIS使ってズタズタになるの

>>27
ローカル

>>29
それは、アクティブパールを使うってこと？折れはあれ入れたらメモリ不足らしく、動かなくなったので消した。

>>30
ならCygwinを入れてw3mでも使うんだね

メモ帳で保存するとき、

"hogehoge.cgi"　で保存すると
hogehoge.cgi.txt　にならない。
ダブルクオーテーションをつけるのじゃ

とほほの入門にもさらっと書いてあるよ

折れはテキストになったことはないがなにか？
datファイルを作ろうとしたら、.dat.txtになるが、それもダブルクオーテーションをつければＯＫなのか？

ほんとだ・・知らなかった。折れは、ＦＦＦＴＰで名前を変えてdatファイルにしてたが。ＣＧＩは難しいな、やっぱ、『ＣＧＩのための実践入門Ｐｅｒｌ』を読まないとダメか。

cgi置いたんだけど、
Internal Server Error
がでました、parlのパスがソースと一致してるかどうか
見るときどうするの？？また違ってた時の変更は？
おおねがいしやっす

dosで変更したいのです

このスレ、頭痛がする。

>>27,30
CGIってのは単純に言うとプログラムをWebサーバーから実行すること。
だから、Webサーバーとプログラムの実行環境の二つをそろえる必要がある。
Windows上でこの二つをまかなうとして、WebサーバーはIIS、PWS、AnHTTPDが有名。
後者はPerlと仮定するとActivePerlが有名。
#つか、これぐらい調べられない人には無理だからあきらめな。

>>32,33
なんで、そこまでしてメモ帳を使う？
フリーのeditorなんか vectorでもいきゃごろごろしてるじゃん。
CGIが難しいというより、Windowsが難しいというべきだなあ。
ファイル名一つ自由につけられないんだったらさ。

>>34
まずエラーログを確認。つっても、どうせ
「プロバイダのサーバーでエラーログ確認できません」とか
言うんだろうなあ。はい、プロバイダのサポートに
「Perlへのパスを教えてください」とメールを打ってね。
どうせ/usr/bin/perl か /usr/local/bin/perlのどっちかだと思うけど。

>>35は意味不明だなあ。Windows上のサーバでっていう話なんだろうか。
Windows上なら特に #!を有効にする必要はないと思うんだが。
関連付けしさえすればいいんじゃないの？　Windows上のwebサーバーを
扱えるほどスキルフルじゃないから、よくわからん。

サーバはperlの位置：/usr/bin/perl です。
今のcgiファイルのパスが分らないのです
unixのwhich parl
と同じことをftpでしたいのれす。。

/usr/local/bin/perlになっているはづだから
変更したいのれす助けて！！

>>34
ここに答えがあるぞ。
http://natto.2ch.net/denpa/index2.html

誰かしらない？

>>34
知ってる知らないの問題じゃなくて
質問のレベルが「思いもよらないもの」なだけだと思うけど・・・

エディタか、なければメモ帳でそのcgiファイル開いて１行目
これを現在のサーバのパスと同じモノに書きかえる。

・・・そーゆー意味じゃなくって？

>>37
34のサーバーでwhich perlしてみました！
% which perl
/usr/bin/perl

#1/usr/bin/perl;print "Content-Type: text/plain\n\n";print "Hello! CGI.";
このスクリプトです。
５００Internal Server Errorがどうしてもでるのです
なんででそ。。。

>>43 ３４

#1 ・・・#!
びっくりまーくだよ！

***.com/cgi-bin/hello1.cgiで開くのが悪いのかな
やっぱりできない５００Internal Server Error
がでます。
それとも改行がわるいの？

泣きたいー！

一行目に全部詰め込むな。

#!/usr/bin/perl
print "Content-Type: text/plain\n\n";
print "Hello! CGI.";

>>47 それもあったか・・・

３４へ
そういう質問だったらPerl初心者スレの方が良いかと思う。
（思わずageで答えてしまったけど・・・鬱）
このスレの方向性（？）って、
超初心者というより超初心者未満だから
はじめは設置方法の質問かと思ったよ。

【Perl 】初心者コーナーPart6
http://corn.2ch.net/test/read.cgi?bbs=php&key=996075607

ぎゃーできたよ！！ありがとーーー
これから一歩一歩進んでいきまーっす
またお願いするかも、その時ばかにしても
いいからまた教えてね。

思いっきり遅レスだけど、
一時書き込み不能でした、今度から初心者コーナーに
活きます！

頭痛がする中よくがんばったよ。>>36

どーしてそこまでしてメモ帳を使うかってことだけど、おれはdatファイルが作れなかっただけです。なので、ダブルクオーテーションをつけるっていうのは、非常に助かった。ありがとう。
ちなみに、個人的にはパールエディターと秀丸を使ってる。秀丸はかね払う気ないから、基本はパールエディターになるかな。メモ帳でもいいけど、メモ帳の場合、ちょっと長いスクリプトとかになると開けないし、文字列がおかしくなったりするので。
アクティブパールは入れたいんだけどね。めんどいから、サーバーにアップして使う方でいい。メモリ不足だし。

>>51
サーバーをテストに使うなよ。

>>52
だって、ローカルでテストできないし。

メモリ不足でActivePerlを入れられないってのもおかしな話だな。
いやネタなんだろうけどさ（ｗ

>>54マジです

お前はCGI使うな。迷惑だ。

なんにしても、ローカルテスト環境も整えられない
奴にはCGI使う資格なし。

.htacceseってファイル名作るのはどうすれば良いですか？

touch .htaccess

>>59
touchもファイル名に入ってますけど大丈夫なんですか？

?　コマンドラインから実行すれ。

>>61
きっと 58 はwindows上の話なんだろ。

>>58
windows上を仮定して。
まともなeditorなら.htaccessという名前でファイルを保存できるよ。
できなきゃ、a.htaccess というファイルを作ってサーバーに転送したあと
FTPソフトでファイル名を変更したら？
#DOS窓で dir > .htaccess としてもいいよ。

>>60
touch は平たく言うと、unixで任意のファイルを作るコマンドです。
＃あくまで、ひらたくいうと。

>>61
すみません。意味がわかりません。
DOSプロンプトに打ちこむってことですか？
ほんとすみません。

>DOSプロンプトに打ちこむってことですか？
YES!

>>62
助かりました。
xyzzyというエディタを使って出来ました。
ありがとうございました。

そんな、ローカルでやったらメモリが足らないんですもん
文句ならおれじゃなくてパソコンに言ってくれよ
それか、アクティブパールに言ってくれよ

>>66
というか、その事象がよく分からないんだよなあ。
「メモリが足りない」ってのは、どうやって分かったの？
どんな作業をしていたら、そう思ったの？

>>67
アクティブパールを入れて、ローカルで起動したのはいいが、終了しても他のプログラムが開けない。
アクティブパールを消したら直った。

でも、やっぱローカルで試さないといけないんなら、ちょっと頑張ってみるつもり。Ｐｅｒｌは覚えたいし、Ｐｅｒｌで掲示板とか作ってみたいんで。
頑張ってみます・・。(´ﾍ｀;)　本も買いなおし・・・。

>>68
インストールはできて、ActivePerlでスクリプト実行まではできたわけ
ですね。で、スクリプトの実行を終了させた*のに、他の
プログラムの起動時に「メモリが足りないぞｺﾞﾙｧ」表示がでたと。

動かしたスクリプトが無限ループになってたりして、メモリバカ食い＋
実はperlが終了してなかったに1票。

そういうときはctrl-alt-delで perlを強制終了させましょう。

>>69
とりあえず、この前買った2800円の本で理解できなかったので、2350円の相当わかりやすい本を買いなおして、それでＰｅｒｌを覚えて、『ＣＧＩくらい書けますがなにか？』っていうレベルに達してから、アクティブパールを入れてみる。
サブルーチンを書くだけなら、.plになるから、ＤＯＳプロンプトで開けたような気がする。

頑張ってみます。

>>69
漏れも1票！
こんな人と一緒にサーバ共有してるかと思うと、ISPに文句いうのも自重したくなるYo!

village-C
部屋３ ケン 国士舘大学
部屋６ まさ 芝浦工業大学

ケンは女性待機用 部屋１２にも入室中

すみません。72は間違えて書き込んでしましました。

age

このスレでまじめに答えてる住人の皆様って。。偉いよ。。マジで。。
感謝sagesage

>>74
しかもあげんなや藁

2ch閉鎖危機で注目浴びたgzipについてですが・・・

サーバーにmod_gzipが組み込まれている場合は
勝手にgzipで圧縮してサーバーはデーターを送り出しているの？

例えばCGIで
if($ENV{'HTTP_ACCEPT_ENCODING'}=~/gzip/ ){
print "Content-type: text/html\n";
print "Content-encoding: gzip\n\n";
open(STDOUT,"| /bin/gzip -1 -c");
　　　　　｝
なんて事をわざわざ書かなくても圧縮してくれるんでしょうか？

.cgiを圧縮するよう httpd.conf で設定されている場合は、
CGIで圧縮する為の記述は必要はありません。

勝手に Accept-Encoding に gzip が入ってるクライアントに
対しては圧縮して転送してくれます。

(◕ฺ∀◕ฺ)

掲示板の削除処理をやってるんですが５００エラーがでてしまいます。
文法は間違ってないはずなのですが、考えられる原因がいまいちわかりません。
ちなみに削除の部分はこんな感じです。

sub kill_action {
if ($in{'number'} eq "") { &error("記事Noを入力してください"); }
elsif ($in{'number'} =~ /\D/) { &error("記事Noは半角数字で入力してください"); }
elsif ($in{'pass'} eq "") { &error("PASSを入力してください"); }
&lock1;
&menber_read("lock2");

#--PASSを暗号化--#
$crypted = crypt($in{'pass'}, "ht");

#--削除対象データが見つかるまでループ--#
$flag1 = 0;
$flag2 = 0;
foreach $line (@DATA) {
($no,$name,$mail,$sex,$hoop,$age,$prefecture,$street,$object,$beginyear,$beginmonth,$beginday,$beginhour,$endyear,$endmonth,$endday,$endhour,$ninzu,$shikou,$comment,$date,$H_A,$id,$m_pass) = split(/\,/, $line);
if ($in{'number'} eq "$no") {
$flag1 = 1;
chomp $m_pass;
if ($crypted eq "$m_pass" || $in{'pass'} eq "$master_key") {
$flag2 = 1;
$line =~ s/.*\n//;
last;
} else { &lock2; &error("PASSが一致しません"); }
}
}

#--削除対象Noが見つからなかった場合のエラー処理ー--#
unless ($flag1) { &lock2; &error("記事No$in{'number'}が見つかりません"); }

if ($flag2) {

if (!open(OUT,">$menberfile")) {
&lock2;
&error("$menberfile ファイルオープンエラー");
}
print OUT @DATA;
close(OUT);

&lock2;

ちなみにあやしいとおもうのは$streetにはスペース区切りで複数の単語が入っているんですが、これは関係ないでしょうか？
本当に困ってます。どうか宜しくお願いします。

big.or.jpの掲示板なのですが、
PERLで書いたFTP経由のプログラムはサーバ上許されているでしょうか、
サブルーチンで、掲示板にFTPプロトコルを使ったPERLを加えることは
許されていましたっけ・・・宜しくお願い致します。

>>83
意味不明すぎ。

http://www24.big.or.jp

ここにあるサイトの掲示板で、
サブルーチン処理をして掲示板に昨日を加えたいのですが、
訪問者に対してFTPでアクセスする様なスクリプトを機能させる事は
出来るでしょうか？　という事です・・PERLでかかれているスクリプトです。
エラーになってしまうので・・・。

レス感謝します。

>>82
それで500は出ないと思う。
Content-Type吐かずに終了しちゃってるとか、ブラケットが
抜けちゃってるとかじゃないの？
ソース上げれば詳しい人が答えてくれるかも。
>>85
良く分かんないけど、bigさんに聞いた方が良いと思いますよ。

>>86
ありがとうございます。
Content-Typeもブラケットも確認したんですが、これといって異常は見つかりませんでした。
削除処理に入ってからの500エラーなので変数なんかの単純な間違いなのかも知れません。
もう一度よく見直してみてソースをＵＰしてみます。

いろいろ調べては見たのですがやはり間違いが見つかりません。
一応、フォームデコードをUPしてみますが、なにか間違いなんかありますでしょうか？
是非宜しくお願いします。

sub form_decord {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }

#--フォームデータを分解--#
@parameters = split(/&/,$buffer);
foreach $element (@parameters) {
($parameter, $value) = split(/=/, $element);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

# SJISコード変換
&jcode'convert(*value,'sjis');

#--正規表現--#
$value =~ s/,/./g;

#--削除データがあれば配列に追加--#
if ($parameter eq 'delno') { push(@DEL, $value); }

#--希望商品データを変数に追加(スペース区切り)--#
if (index($parameter, 'hoop') == 0) { $hoop .= "$value ";}

$in{$parameter} = $value;
}

$page = $in{'page'};
#--ローカルタイムを取得--#
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$year += 1900;
$month = $mon+1;
@dayname = ('日','月','火','水','木','金','土');
$date = "$year年$month月$mday日（@dayname[$wday]）";
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$date00 = sprintf( "%d%02d%02d", $year, $month, $mday); # yyyymmddの形での日期
}

> 80=81=82
> &jcode'convert(*value,'sjis');
>
require 'jcode.pl'; していないんジャ？

> 80=81=82

&lock1 および &lock2 のコードを見てみたいナー。

>>89
KCatch.pm　とか使おうよ。
my宣言使ってなさそうだから　no strict;　を宣言してくださいな。

>>90>>91>>92
ありがとうございます！

>>90一応最初に
## 文字コード変換ライブラリまでのパス
require './jcode.pl';
と設定しています。

>>92
KCatch.pmって文法をチェックするやつですか？
今こういう奴をDLして使ってるんですが、もしより便利だったらDLしなおそうと思います。
でも違いがよくわからないので、アドバイスいただけたら助かります。
http://www.kent-web.com/support/faq/faq1.html#9

>>91
＞&lock1 および &lock2
これのことでしょうか？

sub menberlock1 {
if ($lockkey) {
local($lock_flag) = 0;
foreach (1 .. 5) {
if (-e $menberlockfile) { sleep(1); }
else {
open(LOCK, ">$menberlockfile");
close(LOCK);
$lock_flag = 1;
last;
}
}
if ($lock_flag == 0) {
&error("アクセスが集中しています");
}
}
}

sub menberlock2 { if (-e $menberlockfile) { unlink $menberlockfile; } }


>>90>>91>>92 さん。
本当に感謝です。涙

>>94
あ・・・ひょっとしてここですか？？？
ちょっとやってみます・・・

$menberlockfile を作成したり削除したりすることでファイルロックが
行なわれていますので、当然、このCGIが置いてあるディレクトリのパーミッションは
（恐らくnobodyさんに対して）書きこみ権限が必要で、CGIを実行するので
読みこみと実行権限も必要になります。
したがって、777 であるはずですが、OKですか？

>>90>>91>>92
できました！！
原因はおっしゃるとおり、lockの部分でした。
単純にlock名をまちがえてました・・・
ありがとうございました！！
本当にうれしいです！！

賛成の反対の反対ナノだ！ さん。
ありがとうございます！！
menberlock1とすべきところをlock1としていたみたいです。
やはりいつものミスが出てしまいました。
本当にありがとうございました。深く感謝します。

`=､;;;;;,,,,,,,:::,,,,,;;;;;,,,,`""''';;;;,, ､__
　　　　　　　　　　　　 ,.-'ﾞ''''',='";;;;;;;;",-,,;;;;;;ﾞ;;;;;;;;;l;;;;`,､
　　　　　　　　　　　／　　　`ｰ-...,;;;;;;;;;;;;,-‐/;;;;;;';;;;;;;;;;;;
　　　　　　　　　　./　　　　　　　　　　　　　`''''''""i;;;;;;;;ヽ
　　　　　　　　　　l　 ■ 　|,,,____/　　　　　　　　　　　|;;;;
　　　　　　　　　　|　　　 　|.:::::/　　■　　　　　　　　ﾉ;;;;　　　
　　　　　　　　　　ヽ、　　　|:::/　　　　　　　　　　_,／;;;'゛
　　　　　　　　　　　 `ヽ､_　|/　　　　　　　 _,,.,;‐';;;;゛゛
　　　　　　　　　　　　　　"'''=ｰ;‐---‐‐'';';"-''"゛

少し教えて頂きたいのですが

$data に書き込まれたURL（バラバラ）を
表示する際に正規表現をつかって
決められたURLに置き換えようと挑戦しています

$data =~ s/abc/def/sg;

これで　abcがdefに置き換わるとききやってみて
置き換え成功しましたが、

やろうとしている事が
URLで毎回違うのが書き込まれるため、
ワイルドカードみたいなものがいるとおもいました

<a href="http://****色んなURL****"> を　
<a href="http://www.yahoo.co.jp" target="_blank">

に置き換えるためには、どういった正規表現が必要なのでしょうか
教えて頂ければ幸いです。

ちょっと日本語の文法めちゃくちゃですね、、

ttp://www.din.or.jp/~ohzaki/perl.htm

ここは抑えておくべきダロ

>>101
有り難う＾＾　そこみて可能になりました
$data =~ s/href="[-_.!~*'()a-zA-Z0-9;\/?:@&=+$,%#]+/href="www.yahoo***/sg;
これでいけました有り難うございました

ものすごく初心者質問で恐縮なんですが、ディレクトリの
パーミッションを777で使うとどう危険なんですか?

また、特定のディレクトリ内に新規ファイルを作成・更新していく
場合は777じゃなくてもできるのでしょうか。

>>103
聞くより自分で調べろヨ・・
ttp://www.google.co.jp/search?hl=ja&ie=utf8&oe=utf8&q=permission+777&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja

>>103 参考にしる！
http://pc.2ch.net/test/read.cgi/php/1019487717/31

>>103
まあ滅多に無いけど、共有サーバーで他のユーザーのディレクトリ
覗けるようなところだとファイル消しまくり読みまくりになる。

Internal Server Error （５００）が出るんですけど何がおかしいのかが
全く分かりません。Parlのパス程度しか弄ってないし、
その他の設定も説明通りにやってるし。
何か分かりませんか？

何も分かりません

ＷｅｂＦｏａｍって言う奴を設置したいのですが５００って言うんですかね〜
出っ放しなんですよ。おかしい箇所はないと思うしパーミッションも正しいのですが・・・

おかしいからこそエラーがでるのだ。
そのWebFormの初期設定でも見直しなさい

>>70

CGIかけるといってる時点で終わっている。

確かに（ｗ

>>107はもうちょっと基本的な部分をどうにかしたほうがいい

最近、とあるゲームスクリプトの低負荷化を目指して、
ソース全面的に見直しているのですが、わかんないところがあるので教えて下さい。

・ハッシュと配列の差
・変数名の長さ

前者は消費メモリ量を見てもあまり差が出てこないので（ActivePerl使用）、
実装は整数をキーとしたハッシュなんじゃないかなと思っているのですが、
抜けの多い、範囲のでかいデータ量の少ないテーブルをハッシュに読み込むところを
配列に読み込んでも良いのか決めかねてます。

後者ですがそのまんまです、短い方が良いのでしょうか。
現在変数名に15〜20文字くらい平気で使っているのですが、
短くすればそれなりの効果は出てきますか。
やっぱり誤差程度でしょうか。

>>114
データ量大→ポインタ(リファレンス)
不要な変数(特にグローバル)→削れ
変数名(名前空間)→そりゃ短い方がそれなりに…
ファイル読出し→適した方法で
後は、myとか関数レベルのものもあるけど

基本的に、一般配布されるようなモノは不要なコメント及び変数が多い
どうでもいいが、Perlでやってる以上、どうしようもないかと

#!/usr/bin/perl

perlのパスていううのはわかるんですが、


#!　て何？
usr　て何？
bin　て何？

base64でエンコードされたshift-jis(?)文字列を、
eucに変換するコードがうまく働きません。

perldoc Jcodeの説明を参考にして、次のようなコードを
作りました
#$sjkeyは、base64に変換されたshift-jis(?)文字列
$jcode = Jcode->new($sjkey);
$jcode->mime_decode;
$euc = $jcode->euc;

これで、$eucには、eucに変換された文字列が入るはず
なのですが、実際には次のようなbase64のままの文字
しか$eucには入りません。

%uFF95%uFFFA%uFF91%uFF97

base64をデコードして、それをeucに変換する、のは
cgiの基本の基本のはずなのですが、分かりやすい書籍
などでも、分かりやすく説明したものが見つかりません。

ご指導いただけると、助かります。

>>117
その文字列は、 MIME-Header documented in RFC1522 に準拠しているのか?
そしてそれは本当にBase64でエンコードされているのか?

単純にBase64でエンコード、デコードするなら、MIME::Base64使うよ。

ＥＵＣに変換してやるから見せてみ

GyRCQWEkLzsvJDskZCEqGyhC

>>118
もう少し、状況を詳しくご説明いたします。

MacOSX用Internet Explorer5.2で「放送」という文字列を
JavaScriptの変数wordに代入して、escapeします。：
　(1) word = escape(word);
それをcookieに保存して：
　(2) document.cookie = word=' + word + '; path=/;';
そのcookieをperl/cgiから読ませます：
　(3) @key_value = split(/;�s/, $ENV{'HTTP_COOKIE'});
(1,2,3)により、「方法」が
　(4) %uFF95%uFFFA%uFF91%uFF97
となってしまいます。この(4)をeucの「放送」に戻す方法
を探していました。

ある方から、(4)がUnicodeに対応しているようなので、
　(5) $s1 =~ s/%uFF([A-F0-9]{2})/pack 'H*', $1/eg;
を使え、というご指導を受けました。「放送」を含む多くの文字が、
(5)のコードで、正しく処理できました。しかし、「資本」という文字
は、(1,2,3)の処理をすると、(6)に変換され、
　(6) %uFF8E%uFF91%uFF96%7B
(5)の方法で(6)を変換すると、最後の%7Bが変換されずに、(7)のように
なります。
　(7) 資%7B

よろしくご指導をお願いいたします。

あぼーん

>>121
$s1 =~ s/%uFF([A-F0-9]{2})/pack 'H*', $1/eg;
$s1 =~ s/%([A-F0-9]{2})/pack 'C', hex $1/eg;

>123
ありがとうございます。教えていただいた方法で、
「放送」も「資本」も正しくperl/cgi+JavaScript
で処理できました。これでほとんどの文字が正しく
処理できるようになりました。

しかし、極少数の文字は、正しく処理できません。
例えば、「頒布」をMacOSX用IE5.2のJavascriptで
escapeしてcookieで保存したものを、perl5.8のコー
ドでそのcookieを読ませると、「頒布」という文字が：

(1) %uFF94%u0415z

となり、教えてただいた方法では、元の「頒布」に戻せ
ませんでした。

教えていただいた方法で、大多数の文字は処理できるので、
(1)は深刻な問題ではありませんが、もしも解決する方法が
あれば、ご指導下さい。

>>124
ttp://hp.vector.co.jp/authors/VA014700/simaguni.html

>125
ありがとうございます。探していた情報は、まさにご指摘頂いた
サイトにありました。

$sに代入された値を*sでサブルーチンに渡す、というこれまで
使ったことのないコードのためが、UTF-16のデコードには、
まだ成功しておりません。

&simaguni'decode8(*s,'euc');

perl -wの"-w"やuse strictも外さないと、この関数は
エラーが出るようです。

「perl/cgiなのになせ早いの？」

apacheサーバーでperl/cgiを使っています。perl/cgi
だとユーザーからのリクエストを受けてから、
(1) perlが起動され、
(2) cgiスクリプトがコンパイルされ、
(3) コンパイルされたスクリプトが実行される
という作業が行われるために、mod_perlに比べて、「遅い」
という話を聞きます。

しかし、アクセス数の少ない私のサイトで自作したperl/cgiを
使っていると、「早い」と感じます。どう考えても、毎回、
(1,2,3)のプロセスが実行されているとは考えられません。

1度実行されたperl/cgiスクリプトはコンパイルされた状態で
キャッシュかなにかに保存されるために、2回目以降は、(1,2,3)
のプロセスの一部が省略されているのでしょうか？

それとも、perlという言語は、(1,2,3)の作業が異常に早いので
しょうか？（Javaでは、短いコードをコンパイルするのにも、
結構、待たされるので、なぜperlだと待ち時間がないのか不思議
です。）

>>127
マシンパワーにも左右されるだろうよ
キミのサーバーはまだ余裕がある上に、大したCGIでないから
速く感じるだけ。

×サーバー
○サーバ

>>123
> $s1 =~ s/%uFF([A-F0-9]{2})/pack 'H*', $1/eg;
> $s1 =~ s/%([A-F0-9]{2})/pack 'C', hex $1/eg;
皆様のおかげで，%xx形式のデータを日本語文字に
変換することができ，本当に感謝しております。

実はもう１つお願いがございます。

「放送」という文字列を，%95%FA%91%97という
符号に変換する方法を教えていただけないでしょうか。
（Jcodeを使って自分でやろうとしたのですが，どうして
もうまくいきません。もし可能であれば，Jcodeを使わ
ない：
　　$s1 =~ s/xxx/yyy/zzz;
とう方法を教えていただけると自分でも使えるので，
助かります。

=~ s/([^\da-zA-Z])/'%'.unpack("H2", $1)/eg;

use URI::Escape;
$str = '放送';
$encode = uri_escape($str);

>131
教えていただいた：
(1) $s =~ s/xxx/yyy/zz;
の方法で日本語のデコードもエンコードもうまく行きました。
本当にありがとうございました。

>>132
> use URI::Escape;
上の文字列でGoogleを検索して、%xx形式が、"strings as
defined by RFC 2396"というように呼ばれているのが
分かりました。ありがとうございます。

Jcodeにあるencode(), decode()で処理できると誤解して
おりました。use URI::Escapeという別のモジュールを
使うわけですね。

日本語処理は、難しいですね？

何？それは聞いてるの？

聞いているんですかね？

flockを使ってるんですけど
ファイル読み込みだけのときもlockしたほうが良いもんですかい？
open(IN,"hoge")
flock(IN, 2);
@hoge = <IN>;
close(IN);

読むだけならいいんじゃないの？

読み込みは共有ロック
書き込みは排他ロック
した方がいいんでは？

>>134
いいえ、別に難しいとは思いませｎ
ただ、一人勝ちの英語に比べるとずいぶん損してるなぁとは思う
英語圏の奴らは内容にどっぶり浸かれるもんな

あぼーん

バカニュース板の看板を半角2D板のようにローテーションさせたいと思い、自力でここまでは作りました。

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head><title>test</title></head>\n";
print "<body>\n";
$n = int(rand(3));
print "<img src=./$n.jpg><BR>\n";
print "</body>\n";
print "</html>\n";

このまま2ch運営さんにリンクしてもらってもダメですよね。2.jpgとかを、そのまま送りだすにはどうしたらよいでしょうか？
「おまえの頭じゃcgiは無理だ」は無しの方向で。

#!/usr/local/bin/perl
$n = int(rand(3));
print <<"EOF"
Location: ./$n.jpg

EOF
exit;
__END__

サパーリ意味がわかりませんが、とにかくありがとう！！！
これから解読にとりかかって、わからなかったら股きます（*´∀｀)ノﾊﾞｲﾁｬ

>>143
（　´,_ゝ`） ﾌﾟｯ

>>145
(ﾟдﾟ )ハァ？

（　´,_ゝ`）

>>143
Locationは相対パスじゃ飛べないブラウザあるぞ。
Locationの前にcontent-type出さないとエラー出すブラウザもあるぞ。

(ﾟДﾟ)ｼﾗﾈｰﾖ

Content-Typeは妙だね

>>143
そんな糞ソース晒すからレベル低いって言われるだろ！

お決まりの言っとくか。

>>151
じゃ、お前が書いてみろ。

>>151
どゆのがレベル高いんでしょ？

>>142
画像は0.jpg〜2.jpgでいいのかな？
#!perl
print "content-type: image/jpeg\n\n";
open(IN,int(rand(3)).'.jpg');
print <IN>;
close(IN);
こんなんつくって、<img src="">で呼び出してあげるんじゃ
だめ？？？

>>153
（　´,_ゝ`） ﾌﾟｯ　またやっちまったな

>>153
糞過ぎ(;´Д`)

>>154
143じゃないですよ？
なんか違う意味でまたなのかな？？？

>>145-147, >>149, >>151, >>154, >>155
これらの発言は、Perlを憎む某によって書き込まれています
気にしないで下さい

プログラム板のRubyスレとPerlスレ見れば分かる
例えば：http://pc3.2ch.net/test/read.cgi/tech/1028906179/206-

（　´,_ゝ`） ﾌﾟｯ
#!perl
use Inline Ruby;
main();
1;
__END__
__Ruby__
def main
print "content-type: image/jpeg\n\n"
file = open( "#{rand(3)}.jpg" )
print file.read()
file.close()
end

Dream ★あげ

>>158
それって、Windows環境で動くのか？

>>160
Inlineはppmで逝けるけど
Inline::Rubyがないので、気合いれてコンパイルすれば...
http://search.cpan.org/author/NEILW/Inline-Ruby-0.02/lib/Inline/Ruby.pod

>>161
へー、ルビーってテキストモードとかないということかぁ。。。

>>143
>>153
>>158

どれが一番ましよ？

>>163
>>143はどう見ても動かないだろ。だってヒアドキュメントがまともに書けてないもん。

だれがperl派でだれがRuby派かわからんのだけど...

>>161
Rubyよくわからんけど、Inline::RubyはXSモジュールなんで
コンパイルが必要。Rubyのソースも必要みたい。

>>163
>>143はエラー>>158はネタなので>>153で

>>165
それだっ！

＄うんこ
(･∀･)ｲｲ

質問です。CGIを自分のパソコン上で動かしたいのですが、以下のような文章が出ます。
ちなみに、普通のhtmlページは表示されます。

ページを表示できません
検索中のページには問題があるため表示できません。

--------------------------------------------------------------------------------

次のことを試してください:

localhost ホーム ページを開いてから、表示する情報へのリンクを探してください。
[更新] ボタンをクリックするか、後でやり直してください。

[検索] ボタンをクリックして、インターネット上の情報を検索してください。
関連したサイトの一覧 も表示できます。




HTTP 500 - 内部サーバー エラー
Internet Explorer

>>168, >>169
それはあなたのCGIが正常に機能していないためと思われます。
Perlでしたら、そのプログラムをコマンドラインで動かしてみれば
よろしい。コマンドラインがやなら、copalというプログラムを
インストールしてやってみるとよい。エラーメッセージが出る
はずです。それに従ってCGI（Perl）ファイルを修正してやり直し
すればよい。

>>168
500 Internal Server Error
なので、プログラムがおかしいのでは・・・
せめてデーモンなにつかってて言語は何つかててとか
書けない？

2chビギナーなので、よくわからんけど
【Perl】初心者コーナースレ
http://pc.2ch.net/test/read.cgi/php/1032070299/l50
の方が正統なスレだと思うんだけど、移動しなくてよいの？

>>171
確かに、このスレのスレタイは、よくないな。
移動するか

>>171, >>172
いいじゃん、需要結構あるんだからさ。
1000まで行って考えようYo

>>173
じゃぁこのままで^^;

perlスクリプトはperlccというプログラムで実行ファイルになるようですけど、
CGIで使う場合、perlccで実行ファイルにしておいた方が速いのでしょうか。
man perlccすると実験的な段階なので動作を保証しないといったことが書か
れてありますので、正常動作が確認された場合に限ってお聞きします。

>>175
print "Hello World";
をperlccでstaticにコンパイルしたら800KB以上になったのでやめたことがあります。

>>176
うちょっ、と思てやってみたら、
526249バイトになりました。だいたい合ってますね。
メッセージ見ると要らないライブラリまでincludeしてるような感じ。
もちょっと大きいスクリプトでやってみると、増大比率は少なくは
なりました。うーん、perlcc使ってるって話し聞かないとこ見ると
速さもあまり期待できないのかな。perlccってperlインストしてな
い人にプログラム渡すのに使うぐらい？

PerlってCを取り込めますけど、Cを取り込んでCGIを速くする
って話ありますか？ヒントとか参照HPでもいいですので、教え
てくらはい。

製作者の技術力に依存してる気がしますけど...
Storableモジュールは高速化のために中核部分をCで書いていると
ドキュメントの中で謳っています。

>>179
情報ありがとうございます。
今度、StorableモジュールとやらをCPANからもらって、
調べてみます。見通しが付いたら、両方で書いて（Perl単独およびPerl+C）、
速度比較でもやって見ます。

XSで書くかInline::Cで書くかって違いも..

>>181
調べてみます。ありがとう。

age

>>182
調べた結果はどうだったんだろう^^;

>>184
ごめんなさい。20日まで忙しくて試せないでいましゅ。
今月中には絶対書き込みますからね。

age

（＾＾）

ローカルでＣＧＩを動かしたところ，うまく動作しました。
で，インターネットテンポラリーファイルとクッキーを削除したら
クッキーが復活しません。
どうしたらいいですか？

どうしようもありません。

>>188
http://www.finaldata.ne.jp/
これを使え。

（＾＾）

（＾＾）

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

こっちのスレッドに書き込むべきだった。。。
yy-bbsを使っているんですが、書き込みをすると
Write Error : ./past/1.dat
とエラーがでます。今までは書き込めていたんですが…
修正方法を教えてください。
お願いします。

>>194
こっちのスレじゃなくてさ、作者に聞きなさい。

>>195
そうですよね。もうしわけございませんでした。

ファイルから読み込んだデータと追加したデータを
ひとつの配列にして１行ずつファイルに保存したいんですが
foreach $tmp (@arraytmp) {
print FILE $tmp;
}
@arraytmpのなかに
arraytmp[0]=100
arraytmp[1]=200
arraytmp[2]=300
とはいっていて
追加したデータがarraytmp[1]=200だとすると
出来上がったファイルには
100200
300
と保存されてしまいます。なぜでしょうか？

>>197
foreach $tmp (@arraytmp) {
chomp $tmp;
print FILE "$tmp\n";
}

>>198
改行コードのごみだったんですね。
ありがとうございます。

グーのゲストブックのようなhtmlを書き出すCGIがほしいのですが
サイトの更新に流用してみようかと思っていますが
シンプルな設計の物が見つかりませんが(ソースをのぞいて改造できるような)

誰か作って

>200
百合の脳ではどんなにシンプルなソースでも無理だろ。
悪い事はいわねぇから、一生シコってろ。

ファイルに
XXX.XXX.XXX,1000
AAA.AAA.AAA,900
BBB.BBB.BBB,800
と保存されているのを
２次元配列に読み込むには
どうプログラムを書けばよろしいでしょうか？
ARRAY[0][0]=XXX.XXX.XXX ARRAY[0][1]=1000
ARRAY[1][0]=AAA.AAA.AAA ARRAY[1][1]=900
こんな感じに入れたいです。

>>202
ファイルフォーマットはそれで間違いない？

英字3文字,英字3文字,英字3文字,数字

あぼーん

あぼーん

>>203
今の所はXXX.XXX.XXXはＩＰと思っていただきたいですが
何らかの文字列になるかもしれません。数字をおくってきた
ユーザーＩＤみたいなのも保存したくて。

まずは一行ずつ読み込んでそれからsplitで分割してそれぞれを別の配列に
読み込んだほうがいいのかも。

>>207
分割するためには区切り文字か位置がわからないとできないだろ。
正規表現を使うとしても元になる文字列が決まらなければ書きようがない。
もうちょっとやることはっきりさせてから出直して来い。

区切り文字は","だ！
それに今つくってる

>209

ほんっと初心者なんだな

CGIファイル内でテキストファイルを読み込み、そのテキストの内容を
表示したいのですが、そのテキストファイルにはCGIファイルで使われている
変数を書いておき、CGIを実行することで変数に入ってる文字列を
表示することってできますか？

例えば、
hyouji.cgiで$aaaという変数が使われていて、そこには乱数で文字や数字が入る。
で、text.txtに$aaaと書いておいて、hyouji.cgiを実行すると
文字または数字が表示される、みたいな。
何度か挑戦してるんですが、私がやると乱数で発生させて文字列ではなく、
「$aaa」ってそのまま表示されてしまうんです。
無理でしょうか？

>>211
ソース出してみなよ

あぼーん

あぼーん

あぼーん

あぼーん

ＣＧＩについての初心者の質問はここでいいのでしょうか？

http://ns.kita.ne.jp/~fanfare/kifbbs/tboard004.cgi
のように、アプレットが開くように改造するには、
どうすればよいのでしょうか？

チェスのＰＧＮファイルを同じように開きたいと思っています。
<applet codebase="http://www.chessclub.com/chessviewer/"
code=ChessViewer2.class
archive=ChessViewer2.zip
width=570
height=460 >

このようなものを組み込めばいいような気がするのですが、どうすればいいでしょうか？

私も同じＴＢＯＡＲＤ００４を使っています。
どうか教えてください。

>>281 >.289
cgi　は　アプレットじゃなく　ｓｓｉ　だよ

>>218 >>219 の間違い

>>220
それはネタか？

教えてくれない･ﾟ･(ﾉД`)･ﾟ･
初心者の質問コーナーはここなのでしょうか？

>>223
【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/l50

ここっぽいかな？

SSIでアクセスログ取ってるんですけど、
採取元がフレームページの場合って、ﾘﾌｧ取れないんですか？
フレームのメインhtmlの<frameset>の前にSSIコマンド貼り付けたのですが、どうしても
リファがとれません。
フレームのページにSSI貼り付けると、フレームのメインhtmlがリファになってしまいます。
どうすればいいですか？

>>225
そこら辺はようわからんが、
フレームの定義をしているページにアクセスログを仕込めばいいんじゃねーの。

>>226
俺の言い方悪かった。
フレームのメインhtmlを俺はフレームを定義しているページと、いいたかった。
ｽﾏﾝ

>>225
ttp://www.bayashi.net/st/pdmemo/frmaxs.html

CGIにカウンタをつけるにはどうしたらいいんですか？

>>229
改造でも埋め込むのでも・・・

掲示板にカウンタを付けたいのですが、
カウンタのプログラムを別にするのか、
それともそのCGIのなかに書き込めるのか
わからなくて

できればCGIのなかに入れたいんですが・・・

>>231
どちらでもかまわないよ

カウンタのプログラムはどうすればいいでしょう？

>>234
カウンターのソースを埋め込むのでも、レンタルカウンターを
埋め込むのでも好きなほうで。

ソースはどこで手に入りますか？

さあ、次の方どうぞ

if (-e "$lockfile")
の意味教えてください

>>238
もし$lockfileが存在するなら

ファイルテスト演算子でググれ

existのeだな

あぼーん

あぼーん

掲示板とかの書き込みで自動改行機能ってついてるけど、どうやったらできるの？

改行コードを<br>にしたらどうでしょう。

一行読んで、\nまでのながさが$maxLen以上だったら勝手に<br>を挿入

>>245
もうちょっと高級な奴だと、2byte(3byte)文字の存在を考慮して改行するよな。
jcodeの機能が使えるか？

ＣＧＩでユーザ別にもっているデータを
リストの項目に反映させたいのですが、そういうことは
できるのでしょうか？

>>247
頭使えばできる。
つか、CGIとかに勝手な変な幻想を抱くな。

そのための幻想配列だろ？

あぼーん

>>250
おおっ！お前は>>1かな？
相変わらず何もわかってない厨房なんだな

あぼーん

あぼーん

あぼーん

あぼーん

>>248
アホだから知恵を貸してほいかったりします。

（　´Д｀）/＜ 先生！！こんなのが有りますた。
http://togoshi.ginza.st/2ch/2ch05.html
http://www.togoshi.ginza.st/2ch/
http://www.togoshi.ginza.st/2ch/2ch03.html
http://togoshi.ginza.st/2ch/2ch02.html
http://www.togoshi.ginza.st/2ch/2ch08.html
http://togoshi.ginza.st/2ch/2ch06.html
http://www.togoshi.ginza.st/2ch/2ch10.html
http://togoshi.ginza.st/2ch/2ch04.html
http://www.togoshi.ginza.st/2ch/2ch07.html
http://togoshi.ginza.st/2ch/2ch01.html
http://www.togoshi.ginza.st/2ch/2ch09.html

>>258
ちゃんといいますと
ＦＯＲＭタグの選択メニューをユーザの持ってる情報を元に
選択メニューの項目を表示させるようなことをＣＧＩ（Perl）
で作りたいのですが。よろしくお願いします。知恵を貸して
ください。

あぼーん

すいませんが、質問です。

cgiはサーバにアップする前に動作確認するよう言われているのですが、
サーバにアップしないで動作確認する方法が分かりません。
JavaScriptやcssの動作確認でしたらhtmlファイルを開けばすぐ確認できますが、
cgiはエディタ（テラパッドを使用しています）からしか開き方を知らないので、
サーバにアップしないことには動作確認ができません。
基本的なことで申し訳ありませんが、確認方法を教えて下さい。

ドロップダウンメニュー項目の最大数って決まっているのでしょうか？

>>260
ローカルにサーバ立てろ。窓ならanhttpdがたぶんいちばん簡単。
>>261
やってみれば？

拡張子が「〜.cgi」のＢＢＳを使ってまして、この拡張子を「〜.dat」に変えたら誰でもログがＤＬできてしまうのを防ぐにはパーミッションを幾つに設定すればよいでしょうか。

>>263
鯖による。
やったとしてもBBSのスクリプトによっては読み書きできなることも。
わからないうちは変更せず作者の指示通りのまま使うべし。

>>264
レスありがとうございます。
理解不足であれもしたいこれもしたいになってしまう質でして・・・
でも詳しい方にそう言ってもらえると諦めもつきます。
そのまま使うことにします。

お聞きしたいのですが、cgiのメールフォームで送信ボタン押したら、Forbidden
って出るのですが、パーミッションの設定は何度見ても間違いが無いのです。
他に何が原因考えられますか？
初心者ですが、教えてください。
お願いします。

>>266
で、パーミッションの確認以外には何かした？
鯖の管理人に聞くとか、CGIの作成者に聞くとか。
もちろん、それくらいしてからここに書き込んだんだよなあ？

>>266
初心者と言っておきながら間違いがないと言い切る自信は（ｒｙ
使っているスクリプトも鯖も書かずに（ｒｙ

初心者だと断るのは、単に「おいら初心者だからあまり詳しいことは知らないので、
できるだけ分かりやすく教えてね」という意思表示。普通の人よりも自分はレベルが
下ですよ、だから小難しいこと言われてもよく分かりませんよ、と予防線を張っている。
要は決まり文句みたいなもの。質問するからにはとりあえず書いとけ、みたいな。
環境とか逐一書くよりも、「初心者です」の一言があったほうが印象がいいだろうから
自分の情報はどんなに不明確でも小出しにしようとも、この「初心者です」の言葉だけは
絶対に忘れない。

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

>>269
そしてその一言がどれだけ自分の首をしめているのか自覚はしていないと、そういうことだね？

画像をサーバーから動的にはきだすプログラムのやりかたってありますか？
プログラムを携帯のほうから読み出したいのですが。

>>272
わかる日本語で書いてね。

プログラムで画像を作る感じみたいのですが。

あぼーん

>>274
わかる日本語で書いてね。

>>274
>画像をサーバーから動的にはきだすプログラムのやりかたってありますか？
>プログラムを携帯のほうから読み出したいのですが。

画像を→どんな画像？　元々存在する物の加工？　ゼロから作成？

動的に→なにをもって動的？　単純に存在する画像ファイルをランダムに
表示させたって動的と言えるし。

携帯から読み出したい→携帯でアクセスしたら表示？　それとも実行させるだけ？


などツッコミどころ多数。
何を、どいう風に、何をしたいのか、などを、例を交えてわかりやすく書いてくれ。

日本語ができない奴はやだねえ。
だからと言ってプログラム言語なら使えるのかと言うとそうでもないんだろうな。

言語がまともに操れない奴は、論理思考ができないってことと同義なんだろうな。
きっと、自分が何をしたいのか自分でもわかってないんだろうな。

画像が存在する場合と存在しない場合でおねがいします。
携帯の画面でアニメーションするような感じです。

追加質問。
ユーザごとにリストボックスの項目数を変えるよな
ことを考えてるのですがこれって実現可能ですか。
リストで表示させる文字を一つの変数の中に
"a","b","c"と書いてもリストは"a","b","c"と
繋がって表示されてしまい１項目しかでなかったものでして。
何かいい方法ありませんか。

>>279

> 画像が存在する場合と存在しない場合でおねがいします。

不思議な場合分けですね。

> 携帯の画面でアニメーションするような感じです。

不思議な感じですね。

> 追加質問。
> ユーザごとにリストボックスの項目数を変えるよな
> ことを考えてるのですがこれって実現可能ですか。
> リストで表示させる文字を一つの変数の中に
> "a","b","c"と書いてもリストは"a","b","c"と
> 繋がって表示されてしまい１項目しかでなかったものでして。

不思議な現象ですね。

> 何かいい方法ありませんか。

あります。
それは、あなたが日本語の勉強をすることです。

>>279
質問の内容が意味不明。
それと、最初の２行はどこに繋がってるんだ？
もしかして>>272>>274の続き？
こっちは同一人物の質問か判断できないんだから、名前にレス番入れるとか
もうちょっと配慮しれ。

>>279>>281
すみません。注意します。

フォームに表示させるリストボックスの内容を
人ごとに変えたいのです。
ある人は選択できるのが１０個あったり
別の人は５個だったりみたいな感じなんですが。

>>282
どの程度の精度で人を区別するかによる。
確実に行うなら認証とか、大体でいいならcookieとか。
どちらにしても区別した後にフォームの吐き出しを変えればいい。

>>283
携帯のサイトで使用予定でありまして携帯端末のシリアルＩＤかで
ユーザの判別をします。会社で新入社員の私にいきなり携帯サイトの
作成が仕事になってしまって。

あぼーん

>>284
こんなところでレス待ってる暇があったらぐぐるなり本読むなりして
自力で解決策を考えろ。

同じ新人として恥ずかしいわ、お前みたいなの見ると。

>>284
会社もDQNだな。一人でやってるのか、それとも先輩がボスにいるのかは知らんが。
問題解決のために2chで質問するような社員は正直いらんと思う。

>>284
携帯のシリアルIDって一部の機種しか使えないぞ

>>284
ユーザエージェントじゃねえの？

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

こんばんは。なけなしのノーミソぞうきんしぼりでスクリプト
作っているのですが、どうしても動きません。
こういうことやってるんですが、なにがおかしいのでしょうか。
作っているもの：HTMLファイルを作成するCGI。
同じデザインのHTMLファイルを複数作るためのものです。
フォームにタイトルとか画像名とかを書くと、それをHTMLの
特定の位置に書き込み、ファイルを作ります。

・なにが動かないのか
ファイルを作ることはできるのですが、入力したモノが指定の
位置に入らず、空白になってしまう。不思議なのは、そのフォーム
のうち一つだけちゃんと指定位置に入っていること。なぜこんな
事が起きるのかが・・・。

スクリプトはこうなってます。長いので一部割愛。
#!/usr/bin/perl
$name = $FORM{'name'};
$html = $FORM{'hname'};
$title = $FORM{'title'};
$site = $FORM{'sname'};
$surl = $FORM{'surl'};
$burl = $FORM{'burl'};
if ($FORM{'title'} eq "") { $title = "無題"; }

if ($FORM{'surl'} eq "") { $surl = "";
}else{
$surl = "<a href=\"$surl\">$site";
$enda = "</a>";
}
if ($FORM{'burl'} eq "") {
$burl = "";
}else{
$burl = "<br><img src=\"$burl\">";
}

#作成フォーム
print "Content-type: text/html\n\n";
print << "form";
#ほんとはヘッダがある。
<title>作成</title></head>
<body><center><FORM ACTION="link.cgi" METHOD="POST">
<table><tr><td>投稿者名</td><td><INPUT TYPE="text" NAME="name" SIZE="30"></td></tr>
<tr><td>作成ファイル名</td><td><INPUT TYPE="text" NAME="hname" SIZE="30"></td></tr>
<tr><td>タイトル</td><td><INPUT TYPE="text" NAME="title" SIZE="30"></td></tr>
<tr><td>サイト名</td><td><INPUT TYPE="text" NAME="sname" SIZE="40"></td></tr>
<tr><td>サイトURL</td><td><INPUT TYPE="text" NAME="surl" SIZE="40"></td></tr>
<tr><td>バナーURL</td><td><INPUT TYPE="text" NAME="burl" SIZE="40">
</td></tr></table>
<INPUT TYPE="submit" VALUE="作成"><input type="reset" value=" やめる ">
</form></center></body>
form

open MY, ">$html.html";
$nakami = <<END;
<html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
<title>$title</title>
</head><BODY><center>$name さま
<br>$surl$burl$enda
</center></body></html>
END

print MY "$nakami";
close MY;

汚いなあ；；＜改行大杉っておこられました。ごめんなさい。

>>292の
＞不思議なのは、そのフォームのうち一つだけちゃんと指定位置に入っていること

で申し上げています、「有効なモノ」というのは、変数$titleです。
どうか、ご助言をお願いします。

上のソースだけなら当然だと思うが。
横着しないでソース全部をどこかにうｐして晒せよ。

>>296
これで全部です。
＞#ほんとはヘッダがある。
ここだけカットしてます。
今にして思えば・・カットしなくてもよかったような＜改行削ったから。

と、当然ですか（汗）
2日考えましたが煮詰まっちゃってダメっす。。

>>296
jcode.plがないとダメとかあります？（・・）
↑二日考えて出た答えがコレ（汗）

先日AN　HTTPDとPerlとPHPをインストールしました。
問題なかったんですが、CドライブにあったPerlとPHPをDドライブへ
移したいんですが、そのまま普通にフォルダを移動して、パスを通し
直せばそれで大丈夫ですか？

PHPは知らないけど、Perlはインストール作業があったでしょ？
（解凍しただけで適当なところにポイ、ではなかったはず）
動くのは動くと思うけど、そのままフォルダ移動はしないほうが
よいのではないかな？
（WINDOWSとして回答してます）
＃たしかレジストリにカキコミがあったよーななかったよーな
＃↑Perl触ってたの1年以上前だから記憶あやふや。しかも超初心者。

あぼーん

>>292
それで全部？
んじゃ、METHOD="GET" にしな。

あ・・$titleも無効だ・・・「無題」になってるも。＜早く気づけ。
つーことはフォームの入力値を読み取ってないってことですね。
素直にサブルーチンにしたほうがよかったかなー。
単純だからイイヤ、なんて思ってたんですけど。

>>300
そう、インストール作業があったんですよね。それで心配で
こちらに書き込みさせていただきました。
Pealは再インストールし直そうかと思います。
ありがとうございました。

>>302
GETでもダメでした；；
が、アドレスバーには入力値が出てます。
ということは>>303はハズレ・・・？

>>305
if($ENV{REQUEST_METHOD} eq "GET"){
$q = $ENV{QUERY_STRING};
}elsif($ENV{REQUEST_METHOD} eq "POST"){
read(STDIN,$q,$ENV{CONTENT_LENGTH});
}
@prm = split(/&/,$q);
foreach(@prm){
($k,$v) = split(/=/,$_);
$v =~tr/+/ /;
$v =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
$FORM{$k} = $v;
}

>>293-294で全部なら
#!/usr/bin/perlと$name = $FORM{'name'};の間に上追加しれ
GETでもPOSTでも動く

>>305
つーか、$FORM{'name'};はドコから出てきたんだ？
そこらへんが気になる罠。
#GET で。
@query = split(/&/,$ENV{'QUERY_STRING'};
foreach (@query){
($qName, $qValue) = split(/=/);
$FORM{$qName} = $qValue;
}
とかが無いが・・・。

>>307
$FORM{'name'};は・・・
下のほうの記述フォーム
print << "form";
以下の
<table><tr><td>管理者名</td><td>
<INPUT TYPE="text" NAME="name" SIZE="30"></td></tr>
↑これです。
＃投稿者名って・・・誤変換。

>>308
HTMLでJavaScript使う場合と同じに思ってるのか？
動くわけねーだろうが

>>308
違うだろ。
ナゼいきなり連想配列が出てきてるんだ？ということ。

>>306
追加場所がいけなかったのですね（汗
$name〜の後ろに入れてました。
＜某さんのHPで見つけた

>>307
横着せずにそれを入れないといけなかったんですね（大汗）
勉強中断1年半＋現在マクロばっかいじっててマクロ頭になっている
ために・・しょーもないことを
＃横着って言ってる時点で・・（以下略）。

>>310
え・・・え？！
#user/〜の直下に
$name = 〜
があってはいけない、と？？
（ファイル出力のところで直接Form〜にしてもよいのかな・・わざわざ
変数に格納せずに）

>>312
いや、だから違うだろーに。

＞#user/〜の直下に
＞$name = 〜
＞があってはいけない、と？？

そんなの別に好きにすればイイさ。
だが $FORM{'name'}; は空だろ？　と。
>306 が無いんだから
$name = $FORM{'name'}; は意味無いじゃん。つーこと。
横着とかいう話じゃないだろと、そう言っている。

何か激しく勘違いしている悪寒。

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
$buffer= undef;
foreach (@pairs) {
($name, $value) = split(/=/);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/"/"/g;
$value =~ s/\r\n|\r|\n/<br>/g;
$value =~ s/<br>/ <br> /g;
$buffer.=$value;
$FORM{$name} = $value;
}
if ($FORM{'title'} eq "") { $FORM{'title'} = "無題"; }
if ($FORM{'surl'} ne "") { $surl = "<a href=\"$FORM{'surl'}\">$FORM{'sname'}"; }
if ($FORM{'burl'} ne "") { $burl = "<br><img src=\"$FORM{'burl'}\">"; }
open MY, ">$FORM{'hname'}.html";
print MY <<END;
<html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
<title>$FORM{'title'}</title>
</head><BODY><center>$FORM{'name'} さま
<br>$surl$burl</a>
</center></body></html>
END
close MY;
}

#作成フォーム
print "Content-type: text/html\n\n";
print << "form";
<html>
<title>作成</title></head>
<body><center><FORM ACTION="test7.cgi" METHOD="POST">
<table><tr><td>投稿者名</td><td><INPUT TYPE="text" NAME="name" SIZE="30"></td></tr>
<tr><td>作成ファイル名</td><td><INPUT TYPE="text" NAME="hname" SIZE="30"></td></tr>
<tr><td>タイトル</td><td><INPUT TYPE="text" NAME="title" SIZE="30"></td></tr>
<tr><td>サイト名</td><td><INPUT TYPE="text" NAME="sname" SIZE="40"></td></tr>
<tr><td>サイトURL</td><td><INPUT TYPE="text" NAME="surl" SIZE="40"></td></tr>
<tr><td>バナーURL</td><td><INPUT TYPE="text" NAME="burl" SIZE="40">
</td></tr></table>
<INPUT TYPE="submit" VALUE="作成"><input type="reset" value=" やめる ">
</form></center></body></html>
form
exit;

>>314の最後と>>315はこのほうがいいか

close MY;
}else{
#作成フォーム
print "Content-type: text/html\n\n";
print << "form";
<html>
<title>作成</title></head>
<body><center><FORM ACTION="test7.cgi" METHOD="POST">
<table><tr><td>投稿者名</td><td><INPUT TYPE="text" NAME="name" SIZE="30"></td></tr>
<tr><td>作成ファイル名</td><td><INPUT TYPE="text" NAME="hname" SIZE="30"></td></tr>
<tr><td>タイトル</td><td><INPUT TYPE="text" NAME="title" SIZE="30"></td></tr>
<tr><td>サイト名</td><td><INPUT TYPE="text" NAME="sname" SIZE="40"></td></tr>
<tr><td>サイトURL</td><td><INPUT TYPE="text" NAME="surl" SIZE="40"></td></tr>
<tr><td>バナーURL</td><td><INPUT TYPE="text" NAME="burl" SIZE="40">
</td></tr></table>
<INPUT TYPE="submit" VALUE="作成"><input type="reset" value=" やめる ">
</form></center></body></html>
form
}
exit;

やっぱり>>314-315のままでいいか

POSTされていないときは作成フォームを表示し、
入力後POSTされてきたらその値でファイルを作成して
再び作成フォームを表示する

>>314

$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/"/"/g;

知らない香具師が見るとそのﾏﾏ書いちゃうぞ

$value =~ s/</＆lt;/g;
$value =~ s/>/＆gt;/g;
$value =~ s/"/＆quot;/g;

これだとどうだ？

だめぽ
>>319のやつの＆(全角)　は &(半角)　でよろ。

これならどうだ？
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/"/"/g;

こんどこそ！

$value =~ s/</&lt;/g;
$value =~ s/>/&gt;/g;
$value =~ s/"/&quot;/g;

やっとでけた。
ふ〜
すれ汚しｽﾏｿ

ご苦労さん
ところで元質問のやつはどこ行った？
学び始めは間をおかずにやらないと覚えられないぞ

一所懸命自分で作ろう弄ろうとしていたのですが、
忙しくなって来て時間が取れなくなってしまいました。
CGI制作、カスタマイズ代行をして戴ける方がいらしたら
御連絡下さいませんか。
関わり方や報酬等について、取り敢えずは相談を…

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

ちと、初歩的な事を聞いちゃうけど

cgiでformでページ移動する時に
移動先ページのエンコードが何故か西ヨーロッパ言語(windows)になっちゃうんですよ

ヘッダーでは
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
を記述してるし
ヘッダーのサブルーチンはちゃんと呼び出してるし
なるわけねぇのに、必ず西ヨローパになるわけなんだが

わかる神は教えてくださいな

>>327
Apacheの設定がどうのこうのってのをどっかで聞いた気がする。

>>328
返信サンクス
でも、他のCGIはそれにならないんよ
てことは・・プログラムとかの記述にあると想われるんだけども。。。。
どうでしょう？か・・

>>329
板やスレを移動する時は、元スレに移動した旨を書いておくのがマナ〜

.htaccessじゃないの？

>>327
Content-Type: text/html; charset=Shift_JIS
は、試してみた？

Active Parlをインストール後、まっさらな状態にアンインストールできますか？

>>332
いいえ

>>333
システムが書き換えられてそれっきりになるんでしょうか？

>>334
どういう意味で聞いてるのかわからないけど
入れた形跡さえも残さずにってことにはならないだけ

他の何かに影響が出るわけじゃない

プログラム技術＠2ch掲示板
***すれ立てるまでもない質問はここで 第44刷***
で質問した者です、ＷＥＢ板で質問せよとのことでここで質問させてもらいます。
パソコンからＨＰにアクセスがあったときＩＰを記録するＣＧＩを設置したら
うまく動きログも取れました、
携帯からアクセスがあったときに相手の携帯のアドレスとかを記録するような
ＣＧＩがあったら教えてください。

>>336 おまい、最低だ。

>>336
この板ではCGI探しは扱っていません。
そもそもアドレスなんか取れませんので探すだけ無駄です。

>>327
331は神。

なんで？

>>336のコピペ元は業者だな
業者の迷惑メールのせいで携帯のアドレスは長くなるしコロコロ変わる
キャリアの負荷も重くなり、結果的に消費者の負担額も増える

スレ汚しスマソ

自宅サーバをたててるんだけど、
携帯から自サバのCGIにアクセスして
キャプチャソフトを起動させて
現在のデスクトップ画面を携帯サイズのjpg
にして保存することができたんですけど
このjpgを携帯にメールで送るようなCGIは
どうすればいいでしょうか？
今のところは生成された画像にリンクつけて
表示させてるけどメールで送ったほうが
パケット代かからなくていいいんで。

CGI関係の書籍（サンプル集）で
｢アンケート結果をtxtファイルやcsvファイルに記憶する｣や
｢txtファイルやcsvファイルに記憶されている値を出力する｣
ってのはよく見るんですが、
｢txtファイルやcsvファイルに書かれた数値を計算して画面上に出力する｣
って言う処理を行うにはどのような処理が必要なのでしょうか？
もしくはその他の言語などが必要なのでしょうか？

>>343
txtファイルやcsvファイルに書かれた数値を計算して画面上に出力するスクリプトを、
お好きな言語で書きやがれ。Perlでもいい。

自己解決できました。ｽﾚ汚しｽﾏｿ

>>344
分かりました
もう少しがんばってみます

「初めてでもできるPerl CGI 即効サンプルブック」
という本を参考に練習しているのですが
この本のとおりに記入してもInternal Server Errorが出てしまいます

エラーメッセージを見ると「「<>」が解釈できない」みたいなことを
言われるのですが

open(FH,"+<passwd.txt")
|| open(FH,"+>passwd.txt");

という記述は間違っているのでしょうか？

>>347
間違ってる。open の書式をよく調べれ
カンマの有無もな

>>347
書式として合っている。おそらく意味合いも合ってる。
perlなんだから、それだけ書いて動かしてみればいいじゃん。

問題は他の行でダブルクォートを閉じ忘れたか、そんな所かな？

どうも一行目の)のあとに全角のスペースが混じっていたみたいで
それがエラーの原因だったみたいです
ショボすぎるミスで申し訳ありませんでした。

それがクリアできたと思ったら
Unrecognized character \x83 at (eval 1) line 67.なんて出てきました。
これも全角スペースが原因だと言うようなのですが
上記の部分を含めた全文の全角スペースを排除したにもかかわらず
いまだにこのエラーが表示されてしまうのは
このエラーにはまだほかの意味が含まれているのでしょうか？

下記の文章はプログラムの67行目に当たります。
print "<h3>ユーザの登録は受け付けられました。</h3><p>";

ー

誰か
「ウェブ上からアクセスできないディレクトリ」
ってどうやって作るのか教えてくれませんか？

パーミッションなどの設定なのでしょうか？
IDとパスワードによるアクセス制限をするページを作る
ＣＧＩの設置の説明にありました。

色々調べてみたのですが見つからないし、まだ初心者なので
良くわからないのです。

お手数掛けますがよろしければ何方か教えてください。

>>352
ほとんど無理だと思ってそれを使わない方法でやれ

>>352
初心者は初心者板へ。

>>352
作るまでもなく、既に存在していると思われ。

>>350
やはりどこかで、ダブルクォートの閉じ忘れがある気がする。
その行には問題ないし。
キーワードを色分けしてくれたり、文字リテラルや、全角スペースを
目立たせてくれるエディタを使ったほうがいいね。

>>351
キャラクタコードがShift_JISなら、
「ー」は\x81\x5Bだから、1バイト目が\x83じゃないし、
2バイト目の\x5b([)も影響を与えないから、この場合は何の問題もないよ。

>>352
ユーザー認証でググる。

>>356
おっしゃるとおりでした・・・
紙に印刷して確認したとき(レス347時)は
ダブルクォートが存在していた部分が
改めて印刷して確認して見ると削除されてました。
その部分を修正したらサンプルも動作するようになりました。
当方がエラーメッセージのline○○という言葉に
固執しすぎた事と、単純な盆ミスからの失敗だったと反省しております。

>キーワードを色分けしてくれたり、文字リテラルや、全角スペースを
>目立たせてくれるエディタを使ったほうがいいね。
これを期にxyzzyというエディタを導入しました。

どうもお騒がせしました

質問なのですが、特定のURLをスクリーンキャプチャしてくれるCGIってないでしょうか？
昔、gooの検索結果がそんな感じになってましたよね。

表示してPrintScreenじゃダメなのか

>>359
大量に定期的にやる必要があるのでできればCGIで自動的にやってほしいのです。

自分でレンダリングするプログラムを作ればいいだけ
がんばれよ

なぜCGIでやる必要があるのだろう。
んなもん藻前のPCで処理すれ。

selectタグを使って、選んだ項目をCGIとして表示したいのですが、
どうしてもエラー連発してしまいます。

どこが間違っているのでしょうか？

html部分

<FORM METHOD="POST" ACTION="age.cgi">
<p>年齢 :
<select name='age' >
<option selected value="age1">１０</option>
<option value="age2">20</option>
<option value="age3">30</option>
<option value="age4">40</option>
<option value="age5">50</option>
</select><p>

CGI部分

$age = $form{'age'};

print "あなたは$age歳です。\n";

関係ないが10だけが全角なのが気になりますた。

>>363
>>306

>>363
あんたは一体何を参考にしてそのコードを書いたんだ。

あなたはage3歳です。

CGI中でメールアドレスを表示させたいんですけど、@を配列と認識して表示できません。
\nみたいなコードの類でありそうなんですけど、どうしたら表示できますか？

>>368
\@

&#64でよかんべ

布団に入って本読んだりしてたら
机の上にあるPCを操作しに行くのはめんどいので
鯖立てて携帯をリモコンみたいに使ってるんだけど、
#!/usr/local/bin/perl
system('C:\PROGRA~1\Winamp\winamp.exe "D:\My Documents\My Music\Elliott Smith - xo.zip.mp3"');
sleep(2);
exit;
こんな感じでwinamp起動させて音楽聞こうとすると、
演奏始まるんだけどperl.exeが終了しなくなってしまう。
鯖ソフトのCPU使用率も以上に高くなる。
どうすれば正常に処理できるようになりますか

>>371
systemは子プロセスの処理が終わるのを待つから当然。
execを使えばいい。

parlはぶっちゃけ未経験ですがhttp://www2u.biglobe.ne.jp/%7Ekyo-n/rss/index.html#perlscript
のｒｓｓ　ｇｅｎｅｒａｔｏｒをどうしても利用したいんです！
解らないところはｒｅｄｅｍｅ．ｔｘｔに書いてあるコマンドラインオプションにURLリストファイルのパスを指定して起動する
の部分です、ＣＧＩの本やらサイトを廻りましたが全然解りません
具体的にどの様にしたら良いのでしょうか？
だれかたすけてーーー！

>>373
リストファイルを作っておいてスクリプトのコマンドラインの引数に
指定するってことだろ

$log =100;
$title="$log行目です\n";

ダットファイルの$log行目に$titleを入力するにはどうすればよいですか？

>>375
それで答えが得られると思うのか？

そこをなんとか、、
datファイルの行数を指定して文字列を入れるだけなんです。

datファイルとかなんとか言ってるけど、何の話してるわけ？

外部ファイルです。
.log か　.datかなんかのファイルに出力したいのです。

だからよ、何のスクリプトの話をしてるんだって聞いてんの！
自作ならわかるだろう
改造なら改造スレに逝けっつーの

簡単なサブルーチンを作ってます。
$logと$titleという変数を受け取って、
ログファイルをつくるっていうかんじなんだけど。

つくっているのは、ＨＴＭＬ生成できるＷＥＢコンテンツ更新ツールで、
質問したのは、過去のバックナンバーをリスト化するための部分。
$log が号数で、$titleが見出しってかんじです。
datの行数＝$logにして、そこに$titleを埋め込みたい。

じゃあ使っている言語のスレに行ってソース晒して聞け

perlなのだけど、ここじゃダメですか？
質問しているのは、指定した行数に代入する方法なんですが。
それだけです。

ファイルは行単位、レコード単位で管理してるわけじゃないので
挿入という操作は単純にはできない
Perlスレ行ったほうがよさげ

イエーイ！！チンタマ！( ﾟv^ )みんな元気！？

http://datspirits.tripod.co.jp/wall/dat001.jpg
http://datspirits.tripod.co.jp/wall/dat003.jpg
http://datspirits.tripod.co.jp/wall/dat006.jpg
http://datspirits.tripod.co.jp/wall/dat007.jpg
http://www.friend100.com/~yuhko/dat-wall/misono1_1024x768.jpg
http://www.friend100.com/~yuhko/dat-wall/misono15_1024x768.jpg
http://www.friend100.com/~yuhko/dat-wall/misono17_1024x768.jpg
http://www.friend100.com/~yuhko/dat-wall/misono24_1024x768.jpg
http://www.friend100.com/~yuhko/dat-wall/misono25_1024x768.jpg
http://www.friend100.com/~yuhko/dat-wall/dat20_1024x768.jpg

>387
誰ですか。

ファイルを読み込んで、値の小さいもの順にソートし、画面に出力させるプログラムを教えてください。
テキストには、ｎ個のデータと名前があります。それを値が、小さいもの順に表示し、値の隣に名前も表示できるようにお願いします。
********テキストファイルの中身（data.txt)*********
17.56　　Itirou
12.367　Jirou
1.5697　Saburou
56.23　Shirou
0.35　Gorou
******************　
*******画面に出力すると
順位　数値　　氏名
1：　0.35　　Gorou
2：　1.5697　Saburou
3：　12.367　Jirou
4：　17.56　 Itirou
5：　56.23 Shirou
**********************
と表示させたいのです。
また、順位、数値、氏名をTable文で囲って表示したいのです。
よろしくお願いします

↑
まるち

はじめまして。
WEB制作板で質問したら、
WEBProg板にいってきなと言われたので、
きました。

向こうでした質問がこれなんですが・・・。

質問です。
会員制のサイトを作りたいんですが、
パスワードで個人認証して、会員個人のページにとんだ後、特定のバナーをクリックしたり、書き込みをしたらポイントがたまるような形のものを考えているんですが。
なにをどうしたらいいのかわかりません。




808 名前：涙 ：03/11/09 07:25 ID:u61ZJqcg
どんなプログラムをつかったらいいのか、教えてください。


で、何がしたいのかというと・・・。

紙芝居ゲームみたいな感じで、その世界の中で通用するお金を
掲示板の書き込みなどで稼いでいくみたいな・・・
お遊びのページを考えていたんですが・・・。

よろしくお願い致します。

パスワードで個人認証して、会員個人のページにとんだ後、特定のバナーをクリックしたり、書き込みをしたらポイントがたまるような形のスクリプトを書けばいいだろ。

なるほど
そうだったのか。
じゃあ、固定のページから出ない様な形で別のページにいったりするのは？

きちんと投票行けよ。

>>391
ショッピングカートのスクリプトを拾ってきて改造が手っ取り早いと思うけど、
(カートに品物じゃなくて、ポイントを入れる。みたいな。)
結構大変かもね。

>>391
ポイントのデータをサーバに保持しておいてそれを加減すればいいのだけれども、
ポイントを加減する場面場面で他のプログラムを調整したりも必要だと思うし、
少なくとも会員制システムを作れる、掲示板ぐらいは自作できるぐらいの知識が
ないとかなり難しいような。
原理自体は簡単だけどね。

CGIとPerlで、テキストファイルを読み込んで、数値が小さいもの順にソートするプログラムを教えてください。
C言語の場合だと分かるのですが、CGIやPerlでやる場合が分かりません。
お願いします。

>>397
sort の時、比較用の式も指定する
その際、比較用の演算子は数字用の物を使う

@result = sort {$a <=> $b} @list; #こんな感じで

携帯でサイトにアクセスした時に、パスワードを入力しないと入れないようにしたいのでつが、CGIとかで、そういうスクリプトをフリーで配ってるサイト知ってまつか？
使ってるServerが、.htaccessが使えないので、CGIなどでパスワード認証かけるしかないですよね？
それとも他に何か方法ありますか？
アニキらの意見聞かせて下さい。

俺らは検索代行じゃないっつーの。
http://www.google.co.jp/
http://pc2.2ch.net/test/read.cgi/hp/1067286961/

初歩的な質問で恐縮です。
リターンキー押下で“submit”されるのを
防ぐためにはどのようにすればいいのでしょうか？
教えてください。
お願いします。
少しあせっています。

ビルゲイツに文句を言う。

ﾌﾞﾗｳｻﾞの仕様だろ

何もしないボタンをサブミットより手前にはさんどくといいかも

C言語で作った実行ファイル（.exe）をCGIで実行するには、どのようにしたらよいのでしょうか？
HTMLファイルでは、<!--#exec cgi="sort.exe" -->にするとHTMLでは、動きますが、
CGIでは、実行できませんでした。CGいで実行する方法を教えてください。

>>405
CGIの中でsystemかexec使えばいいでしょ

http://server/xxx.EXE と直接書くとかリンク作るとか

>>405
一番お手軽なのは、hoge.exeをhoge.cgiにリネーム。

＞＞４０５
ＡｄｄＨａｎｄｌｅｒ　．ｅｘｅ

>>406
>CGIの中でsystemかexec使えばいいでしょ

どのようにやるのでしょうか？
やり方（プログラム）を教えてください。

自分で調べろ。

WindowsにインストールしたActivePerlでPerl.exeではなくPerlIS.dllを使って
cgiを実行した場合、cgiとして機能しないファイル(ただテキストファイルとか)の
拡張子を.cgiにして、IEからhttp://localhost/test.cgiと指定して実行すると、
'c:\Webtest\test.cgi' script produced no output
のように出ます。この出力を出さないようにする方法はあるのでしょうか？

希に、正常に動くCGIでもこの「script produced no output」がでることがある
のですが、cgiを置いてあるドライブ名、ディレクトリ名が出てしまうのを
押さえたいのです。

Perl.exeを使えばInternal Sever Errorなどの表示だけでドライブ名やディレクトリ名
が出ることはありませんが、動作が重くなるので、できればPerlIS.dllを使えれば
いいなと思います。

意図しない状況でドライブ名やディレクトリ名がでるとあまり気持ちよく
ありません。
エラーが出た場合もドライブ名とディレクトリ名を出さないようにする対策を
ご存じの方いらっしゃいますか？。
PerlIS.dllのバージョンは5.6.1.633です。

>>405
自分はIIS5.1なんすが、最初からexeファイルをcgiにすることができますたYO〜、、、

>>412
自宅鯖板のIISスレへどうぞ

<form action="anketo.cgi" method="post" enctype="text/plain">
〜
</form>
という流れでアンケートページanketo.htmlで
選択されたradioの内容をファイルに保存しようと考えております

作成した送信ボタンをクリックすると
「ありがとうございました」という内容のHPを表示して終了しようと
考えておりましたが、<h2>〜</h2>で囲まれたところしか表示されず
その他のソースがその前後に表示されてしまい、
ファイルanketo.txtにも保存されません

このような場合どういった原因が考えられるでしょうか？

自己レス
127.0.0.1から実行していなかったのが原因だったみたいです

とりあえず、変数名やファイル名使うときは辞書ひこうぜ
仕事でこういう命名してるとなめられるぞ

すみませんが教えて下さい。
ブラウザ情報からＩＥの訪問者だけをアクセス可にしたいので、
他のブラウザを弾きたい場合はどのような処理にすれば良いのでしょうか？
分り難くて申し訳ありませんが、何卒ご教授下さいませ。

>>418
.htaccessが使えるなら簡単だけど

.htaccess質問コーナー
http://pc2.2ch.net/test/read.cgi/hp/1065608009/

ユーザー登録という形でデータをtxtファイルに保存したいのですが
入力された内容と同時にその時間などを記録するにはどうすればいいのでしょうか？

time

複数に渡るアンケートHPページで
その回答を一箇所に保存するとき、
回答者を見分ける方法にはどんな方法が考えられますか？

>>414
ども。
いってきます。

申し訳ありませんが質問させてください

cgiの文章の中に<a href>〜</a>を入れる事は不可能なのでしょうか？
また、cgi文章の中にJavascriptを挿入することは不可能なのでしょうか？

>>424
cgiの文章というのがcgiが吐き出すhtmlなどのことならどちらもできる

説明不足で申し訳ありませんでした

a.html(Javascript)でname="○○"、value="○○"の値を
b.cgiでtxtファイルに保存するという文章なのですが
b.cgiからc.htmlへ移動する方法が分からず、今回質問させていただきました

b.cgiでprint "<a href>〜</a>"と記述したところ
a.htmlからb.cgiへ移動した段階でエラーが出てしまいました
このような記述では問題なのでしょうか？

自己レス
上記の問題はprint "<a href=\"c.html\">sage</a>";と記述することで
解決することができました。

ですが未だにJavascriptを組み込む方法が分かりません
質問してばかりで申し訳ありませんが御指導御鞭撻のほど
なにとぞお願いいたします

b.cgiからc.htmlへ移動する方法　→　b.cgiからLocationでc.htmlへとばす

a.html(Javascript)でname="○○"、value="○○"の値をb.cgiへ　→
フォームなのかもわからないし、Web制作板のJavaScriptスレで
ソースを出して聞いたほうがいい

>428

説明不足でした
上記はフォームです

もっと勉強して出直してきます
ありがとうございました

@arrayの中のﾃﾞｰﾀを$array_data[0]
の中にいれて２次元配列を使いたいのですが
やり方ってどのようにすればよいのでしょうか？

$array_data[$file_loop]=@array;
ではうまいことできませんでした。

いっぺんしね

ほんとしね

>>430
perlだよな？
$array_data[$file_loop] = [ @array ];

perlでフォルダ内のファイル名を全て取得するにはどうすればいいですか？
また新規にファイルを作るのはファイル書き込みのやり方でいいんですか？
教えてください

まずはぐぐってください

はぐぐぅ　はぐぐぅ

googleでcgi.フォルダ内のファイルと検索してもだめでした。
とほほ氏のHPにもかかれてなかったです
お願いなので教えてください

>>437
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&q=perl+%E3%83%87%E3%82%A3%E3%83%AC%E3%82%AF%E3%83%88%E3%83%AA+%E4%B8%80%E8%A6%A7+%E5%87%BA%E5%8A%9B&lr=

一人とほほなやつがいるな

>>437
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&q=perl+%E3%83%87%E3%82%A3%E3%83%AC%E3%82%AF%E3%83%88%E3%83%AA+%E4%B8%80%E8%A6%A7+%E5%87%BA%E5%8A%9B+%E3%81%A8%E3%81%BB%E3%81%BB&lr=

ま、
> perlでフォルダ内
と書いた時点で失格なわけだが

ここはネタスレだからOK牧場！

糞見ずらいJSPソースの可読性をぐぐーんとあげる裏技をおしえてちょうだい。

糞な脳を改造

スレタイがスレタイだから文句は言えないが・・・。
怖いくらいに初心者すぎる・・・。
FTP知らなくてどうやってサーバー移行するんだろう。。。
いちいちフロッピーでかな？

tar して gzip して cgi でダウンロードして移行

$i++;

へー、埼玉板のあの人の・・(ｗ
まあ、でも今ではいっぱしになってんだろう・・
と、雑談してみるテスト

みなさんありがとうございます。フォルダ内のファイルを取得することが出来ました。

$a[2][2]
このような２次元配列があって
$a[0][1]=1と$a[0][2]=1の間に$b=2のﾃﾞｰﾀをいれて
$a[0][1]=1 $a[0][2]=2 $a[0][3]=1としたいのですが、方法ってありますか？
splice(@a[0],2,0,$b);としても@a[0]なんてつかえないってエラーがでました。

よ〜く考えろ〜♪　ここで聞くことか〜♪　う〜う　う〜う　ううう〜♪

>>449
フォルダはもうﾔﾒﾚ！

(*￣○￣)そうだそうだ！ネタスレなんだからホルダと言え！

>>450
@{$a[0]}

とりあえずFTPって何？どういうふうに使うの？

FT　P
太っ腹

他のホルダァに移動するにはどうすればいいの。

chdir

>>454
感謝いたします。成功しました。

>>454
直接関係ないが，普通に$aとか$bとかを使うのはやめといたほうが良いぞ。
将来strictなコードを書くときに，変な癖がついてるとハマりやすいからな。

あ。上のは>>459な。
吊ってくる。

>>460
直接関係ないが，誘導せずにここで回答するのはやめといたほうが良いぞ。

なんだかんだ言いながら教えてあげるんだな
ここは優しさに満ち溢れたインターネットエクスプロイダーですね

住所自動入力cgiの事なんだけど
郵便番号入力してsubmitのボタンを押さなくても
郵便番号入力だけで自動的に住所が入力できるのってありますか？

空気が疲れてきてるな

>>464
最寄の郵政局に問い合わせてください

javascriptじゃないとできない

>>464
技術的なことが聞きたいなら、JavaScriptとの組み合わせを勉強するべし。
まあ、わからなくなってギブアップするのがオチだろうが。
郵便番号から住所（の一部）を割り出すため（あるいは逆）のデータが欲しいのなら、
郵政公社（旧郵政省）のサイトに、最新の対応表CSVが置いてあるはず。
データ量でかすぎて普通のCGIで使うには工夫がいるだろうが。

初めまして。
Perlでの質問です。どなたかご存知の方がいらっしゃましたら教えて下さい。
２つ知りたいことがあります。（ｐｅｒｌ５を使用）
「１」
CSVファイル（半角カナで名前が格納されています）を読み込み
頭１文字を切り出し全角カナに変えたいのですがうまくいきません。

require 省略

$kana = ここに半角カナが入っています（タナカ　シンゴ）
$kanaIdx = substr($kana, 0, 1);
jcode::convert(\$kanaIdx,'euc','','z');
$N_kana = $kanaidx;
print "$N_kana";

半角カナが表示されてしまいます。別のファイルに出力しても半角カナが入っています。


「２」
Ｃ言語みたく書式付print文で文字（上記CSVファイルノ半角カナ）を16進表示したいのですが0表示されてしまいます。

$kana = ここに半角カナが入っています（タナカ　シンゴ）
$kanaIdx = substr($kana, 0, 1);
printf "%x", $kanaIdx;

本来であれば半角カナのタが16進表示されると思うのですが。

どうか宜しくお願いします。

>>469
Perl コーディング初心者質問コーナー Part30
http://pc2.2ch.net/test/read.cgi/php/1069846177/

>469
「１」
>$kanaIdx = substr($kana, 0, 1);
って事は、CSVファイルはshift_jisなんですよね？
shift_jisの半角カナだけの文字列は
jcode::getcode()でeucと判定されてしまうので
入力文字列のコードを明示的に指定しないとダメ。

× jcode::convert(\$kanaIdx,'euc','','z');
○ jcode::convert(\$kanaIdx,'euc','sjis','z');

「２」
× printf "%x", $kanaIdx;
○ printf "%x", ord($kanaIdx);

ＣＧＩ＆鯖超初心者なんですけど・・・・
掲示板をみんなのために貸し出したいんですよ。
どのようにしたらいいか1からどなたか教えてください。
まっています。　

>>472
超初心者を脱してから考えましょう

>>472
初心者が手を出す領域じゃありません。
セキュリティーが弱いとサーバーを乗っ取られます。
乗っ取られたら踏み台にされ他のサーバーを攻撃させられます。
攻撃先から苦情や最悪訴えられることも考えられます。
ので初心者は辞めておきましょう。

お願いします教えてください。

じゃあどの変まで理解できたら作れるのか教えてください。

>>476
そんなこと言ってる間は無理。
人に聞いたりする時間で勉強しろ。

>>476
どの辺までってのは、最低限自分で掲示板を作れるとか、
配布されている掲示板がどういう動作をしている全て把握できるくらいになってから考えることだと思うよ。
正直これでも足りないと思うし。
設置できました、一部改造できました、ってレベルでは474の言うように
周りにも迷惑かけかねないからとほほのＷＷＷ入門あたりでも見てまずはＨｅｌｌｏ Ｗｏｒｌｄ!からはじめてはどうかな。

nobodyさんありがとうございました。
お陰さまで解決することができました。
また何かありましたらご教授願います。

参加者名が表示されるようなチャットCGIで、
一定時間発言のない人の名前を削除できるような仕組みを作りたいのですが
どういうプログラムを組めばいいでしょうか？
ヒントをお願いしますm(__)m

表示されてる参加者名簿に最終発言時間をくっつけてフィルタリングすればいい。

>>481
その最終発言時刻を取る方法からして分からないんですが・・・
うーん、具体的に説明を受けるには、スクリプトを晒した方がいいでしょうか
ちなみに、RUU　CHATというのを使ってまつです

>>482
ゆいチャットのソースでもどっかで手に入れて読め。
ちょっと古いが教科書みたいなスクリプトだぞ。

>>483
ゆいちゃっとはロック周の甘さと基本的にperl4的なんで
あまりオススメできないなぁ。
もっとも，漏れもあれ読んで覚えたんだが。

Telnetでサーバーに接続して
コマンドを使って
Perlプログラムをパラメータを引数として
与えて実行する方法教えてもらえませんか？

メモしたんだけど使い方忘れちゃいました。

>>485
追加でフォームデータを
Perlプログラムに引数として与えて
実行する方法です。@ARGVは使用しない方法で
教えてください

・・・。

>>485
マルチすんなボケ！　

CGIチャットで入室していない
ROM者がわかる方法ってなにー？

そんなこと気にするな

何にしてもアレだ。
自作ＣＧＩをローカルでテストせずに
レンタルサーバーでテストする香具師の気が知れん。
妙なスクリプトでサーバー逝ったら損害賠償請求されるかもしれないのに。

そんなこといわずに教えてー

あの〜今度、自分のサイトに、ドメインの検索チェックツールを
付けようと思って、Whoisと連動したものを付けてて、最初は上手く言ったんだけど
なんか、いきなり、404エラーになっちゃった。

何が、原因かぜんぜん、わかんないです。
どこを、どう直していいのか教えて下さい。

ちなみに、ソースは、以下です。

<form name="whois" action="http://en.webk.net/cgibin/whois/result.cgi"
method="post" target="_blank">
<input type=hidden name="lang" value="en">
<input type="text" name="domain">
</form>

>>493
404だからどうにもなりません

物凄い勢いで調べたい！

実はCGIをHTML化したいのだけど、
http://example.com/cgi-bin/post.cgi?a=1&b=2&c=3
を
http://example.com/cgi-bin/post-a-1-b-2-c-3.html
にしたいのです。(GOOGLE対策だけどね…)

で、.htaccessに設定してみたけど…

RewriteEngine on
RewriteBase /cgi-bin/
RewriteRule ^post\-a\-(.*)\-b\-(.*)\-c\-(.*).html$ post.cgi?a=$1&b=$2&c=$3
RewriteRule ^post\-a\-(.*)\-b\-(.*).html$ post.cgi?a=$1&b=$2
RewriteRule ^post\-a\-(.*).html$ post.cgi?a=$1
RewriteRule ^post.html$ post.cgi
Options +FollowSymlinks

にして、直接URL打ち込みなら以下のように成功したけど、
http://example.com/cgi-bin/post-a-1-b-2-c-3.html

HTML内のリンクはCGIのままです。
リンクを直せる方法(.htaccessかな？)を教えてください。
ちなみにサーバはxreaです。

>>495
板違い

初心者ですが質問させてください
掲示板を作っていて最大表示件数を10件にしたいのです、
そして、１０件表示されると次のページとか作りたいのですが
どのようなスクリプトになるのでしょうか
初心者な質問ですがよろしくおねがいします。

>>497
そういう掲示板のソースを見て参考にすればいい
自分で作っているぐらいなら読めるだろ

簡単に教えていただけないでしょうか
回答以外のレスは、遠慮してください・・・

こ　こ　は　質　問　ス　レ　で　は　な　い

自己解決します。おさわがせしました。

>>501
スレ違いの質問をしたことについては何もふれないのな。

初心者ですが質問させてください
画像掲示板にアップされる画像を、全部保存したいのですが
（PCを見ていなくてもできるもの）
何か方法有りますか？

>>503
cron

>>回答以外のレスは、遠慮してください・・・

何か生意気で気に入らん
おまえのスレじゃないんだぜ

Perl の質問です。

(0 ..)は０から最後まで。
(10 ..)は１０から最後まで。
では、０から９まではどう表せばいいのですか？

>>506
>>500

こんなCGIありませんか？

HP管理人以外の関係者一人が、1ページのhtmlを管理
できるようなCGIで、
できれば管理人側でもいぢれるものがいいです・・

>>508
【CGI】こんなCGI探してますver.1.1【素材】
http://pc2.2ch.net/test/read.cgi/hp/1067286961/

>>509
thx

あの、cgi勉強したいんですけど、apacheがあれば
ffftp使わなくてもいいんですよね？
　こんな質問ですいません・・・

>>511
自分のパソコンの上で動かすなら。
(直接、ファイルをいじれるなら。)

確認できてよかったです。
ありがとー
　もう一つ質問なんですけど、受注cgiの公開してるサイトから
サンプルを頂いてきたんですけど、動かないんですよ・・・
cgiって、サーバーが変わると動かなくなるものなんですか？
もしそうなら、どこを変えればいいんでしょう？

まじめに質問したいなら

△▲　WebProg 初心者の質問 Part7　▼▽
http://pc2.2ch.net/test/read.cgi/php/1073460282/


ここはネタスレなので回答が本当かは（ｒｙ

>>514
わかりました〜
そこ行ってみます。

>>508
basic認証使えばいいだけでしょ？

>>513
perlプログラムのありかやライブラリの場所とか
変わっているかもしれないから、確認してみればよろし。

スケジュール登録できるcgiを探してるんですけど、
「1月23日から27日まで（プルダウンで選択できて）出張」とかすると
カレンダー表示の一覧に２３〜２７まで、○○さん出張と一気に出るような
フリーのcgiでお勧めのものをご存知の方、なにとぞ教えてください。
ぐぐって調べているんですけど、その日の分のスケジュールを書き込む奴は
見つかるんだけど、長期で（3週間出張など）をすんなり登録できる奴を探しています。

なにとぞ〜（´Д`；）

うーん見たことないなあ。
ちなみにWebアプリの捜索は別の板でやってます。

【CGI】こんなCGI探してますver.1.1【素材】
http://pc2.2ch.net/test/read.cgi/hp/1067286961/

>>519　さん、ありがとうです。
そちらで聞いてみます。(^-^)

formについてなんですが。
フォームの各項目にnameをつけると思います。
javascriptで項目の記入漏れのチェックや数量から価格を計算したりするのと
cgiで確認画面をだして送信、ってことをやりたいのですが
この場合nameは半角文字じゃないとだめなんでしょうか？
なんとなくうまく動かないような気がして全部半角文字のnameにしてますが
これだと当然確認画面とか内容を送ったメールがぱっと見たときに
項目名がわかりずらいんでなんとかしてくれと言われてしまった。
CGIとか掲示板設置くらいしかしたことないんでnameはみなさんどう付けてるのでしょうか？
アドバイスおながいします

>>521
nameをそのまま表示することはしないよ。

perl単体の質問とはちょっと違うのですが、
2chのスレッドのhtmlを取得するにはどうしたらよいのですか？
例えば素直に、pc.2.2ch.netのポート80 に接続して
GET /test/read.cgi/php/995618200/l50\n\n
だと404 Not Foundと言われます。（他のサイトなどは上手くいきます。）

アフォーな質問すみませんでした。できますた。

>>522
れすどうもです。家に帰ってきますた。
一般的なフォームメールはnameを表示するんでは？
届いたメールに
address=東京都千代田区・・・とか。
バイト先の店長の知り合いのサイトでなんだか中途半端なやつ（一応プロが
作ったらしい）、を直すのを頼まれてフォームで苦労してます。

いろいろなスクリプトみたんですが
フォームの未記入とかメールアドレスの不備とかはCGIで
チェック出来るのもあるようですね。

ただ、値段計算をjavascriptでやってるから、これいじったらぐちゃぐちゃになりそう。

ほんとどうしたらいいのかお先真っ暗。
得意になって引き受けたのに大恥かきそうで鬱です。

>>525
根本的にいろいろ勘違いしてる

でもここは質問スレじゃないから

　人間、恥をかきながら育っていくものさ

と言っておこう

>>525
まず、サーバーサイドの技術であるCGIと、
クライアントサイドの技術であるJavaScriptの区別はつけような。
それがついてから出直してきましょうよ。
ま、自分でやらずに別のプロとやらを雇った方が安全だよ。

質問させてください
WebショップをCGIにて作成しています。
現在その購入者情報と購入商品情報をCSVファイルに保存する、
というところまで作成したのですが
「そのCSVファイルを参照する」という動作をさせるために
どうすればいいのか見当もつかない状態です。
CGIでこの動作をさせるためにはどうすればよろしいのでしょうか？

すみません。だれか助けて下さい。
今回初めてCGIを利用して掲示板を製作しようとしています。
そこで投稿フォームを記事表示画面と別ウィンド表示したいのですがむりでしょうか？
CGIフリー素材等をいろいろ改造してみているのですがうまくいきません。
本当誰か助けて下さい。
お願いします。

>>528
CSVは経験ないのだけれども、ファイルをCGIから読めるようにしたいなら
open( LIST, "+<./customer.csv" ){ $buffer = <LIST>; } て感じでもいいのでは？

>>529
例えば<a href="./bbs.cgi?mode=putform" target="_blank">投稿する</a> て感じかな。

Perl コーディング初心者質問コーナー Part31
http://pc2.2ch.net/test/read.cgi/php/1072896288/l50

>>530
本当ありがとうございます。
やってみます。

>>530
すみません。
これってHTMLですか？
例えばここからデータが.dat等へ読み込まれてCGIへおくられるってことでしょうか？

>>532
普通はフォームを過去の書き込みと一緒に出すけど、その代わりにこのソースを埋めて
CGI側で"?mode=putform"と来たら投稿フォームだけの画面を返すようにしてやればいい。
これ以上は質問スレに移行しますか？

>>533
ありがとうございます。
質問スレで詳しくお教えてもらえるとありがたいです。
でも質問スレってどこですか？

>>534
>>530とか？

>>535
よろしくおねがいします。

>>bullさん
http://pc2.2ch.net/test/read.cgi/php/1003131529/514-
マルチポストはやめましょうね。レスをしてくれる人に失礼です。

htmlで投稿ページを作って、
投稿ページ上にフォームを作って、
そこの書き込みをdatに書き込むようにすればいいと思う。

どっちにしろ、今使っているスクリプトを教えれ。

PERL からPostgresにアクセスしてtimestamp型のレコードに
値を入れたいのですがＳＱＬ分がわかりません。
どの様にすればよいのでしょうか？

>>538
insert into tablename (timestamp) values ('2004-02-06 20:30:00')
タイムゾーンを含めるなら、'2004-02-06 20:30:00 +9:00'
あるいは、'February 6 20:30:00 2004 JST'

CGIで他のサーバのログファイルを読み込む方法はないんですか？
ﾚﾝﾀﾙなんでサーバ設定の変更は出来ません。

>>540
FTPで別のサーバに接続して、ログファイルをダウンロードするCGIを作る。

つかぬことをお伺いします。
>>540さんと多分同じことを、CGIでやろうとしてるんですが
（>>541さんのおっしゃっているCGIかなあ）
こう書いたらエラメ（サーバーのではなく、CGIで書いているエラーサブ）
出ちゃいました。
#元となるログのパス
$newsfile = 'http://hoge.com/log.html';
#元データ取得
open(NEW,"$newsfile") || &error('読めません');
#読んだ中身を@dataに入れる
@data = <NEW>;
close(NEW);

･･･ログファイルをhttp://で指定はアウト？

>>500

>>542　PHPで書け

$hash{$g}{"$h"}=0
このようなhashにデータをいれて
foreachを使用しての0の取り出し方は
どのようにすればいいのでしょうか？

>>545
>>500

Perl コーディング初心者質問コーナー Part31
http://pc2.2ch.net/test/read.cgi/php/1072896288/

>>544
え・・・？PHP・・・と申しますと・・・？
PHPファイルでないとダメという意味ですか？（汗）

>>547
お前は馬鹿か。
まず、>>500を読め。
その上であえてスレ違いであることを知りつつ聞くが、
お前の使ってる言語はなんなんだ。それをはっきりさせろ。
その文脈を踏まえた上で、>>544はPHPを使えと言っている。
脳みそ使え。使わないとすごい勢いで悪くなるぞ。

>>544
openに拘る必要はないだろ。読み込むだけならLWPモジュール使えばいいじゃん。

>>548
そりゃどうもすみませんね、頭悪くて（かっちーん！）
>>544のように単語だけの状態ではいかんともしがたい。
質問にも質問の仕方はありますが（すみません）、
答えようもあるのでは。

>>549
確かにそうですね。
使っている言語はPerlなんですが、openかreadかsysread(systemreadだっけ･･･←調べてから言えよ）
かで迷ってましたが、openダメなら他のも使ってみよう。

>>551
だから>>549がLWP使えって言ってんだろうが
出てきたキーワードぐらい最低限ぐぐれ

>>549
LWPモジュールは全然知らなかったので、行ってきました。
バッチリでした！！外で処理なんてJcodeぐらいしか知らなかったので
思いつきもしませんでした（汗）

ありがとうございました！

>>552
口の利き方も知らないんですね。

あなたのように暇人でここに常駐してるわけではないんですよ。
早く教えてクレクレ君の催促のようにすぐにレスできると思って
いらっしゃるんですか。

＃ぐぐって行ってきた結果が上記ですがなにか？

（´-｀）.｡oO(本当にバカだったんだな・・・)

よしよし良くできたね、とか頭なでときゃいいのかねこういうのは。

馬鹿は放っておくべきだろう。
まあ、今回は話してみたら馬鹿だったって事例だが。
Perlのエラートラップにいまだに||使っている時点で苗。
or使うべきだろう。作った本人がそうすすめてるのに。

つうか，こういう御場化さんって基本的に自分で問題点が絞れないんだよな。
その結果，解決も見つけられないと。
今回の件だって，たとえば
「CGI 他のサーバ ファイルを読み込む」で具具ってたら
こんなとこで聞く必要なんて無かったのにな(藁

>>557
「はじめて」の頃は、そのキーワードさえ模索する必要があるんだよー。

言語に関係なく、URIの仕様自体がリモートとローカル、
プロトコルの相違さえ利便性の為に隠そうとしてる傾向があるよね。
もう一つ高級言語全体に言える事で、複雑な処理に簡単なインターフェースを提供して、
内部の処理を（少なくとも初心者にとっては）隠して使い易くしている節がある。

PHPやJavaなどで最近プログラミングを始めた人達にとっては、
「URL を openする」と言うのが自然な発想なんじゃないかなと思う。他の例を挙げると、
ASP.Net等、クライアントサイドのScriptも動的に生成してくれる様なフレームワークにから始めた人達だと
「Perlで未記入欄があった時にダイアログだすにはどうすればいいですか？」なんて質問がでてくる理由も納得できる所がある。

前置き長くなったけど、
問題点が絞れないというのは、こういった簡略化された環境の弊害なんじゃないかな。
LWPモジュールを使うのは一時的な解にはなるけど、根本的な仕組みの理解には至らないよね。
後学のためにも、socket使ってHTTP喋る方法を一度教えてからモジュール使う方法を教えた方が良かったかも知れない。

>>558
すまん、openはローカルの自由にできるファイルに対して使う動詞であって、
別のドメインにある自由にできないリソースに対して使う動詞じゃないと俺の感覚は告げている。
英語の感覚ではそうならないか？
それともその「PHPやJavaなどで最近プログラミングを始めた人達」にそういう言語感覚を求めてはいかんのか？

>>558
漏れの身の回りに居ないからわからないんだが，そういう
「環境に使われてるくせに自分で何か作ったつもりになってる」ﾔｼって増えてるのか？

テキストボックスとかテキストエリアの漢字が化けることがあります。
どこかのサイトで「表」「予」「能」「十」等が化けるのは聞いたことがあって、
これらはcgiプログラムにhtmlを埋め込んだ時に化ける（\マークでエスケープさせる）
のは対応できているのですが、
「商」→潤A
「愛」→・A
「王」→堰A
といった具合に化けます。いったいなんなんでしょうか。

mod_perlをインストールするには
libwww-perl-5.xを先にインストールしてないと
ダメですか？

>>561
化けさせたくなければ、シングルクォート使え。ダブルクォート使うから化ける。
"商" -> '商'
こんな風に。

>>559
英語の感覚ではそこまで具体的な区別は出来ないよ。
URIのリソースのハンドルやストリームに対するopenと自然な解釈できるし。
この場合は、言語感覚に頼らず、File/Network IOの違いや
open関数の内部の動作について理解を深めるべきだと思う。

>>560
> 「環境に使われてるくせに自分で何か作ったつもりになってる」ﾔｼって増えてるのか？
数えた事はないけど、高級言語からプログラミングを習いはじめた人達に多くないかな？
ライブラリの内部の仕組みを理解せずに、いつまでもブラックボックスとして扱ってると、
そんな風になりそうなきがする。噂位は聞いた事あるはず。＜スクリプトキディとかに分類される人達

>>561
文字化けです。「表」等の文字のエスケープ文字が問題になるケースとは異なり。
これは、「半角カナ」が混在している文章等でブラウザ側の自動判別が失敗し、
Shift_JISのはずが他のコードで解釈されて表示されてしまう方の文字化け現象です。
HTMLやHTTPのヘッダで適切なエンコーディングを指定すると直ると思います。

>>562
Yes。でも、libwwwをインストールするためにも、
幾つか依存してるモジュールをインストールしないといけないよ。がんばって

>>561
Shift_JISの半角読点を何も考えずに正規表現か何かで全角に変換してない？

このスレ>>1から読むと腹がよじれるｗｗ

>>566が腸捻転で入院したスレはここでつか？

すいません、まだこわくてやってないんですがやったらどうなるんだろう？と
思ったことがあります。
パーミッションを000にしたらどうなるんですか？
レンタル鯖借りてるような場合は自分で消せなくなっちゃうのですか？

隊長！こんなの見つけました！
http://yellow.ribbon.to/~mil/

ショッピングカートのCGIで、ボタン押すたびにクッキーに商品コードをセット
しようとしています。動作そのものはできましたが、Perlで、Set-cookieすると
空白の画面を表示します。元の画面を表示させたままでクッキーの値を更新
するにはどうしたらいいでしょうか。

ふと自己ツッコミしてしまいますが、もしかしてSet-cookieの続きに、現在
表示しているフォームのデータを再出力すればｲｲということでしょうか。

perlのソースを書いてブラウザからhttp://localhost/sample.cgiとしたら、ソースがそのまま表示されてしまいました

wwwサーバはphpdev5というのに付属してあったapache2を使っています。
本の設定だとhttpd.confファイルでOptions Indexes FollowSymLinks の後にExecCGIと追加するとかいてありますが、
私のhttpd.confファイルには　Options Indexes FollowSymLinks Multiviewsとなっているので、その後にExecCGIを追加しました

思い当たる原因は、これくらいしかわからないのですが、はっきりいって何が悪いのかわかりません。

誰か原因のわかる人は教えてください

>>572
httpd restartした？

（´-｀）.｡oO(廃スレで聞く奴には教える気にならんな・・・)

>>573
しましたよ。ありがとうございます。

>>574
ここ杯スレだったんですね。違うとこで聞いてみます。一旦、この質問は中止します。
573さんもありがとうございました。

その本がクソなのか
書いてあるのにちゃんと見てないのか
どっちだろう。

>>576
クソな本ですらちゃんと見ていない

perl でバイナリファイルを書き込む方法がわからない
配列に数字をつめこんでバイナリに吐き出したいのだけど・・・

>>578
まぁまずとほほでも読んできなさい書いてあるから。

教えてください。
CGIの掲示板って
検索エンジンとかでひっかからないのでしょうか？
一般公開しないで仲間内だけで使える掲示板を作りたいと思ってます。

>>580
２ちゃんねるってCGIの掲示板だと思うか？

>>580
どこにもリンクされてなければ見つからない。

>>582
無断リンクってのは結構あるだろ
それとかつてこんな事があった。
赤の他人がYAHOOに登録した。

ありがとうございます。
htmlファイルはなしでCGIファイルのみアップしようと思ってます。
そのCGIファイルへのリンクは一切なしで
CGIファイルのURLだけみんなに教えればいいのでは思ってます。

metaタグにロボットはじく設定があるYO!

>>585
それは紳士協定であって，すべてのロボットがそれに従うとは限らない。
robots.txtすら無視するロボットも存在するというのは常識。

>>584
＊確実に＊身内以外を排除したいなら，VPNとかで閉じたネットワークを作るか認証させるしかないと思われ。

暗号掲示板を使うとか。。。

書き方が間違っていたらすいません。

掲示板をいじってる最中なんですが、
新規投稿されたときに24時間以内ならNEWを表示させるように
させたいのですが、どうすればできるでしょうか？

unshiftでlogに挿入された情報で24時間なら
ずっとNEWが表示される・・・という形です（あってる？）

unshift(@new,"$new<>$i_sub<>0<>$i_nam<>$date<>$i_nam<>1<>\n");
unshift(@new,"$new<>$host<>$time<>\n");
open(OUT,">$nowfile") || &error("Write Error : $nowfile");
print OUT @new;
close(OUT);

こんな記述になっているのですが。。

携帯の製造番号を見る方法があったと
思うのですが、どなたか知っている方
いませんか？

xpを使っています。IE6.0です。
printが何行にもわたっている中にボタンを組み込みたいのですが、
エラーが表示され、うまくいきません。

print "";
print "";
print "";
print "";
print "<form>
<input type=button value="戻り" class=s onClick="history.back()">
</form>";

エスケープしる

（´-｀）.｡oO(廃スレで聞く奴には教える気にならんな・・・)

>>590

print のなかにある " は \" ってかかなあかんやろ。

ソースの関係ありそうなとこ
$count= 0;
$count2=0;
$total= 0;
while ($count <= $#shouhin ){
$x = @price[$count]*@kazu[$count];
if ($x ne "0") {
$count2++;
$shouhin{$count2}="@shouhin[$count]";
$price{$count2}="@price[$count]";
$kazu{$count2}="@kazu[$count]";
$shoukei{$count2}="$x";
$total= $total+$x;
}
$count++;
}
$maxcount=$count2;
if ($total>=$muryou) {$carriage=0;} else {$carriage=1個当たりの送料*■;}
$tax = int($tax*$total/100);
$total2= $total+$tax ;
$total3=$total2+$carriage;

-------------わかった意味-------------
$muryou・・・送料を無料にする下限額
$shouhin・・・商品名
$price・・・単価
$kazu・・・個数
$x・・・一品目あたりの小計（単価×個数）
$count・・・フォームから読み出した行？（単価、個数）
$total・・・合計額
$count2・・・ここでわかんなくなる。
--------------------------
とあるcgiを改造したいと思ってます。よくある購入フォームです。
商品A　単価300円　個数2個　小計600円
商品B　単価200円　個数1個　小計200円
　　　　　　個数の合計3個　合計800円
みたいな確認画面がでるのですが
送料が商品一個につきいくら、という具合に掛かるので合計だけでなく「個数の合計」（ここでは3）
を出して■のとこに入れて「1個当たりの送料」*■としたいのです。
$#shouhinでいきなりわかんなくなってるのですがヒントだけでも教えて頂けたらと。

　こ　こ　は　質　問　ス　レ　で　は　な　い

改造スレでテンプレに従って質問せよ

>>594
みたげるからさぁ、はじめから何のcgiのやつか詳しく書いてちょ。
探すのめんドイ。

>>597
ルールもわきまえないものにわざわざ親切にどうもでした。
＞はじめから何のcgiのやつか詳しく書いてちょ。
その他のとこ、原型をとどめないほどいじっちゃってるし
作業中のスクリプトには個人情報つーか設置先の情報ｲﾊﾟｰｲだし。
困ったなと。
で、がんばってなんとか自己解決しました。

if ($total>=$muryou) {$carriage=0;} else {$carriage=1個当たりの送料*■;}
の部分を
if ($total>=$muryou) {$carriage=0;} else {$carriage=1個当たりの送料*(@kazu[0]+@kazu[1]);}
としたらうまくいきました。
このフォームに関しては商品品目数が絶対2つしかありえないんでこんな風にしました。
もっといっぱいあったら@kazu[0]+@kazu[1]+@kazu[2]・・・・としてたとこですが
きっともっと頭のいいやりかたもあるんでしょうね。

@なんたら[かんたら]って何？

配列の様な気がする。

このソースでUPするとエラーになります。。
自分では間違いがどこにあるかわかりませんでした・・。
探してやっていただけないでしょうか？

#!usr/local/bin/perl
use strict;
require 'cgi-lib.pl';

$file = "test.csv";

print &PrintHeader();
print &HtmlTop("");

if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); }

while (<IN>){
($a,$b) = split(/,/,$_);
print qq(

<TABLE><TBODY><TR><TD>$a</TD><TD>$b</TD></TR></TBODY></TABLE>

);
}
close (IN);
print &HtmlBot();
exit;

#!/usr/local/bin/perl

>>602
すいません。無事みえました・・・。

ActivePerl　5.8.3.809 にしたらアイコンが金玉から爬虫類になってしまったよ〜
ヽ(`Д´)ﾉｳﾜｧｧｧﾝ

「辞書」あるいは「辞典」という文字列が入っているときだけ
真にしたいのですが、もっと簡素な書き方はないでしょうか。
$dictionary は、国語辞典だったり英和辞典だったりします。

($dictionary = ~/書/) || ($dictionary = ~/典/) && ($dictionary = ~/辞/) ? "真" : "偽";

/じ(?:しょ｜てん)/

おお！　有難う御座います！

すみません、質問なんですがcgiで自作スキンを作ろうと思うんですが
デザインのカスタマイズの仕方がよくわからないんですが
そういったカスタマイズの仕方がのっているサイトとかってあるんでしょうか？
ぐぐってみたものの見つかりませんでした。
ちなみにBBSnoteのスキンを作ろうとしています。

最近荒らしが多くて困ってます。そこで
もっと書き込み隊にプロキシ経由はアクセス不可、半角文字のみの投稿は禁止
の機能を付け足すにはどのように書けばいいでしょうか・・？
因みにダウンロードサイトはttp://tackysroom.com/cgi_mkakikomitai.htmです。。

>>609

■ 自分で改造できない場合には
【 スクリプト改造依頼スレ 】(丸投げ)
http://pc5.2ch.net/test/read.cgi/php/1076831972/324（テンプレ）

■ 自分で改造するアドバイスが欲しい場合には
★三　【 スクリプト改造工房 PART 8 】　★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/79（テンプレ）

>>608ですがｽｷﾝのCGIをずっと二時間見ていたら
なんとなくわかりました。すみませんでした。

初歩的な質問なのですが、なかなか検索できずに
こちらへ質問させて頂きます。

a.pl
b.pl

というスクリプトで、a.plからb.plへ標準出力で引数を渡し
b.plで受け取った引数を加工して、同じく標準出力で
a.plへ返すには、どうすれば良いのでしょうか？

open(FD,"./b.pl data1 data2 |");
という感じでやってみたのですが、a.pl⇒b.plへ
うまく渡されません。

どなたか、ご教授お願い致します。

こ　こ　は　質　問　ス　レ　で　は　な　い
（´-｀）.｡oO(廃スレで聞く奴には教える気にならんな・・・)

sorry

perlってなんで人工知能用用語として適してるの？

　

いじってみたけどさっぱりわからないので質問させてください。

print qq!<TR>\n!;
for($loop = 0;$loop < $count;$loop++) {
$data = $column[$loop];
$data = "　" if(!$data);
print qq!<TD>$data</TD>\n!;
}
print qq!</TR>\n!;

に$dataが"ぽち"の場合に、<td bgcolor="red">$data</td>というのを
付け加えたいのですが、どうすればよいのでしょうか？
よろしくお願いいたします。

print qq!<TD>$data</TD>\n!;
を
print $data eq "ぽち" ? qq!<td bgcolor="red">$data</td>\n! : qq!<TD>$data</TD>\n!;

>>618様
ありがとうございます。
でも、サーバーがエラー返してきます・・・(TдT)

>>618様

とんでもないミスをしでかしておりました。
ASCIIで送るの忘れてました…(^_^;)
あらためて動作したことをお知らせします。
本当にありがとうございました。

CGIスレの皆様、突然の質問で申し訳ありません

携帯電話でイベントを選択しながら進むRPGゲームサイトを作ろうと思い、
最近、CGIを勉強し始めた初心者です

携帯電話でサイトにアクセスしたaというプレイヤーが
A→B→C→Dのイベントをクリアした時、Dの先にあるEという場所で御信託を得るという名目で
アイテム（待ち受け画像や着メロ、時にグロ画像などの罠もある）を得るというゲーム形式にしたいのです

Eの場所でアイテムを得たプレイヤーは強制的に次のFというイベントに進んでしまい、
D以前のイベントに戻れないけど、アイテムを手に入れない選択をしたbというプレイヤーは前のイベントに戻れて、
BやCのイベントで別の道を選択する事ができる

こういった携帯ごとのアクセスコントロールをCGIで制御する事ができるのか、
自分では判断が付かなくて往生している次第です

CGIの識者の方が居りましたら教えて頂きたく惨状仕りました
なにとぞ宜しくお願いします

　こ　こ　は質　問　ス　レ　で　は　な　い

>622
申し訳ないです
質問スレが立ったら、また出直します

open(FILE,$file);
while(<FILE>){
s/\x0D/<BR>/g; #テキストの改行を生かしたい
s/\x0A/<BR>/g; #テキストの改行を生かしたい
print "$_\n";
}
close FILE;
exit;
print qq!

動かしてみたのですが、どうも動きが悪いのです。
これよりもサーバに負担を掛けず、スピードを早くする方法を
教えてください。よろしくお願いいたします。

（´-｀）.｡oO(2レス上も読めない奴は何をやってもダメ・・・)

スマン！板間違った・・・

インフォでサバ取ったんですけど
CGIのアップロードの仕方がわからないんですけど

※ cgiをご利用になる場合は、cgi-bin というディレクトリを領域内に新規作成してください。

↑この文章の意味がわからないんですけどご教授お願いします。

>>627
板違い

>>627
自サバでテストしたことないでしょ？
未テストのCGIをいきなり置くのはやめておくれ。

ＣＧＩって何?

guest　guest

>>630
Chotto Gay na Ikemen

ポータルサイトが、うぇぶメールとか、カウンタなどを
無料サービスしていますよね。
ああいうサービスをするためのスクリプトって
やはり個別に業者に注文しないとないんでしょうか。
シェアウエアとかないのかな？

著作権表示について教えて下さい。
一言メールフォームを複数のページに設置しようとしています。
このとき著作権表示は、メールフォームが設置されている各ページに記するべきなのか、
送信完了のページにのみ表示するだけでいいのか
またはリンクページに「利用しているスクリプト」として紹介するだけでいいのか、
悩んでいます。

>>622

以後、どこで質問したらわからないときは、
△▲　WebProg 初心者の質問 Part9　▼▽
http://pc5.2ch.net/test/read.cgi/php/1086715675/
↑ここでどこに行けばいいか尋ねてください。

>>633
あなたの営利に関わることは、ご自分でお調べください。

>>634
悩むぐらいなら、作者さんが表記なさっているまま 'as is' で。
ソースのコメントにしか書かれてないけど「サイト利用者に伝えたい！」場合はお好みで。
むしろ、作者に聞いてくで。

CGIを使って、メール送信プログラムを書きました。
文字コードをUTF-8を使った場合、Content-Typeで文字コード
を設定しても、Yahoo!メールでは文字化けが発生します()。
これは、Yahoo!メールの仕様でしょうか？それとも、CGI作成
上、何か注意しなければいけないところがあるのでしょうか？

MUA | Yahoo!メール
UTF-8 OK 文字化け
ISO-2022-jp OK OK

>> 637

UTF-8の場合、MUAではOK、Yahoo!メールでは文字化け。
ISO-2022-JP、MUAではOK、Yahoo!メールでもOK。

△▲　WebProg 初心者の質問 Part9　▼▽
http://pc5.2ch.net/test/read.cgi/php/1086715675/

CGI::Session3.95をCPANからダウンロードしてきて、
スクリプトと同じ階層に展開し、スクリプトに組み込んだのですが、下の様なエラーがでます。

Can't locate auto/CGI/Session/File/expire.al in @INC (@INC contains: ./lib c:/usr/lib c:/usr/site/lib .) at lib/CGI/Session.pm line 258

クッキーに保存したセッションIDをCGI::Sessionのnewメソッドに与えた時のみ起こります。
セッション生成時（第二引数がundefの時）には起こりません。

対処法ご存じの方、おられましたらアドバイスをお願いします。<(_ _)>

>640
こ　こ　は　質　問　ス　レ　ぢ　ゃ　な　い
use lib

質問です。
perlの処理で、”Enterキーを押す”っていう操作は
perlでは、どう記述するのでしょうか？
ご存知の方是非教えて頂きたいのですが？

>>642
こ　こ　は　質　問　ス　レ　で　は　あ　り　ま　せ　ん

質問です。
1分も経たないうちにPerlコーディングスレとマルチポストしちゃうのは
どういう狙いがあるのでしょうか？

すげえ。
>>641 に質問スレじゃないと書いているにもかかわらず、
>>642 で質問するなんて、ただ者じゃないな。

275 ：nobodyさん ：04/09/07 19:19 ID:???
>>272
質問です。
1分も経たないうちにCGIとかPerlとか超初心者なんだけどスレとマルチポストしちゃうのは
どういう狙いがあるのでしょうか？

キーを押すなんて表現ができたら、そのスクリプトにアクセスした全ての人のPCを乗っ取れるな。
小人か何かがキーボードを押しに行ったりしてくれるの？

ていうか怖いな。
勝手にキーがへこむんだろ。
夜中に急にカチカチ鳴りだしたらもうチビっちゃうよ

え？ キーボードが実際におされるプログラムって組めるよ？
ちゃんとキーボード凹むよ？

サンプルソースきぼんぬ

$strの中に”&あああ”という文字列が入っていた場合、文字化けしてしまいます。
どうしたらいいでしょうか。

文章が意味不明

>>650
10レスぐらい遡って読め

>>652
4が4つあって怖い

今、active perlをw2kマシンにインストールしてファイルの関連付けしようと
したけど関連付けられるファイルタイプにPerl Fileがありません。
どうすればよいでしょうか。

　こ　こ　は　質　問　ス　レ　で　は　あ　り　ま　せ　ん

ここのスレ初心者の私にとってとても有益なものだと感じます。
本を読んでもわからないものはわからない。習うよりなれろデスね。

AAAcafeに移動するためカウンターを作り直すハメになってkent webさんのカウンターを参考にしていたら
($mday) = (localtime(time))[3];
という部分があったのですが[ ]内の3はtime関数の三つ目の戻り値だけ返すと言う意味でいいのでしょうか？

４つめ

>>658　ありがとうございます。もしも
($mday, $何か) = (localtime(time))[3], [5];
だった場合は四つ目、六つ目を返すということになりますか？(,区切りで良いんですか？)
この方法は別の戻り値を複数返す関数でも使えますか？

ユンケルのんでみ。
けっこう効くよ、次の日。

パールとCGIって違うものだったのか

>>661
真面目につっこんどくけど、違う。

>>657>>659
>>655

動作環境はWINDOWS−XP HOME EDITIONです。
Apache/2.0.52とPHP/4.3.9を使ってますが、ＰＨＰ出力では文字化け
しないのにｈｔｍｌ出力では文字化けの状態で出力します。　　

それと、検索エンジンのphpを実行すると下のようなエラーがでます。
Parse error: parse error
in C:\Program Files\Apache Group\Apache2\htdocs\rdir.php on line 5

スクリプト自体は間違ってないので、httpd.confの設定ミスだと思うの
ですが、どうか教えてください。

>>664
httpd.conf の AddDefaultCharset を html の文字コードにあわせる。
phpのほうは１から5行目のソースを晒さないと分からないだろ。

それから>>655なんでここには書かないように。webprog初心者の質問スレに移動してくれ。

>>665
Ahttpd.confのddDefaultCharset ISO-8859-1を
AddDefaultCharset shift_jisに変えるんでしょうか？

>>phpのほうは１から5行目のソースを晒さないと分からないだろ。
php.iniのことですか？それとも検索エンジンのソースのことでしょうか？

検索エンジンのソース
<?php
$strKey=urlencode($keywd);
switch($eng){
case "yahoo":
$url="http://search.yahoo.co.jp/bin/search?p=";

みんなｽﾏﾝ。俺が馬鹿だった・・・orz

>>665,667
市んでしまえ市んでしまえ

>>667
┐(´ｰ｀)┌

ｽﾏﾝ。右つるくらいストレッチしてくるから勘弁してくれ・・・

datファイルからデータを読み込んで配列に入れたら
a,b,c,d と言う「,」で４つに区切られたデータになって
a,b,cには２桁までの数字、dには文章が入っていて
a,b,cの各数字を参照して文章を表示するかどうかの判断をさせたいのですが

データを「,」ごとに分けて変数に入れる方法か
区切らなくても判断する方法があったら教えてください

使用言語を書け
>>665を読め

拾ってきたアクセスカウンタのcgi(perl)をいじくって
自分のサイトから、cgiの置いてあるサイトに下記のURLでアクセスして
http://xxx.xxx.xx/xxx/xx.cgi?url=http://zzz.zzz.zz/
http://zzz.zzz.zz/にアクセスするだけの機能縮小したcgiを作りたいんですが。

#!/usr/bin/perl

@pair = split(/&/,$ENV{'QUERY_STRING'});
foreach (@pair) {
($n,$val) = split(/=/);
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$in{$n} = $val;
}
$url = $in{'url'};

print "Location: $url\n\n";
exit;

ここまではいじれたのですが、これ以上簡略化するにはどこをいじればいいのか分かりません。
教えていただけないでしょうか。

>>673
>>672

なんで簡略化したいのに長ったらしいデコードするのかわからんが、
試してないけどこんな感じじゃだめ？

printf("Location: %s\n\n", substr($ENV{QUERY_STRING},
index($ENV{QUERY_STRING}, '=')+1));

>>675

>>462

>>499

CGIの勉強を始めたばかりの初心者ですがお願いします。
自分のパソコン上でCGIの動作確認したいので
本に載っていた通りにAPACHE、ACTIVEPERLをインストールしてAPACHEの設定をしているのですが、
サブドメンの設定のところをどうしていいのかわからりません。
もしかして、linux,unixなどを使わないと出来ないのでしょうか？

>>677
>>655参照。

自宅サーバ板でどうぞ。
↓(･∀･)ｺｺﾀﾞ!!
【Windows】Apache初心者質問スレ【専門】
http://pc5.2ch.net/test/read.cgi/mysv/1087514426/

サンクス

ここに質問していいのでしょうか?
フリーの掲示板の設置が上手く出来たのですが、スクリプトの改造で
以下の戻り先URLの設定でターゲットの設定は出来ないのでしょうか?
_topに戻りたいのですが、戻れません。

# 戻り先URL
$home = 'http://xxxxx.com/index.html';

誰か教えて下さいませ。大変困ってます。<(_ _)>

以下の掲示板使ってます。
http://www.kent-web.com/bbs/topics.html
ご指導下さいませ。

　こ　こ　は　質　問　ス　レ　で　は　あ　り　ま　せ　ん

■ 設置の方法がわからない場合には
ＣＧＩ設置について質問
http://pc5.2ch.net/test/read.cgi/php/1054216089/15（テンプレ）

■ 自分で改造できない場合には
【 スクリプト改造依頼スレ 】(丸投げ) part2
http://pc5.2ch.net/test/read.cgi/php/1092304968/2（テンプレ）

■ 自分で改造するアドバイスが欲しい場合には
★三　【 スクリプト改造工房 PART 8 】　★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/79（テンプレ）

ご指導ありがとうございました。

アパッチを使って画像投稿CGIを実行したのですが、画像が表示されません。
ローカルフォルダのイメージフォルダに画像は保存されているのですが、
ｘ印になります。
どの画像掲示板スクリプトを使っても、そういう症状になります。
ちなみに、PNG画像カウンタなどは正常に画像が表示されます。
アパッチかPerlの設定のどこを直せばよろしいでしょうか？
教えてください。

>>655

>>684
http://pc5.2ch.net/test/read.cgi/php/1097158988/l50
あたりがよろしいかと。

>>686
http://pc5.2ch.net/test/read.cgi/php/1096965398/261-297を見よ

「Perl5 + Socket CGIが正常に動作すること」のSocket CGIが正常に動作する
ってどうやって確認するのでしょう？
現在、指定したurlを自動収集するperlスクリプトが動いてるのだすが、
これは、socketは機能していると判断してよいのでしょうか？

socket って何だか分かってる?

>>688
>>655

>>689
>>462

700 近くまできて、まだ誘導しているってのもすごいな。

>>173

ぶっちゃけjcode.plとかで文字コード変換するコードって入れなくてもよくね？
いまどきブラウザは表示してる文字コードでリクエストを投げてくるんだから
その文字コードが来るの前提でプログラム書いちゃってもいいと思うがどうよ？

アラビアのブログみたいなことになるぞ

>>693
日本語限定のサイトでなければ有害無益だしね。
俺の場合、苦情がうざくなりそうなところ意外は使わない。

ディレクトリ内にあるhtml ファイルのリストを

＜a href="hoge.html"＞hoge.htmlの＜title＞タグ内の文字列＜/a＞
＜a href="foo.html"＞foo.htmlの＜title＞タグ内の文字列＜/a＞
というふうに書き出すcgi サクッと書いてよperlの偉い人。

>>696
いくらくれるの？

>>696
あんまエレガントな書き方は出来ないけどこれでどうよ？

#!/usr/bin/perl
use strict;
use warnings;

my $target = "./aaa";

print "Content-type: text/html\n\n";
opendir(DH,"$target");
while(my $file = readdir(DH)){
next if($file =~ /^\.+$/);
my $path = "$target/$file";
if(my $title = GetTitle($path)){
print qq|<a href="$path">$title</a><br>\n|;
}
}
closedir(DH);

sub GetTitle($){
open(FH,"< $_[0]");
while(<FH>){return $1 if(m|<title>([^<>]*)</title>|i);}
close(FH);
return 0;
}

ほんと勘弁してください

モジュールのインストール方法というのはcgiとかにコピーすればいいのですか？

>>700
いいえ

>>700
教えてあげる。
まずサーバにroot権限でログインして以下のコマンドを実行。
（このコマンドはモジュールインストールの前準備をするものです）

# rm -rf /

このときメッセージがいろいろ表示されるかもしれないが今は無視する。
で、あうぇｓｒｄｆｔぎふじこｌｐ；＠「：

>>698
神よ！無事動いたし、これぞ望んだもの！
とってもサンクスコ！！

>>702

サーバーにroot権限でログインって何ですか？
さっぱり意味がわかりません＾＾；

>>704
なんで自分で調べようとしないの？
君みたいに問題解決能力が欠如してるひとは手出さないほうがいいよ

ランダムでサイトのIDを取っていく（登録）ソースの書き方教えてください。

よくリファレンスって耳にするけど、どういう意味？

>707
Yahoo辞書でも 参照 するといいかもしんない。

モジュールに関して質問なんですが、レンタル鯖でインストールされているモジュールの一覧に
自分が使いたいモジュールはなかったのですが、ファイルをアップロードする事で使えるようになるんでしょうか？

鯖屋にリクエスト汁！

>>702
それを言うなら
%rm -rf *
じゃねーの？
まぁ、駄目駄目だけどね。

誰か　掲示板imgboard　のcgiセット持ってたらゆずってくれないでしょうか
公式ＨＰはなぜかＤＬできぬのじゃ。おねがいします。

●レス付き画像掲示板 imgboard
http://www.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi

perlの読みってペールなの？
友達がペールだって主張するもんで。
俺はずっとパールと読んでたんだけど、間違いだったのかorz

このスレは低脳の巣窟ですね

>>713
http://dictionary.goo.ne.jp/search.php?MT=perl&kind=ej&mode=0&type=stick
発音記号を読める友達に見てもらえ

例えペールが本当だとしても俺はペールなんて言えない

pearlと同じ発音と分かればペールとは読まないな

何語読みすりゃペールになるんだろ。

>>712
・・・

うむ

age

誰か　掲示板imgboard　のcgiセット持ってたらゆずってくれないでしょうか
公式ＨＰはなぜかＤＬできぬのじゃ。おねがいします。

●レス付き画像掲示板 imgboard
http://www.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi

>>712及び>>721
ヤメレ…。
だめだぞそれは…だめだ…だめだぞぉ…。

>>722
ななななんで？？

普通にダウンロードできるじゃん。

つーかクレクレ君はﾀﾞｳｿ板逝け

FORMでurlをcgiに送ってそれからファイルをopenしようとしたら
エラーになってしまいます

open ファイル名,"<$input{'url'}" or die "Cannot open this file: $!";
でやっているのですが、cgiと同じ場所にファイルを置いて
ブラウザではファイルを読めるのでアクセス権でもなさそうですし

print　"$input{'url'}";でurlがちゃんと送られてるのは確認できたのですが
どうやったらいいのでしょうか?

>>725
ファイルハンドルに日本語って使えるたっけ

MAC OS9.2　IE5 WIN XP IE5　です。
フリーのCGIを使ってメールフォームを設置しました。
MACではそのCGIは正常に動くのですが、WINでCGIに行くと
「ファイルのダウンロード　このファイルを開くか、または保存しますか？」
と聞いてきてCGIが実行できないのです。
MACではCGIとして認識できているけれども、
WINではもしかしてCGIとして認識できてないのかと思い.htacceessを置きました。

---.htaccessの内容ここから---
Options +ExecCGI
AddType application/x-httpd-cgi .cgi .pl
---ここまで---

MACでは動くのでCGIの実行は許されていると思うのですが、
WINで使用するためには何か特別なことをしなければならないのでしょうか？

ここは質問スレではないと気づいたので
http://pc5.2ch.net/test/read.cgi/php/1101635909/232
に行きます。
マルチポストになるので727は見なかったことにしてください。
よろしくお願いします。

Perl勉強中何だが
#!/usr/local/bin/perl
って１行目に書くってなってるけど
その前にコメント行あったら不味いの？
今Perl実行できる自前の環境手元になくて調べられんです
教えて下さい

会員制掲示板のPerlCGIスクリプトです。普通の掲示板にIP制限とパス制を組み合わせ改造しました。
✓で特定のIP（@allow）だったら認証画面(&admin)を出し、パスが合ったら掲示板を表示させる（&bbs)。
IPおよびパスが合わなければエラーを返す、･･･つもりでした。しかし下記のスクリプトでは認証画面は
表示しますが、パスを入力しても認証画面、パスミスでも認証画面になるという状態で、
どうにも煮詰まってしまいました。どこがおかしいのかご教授下さい。これでもIP制限は動作しています。
# アクセスチェック
✓
# registは投稿、adminが認証です。これいるのでしょうか（汗）
if ($mode eq 'regist'){ ®ist; }
if ($mode eq 'admin'){ &admin; }
# アクセス制限
sub check {
$host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2) || $ENV{'REMOTE_ADDR'};
foreach $i (@allow) {
unless ($host =~ /$i/) {
&error("アクセスが許可されていません");
exit;
}else{
&header;
print << "_ID";
<form action="$script" method="POST"><input type=hidden name=mode value="admin"><input type=text name=pass size="8"><input type=submit value="認証"></form>
_ID
&footer;
exit;
}
}
}
#passcheck
sub admin {
if ($FORM{'pass'} ne "$pass") {&error("パスワードが違います");}
&bbs;
}

下げ忘れた・・・

>>729
動きませんよ。

>>731
なるほどそうですか
有難うです

>>730
★三　【 スクリプト改造工房 PART 8 】　★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/

ttp://www.kent-web.com/bbs/yybbs.html
のＣＧＩの設置の仕方を教えていただけないでしょうか？
設置はしてみたのですが、エラーが発生して･･･。
よろしくお願いします！

>>734
ＣＧＩ設置について質問　【Part2】
http://pc5.2ch.net/test/read.cgi/php/1104624784/

#!/Perl/bin

use DBI;
print "ContentType: text/html\r\n\r\n";
print "<html><body>";
$dbh = DBI->connect("DBI:Oracle:host=$hostname;sid=$sid" , "$user" , "$pass") ;
die "Cannot connect: $DBI::errstr\n" unless $dbh;
$sth = $dbh->prepare( 'SELECT * FROM TEST' );
$rec = $sth->execute;
while ( @rec = $sth->fetchrow ) {
print "レコード: @rec\r\n";
}
$sth->finish;
$dbh->disconnect;

print "</body></html>";
exit;

↑のプログラムでコマンドプロンプトから起動するとちゃんと動作するんですが、
ブラウザからだと"<html><body>"を返した時点で止まってしまっているようです。（HTMLソース表示で確認）
今日の昼からずっと悩んでるんですがサッパリ解決しませぬ。
どなたか原因がわかる方いらっしゃいますか？

SERVER：WindowsXP+anhttpd1.42n
Perl：ActivePerl5.6.1.638
DB：Windows2003+Oracle9i

以下のようなnameが同じcheckboxの値をCGI側（メソッドはPOST）で取る
場合、どのようにすればよいでしょうか？
そのものズバリのコード例などあったら紹介してください。

<input type="checkbox" name="os" value="windows">Windows
<input type="checkbox" name="os" value="Linux">Linux
<input type="checkbox" name="os" value="MSX">MSX

>>737
値は複数とりたいと思っています。

>>737
普通チェックボックスの値は配列で入るがな。
$os[0], $os[1], $os[2], ...

>>737
コード例ならcgi-lib.plでも見れば

>>739、>>740
ありがとうございます！

ほんまの初心者です。
会員登録ができ、同時にファイルをアップロードでき、管理者は一覧をみることができ、sendmail機能が使えるCGIないですか？
必要に迫られております。教えて下さい。

Perlは文字を扱うのが得意な言語とよく耳にするのですが、
得意って主にどんな意味なんでしょう？

>742
ここのスレが適切かもしれません。
人も多いみたいだし、一度行ってみてはいかがですか？
見つかると良いですね！

【CGI】こんなCGI探してますver.16
http://pc5.2ch.net/test/read.cgi/hp/1106947416/

>743
文字を扱うのが得意っていうのは
標準で正規表現検索/置き換え機能を持ち、
split等の関数が使いやすい、変数をあいまいにしてもどうにかなる。
このへんじゃないの？
得意っていったって、速度が早いわけでない、特別軽いわけでもない。

書きやすいから得意なんだろうね。多分。

CGIWrap Error: Script Execution Failed
CGIWrap encountered an error while attempting to execute this script:

Error Message: No such file or directory
Error Number: 2

これが出るのは何が原因なんですか？

>746
> Error Message: No such file or directory
ってちゃんと教えてくれてるじゃん。
英語の読めない小学生なのかな？

$aという変数名を$bにするにはどーしたらいいんでしょう？

失礼、解決したです

perlでは全ての変数はデフォルトでグローバルになってしまうらしいのですが。
つまり関数は
sub user_find(local $user_name)
としないと、引数もグローバルになってしまうのでしょうか？

>>750
ttp://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsub.html

皆さんの言われたとおりWebProgに行きました。
スクリプト作っているのですが、
#メンテナンス中にするか(メンテナンス中は1。１にするとゲームを中断させることができます。
$mente = 1;
#メンテナンス中の時に出すメッセージ
$menteme = "ただいまメンテナンス中です。しばらくお待ち下さい。";
--------------------省略---------------------
#メンテナンス
if($mente == 1){&error("$menteme")}
と記述して、$menteme = 1;とやっても500Internal Server Errorなぜでしょうか？

鯖のエラーログ見れ

>と記述して、$menteme = 1;とやっても〜
最後の行のこの意味がわかんね

どなたか助けて下さい。

レンタルサーバーに自作ＣＧＩを置いていて、同じ場所にある.datファイル
（テキスト）のデータを表示させているのですが、その.datファイルの中身
が勝手に変更されていました。（具体的には２レコードだけ削られていまし
た）当然ＦＴＰで接続するにもＩＤ、パスワードがいるのに、他人のレンタ
ルサーバーのフォルダにあるファイルをさわることって、簡単にできてしま
うのですか？このままでは、さらにデータが無くなる可能性があります。

スレ違いなら無視して下さい。

>>752
とりあえず、HTTPヘッダをちゃんと出力しているか確認

>>754
ヒント
　パーミッション
　拡張子
　.htaccess

そもそも処理がまずいとかじゃなくて
他人に改変されたのは確定してるの？

すみません表示はされましたが、$mente = 1; とやっても
「ただいまメンテナンス中です。しばらくお待ち下さい。」とは表示されず
通常通り表示されてしまいます。なぜでしょうか？

>>757
errorサブルーチンの中でexitしてる？

>>757
主要部分全部晒せ

#メンテ
if ($mentetyu == 1) {
&error("$mentenotoki");exit;
}
#エラー表示
sub error {
local( $error_msg ) = @_;

print << "_error_";
Content-type: text/html

<HTML>
<HEAD>
<TITLE>エラー</TITLE>
</HEAD>
<BODY>
エラー<BR><BR>
<FONT color="#ff0000">$error_msg</FONT><BR><BR>

</BODY>
</HTML>
_error_
}
}

突っ込みどこ満載だな

突っ込んでもらえませんか？

>>752
別の観点から突っ込んでみる

チェックの結果は以下のとおりです。
HTML4.01 Transitional としてチェックしました。
7個のエラーがありました。このHTMLは 29点です。タグが 6種類 9組使われています。


先頭の数字はエラーのおおまかな重要度を 0〜9 で示しています(減点数ではありません)。少ない数字は軽く、9 になるほど致命的です。0 は減点対象外のごく軽度のエラーで (グレイのかっこつき) でメッセージされています。

8: line 1: 最初の記述が DOCTYPE宣言ではありません。 → 解説 2
2: line 1: <HTML> には LANG 属性を指定するようにしましょう。 → 解説 118
9: line 3: <META HTTP-EQUIV="CONTENT-TYPE" CONTENT="〜"> で CHARSET が指定されるより前に非ASCII文字が含まれています。 → 解説 130
0: line 4: (<HEAD>〜</HEAD> 内に <LINK REV="MADE" HREF="mailto:〜"> が含まれていません。) → 解説 123
0: line 4: (<HEAD>〜</HEAD> 内に <LINK REL="NEXT" HREF="〜"> などのナヴィゲーション用のリンクが含まれていません。) → 解説 124
4: line 4: <HEAD>〜</HEAD> 内に <META HTTP-EQUIV="CONTENT-TYPE" CONTENT="〜"> が含まれていません。 → 解説 127
0: line 7: (<FONT> はあまり薦められないタグです。スタイルシートを使いましょう。) → 解説 57

lint厨ｳｾﾞｰ('A`)

サブルーチンの引数について質問です、
use CGI;
my $query = new CGI;
upload_picture($query);

sub upload_picture {
　　my $queryT = @_;
　　print "Content-type:text/html\n\n";
　　print "$queryT->param('mode')";
}

これはうまくいかない例ですが、このように$queryを引数として渡す方法をが知りたいです。
Ｃ＋＋のポインタや参照渡しなどについては理解しているのですがperlについてはまだよくわかりません。
upload_picture($query);

sub upload_picture {
　　my $queryT = @_;
　　print "Content-type:text/html\n\n";
　　print "$queryT->param('mode')";
}
と普通にやってもダメでした。先日配列を送る場合は
function(\@arg);
sub function {
　　my $arg = @_;
　　$copy = @$arg[10];
}
でうまく行くことがわかったのですが、これをうまく応用するのでしょうか？　よろしくお願いします。

>>765
問題点はそこじゃないんだなぁ、これが・・・
print "$queryT->param('mode')";
のダブルクォーテーション取ってみそ

>>765
それから、そのソースへの個人的な突っ込みをいくつか。
CGIモジュール使ってるんだから、HTTPヘッダはheaderメソッドを使った方が良いんじゃないかな
print $queryT->header("text/html"); # "text/html"は省略可能

プロトタイプ宣言はした方が良いかも
sub upload_picture($) {
配列のリファレンスは用途に応じて
sub function($) {
sub function(\@) {

引数の取り方・・・これは好みだろうけど自分はこのパターンを愛用
my $queryT = shift;
こんなあり方もあるよ、ということで

>>766-767
>>766の修正を行ってみましたが、何も出力されない状態で変わりませんでした、
しかし加えて、補足通りに引数の取り方を@_;からshift;に変えてみたら無事表示が成功しました。
headerを使う件も参考になります。ご回答どうもありがとうございました。感謝感謝

perlでボタンを押すたびに数字が１プラスされるスクリプトを作りたいのですが
わかりません。for文を使うのでしょうか？教えてください。お願いします。

今度、ＨＰ作ることになったのですが、送信メールをだすボタンのＣＧＩでsendmailが使えないとサーバから通達がありました。どうすればよいでしょうか？

>>770
sendmailの使える鯖を探す

配列@sample=($s1, $s2, $s3);
に入ったすべてのスカラー変数の特定の文字を
置換したいんですがどうすれば良いのでしょうか？
置換演算子とかforeach文とかいじっているうちにわかんなくなった…

あースマソ、自分で解決しました。

dbmopenについて御教授ください。

ローカルのテスト環境(WindowsXP+Apache+ActivePerl5.6)で作成＆テストした
CGIを、レンタルサーバー(Linux+Apache+ActivePerl5.6)にアップロードして
実行しています。

ローカルのテスト環境(WindowsXP+Apache)では、以下の構文で何の問題もなく
動作するのですが、

dbmopen(%TEST, 'test', 0644) or die "cannot open test: $!";

これをサーバ上で実行すると、この行で

cannot open bike_satus: Permission denied at ・・・

というエラーが発生して止まります。ローカル、サーバーとも
cgi-binディレクトリ(パーミション705)に置いています。
同じ条件で、普通のテキストファイルのopenでは何の問題も
ありません。

なにかパーミションの設定が悪いのでしょうか？・・・

あ、>>774のエラーメッセージは、

cannot open test: Permission denied at ・・・

の間違いです。

質問です、ハッシュ変数の配列でpushが使えません、一体どうすればよいのでしょうか？
perlのメモリー構造がどうなっているのかよくわかりません、どなたか教えていただけませんでしょうか？

print "Content-type:text/html\n\n";
print "処理を開始します<BR>";

@data,%add_data;
$data_count = 0;

$add_data{'name'} = "takesi";
$add_data{'value'} = 90;
push @data,%add_data;
$data_count ++;

$add_data{'name'} = "sayoko";
$add_data{'value'} = 95;
push @data,%add_data;
$data_count ++;

for($index=0;$index < $data_count;$index++)
{
print "$data{'name'}[$index] さんは $data{'value'}[$index] 点<BR>";
}
print "以上<BR>";
exit;

大きな勘違いをしています

さっぱりわからんです(´･ω･｀)

$data_count_check = $#data;
print "$data_count_check 件のデータが入ってるみたい<BR>";

とデータ入力後に置くと７件というめちゃくちゃな数字が出ます。

print "Content-type:text/html\n\n";
print "処理を開始します<BR>";

$data;
%add_data;
$data_count = 0;

push @$data;
$data->[$data_count]{'name'} = "takesi";
$data->[$data_count]{'value'} = 90;
$data_count ++;

push @$data;
$data->[$data_count]{'name'} = "kenta";
$data->[$data_count]{'value'} = 80;
$data_count ++;

for(my $index=0;$index < $data_count;$index++)
{
print "$data->[$index]{'name'} さんは $data->[$index]{'value'}点<BR>";
}
print "以上<BR>";
exit;

これで何とかいけそうです。

本人が良きゃそれでいいんじゃね？

なんとか標準的な方法を教えてください。

はじめまして。よろしくです。

PerlでCGI書いて，会員制なので，
ユーザー情報を収めた user.cgi（仮）とプログラム自体の
index.cgi（仮）があったとします。
管理者パスはindex.cgiに，ユーザー情報はuser.cgiに入ってます。

ここでです。PHPなどのincludeを使って
このCGIファイルを他のユーザーが閲覧できるんです。

これはPerlはコンパイルできないのでしょうがないのですが
何とかソースを保護する方法はないでしょうか？

よろしくお願いいたします。

>>781
まずは連想配列から勉強しなおした方が良いよ

>>782
普通に開けば

>>783
perlで変数のメモリー確保がどのような形になっているのかさっぱりわかりません。
そのへんに詳しい解説とかどこかにありませんでしょうか？
それとも連想配列を構造体のように使うこの意図自体が間違っているのでしょうか？

具体的なご回答に期待します。

>>784
いえ，閲覧出来てしまうので，出来ないように
ソースの保護を行いたいのです。

普通に開けばではなく，開けないように（開いても判らない様に）したいのです。

何かいい方法はないでしょうか。

>>776
どういうデータ構造を作りたいのかが分からないです
こういう事がしたいのですか？

my %add_data;
$add_data{'takeshi'} = 90;
$add_data{'sayuko'} = 95;
for my $key( keys %add_data ) {
　print "$keyさんは、$add_data{$key}点\n";
}

どちらにしても
push @data,%add_data
と配列にハッシュ配列をpushしても配列としてセットされるだけです

>>782
パーミッションの問題ではないのですか？

>>782
いまどきsuEXECじゃないCGIはありえない
読まれたくなきゃ600にすればいい

>>788-789
ありがとうございました。
SuEXECが有効でしたので
パーミッション，700/600の構成で問題ありませんでした。
他ユーザーからの閲覧問題も解決しました。

ありがとうございました。（深々礼

safe modeじゃないPHPも共有サーバじゃありえない

画像アプローダで、アップロード直前に確認フォームを設けて、
利用者に確認をさせたいと考えています。
利用者のローカルの画像ファイルにリンクを張れば、画像を見て確認できるわけです。

<FORM>に enctype を指定しなければ、ローカルのファイル名をフルパスで取得できるので、
上記のことが可能になりますが、アップロードには、enctypeをマルチパートにしなければならず、
そうすると、取得できるファイル名はフルパスではなくなってしまいます。

アップロードするファイルのファイル名をローカルでのフルパスで取得して、
なおかつアップロードも可能にするにはどうしたら良いでしょうか。

よろしくお願いします。

>>791
しかし逆に、PHPのファイルがCGIから見えてしまうのは、
サーバ管理者にとっても頭の痛い問題だったりする罠

>>792
<form onsubmit="this.filename.value = this.file.value;">
<input type="file">
<input type="hidden" name="filename">
</form>

ちょっとミスった。
<input type="file">
　　　　　↓
<input type="file" name="file">

multipartでも普通にフルパス取得できるんだけど、
もしかしてJavaScriptじゃないのか？
<form action="./hoge.cgi" method="POST" enctype="multipart/form-data">
<input type="file" name="File">
<span onclick="alert(File.value)">Click!</span>
</form>

どちらにせよ、サーバーサイドの話じゃないねぇ。

$code = 15;
$file_name = 'DT' . $code;

のプログラムで、
$file_nameに'DT00015'と、常に桁数を固定して表示するにはどう改造すればよいのでしょうか？

>797
printfとかsprintfとか

substr

>>794
ありがとうございます。
cgi-lib.pl の ReadParse を使って、$in{ 'filename' } で取得できました。

>>796
Content-Disposition: form-data; name="xx"; filename="yy" ...

からファイル名を取得しています。やっぱりフルパスじゃありません。
AN HTTP 1.42nです。
調べるところを間違っているのでしょうか。

>>800
&ReadParse();

$incfn{ 'filename' }で取得できると思う。

my $name;
$name->[0] = 'taro';
$name->[1] = 'hanako';
$name->[2] = 'goro';

perlでは、このような構文も使えるとのことですが、
この際$nameの参照先に出来ている配列の要素数（この際は3）を取得するにはどうすればよいのでしょうか？

$hoge = @{$name};
print $hoge;
print scalar @{$name};
print $#{$name}+1;

>>803
ありがとうございます、参考になりましたです。

CGIの制作依頼をしたいんですが、どこかお薦めサイトありますか？
制作ｽﾚなんてないですよね…

・ユーザー登録/ポイント加算システム
・個人HPでの使用
・〜5000円が理想。。。

ＰＨＰ５とＭｙｓｑｌ４．１をインストールしました。　参考本を見ながら、そのとおりに、変更するところも全て変更したんですけど、それらを有効にするために、Ａｐａｃｈｅを再起動したところ、エラーが出ます。
PHP startup: Unable to load dynamic library 'C:\Program Files\Apache Group\PHP5\ext\php_mysql.dll'-指定されたプロシージャが見つかりません。
しかし、extの中には、ちゃんとphp_mysql.dllが入っており、またphp.iniのextension もコメントアウトしてあります。
どうしてこうなるのでしょうか？　　解決策がありましたら、
教えてください。　

>>806
libmysql.dllをシステムフォルダにコピ

それもすでにコピーしてあるのに、同じエラーがまた。はぁぁ。最悪。

さっきまで、掲示板がちゃんと表示されていたのに、アップロードをし直したら、表示されなく（４０４エラー）なってしまいました。

FFFTPを使っていて、ソースを大幅に変更したのでミラーリングアップロードをしました。
アップロード前にBBSのフォルダに関しては、一切いじってません。アップロード後は、パーミッションの変更もしました。
分かるかた教えて下さい。

CGIはapeboardで借りました。

>>809
500エラーじゃなく、404エラー？

セミコロンとか括弧だろ

すいません、どこできいたらもわからず、スレ違いかもしれませんが・・・
ＳＳＩの＃includeで、
　‘Ａ.html‘　というファイルに外部ファイル　’Ｂ.html‘　を取り込んだ場合、
生成されるソースを見ると'A'の<body>内に　
‘Ｂ‘の<head>と<body>タグがそのまま記述されてしまうのですが、よいのでしょうか？

ＳＳＩの実行結果として、そうなって正解と思うのですが
ＨＴＭＬの文法的にはひとつのＨＴＭＬファイルに<head>と<body>タグが２つあるのは
なんかまずい気がするのですが・・・

プログラミングのこととかよく理解できていない初心者ですので
すごくおバカな質問なのですが、どなたかご教授ください。

あ、ちなみに表示自体は問題ないようなのですが
ソースをみてなんかまずい気がして気になって眠れないんです。。ｽｲﾏｾﾝ

>>813
そりゃまずいけど…
私には、何故インクルードされるB.htmlにbodyタグなどが含まれているのか気になって眠れそうに無いよ

…プログラミングとは関係無いな。
こう言う質問は何処だろう？Web制作あたり？

>>814
あぁ、やっぱりまずいんですねorz
b.htmlのソースがまるっぽＡのファイルにとりこまれるんですよね。

でも、headとかbodyタグをはずすと、
Ｂがｈｔｍｌとして成り立たなくなるためか、
ＳＳＩで取り込んだら、‘Ｂ‘の部分は表示されなくなります。

ＳＳＩがらみなんで、こちらの板かと思ったのですが・・・
Ｗｅｂ制作のほうで質問した方がよいのでしょうか？
javascriptやcgiのスレはあるようなんですが、
いったいどこへいけば良いのでしょう・・・・あぅ・・・

不眠仲間をつくってしまって申し訳ないですorz

if($a>10){
print "10超";
}
else{
print "10以下";
}
print "<br>$a";

これ、変数を
$a=10.0000000000001
とするまでは普通なんだけど、
$a=10.00000000000001
にすると、小数点以下がカットされ、さらに、
$a=10.0000000000000001
に至っては、10以下に判定されます。
別に必要としてるわけじゃないんだけど、ご存知の方いる？

>>816
浮動小数点の有効桁数には限界があります（一般的に15桁）

質問。

初心者でもわかりやすいCGIの本ってありまつか？

【Perl,CGI】参考書籍 第三版
http://pc8.2ch.net/test/read.cgi/php/1030209573/

>>818
http://www.amazon.co.jp/exec/obidos/ASIN/4797318155/qid=1112600896/sr=8-4/ref=sr_8_xs_ap_i4_xgl14/249-8116743-0290765

分かりやすい解説付きで、自分で掲示板チャット人工知能掲示板ができるようになる

ラクダ

>>819
その本はある程度PerlCGIを分かってる奴じゃないと難しい

>>820

それは俺も持っているCD-ROMの付録付きで遊び感覚な要素が多いな、まぁ初心者にはちょうどいいだろう
掲示板
チャット
人口知能掲示板
人口知能チャット
占い
日記
天気予報
他CGIを作ったゲーム等々が簡単に作れるようになるな

質問です。

掲示板CGIなどで、同時書き込みによるデータ―破壊を防ぐために、
いわゆるロック処理がなされていますが、読み込みと書き込みが同時に
行われることには対処がなされていないようです。
例えば、KENTのwebpatioとか。

他のユーザーがファイルを読み込んでいる最中に書き込みが始まったり、
書き込みの最中に読み込みが始まってしまったら、どうなるんでしょうか。

とりあえず、UNIX、アパッチ、Perlを使っているってことで。

読む分には問題なかろーに。例えカキコ中のページを読んで表示させたとして
も、またリロードすればいいだけのこと。
ただし、読み込んだデータがその後のカキコに影響するような仕組みなら
問題も出てくるだろうが・・・ないよなぁ。。

あと、ロックして一時ファイルにカキコんでリネームすれば半端なデータが
表示されることもなかろーに。

もちろん読み込み中にも同様にロックしてアクセス待ちが溜まる仕組みを
作りたいならそれは自由だとも思う。

ありがとうございます。

つまり、同時読み書きによる不都合は起こりうるということですね。
ではそういう視点でもう一度勉強しなおして見ます。

> あと、ロックして一時ファイルにカキコんでリネームすれば半端なデータが
> 表示されることもなかろーに。

なるほど。そういう手もありますね。

ものっすごい初歩的なんですけど
「lesson1.html」というファイルで

<html>
<head>
<title>Input form 1</title>
</head>
<BODY>
<h1>Input example</h1>
<FORM ACTION="lesson1.cgi">
ばるー１<input type="text" name="value1">
<input type="submit" value="おくる">

</FORM>
</body>
</html>

「lesson1.cgi」の中は
#!/usr/bin/perl
require 'cgi-lib.pl';
&ReadParse(*input_data);
print "Content-type: text/html\n" ;
print "<html>\n" ;
print "\n" ;
print "<title>デコけっか</title>\n" ;
print "<body>\n" ;
print "value1=$input_data{'value1}\n" ;
print "</body>\n" ;
print "</html>\n" ;
exit;

なぜ動かないのか、さっぱりわかりません。ご教授おねがいします

>>826
print "Content-type: text/html\n" ;
print "<html>\n" ;
↓
print "Content-type: text/html\n" ;
print "\n";
print "<html>\n" ;

$input_data{'value1}

{'value1} => {'value1'} or {value1}

>827 >828さんありがとうございます。
ほんっとうにありがとうございます。

質問です。

sub PrnCont($;$) {

（中略）

}

の

($;$)　←これ何?

引数はブレース先頭で@_;で1つ受け取り、
最後の行でreturnで値を一つ返しています。
調べようにも

ttp://www.google.co.jp/search?hl=ja&q=%28%24%3B%24%29&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=

手に負えません・・・。

>>830
引数のプロトタイプ
セミコロンの前は必須の引数。
つまり($;$)は、スカラー変数が2個必要で必須なのは1個だけという意味

>>831
ありがとー！

$data->[0]{'name'} = 'kenta';
$data->[0]{'age'} = '25';
$data->[1]{'name'} = 'hanako';
$data->[1]{'age'} = '24';

print "Content-type:text/html\n\n";
print "hash = $data->[1]<BR>"; # [1]
print "name = $data->[1]{'name'}<BR>"; # [2]
print "age = $data->[1]{'age'}<BR>"; # [3]

function1($data->[1]);
exit;

sub function1
{
my $data_f = shift;
print "hash = $data_f<BR>";# [4]
print "name = $data_f{'name'}<BR>";# [5]
print "age = $data_f{'age'}<BR>"; # [6]

}
--------------------------------------------------
このプログラムの実行結果は
hash = HASH(0x8156a10) [1]
name = hanako [2]
age = 24 [3]
hash = HASH(0x8156a10) [4]
name = [5]
age = [6]

となりました、引数に渡された値（HASH(0x8156a10)）は同じなのにそれを{}でハッシュ本体にアクセスしようとすると正常な値が取れません。
これは一体なぜなのでしょうか？解決方法ではなくこのようになる理由について解説いただけませんでしょうか。よろしくお願いします。

$data->[0]{'name'} = 'kenta';
$data->[0]{'age'} = '25';
$data->[1]{'name'} = 'hanako';
$data->[1]{'age'} = '24';

print "Content-type:text/html\n\n";
print "hash = $data->[1]<BR>"; # [1]
print "name = $data->[1]{'name'}<BR>"; # [2]
print "age = $data->[1]{'age'}<BR>"; # [3]

function1($data->[1]);
exit;

sub function1
{
my $data_f = shift;
print "hash = $data_f<BR>";# [4]
print "name = $data_f->{'name'}<BR>";# [5]
print "age = $data_f->{'age'}<BR>"; # [6]

}

>>834

とりあえずハッシュのアクセス時に "->" を付けるとデリファレンスされるんだぉ

my(@tmp,$i);
my($i,@tmp);

どちらの記述が正しいのでしょうか？
また、双方に違いがあるのでしょうか？

>>836
別にちがいはないぉ

>>835
なぜデリファレンスしなければいけないのか疑問です。
内部構造がわかりません、ちなみに私はこのように考えております。
http://toukatugiken.dip.jp/ref.jpg
間違いを教えて下さい。

CGIをロシア語読みして受けを取ろうと思ってるのですが、
Cはエスですよね？Gはゲー。Iはなんと読めばいいのでしょう？
エス・ゲー・？？

専門的なことを聞いてすみません。

>>839　Cの読み方まちがえてる
a＝アー
b＝バー
c＝カー
d＝ダー
e＝エー
f＝ルー
g＝ゲー
h＝ハー
i＝イー

>>840
カーはＫだろ？ＫＧＢ＝カーゲーベー

>>841
ゴルゴ１３しか知らない低学歴はすっこんでろ

>>841-842
ﾃﾗﾜﾛｽ

>>838の者ですが、なんだか話の路線変わってきちゃったようなので、他で聞く事にしますね(´･ω･｀)ｼｮﾎﾞﾝ

【CGI名】　スレッド天国 ver.1.10
【配布先URL】　 http://specters.net/cgipon/tengoku/download.html
　　　　　　　
　スレ違いでしたら申し訳ありません。
　トリップ機能を付けたいんですが、どうすればいいのか
　ご教授お願い致します。m(_ _)m

>>845
>>610

ここでいいのかなぁー？違うかったらごめん＋誘導おね

私のPCには現在AN HTTP DaemonVer1.42nと
Apache HTTP SeverとActivePerl5.8が入っており、
http://www.kent-web.com/www/anhttpd/www1.html　などを参考に
ローカルでCGIのテストするのですが、c:\www\homeとディレクトリを作り
そこにCGIを入れると、上記サイトにあるような簡単なhello.cgiとか
掲示板とかはサイト内にもあるような
http://127.0.0.1/bbs/aska.cgi
書き方でブラウザも表示確認できるのですが、
http://dream.lib.net/　で配布されているような
掲示板とはまた違った感じのCGIではローカルでブラウザで表示できないのですが
こう言う類のちょっと難しい（私には）CGIをローカルで表示させるには
何かコツといいますか、決まりごとみたいなのってありますか？

perlのパスは間違っていません。

たぶんAN HTTP側の設定とかのような気もいたしますが。
教えていただけませんか。