|
>>2174 椎 >イメージできないんですが，具体的にどんな場合でしょうか。 すみません、よく読んでいませんでした。 CGIで出力するページソースの中の日本語コメントがSJISでEUCに変換 した日本語を同時に出力と言うケースでしたが、shiiさんの場合は まったく違うようですね。 >>2176 68user サーバーサイドという事は常駐システムですね。 さすが68userさん(笑) 自分も先日初心者用のCD付き本を買ってきて、JDKをインストールして みましたが、いきなりサンプルの Hello! が動かないトラブルで、 既にめげています(笑) ざっと見た感じでは、関数類を覚えれば特に難しく無さそうな感じも しますが、甘いかな？(^^; もしよければ、お勧めの初心者向けサイトを教えてくれると嬉しいです。 >2184 >名前の部分にカーソルがある状態で Enter を押しても書き込み こういう事でしょうか？ <HEAD〜内 <SCRIPT LANGUAGE="JavaScript"> <!-- function submit_check(){ if(!document.FORM.elements.MESSAGE.value){ alert("メッセージを記入してください。"); return; } if(!document.FORM.elements.NAME.value){ alert("名前を記入してください。"); return; } document.FORM.submit(); } //--> </SCRIPT> <FORMへ <FORM METHOD=POST ACTION="$script_name" NAME="FORM" OnSubmit="submit_check();return false;"> 外してます？ |
|
＞68userさん ありがとうございました。 ＩＰアドレスで使用していきます。 |
|
cgi-lib217.plを使わずにreadで読んでやってみましたが やはり文字化けしました。引き続き調査中です。 |
|
すいません、また怪奇現象が起こったのでお力をお貸しください。 Excel のワークシートを単純に <a href> タグでリンクすると クリックすると中が見えてしまう（文字化けの文書として開こうとする）ので、 いぜん別の場所で教えてもらった方法をアレンジして 下のような CGI スクリプトで行っています。 --- download.cgi --- #! perl $arg = $ENV{'QUERY_STRING'}; $arg =~ /name=(.*)/; $excelfile = $1; $pwd = `pwd`; chomp($pwd); unless (open (FL, $excelfile)) { print "Content-type: text/plain\n\n"; print "error opening $excelfile because $! at $pwd"; exit; }; print <<HEAD; Content-type: application/octet-stream Content-disposition: attachment;filename="$excelfile" HEAD print <FL>; close(FL); ------------------- これを、 <a href="http:.../cgi-bin/download.cgi?name=test.xls">ここをクリック</a>して xls ファイルを、、 のように呼び出そうという寸法です。 これが、場所によって挙動が異なるのです。 project | cgi-bin | | download.cgi | subproj1 | | aaa.html | | xxx.xls | subproj2 | | subdir | | | bbb.html | | | yyy.xls ここで、 http://org/~project/subproj1/aaa.html として見える aaa.html の中に、 <a href="http://org/~project/cgi-bin/download.cgi?=xxx.xls">XXXをダウンロード</a> と書くとうまくいくのですが、 http://org/~project/subproj2/subdir/bbb.html の中に、 <a href="http://org/~project/cgi-bin/download.cgi?=yyy.xls">YYYをダウンロード</a> と書くと、 error opening yyy.xls because No such file or directory at /.../project/cgi-bin と表示されます。 パスが何らかの理由で見えないのかと思って <a href="http://org/~project/cgi-bin/download.cgi?=../subproj2/subdir/yyy.xls">YYYをダウンロード</a> と書くと、なんと download.cgi という名前でファイルを保存しようとします。 保存して中を開けてみると、中身はなんと yyy.xls！ １回目の実験は xxx => yyy の順番で行ったので、 何らかのキャッシュが行われているのかと思い、yyy => xxx の順で行っても同じです。 ということでよろしくお願いします。 サーバー側は FreeBSD 2.2.8-RELEASE＋Apache（Apache のバージョンの見方がわかりません、、）、 クライアント側は Windows2000 Server＋NC4.51 および IE6 です。 |
|
↓下の件ですが、Apache は 1.2.5 だと管理者からメールが来ました。 |
|
>>2185 shii そうですか、できましたか。どうも僕だけ話をわかってなくて 間違ったことばかり言っているようです。すみません。 >>2189 ふくし download.cgi が実行されたときのカレントディレクトリは、download.cgi のある ディレクトリになっているはずです。 よって、cgi-bin/xxx.xls も cgi-bin/yyy.xls もないので両方失敗するはずです。 なのに xxx.xls だけ成功するということは、cgi-bin/ の下に xxx.xls だけファイルが 置いてあったとか、シンボリックリンクが張ってあったとかいうオチではないかと 思うのですが、いかがでしょうか。 >>2186 スナフキン > サーバーサイドという事は常駐システムですね。 うーん、CGI を常駐システムと呼ばないのと同じで、Java Servlet も 常駐システムとは呼ばないと思います。 > ざっと見た感じでは、関数類を覚えれば特に難しく無さそうな感じも > しますが、甘いかな？(^^; いや、そんなもんじゃないですか? 標準クラスライブラリを組み合わせて パズルのようにプログラムを組み上げて行く感じです。 書き込みミスをした原因は >>2184 68user > 名前の部分にカーソルがある状態で Enter を押しても書き込み > しないようにすればよいのかな? のせいですか?＞shii さん もしそうなら >>2186 スナフキン > <FORM METHOD=POST ACTION="$script_name" NAME="FORM" OnSubmit="submit_check();return false;"> を組み込みます。 |
|
＞68user さん すいません、、xxx.xls がなんかのはずみで cgi-bin に 入ってました、、いつもすいません、、。 ../ で cgi-bin に遡れないんですね。 （download.cgi として yyy.xls が保存できたのがわからんが、、） cgi-bin の下に project に対するシンボリックリンクを張って 解決しました。 |
|
>>2191 68user > そうですか、できましたか。どうも僕だけ話をわかってなくて > 間違ったことばかり言っているようです。すみません。 え。何も間違ってないですよ（と，思うのですが）。 私の書き方がわかりにくかったらすみません。 というか私が無知で，68userさんが書いていることを理解できて いないような気がします。 > 書き込みミスをした原因は 申し訳ないと思いつつ，半角カナを試させていただいたのです。 ですから書き込みミスではありません。すみません。 プログラム上は同じ事をやっている気がするのに， どうしてこちらの掲示板では半角カナを判別できるのか が現在の謎です。 ちなみに， 私のCGIでは「シイ（半角）」が「鴫」と化けます。 有名なTeaCupの掲示板でも同じように化けました。 私がこちらのソースを見ただけでは，わからなかったのですが， コード判別で何か特別なことをされていますか？ 私のjcode.plのバージョンはv 2.3 1997/02/23ですが， バージョンのせいってことがあるのかな……？ |
|
大ショックです。 jcode.plを最新版（v 2.13 2000/09/29）に入れ替えたら 半角カナを認識しました。それだけのことだったのです。 大解決です。ここまでたどりつけたのも皆様のおかげです。 ありがとうございました。 それから，いろいろと変なことを書いたりやったりして すみませんでした。 ちなみに下に書いた私が使っていたjcode.plのバージョンは， 中に書いてあった記述をそのままコピーして貼ったのですが， ちょっと変ですね(^^; |
|
思わず，半角カナを認識したと書きましたが，正確には違うようです。 半角カナのsjisとeucは判別しようがないですよね。 中の説明には特に書かれていないようですが， 判別不能な場合の処理として， 古いバージョンではsjisと判断していたところを eucに判断するようにしたのではないでしょうか。 |
|
どうやら，2.3から2.6にバージョンアップしたときに 修正されたようです。以下，引用です。 （バージョンの記述が変だったというのは私の勘違いでした。） −−−−−−−−−−−−−−−−−−−−− jcode.pl-2.6 をリリースしました。 ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/jcode.pl-2.6 2.3 からの変更点は、以下の通り。 - &jcode'tr の中で JIS コードの認識方法をちょっとだけ変更 - JIS X 0208-1990 のシークエンスを認識するように変更 - &jcode'getcode のバグを修正して、説明を追加 --utashiro |
|
はじめまして。玉中と申します。 突然の投稿で失礼致します。 １台のパソコンにネットワークカードが複数枚ささっており、それぞれにIPアドレスが割り当てられている場合に、それら全てのIPアドレスを取得するにはどのようにすればよいのでしょうか。言語は C/C++ です。 NIC が１枚だけの場合は、gethostname() と gethostbyname() で取得できるのですが、複数の場合の取得方法が分かりません。 つまりは、ifconfig コマンドのようなことをやりたいのですが、 どなたか方法をご存知ありませんでしょうか。 よろしくお願い致します。 |
|
UDPクライアントをPerlで作成したいのですが なかなか上手く行きません。 特定のポート番号(例 NTPの123)にメッセージをなげて そのポート番号が存在するかしないかを確かめたいのですが・・・ どなたか詳しい方いらっしゃいませんか? |
|
>>2198 ＳＡ > 特定のポート番号(例 NTPの123)にメッセージをなげて 送るだけなら、多分こんな感じだったかと。 use Socket; my $iaddr = inet_aton("10.0.0.1"); my $sock_addr = pack_sockaddr_in(123 ,$iaddr); socket(SOCKET, PF_INET, SOCK_DGRAM, 0); send(SOCKET, "hoge", 0, $sock_addr); ただし、 > そのポート番号が存在するかしないかを確かめたいのですが・・・ UDP なので、送ったデータが相手側に到達したかどうかは 判別できません。 >>2197 玉中 > つまりは、ifconfig コマンドのようなことをやりたいのですが、 ioctl & SIOCGIFCONF でやるか、BSD 系なら getifaddrs(3) ってのが 使えるはずです (OS 名くらい書きましょう)。どちらも http://www.mmjp.or.jp/pearsoned/washo/network/wa_net28-j.html の16章に載ってます。 あとは ifconfig のソースなどを参考にして下さい。 http://www.jp.FreeBSD.org/cgi/cvsweb.cgi/src/sbin/ifconfig/ |
|
>>2184 68user >> @a[0] はスライスです。 > ん〜、(@a)[0] とは違うということですか? どちらもスライスだと思うのですが @a は配列のスライスで, (@a) はリストのスライスかと… ただし, どちらも一般的には「配列スライス」で括られると思います。 要は, 単数であっても配列やリストの添え字であった場合には スライスと呼べるだろうという個人的解釈です。 # ↑突っ込み大歓迎モード |
|
AGEと申します。 Red Hot Linux 7.0J を使用しています。 「ntp-4.1.0.tar.gz」をインストールしてみました。 しかし、rpm のものがあったのでアンインストールしたいのですが インストールされたファイルを知る方法はあるのでしょうか？ よろしくお願いいたします。 |
|
>>2191 68user ServletもCGIと同じくリクエスト毎に起動するのですか？ 不勉強でした。セッション管理ができると言うので常駐するものと 勘違いしていました。 >パズルのようにプログラムを組み上げて行く感じです。 そのパズルが難しそう(^^; >>2201 AGE >インストールされたファイルを知る方法はあるのでしょうか？ man rpm をどうぞ。 ntpってRHLに標準で入っている(はず)の xntpdとは別物なんですね。 |
|
>>>2202 スナフキン >man rpm をどうぞ。 すいません。言葉足らずでした。 xntp はインストールされてなかったので、 ntp はソースから make install しました。 その場合のインストールされたファイルを知りたかったのです。 ntp を削除して、管理しやすい xntp(ntp-4.0.99-15〜.rpm)を インストールしようとおもってます。 |
|
ええと，結局，最新版jcode.plでも半角カナは文字化けしました。 たまたま「シイ」はＯＫでしたが「アイウエオ」はＮＧでした。 こちらの掲示板でもたぶん化けると思います。 そこで，前に書いた方法をスクリプトにしてみました。 尚，送信ページには，↓この１行が入っています。 <INPUT TYPE="hidden" NAME="assist" VALUE=" "> VALUEは，全角スペース５個です。 −−−− # コード判別補助文字列名（送信ページと統一，半角英数字に限る） $assi = 'assist'; read(STDIN,$input,$ENV{'CONTENT_LENGTH'}); @parts = split(/&/,$input); # コード判別補助文字列$ASSIST0の取得 foreach(@parts) { ($key0,$val0) = split(/=/); # 最初の=で分離 $key0 =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg; if ($key0 eq "$assi") { $ASSIST0 = $val0; } } foreach(@parts) { ($key,$val) = split(/=/); # 最初の=で分離 $val =~ tr/+/ /; # trは１文字単位の置換 # コード判別補助文字列の追加 if ($key ne "$assi") { $val = $val.$ASSIST0; } $key =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg; $val =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg; jcode::convert(\$key,'euc');#---- from jcode.pl jcode::convert(\$val,'euc');#---- from jcode.pl if ($key eq "$ass") { $ASSIST = $val; } $val =~ s/($ASSIST)$//g; # コード判別補助文字列の除去 $key =~ s/\r\n|\r|\n//g; # gはマッチする文字全て $val =~ s/\r\n|\r|\n//g; $key =~ s/,/，/g; $val =~ s/,/，/g; $key =~ s/</＜/g; $val =~ s/</＜/g; $key =~ s/>/＞/g; $val =~ s/>/＞/g; $key =~ s/"/”/g; $val =~ s/"/”/g; $key =~ s/&/＆/g; $val =~ s/&/＆/g; $in{$key} = $val; } −−−− これで「ア」などという１文字の半角カナもコード判別できているようです。 もうちょっとスッキリできればいいのですが……。 |