CGIだけど、なんか質問ある？
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん
NGNGprint "くだらねぇー質問はココから始めろ！";
0102ほれ
NGNG0103名無しさん
NGNG0104名無しさん
NGNG0105教えて君
NGNG<!--#include virtual=""-->
みたいな感じでSSIを組み込みたいのですが、
どうしたら良いのでしょうか？
板違いでしたらすみません
0106名無しさん
NGNG0107コピぺ君
NGNG0108なぜ？
NGNGあたらしいサーバーに移したら動かなくなりました
パーミッションや転送モードは間違えていません
telnetでエラーメッセージを見ると
jcode.plの途中の行でひっかかっているようなのですが
/\216([\241-\337])(\216([\336\337]))?/: unmatched () in regexp at ./jcode.pl lin
このようなエラーがでてしまいます
どうすればいいのでしょうか？
ちなみに新しいサーバーはperlでなくjperlが使われているみたいです
0109なぜ？
NGNG0110名無しさん
NGNG0111<BR>
NGNG検索しても<P></P>見当たらないのですが…
0112名無しさん
NGNG108の続き? もう訳わからん。
0113111@<BR>
NGNG0114名無しさん
NGNGどうやればいいでしょうか。それだけ出来ればいいのですが…。
0115なぜ？
NGNGいえ たぶん移転先がjperlなんです、、、
どなたか>>108の原因わかりませんでしょうか？
あ １１１は自分とは関係ないです
0116名無しさん
NGNG"-b"オプションが使えるjperlなら、先頭のパス指定で
#!/usr/bin/perl -b
と書くと英語版perlと互換モードになるから試してみよう
0117なぜ？
NGNGできました！ ありがとうございました
やはりjperlがいけなかったみたいです。。。
-bをつけたら掲示板が使えるようになりました
大感謝です。
0118名無しさん
NGNG($name,$link) = split(/=/,$org);
print <<"EOF";
<a href="$link">xxx</a>
EOF
適当。
0119755?
NGNG***.cgiファイルをダウンロードされない方法はないでしょうか？
ﾒhttp://www.xx.***.cgiを「名前を付けて保存」とかで...
0120名無しさん
NGNG01211
NGNGおしえて。
0122121
NGNG0123名無しさん
NGNG0124名無しさん
NGNGsendmailのvacation.msgをCGIで書き換えるようにして、
アクティブな自動返答システムを作れないかなぁ？だめ？
0125名無しさん
NGNGファイル名がindex.htmlでも実行できるでしょうか？
0126名無しさん
NGNG？？
CGIスクリプトのファイル名がindex.htmlだとダメですよ。
ディレクトリリストの参照が気になるなら同じ階層にダミーのindex.htmlを置くかしましょう。
0127125
NGNGどうやってるんでしょうか？
0128名無しさん
NGNG0129>>125=127
NGNGここはCGIが吐き出したindex2.htmlを表示してるだけだ。
index.htmlはフレームになってるだろ？
0130129
NGNG<FORM METHOD=POST ACTION="../test/bbs.cgi">
を見ればわかるとおり、cgiはindex2.htmlじゃないからね
0131125=127
NGNG＞128 125は掲示板のフォームも全て拡張子.cgiでないといけないと思っているドキュン
atari!
0132名無しさん
NGNG投稿された内容を別のファイルに記録して照合して…という方法しか思いつきません。
他にスマートな方法はありますか？
0133名無しさん
NGNGログファイル本体の内容を参照するのでは駄目なの？
0134132
NGNG鬱だ、逝ってきます…
0135sa
NGNGどこを改造すればいいんですか？
0136名無しさん
NGNGどういう掲示板なのか説明しないと伝わらないってばさ。
掲示板なんて山ほどあんだから…それを踏まえた上で改造板逝ってみればどうかね。
0137若葉
NGNG0138136
NGNGhttp://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869&ls=50
0139名無しageさん
NGNG以下のようにしても入力処理だけしかされません。
３行目と４行目をコメントにした場合は、出力処理がちゃんとされます。
入力処理と出力処理の間に何らかの処理を挟めばできるのでしょうか？
それともこうゆうやり方は無理でしょうか？
C言語ではこうゆうやり方が出来たように思ったのですが。
1>$file="hoge.dat";
2>open(FILE,"+<$file") || &error("$!");
3>@dat=<FILE>;
4>print(@dat);
5>print FILE "OK?\n";
6>close(FILE);
0140名無し
NGNG0141名無し(140)
NGNGfileの決に付けたすんだろ？
0142名無しさん
NGNG0143名無しさん
NGNG文字列をエンコードするのは
&jcode::convert(\$line, "euc");
とかですよね。
んじゃなくって、ファイル丸ごと。
nantoka.txt
とかあったらこれを丸ごと、変換する方法です。
0144名無しさん
NGNG$line = <FH>;
close(FH);
&jcode::convert(\$line, "euc");
0145名無しさん
NGNGが抜けてるぞ。
0146135
NGNG0147名無しさん
NGNG0148名無しさん
NGNGファイルの作成日が例えば１週間以内ならば"NEW"、
最終更新日が２日以内なら"UPDATED"とか表示することは可能ですか？
メニュー画面 （index.shtmlなど）で。
0149名無しさん
NGNG時間で比較する。
0150名無しさん
NGNG0151名無しさん
NGNG可能。
0152名無しさん
NGNG0153名無しさん
NGNG0154名無しさん
NGNG顔真っ赤にして連続書き込みか？
お前みたいなperlすらも分からん包茎野郎は
こなくていいんだよ。（諭すように）
0155名無しさん
NGNG0156名無しさん
NGNGまあ、落ち着け。スレッド違うぞ。
上げてるし。
0157上がったンでついでに…
NGNG$year += 1900;
0158名無しさん
NGNGつーか "19$year" なんてやっている奴がなぜいたのか謎だ…。
015978
NGNG0160157
NGNG>159 $year入れると100年って表示しちゃう年!!
0161japu
NGNG0162japu
NGNGAlso, $year is the
number of years since 1900, that is, $year is 123
in year 2023, and not simply the last two digits
of the year.
0163143
NGNGでも何度やってもうまくいきません。
そこで作っているプログラムからはずしてこの部分だけで、
#!/usr/local/bin/perl
require 'jcode.pl';
open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
&jcode::convert(\$line, "euc");
exit;
とやっても変換できません。。。なにがおかしんでしょうか？
0164157
NGNG0165名無しさん
NGNG0166名無しさん
NGNGじゃなくて
@line = <FH>;
じゃないのか？
0167名無しさん
NGNG145に144の訂正がありましたよ。openの前あたりに1行追加。
$/ = undef;
0168167
NGNGでるかもしれないので、ブロックに入れて保護するほうがいいか。
{ local($/) = undef;
open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
}
0170143＝163
NGNGいろいろ試してみたんですが、まだ出来ません・・・・。
jcode.plは最新のものにしたし、ローカルでもサーバー上でも試しても
どちらとも出来ないし、、なにがおかしいんでしょうか？
実行の仕方でしょうかね？ローカルでは、MS-DOSプロンプト、
サーバーではtelnet使ってやってるんですが、、、。
なにかここが出来てないんじゃないの？とかいうアドバイスありましたら
お願いします。
0171名無しさん
NGNG163のスクリプトだけ見ると、読み込んで、convertして、
そのあとファイルに書き戻してないけど・・・。
0172170
NGNGそれではこのままでは変換した文字はどこに行ってしまうんですか？
0173名無しさん
NGNG暗黒メモリ空間
てゆーかアナタ・・・・・・大丈夫？
0174170
NGNGファイルに書き戻す方法教えてください。。
0175名無しさん
NGNGファイルを書き込みモードでopenして、変換した $line を
出力するだけでよいです。
方法がわからなければ、いい機会なのでちょっと勉強してみて。
（こういうのは答を書いちゃうほうがいいのかな・・・）
0176ありがとう！
NGNGできました！みなさんありがとうございます！！
いちおうEUCに変換できるんですけど、
詳しい方から見ればおかしい所だらけだと思います。
直したほうがいいところがありましたらお願いします。
#!/usr/local/bin/perl
require 'jcode.pl';
$/ = undef;
open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
open(CF, ">a.txt");
&jcode::convert(\$line, "euc");
print CF "$line";
close(CF);
exit;
0177ありがとう！
NGNG上のはファイル名一個間違えています。
#!/usr/local/bin/perl
require 'jcode.pl';
$/ = undef;
open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
open(CF, ">nantoka.txt");
&jcode::convert(\$line, "euc");
print CF "$line";
close(CF);
exit;
0178名無しさん
NGNG0179名無しさん
NGNGどうすればいいでしょうか？
あぼーん
↓
あ<BR>ぼ<BR>ー<BR>ん
このように変換したいのです。
0180＞179
NGNG0181japu
NGNG$_ = "パンプルピンプルパムポップン";
s{\G([\x00-\x7f] | # ASCII or JIS X0201 Roman
\x8e[\xa0-\xdf] | # JIS X 0201 Katakana
\x8f[\xa1-\xfe]{2} | # JIS X 0212
[\xa1-\xfe]{2}) # JIS X 0208
}{$1<BR>}gx;
print "$_\n";
__END__
0182ぎこるび
NGNG#!/usr/bin/env ruby
require 'jcode'
$KCODE = 'SJIS'
str = "じゃすとあなざーるびーはっかー";
str.each_char{|w| print "#{w}<br>"}
0183nanasii
NGNGperl -MJcode -Mutf8 -npe '$_=Jcode->new($_)->utf8; s/(.)/$1<BR>\n/g;' doc/Printing-HOWTO.sjs |lv
jperl とか fold.plつかえばもうちょっとストレートフォワードかな。
\b はasciiと日本語キャラの境界にマッチするようだ。つかえるかも。
utf8 はちかいうちに必要なくなるらしい。
0184名無しさん
NGNG0185japu
NGNG@moe = split m[/], $hanyan;
0186名無しさん
NGNG何行くらいから大規模と言うものなんでしょう?
0187名無しさん
NGNG0188名無しさん
NGNG0189いちろう
NGNG0190名無しさん
NGNG0191与える男
NGNG| や & は書いてある通り "020.44" と "337.57" になるんですけど…。
ラクダ本だとビット演算子のところでまとめて説明してあるんですが、
xorだけ挙動が違うんでしょうか？
0192ロックしたい人
NGNG今度新しくレンタルサーバー借りたんですけど、symlinkもopenも
使えないと、はっきりサポートメールで確認しました。
ロックというと
symlink>open>なし
だと漠然と思ってたんですけど、なしでも大丈夫なもんでしょうか。
0193名無しさん
NGNG文字列に対するビット演算子は「桁ごとの数値」じゃなくて、
「桁ごとの文字コード」で演算するから"317.13"にはならない。
結果は "\x03\x01\x07\x00\x01\x03" になる。
0194いちろう
NGNG0195名無しさん
NGNG0196193
NGNG0197弐ch編くん
NGNGwin-Netscapeだと表示されない様なんですが…
何が足りないのでしょうか？
<HTML>
<TITLE>☆☆☆</TITLE>
<FRAMESET>
<FRAME SRC="./☆☆☆.cgi">
</FRAMESET>
</HTML>
0198初心者
NGNGｃｇｉが動きません。
もう、どこがまちがってるのか検討つきません…。
0199名無しさん
NGNGprint "content-type: text/html\n\n";
とか入ってる？
0200???
NGNG0201初心者
NGNGはい！はいってます。
■ このスレッドは過去ログ倉庫に格納されています