|
すみません，文が途中で切れてしまったので，再投稿させていただきます。 −−−−− 書き込みは２回目です。 プログラムというよりはアイデアの問題かも知れませんが，どなたか教えて下さい。 プロバイダのサーバ（UNIX）にPerlで書いたプログラムを送ってCGIを動かしています。 質問１： フレームで区切られたhtmlのページからsubmitボタンでCGIに飛びます。 CGIではprint "Location: $str\n\n";を使って別のhtmlページへ飛ぶようにしています。 この時，そのフレーム部分だけが別のhtmlページへ飛びますが， ウィンドウ全体（親ウィンドウ）を別のhtmlページへ飛ぶようにできないものでしょうか。 質問２： FORMから入力された文章中の半角カタカナを全角カタカナに変換したいのですが 半角カタカナを（文字化けしないで）半角カタカナとして CGIで受け取る方法はあるでしょうか。 FORMから入力された文章をEUCでconvertする前に文字化けしてしまうので（？）， jcodeのh2z_eucを使っても上手くいきません。 |
|
あ，UNIXにもいろいろあるのですね。 ソフトはFreeBSDです。 |
|
>>2138 ふくし うーん、TTSSH は使うこともありますが、いつも plain password で やってるのでわかりませんです。すいません。 >>2140 椎 > ウィンドウ全体（親ウィンドウ）を別のhtmlページへ飛ぶように > できないものでしょうか。 多分 Location ではどうにもならないと思うので、CGI で Content-type: text/html <html><body onload="document.myform.submit()"> <form name=myform action="hoge" target="fuga" method="get"> </form> </body></html> てな HTML を吐くのはどうでしょうか (最近ちょっと Javscript を 覚えた)。 > 半角カタカナを（文字化けしないで）半角カタカナとして > CGIで受け取る方法はあるでしょうか。 普通、何もしなければ文字化けはしません。perl は扱っている データが半角カナかどうかを意識しませんので。 具体的にどういう処理を行って、どううまくいかないのですか? |
|
＞68user さん いつもお世話になっております！ 結局、 ・TTSSH は RSA 暗号鍵しかサポートしていず、 一方うちの FreeBSD は DSA 暗号鍵しかサポートしない （%ssh -V の結果は OpenSSH_2.5.2p2, SSH protocols 1.5/2.0, OpenSSL 0x...） ということらしいです？？？ よくわかりませんが、、。 ということで、 ・DSA をサポートする Windows SSH クライアントで、 ぼくがしたいこと（Emacs を使って Perl をいじったり Mew でメールを読んだりする）ができるものを探す ・Cygwin を使う（と、出来るらしい） ・DSA をサポートする Windows SSH クライアントで接続し、 別マシンの Telnet ポートをポートフォーワーディングして Telnet で使う ・会社のマシンを RSA にしてもらう などの認識でいいのか、検討中です。 ところで、本掲示板の趣旨は理解しているのですが、 ちょっと事情があってあせっています。 （来週にも Telnet 禁止になるらしい、、、） ココ以上の掲示板が見つかるかわからないのですが、 場合によっては同趣旨の質問を別の場所に マルチポストしていいでしょうか？ ずうずうしいですが非常時ということでご検討お願いします、、。 |
|
先日はありがとうございました 今回もまた質問で恐縮なのですが、cshのシェル変数のstatusのようなものはbshにはないのでしょうか？スクリプトを作る際、２種類のファイルを比較しそのファイルに違いがあればエラー処理ということを実行したいのですが・・・。何卒よろしくお願いいたします |
|
＞ ふくしさん ~/.ssh/authorization_keysではなくて、~/.ssh/authorized_keysということではないですか？ openssh_2.3から2.9にして使ってますがどちらもRSAが使えないということはありませんでした。 もしくはビルドする際のオプションが違うとか。 |
|
>>2143 ふくし > （来週にも Telnet 禁止になるらしい、、、） おすすめしているわけではありませんが、ssh の plain password で 運用するのはダメですか? > 場合によっては同趣旨の質問を別の場所にマルチポストしていいでしょうか？ どうぞ。結論が出たら教えて下さい。 >>2144 福助 > 先日はありがとうございました 上の「使い方」を読んでください。で、結果を報告するようにして下さい。 もしそれが面倒でしたら、申し訳ありませんが掲示板の使用はご遠慮下さい。 > cshのシェル変数のstatusのようなものはbshにはないのでしょうか？ $? です。 |
|
68userさん＞ （plain password の件） TTSSH の初期画面で、plain password の部分が （というか、RSA 鍵の使用以外の部分が） すべてグレーで使用不可になっているんです。 たぶん接続先の ssh の設定だと思います。 （マルチポストの件） ありがとうございます。 でもその必要なくなりました。 にゃさん＞ すいませんその通りだったようです、、、;;;;;; ということで開通しました！ わーんこれで来週も生きられる、、 （Teraterm/Emacs/Mew 依存症なだけなんだけど、、） |
|
>>2142 68user 御返事ありがとうございました。 Javascriptはよくわからないので，まずはそのままprintでCGIに入れてみましたが Internal Server Error……と言われてしまいました。 どの部分かは書き換える必要があるのでしょうか。 ジャンプ先のURLはどこに入るのでしょうか。 Javascriptに解決方法がありそうということであれば， そちらを勉強してみてそれから再度報告しますが， 今回の件を解決する上で勉強上のポイントがあれば教えてください。 お願いばかりですみません。 > 具体的にどういう処理を行って、どううまくいかないのですか? ウェブページ上のフォームに半角カナで入力してsubmitボタンで送り， 受け取ったCGIで，「=」で$key,$valにsplitした後に%inに入れて while (($key,$val) = each %in) { jcode::convert(\$key, 'euc'); jcode::convert(\$val, 'euc'); if ($val eq 'http://') { $val = ''; } $val =~ s/\r\n|\r|\n//g; $val =~ s/,/，/g; $in{$key} = $val; } なんてことをやっています（途中の置換は今回の件とは関係ないと思いますが……）。 この後，CGI上でhtmlを書き出して$valをウェブページに表示させると文字化けします。 例えば，半角カナで「アイウエオ」と入れると「竺軸宍雫七」となりました。 |
|
＞ ふくしさん よかったですね。 protocol versionsを2だけに制限されるところもあると思うので気になってました。 公開鍵暗号の認証の方がssh-agentを使えるので慣れば楽だと思います。 TTSSHだと関係ないですがCygwinからなら使えますし。 あと、何か変なことがあったら、 ssh -v で挙動を調べると原因がわかることが多いです。 ＞ Teraterm/Emacs/Mew 依存症なだけなんだけど、 OSを変えてしまった方が楽の様な気が・・。 |
|
>>2122 68user > ところで、また UNIX の部屋のカウンタが壊れているなぁ。 ご存知だったらすみません。 受け売りですが，カウンタ記録ファイルを２つ用意するといいみたいです。 単純な方法ですが，効果抜群とか……。 自分はそんなにアクセスが集中するページを持っていないので， 効果の確認はできていませんが……。 ↓自分がデータベース用に使っているPerlのスクリプトです。 @file1 = stat($logfile1); @file2 = stat($logfile2); if ((@file1[9]) > (@file2[9])) { $rfile = $logfile1; $wfile = $logfile2; } else{ $wfile = $logfile1; $rfile = $logfile2; } &lockwait; #←ファイルロック用のサブルーチンです。 if (!open(DB,"$rfile")) { &error('データベース読取エラー','復旧をお待ちください。'); } @lines = <DB>; close(DB); rmdir($lockfile); |
|
>>2148 椎 > そのままprintでCGIに入れてみましたが Internal > Server Error……と言われてしまいました。 Javascript はブラウザ側で解釈するものなので、Internal Server Error が起きたということは CGI 側の問題です。perl -c などで 文法チェックをしてみて下さい。おそらくは print "<html><body onload="document.myform.submit()">\n"; などと、" の中に " をそのまま書いたか、Content-type ヘッダの 先頭に空白を入れたか、というところではないでしょうか。 > ジャンプ先のURLはどこに入るのでしょうか。 form の action です。 > 「竺軸宍雫七」 それは perl や jcode.pl 的には化けていません。EUC-JP の半角カナの 「アイウエオ」は 8e b1 8e b2 8e b3 8e b4 8e b5 です。一方、Shift_JIS の「竺軸宍雫七」は 8e b1 8e b2 8e b3 8e b4 8e b5 です。つまり全く同じコードであって、同じバイト列を EUC-JP と解釈するか、 Shift_JIS と解釈するかで表示が違う、ということになります。 で、エンコーディングを解釈するのはブラウザの仕事なので、 ブラウザが誤認しないように print "Content-type: text/html; charset=EUC-JP\n\n"; と適切なエンコーディングを指定してやればよいです。 > jcodeのh2z_eucを使っても上手くいきません。 この件は具体的に書いたスクリプトを提示して下さい。 >>2150 椎 > カウンタ記録ファイルを２つ用意するといいみたいです。 なるほど。ただその手法は壊れる確率は低いけど正確なカウントは できないように見えるので、ある意味「逃げ」かなぁとは思います。 完璧な排他ができないはずはないと思っていますので。 このページは自己満足のためにあるのでその手法は選びませんが、 仕事となればそういう解もありだとは思いますので、全面的に 否定しているわけではありません。 |
|
>>2140 椎 > フレームで区切られたhtmlのページからsubmitボタンでCGIに飛びます。 であれば, submit が含まれている form の target に "_top" を 指定すれば良いだけに思えますが・・・ > EUCでconvertする前に文字化けしてしまうので（？） というのは, どのように確認されましたか？ >>2150 椎 > if ((@file1[9]) > (@file2[9])) { スライス？ |
|
>>2152 /tk ありゃ？ 3点リーダって駄目なのか。 すいません。以後気をつけます。 |
|
連続ですいません。 >>2153 /tk 単にウチのIMEが3点リーダでは無く 半角中黒3つに変換していただけでした。 |
|
>>2061-2071 なぜ HELO や EHLO を送るのかという話ですが、http://www.sk-jp.com/book/javamail/ の本には helo は、Sender MTA んもホスト名を記述することになっている。 しかし、現在はここに何を書いても意味をなさないようになって いる。なぜなら、現在ではクライアントがグローバルなホスト名を 持たないことが多いので、記述すべき内容がない & 正しいかどうかを 検証する手段もない。 というようなことが書いてあります。なので、歴史的な事情、というのが一点。 さらに http://djbdns.jp.qmail.org/djb/smtp.html にあるように、EHLO のレスポンスにより、その SMTP サーバで使用可能な コマンドがわかるので、MUA はこれを読んで適切なコマンドを送るように すべき、というのが一点。 …でどうでしょうか? (そんなことはわかっておられるような気が とてもしますが) ちなみにこの本、JavaMail (Java 用 POP・SMTP・IMAP の API) を 使う人なら文句なくおすすめです。 >>2140 椎 > であれば, submit が含まれている form の target に "_top" を > 指定すれば良いだけに思えますが・・・ ああ、なるほど。ごもっともです。 |
|
始めまして。 Ｃ言語のネットワークプログラミング参考にさせて頂いて おります。m(_ _)m 一つ質問なんですが、httpsのサイトを取得する時、 プロキシー経由の場合はどのようになるのでしょうか？ google等で検索してみたのですが、分かりませんでした。 最初にプロキシーに対して、 CONNECT **.com:443 HTTP/1.0 HOST: **.com って感じでやるのかなぁって所まで分かったのですが、、 ご存知の方いらっしゃいましたら、ヒントだけでも頂きたい です。宜しくお願い致します。 |
|
長文ですみません……。 >>2115 68user > " の中に " をそのまま書いた その通りです。うっかりしてました。 > form の action です。 htmlと同じなのですね。 strはよく見るのですが，hogeとかfugaは知らなかったので……。 よければ意味を教えて下さい。 > つまり全く同じコードであって、同じバイト列を EUC-JP と解釈するか、 > Shift_JIS と解釈するかで表示が違う、ということになります。 なるほど。 > print "Content-type: text/html; charset=EUC-JP\n\n"; > と適切なエンコーディングを指定してやればよいです。 やってみましたが，同じ結果でした。うーん……悩む……。 ちなみにこうする前は， Content-type: text/html\n\n と <META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=x-euc-jp"> を入れていました。 > > jcodeのh2z_eucを使っても上手くいきません。 > この件は具体的に書いたスクリプトを提示して下さい。 require 'jcode.pl'; jcode::convert(\$str, 'euc'); jcode::h2z_euc(\$str); です。 > なるほど。ただその手法は壊れる確率は低いけど正確なカウントは > できないように見えるので、ある意味「逃げ」かなぁとは思います。 > 完璧な排他ができないはずはないと思っていますので。 そうですね。 私は「累計」を正確にカウントすることに意味があるのか疑問なので （カウンタは目安だと思っているので）気にしていないのですが， プログラム的にはつきつめる価値はあると思います。 >> 2152 > であれば, submit が含まれている form の target に "_top" を > 指定すれば良いだけに思えますが・・・ formにtargetが使えることを知りませんでした。 やってみたら上手くいきました。ありがとうございました。 > > EUCでconvertする前に文字化けしてしまうので（？） > というのは, どのように確認されましたか？ いえ，確認できていないので（？）を付けています。 ただ，convertした後に半角カナを拾い出すスクリプトを入れていて， 文字化けした後の文に含まれている半角カナは拾うことができているので， なんとなくそうなのかな……と思いました（根拠になっていませんね）。 例）半角カナで「明アイウエオ」とすると「フタ竺軸宍雫七」（フタ：半角カナ）に 文字化けし，「フタ」を拾い出すことができています。 > スライス？ すみませんが，意味がわかりませんでした。 ちなみに，このやり方は本屋で買った書籍から知りました。 |
|
>>2157 椎 > hogeとかfugaは知らなかったので……。 hoge の意味ですか? ならこちらを。 http://www.selab.tutkie.tut.ac.jp/~yoshida/hoge.html > require 'jcode.pl'; > jcode::convert(\$str, 'euc'); > jcode::h2z_euc(\$str); それで正しいと思います。 それでも化けるなら、文字列処理をしている全ての処理 - ブラウザから渡された「%8e%b1%8e%b2」というような URL エンコード された文字列 - & で split した文字列 - = で split した文字列 - URL デコードした文字列 - EUC に変換した文字列 で、print 文でデータを出力してみて下さい。そしたらどこで化けて いるかわかるでしょう。また、フォームが書いてある HTML の文字 コードが何になっているかも調べて下さい。 わからなかったら、最小限まで切り詰めたソースを見せて下さい。 >>> if ((@file1[9]) > (@file2[9])) { >> スライス？ > すみませんが，意味がわかりませんでした。 $file1[9] が正しい、ってことでしょう。 > ちなみに，このやり方は本屋で買った書籍から知りました。 $file1[9] や (@file1)[9] なら正しいですが (わざわざ後者の書き方を する必要はありませんが)、@file1[9] は誤りです。本当にそう書いてあるなら その本は捨てましょう。 >>2156 Nira > CONNECT **.com:443 HTTP/1.0 > HOST: **.com ここまでは正しいと思います。その後は暗号化したリクエストを 送りますが…暗号化まで自力でやろうとしておられます? |
|
>>2158 68user ご返答ありがとう御座います。 >ここまでは正しいと思います。その後は暗号化したリクエストを >送りますが…暗号化まで自力でやろうとしておられます? CONNECTメソッドまでは正しいですか。 暗号化を自分でやるだけの知識は無いです。（--;） CONNECTした後は、サンプル通りのにやっているのですが、 SSL_connect()で0が返ってきます。 方法が正しいなら他の部分のバグかもしれないっすね。 そういえば、httpsの取得に良いサイトを発見しました。 https://www2.ggn.net/cgi-bin/ssl です。http://www.moxienet.com/lynx/ssl-testから リダイレクトされるサイトで、LynxでSSLが使用できる かどうかをチェックするためのサイトらしいです。 |
|
>>2158 68user ありがとう御座いました。 理由はわからないのですが動くようになりました。 SSL_load_error_strings(); の後に ERR_load_crypto_strings(); ERR_load_SSL_strings(); OpenSSL_add_all_algorithms(); を追加してみたら、難なく動きました。（--;） http://www.openssl.org/docs/crypto/BIO_f_ssl.html のサンプルを見てたら、上記３つの関数を呼んでいたので 真似してみました。 お騒がせ致しました。m(_ _)m |
|
はじめまして 最近CGIを作りはじめたして、問題が・・・ サーバはUNIXでCGIの処理を行なった後に作られたファイルの所有権がすべてnobodyになってしまっていて、その作られたファイルの操作が全くできなくなってしまいました。所有権の変更も出来ないんです。 だれか助けて下さい。。 おねがいします。 |
|
>>2159 Nira > そういえば、httpsの取得に良いサイトを発見しました。 ありがとうございます。このページをサンプルとして載せておきます。 >>2161 あやの > その作られたファイルの操作が全くできなくなってしまいました。 #!/usr/bin/perl system("rm -f ファイル"); print "Content-type: text/plain\n\n"; print "File removed.\n"; というような CGI スクリプトを作って、ブラウザから CGI に アクセスすれば消せます。 > 所有権の変更も出来ないんです。 普通ファイルの所有者を変更できるのは root のみです。 # 設定次第でできる OS もありますが。 よって、 - 事前にファイルを作成しておき、nobody が中身を変更できる ようにパーミッションを設定する。 - ファイルの所有者は nobody とし、他のユーザがそれを 参照・変更できるようにパーミッションを設定する。 - ファイルの所有者を nobody 以外とする。 サーバ管理者に suExec や cgiwrap を入れてもらうか、 自分で suid なプログラムを作る。 # http://x68000.startshop.co.jp/~68user/webcgi/permission.html のいずれを選ぶ、ということになります。 |
|
はじめまして、こんばんはっす。 突然ですがシェルスクリプトをつかってファイルを 書き換えようとしてるのですが "ディレクトリースタックの番号指定が深過ぎます." とコメントされ動いてくれません。どういうことなんでしょうか? ちなみに このシェルスクリプトです。 わかるかたがいたら教えて下さい。 #!/bin/tcsh set d=1 while(d<=16){ cat -n invar3_$d.dat > ninvar3_$d.dat d++} end |
|
>>2163 けんじ 突っ込みどころがたくさんありすぎて書ききれないので、とりあえず 動くものを置いておきます。 #!/bin/tcsh set d=1 while ( $d < 16 ) cat -n invar3_$d.dat > ninvar3_$d.dat @ d = $d + 1 end まずはマニュアルか、初心者向けの csh プログラミングの本を 読んで下さい。よい本が見付からなければ sh で書くのも手です。 sh なら結構な種類の本が出ています。 |
|
すいません、丁寧に教えていただき ありがとうございます。 はい、もっともっと勉強していきます! ただ、perlやshではうまくいってくれるのですが なぜかcshでは教えてくださったようにしても "ディレクトリースタックの番号指定が深過ぎます." といって動いてくれません。 特になにも変更等していないのですが、、、、。 なにはともあれありがとうございました! |
|
とても長いCGI処理がしたくてforkで子プロセスに処理を投げてあげたときは、ブラウザがすぐ開放されることは分かったんです。でも、処理中にエラーとか発生したときは見た目で分からなくなっちゃうんですよね？？ エラーのときはなんか表示させたいのですが良い方法はあるのでしょうか？ それとも長い処理はもっとfork以外の違う方法があるんですかね？？ よろしくおねがいします。。。 |
|
>>2165 けんじ > ただ、perlやshではうまくいってくれるのですが perl と sh と csh は全く別物ですけど、それは理解されてますか? > 特になにも変更等していないのですが、、、、。 という文章は、sh で動いたものをそのまま csh でも動かそうと しているように見受けられます。 > "ディレクトリースタックの番号指定が深過ぎます." $d<=16 を d<=16 と書けばそうなります。 >>2166 かな 掲示板の一番上にある「使い方」を全く読んでいませんね。 # http://www.parkcity.ne.jp/~chaichan/qanda/qa1999.htm?01-10-03-19-11 |
|
>>2158 68user > print 文でデータを出力してみて下さい。そしたらどこで化けて > いるかわかるでしょう。また、フォームが書いてある HTML の文字 > コードが何になっているかも調べて下さい。 やってみたら，どこで化けているかわかりました。 jcode::convert(\$str, 'euc'); で化けていて，これを削除したら化けなくなりました。 なぜでしょうか？ フォームが書いてあるHTMLの文字コードはeucにしています。 その場合は，コンバートする必要がないということでしょうか？ とりあえず解決したみたいなのですが（？）， 気になるのでぜひ教えて下さい。 > $file1[9] が正しい、ってことでしょう。 あ，確かに。 本からそのまま写して問題なく動いていたので 全然気付きませんでした。 人に見せると恥ずかしいので，早速，修正しました。 ありがとうございました。 > その本は捨てましょう。 あはは(^^; 確かに，少なくとも私のような初心者は 正しい記述の本で勉強した方がいいでしょうね。 私でも気付くような間違いがあちこちにあることは確かです。 でも，プログラミングのアイデアというかミソというか 参考になる点もたくさんあって，結構重宝してます。 |
|
とても初歩的な質問だと思いますが、教えて下されば幸いです。 掲示板を最近設置したのですが、サーバがアメリカにあるため 時差があるタイムスタンプをします。この時間を 16 時間早めたいのですが どのような記述をすればいいのか、わからないのです。恐らく下記の一行が関係するのだと思います。 $TimeDiff = 0; よろしくお願いいたします。また、過去ログを一応見ましたが既出の質問であった場合はお詫び申し上げます。 |
|
>>2168 椎 > なぜでしょうか？ なぜでしょうね? 正確なところは各部分で s/([^-_a-zA-Z0-9])/sprintf("%%%02lX",unpack("C",$1))/eg; として URL エンコードした結果を見ないとわかりません。 > フォームが書いてあるHTMLの文字コードはeucにしています。 > その場合は，コンバートする必要がないということでしょうか？ NN4, NN6, IE4, IE5 あたりなら、フォームの書いてある HTML と 同じエンコーディングで、フォームデータを送ってきますので、 フォームの書いてある HTML と、処理するデータのエンコーディングが 一致しているなら jcode::convert は必要ありません。 ただし、これは規格として明文化されているわけではないので、 あくまでも NN と IE がそういう挙動をする、ということです。 もし Shift_JIS や ISO-2022-JP で送ってくるブラウザがいた 場合は化けます。 >>2169 ジュン > この時間を 16 時間早めたいのですが 言語は何ですか? 以下は perl だと仮定して…。 $TimeDiff をどのように利用しているのかわからないと なんとも言えませんが、秒数なら $TimeDiff = 60*60*16、 時間なら $TimeDiff = 16 でしょうか。 localtime を使っているなら、その前の行に $ENV{TZ}='JST-9'; と 書いておけばうまくいくかもしれません。 |
|
> その本は捨てましょう。 う〜ん、ここは68userのボードなので構わないのですが、 なんか、2ch化しているようでちょぴりショックだなぁ(^^ゞ 多分typeでしょう、本当にその様に書くことを勧めているのであれば 68userさんと同じ意見ですが… だけど、椎さんがコマンドの本来の項を読まずに、理解しようとしないで コピーしているだけであれば、椎さんの手抜きでしょうけど(^^ゞ まあ、自分もはじめはそうだったので人の事を言えませんが(笑) ちなみに、テストの為にコンバートした短い文字列を表示していませ んか？昔のネスケでの挙動ですが、短い文字列の場合はブラウザで文字 コードの判別がつかずに化ける場合があります。 その場合はそこそこの長文を表示すると、うそのように表示される場合 が有りました。 原因はSJISとEUCの文字コードが一部かぶる為です。(自分のスクリプ トはSJISで記述の為) あと、よくやるのがEUCでコンバートして出力していながら、CGIの他の 表示部分で違うコードを出力していたり(結構気付かなかったりします) プログラマーな人は、この様な無駄なトラブルを減らす為にALL EUCで 作る人が多いようですね。 >プログラミングのアイデアというかミソというか 自分の場合は、他人のスクリプトを解析することでいろいろ覚えました。 リファレンス以外はこの手法が一番お勧めです。 無駄を省いたルーチンは誰が作っても大体同じようなものになるはずです。 この掲示板のソースだってかなり勉強になるはずですよ(^^ゞ >>2166 かな 「使い方」を読むどころか、コピー文章ですね(^^ゞ ここまで典型的なのもはじめて見ました(笑) ところで、最近JAVAに嵌まっているようですが、JAVAはJavaScriptと perlとどちらに近い印象でしょうか？＞68userさん 敬遠していたJAVAも覚えた方がいいかなぁ、と思う今日この頃(^^ゞ |
|
>>2168 椎 > jcode::convert(\$str, 'euc'); > で化けていて，これを削除したら化けなくなりました。 > なぜでしょうか？ とりあえず, getcode 関数の戻り値を確認してみましょう。 http://www.mikeneko.ne.jp/~lab/kcode/jcode.html#h2-1 http://www.din.or.jp/~ohzaki/perl.htm#JP_Code >>2157 椎 >> スライス？ > すみませんが，意味がわかりませんでした。 ありゃ。すみません。 >>2158 68user > $file1[9] が正しい、ってことでしょう。 という意味でしたが, 断言する自信が無いのと もし, 意図的にやっている事ででしたら その理由が聞きたかったもので… ちなみにスライスについては http://www.context.co.jp/perlnews/bn/perl-newsletter-0010.html http://www.context.co.jp/perlnews/bn/perl-newsletter-0013.html が参考になると思います。 |
|
>68userさん 素早い回答と、明確のお答えありがとうございます。 使っている言語はperlで、秒数の設定により解決しました。ありがとうございました。 |
|
>>2170 68user > 一致しているなら jcode::convert は必要ありません。 必要ないということは，あってもいいのでしょうか。 つまりeucをeucにコンバートする処理をしても問題はないんですよね？ そうだとしたら，今回の問題はまだ解決できていないということですね。 >>2171 スナフキン > コピーしているだけであれば、椎さんの手抜きでしょうけど(^^ゞ ええ，その通りです。まだわからないことが多いので，とりあえず(^^; > そこそこの長文を表示すると、うそのように表示される場合 > が有りました。 そうかもしれません。ただ，短い文字列を入力するようにしていますので， 根本的に解決しないとダメですね。 > CGIの他の表示部分で違うコードを出力していたり イメージできないんですが，具体的にどんな場合でしょうか。 エディタでeucで保存するようにしているのですが， これだけではeucにならないものでしょうか。 > この掲示板のソースだってかなり勉強になるはずですよ(^^ゞ 機種依存文字の検出のところなど，参考にしたいなと思っていました。 とはいえ，今日初めてソースを見たのですが， 理解するのに，かなり時間がかかりそうです。 >>2172 /tk > とりあえず, getcode 関数の戻り値を確認してみましょう。 おお，これは使えそうですね。やってみます。 > ちなみにスライスについては なるほど〜。よくわかりました。 必要がないのにスライスを使っていたことになるわけですね。 意図的でなくて申し訳ない感じです。 |
|
こんにちは、はじめましてTOMです。 初級アマチュアプログラマーです。 ちょっと自分で解決できなかったので質問を聞いてください。 ・モジュールＡに、ライブラリlib30.soをリンクしています。 ・モジュールＢに、ライブラリlib40.soをリンクしています。 ・さらに、ライブラリlib40.soの中で、ライブラリlib30.soの中の関数Func09が 使用されています。 ライブラリlib30.soの中の関数Func09が修正されました。 再コンパイル、再リンクは、 全て（モジュールＡ・モジュールＢ・lib30.so・lib40.so） 行わなければならないのでしょうか？ よろしくおねがいします。 |
|
>>2175 TOM Func09 の引数の数や、引数の型、戻り値の型を変更しましたか? また、Func09 から他の部分のグローバル変数を参照するところ を変更しましたか? いずれの変更もしてないなら、ライブラリ利用側の再コンパイル・ 再リンクは不要です。 引数や戻り値を変えた (＝インタフェースを変えた) なら、 再コンパイル・再リンクのし忘れを防ぐため、メジャー番号を lib30.so.1 -> lib30.so.2 などと上げた方がよいでしょう。 >2174 >> 一致しているなら jcode::convert は必要ありません。 > 必要ないということは，あってもいいのでしょうか。 あってもよいです。僕は必ず jcode::convert は付けます。 > つまりeucをeucにコンバートする処理をしても問題はないんですよね？ 本来問題ないのですが、Shift_JIS の半角カナと EUC-JP を正確に 判別することはできないので、EUC-JP な半角カナを Shift_JIS の 文字列だと誤認してしまい、EUC-JP に変換しようとする、ということは あります。 一応 jcode.pl がエンコーディングを自動判別する際は、「Shift_JIS と して解釈できる部分の長さ」と「EUC-JP として解釈できる部分の長さ」を 比較して長さが長い方を採用しますが、もちろんこれでも完璧では ありません。 # たしか両方の長さが一致したら、EUC-JP とみなされたと思う。 > 必要がないのにスライスを使っていたことになるわけですね。 いいえ、@a[0] はスライスを使っているわけではありません (よね?)。 perl がおせっかいなので @a[0] -> $a[0] という読み替えをしている だけです。 % perl -we '@a=(100,200);print "@a[0]\n"' Scalar value @a[0] better written as $a[0] at -e line 1. 100 >>2171 スナフキン > ところで、最近JAVAに嵌まっているようですが、JAVAはJavaScriptと > perlとどちらに近い印象でしょうか？＞68userさん うーん、どっちも遠いですねぇ…。でもまぁ僕がやってるのは サーバサイドの方なので、どちらかと言えば perl ですか。 でも、perl とは似てないですね。 とにかくクラス設計が楽しいです。 |
|
すいませんでした。 以後気を付けます。。 |
|
はじめまして。 ネットワーク関係の関数でちょっと質問なのですが。 inet_aton(hostname)になっていますがこれをinet_aton (ipaddres) にしても問題はないのでしょうか？ hostnameが解決されていない場合、IPアドレスをそのまま 使用してみたのですが表面上問題はでていませんが、 内部的にどうかまで分からなかったので。 どなたか教えて下さい。 分かり難い内容の書き込みになってすみません。 |
|
>>2176 68user > # たしか両方の長さが一致したら、EUC-JP とみなされたと思う。 一致した場合は undef では？ > いいえ、@a[0] はスライスを使っているわけではありません (よね?)。 > perl がおせっかいなので @a[0] -> $a[0] という読み替えをしている > だけです。 http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html を読んだうえでの僕の解釈は @a[0] はスライスです。 但し, 要素数が 1 のリストであり, スカラー値ではありません。 たまたま @a[0] をスカラーで評価したときに, その最後の要素である $a[0] が返されただけです。 となるのですが 例によって勘違いしている可能性大です。 |
|
>>217668user 68userさん インターフェイスの変更は、ありませんので ライブラリ利用側を再コンパイル・再リンクせずに利用できました。 回答ありがとうございました。 |
|
/tkさんが教えてくれた↓のページを読むと， > http://www.mikeneko.ne.jp/~lab/kcode/jcode.html#h2-1 ・convert()は内部ではgetcode()を自動的に呼び出し文字コードを判断する ・getcode()では，半角カナは文字コードの自動認識の判断対象からはずされる とあります。また，スナフキンさんが > そこそこの長文を表示すると、うそのように表示される場合が有りました。 と言われたように，私の場合も半角カナ以外の文字をある程度以上追加すると 文字化けしないことがあります。 例）アイウエオ（半角） →竺軸宍雫七（全角） アイウエオ（半角）あいうえお（全角）→アイウエオ（半角）あいうえお（全角） これらのことから，今回の文字化け現象の原因は，convert()が （正確にはgetcode()が）半角カナの文字コードを 正確に判別できていないことのようです。 これを調べるためにコンバートの前後でgetcode()をかけてみました。 $code1 = &jcode::getcode(\$str); jcode::convert(\$str, 'euc'); $code2 = &jcode::getcode(\$str); その結果，次のようになりました。 $str = 'あいうえお' → $code1 = 'euc'，$code2 = 'euc' $str = 'アイウエオ（半角）' → $code1 = 'sjis'，$code2 = 'euc' つまり，getcode()は半角カナの「アイウエオ」をsjisと判定して sjisをeucに変換する処理をしていたのです。 長々と書きましたが，68userさんが書かれたように， > Shift_JIS の半角カナと EUC-JP を正確に > 判別することはできないので、EUC-JP な半角カナを Shift_JIS の > 文字列だと誤認してしまい、EUC-JP に変換しようとする、ということは > あります。 ということのようです。 で，ここでどうするかというプログラム上のアイデアが問われるのですが， （残念ながら例の本には載っていません・笑） 今は，「$strに全角文字を数個追加して，コンバート後にそれを除く」ということを 考えています。 ただ，自分でもかっこ悪いなぁと思うので，他にアイデアがあれば教えて下さい。 >>2176 68user > いいえ、@a[0] はスライスを使っているわけではありません (よね?)。 私は/tkさんが教えてくれたページを読んでスライスを覚えたので No.2179の/tkさんと同じ解釈をしたのですが， この解釈の違いによって，使い方とその結果が変わるということが ないのであれば，あまり本質的な問題ではないような気がします。 68userさんが正しい知識を教えようとしてくれる気持ちはとてもありがたいです。 |
|
シイ |
|
すみません。下の書込は私，椎です。 今回のことがあって，名前のような文字数が少ないフォームへの 日本語の記入に抵抗を感じたので， これから椎はやめてshiiにしようと思います。 |
|
>>2178 ＳＡ > inet_aton(hostname)になっていますがこれをinet_aton (ipaddres) > にしても問題はないのでしょうか？ 問題ないと思います。FreeBSD では inet_aton と inet_addr は同じ 関数になってます。 # http://www.jp.freebsd.org/cgi/cvsweb.cgi/src/lib/libc/net/inet_addr.c?rev=1.12.2.1 >>2179 /tk > @a[0] はスライスです。 ん〜、(@a)[0] とは違うということですか? >>2179 /tk > 一致した場合は undef では？ >>2181 椎 > ・getcode()では，半角カナは文字コードの自動認識の判断対象からはずされる そうでしたっけ…。昔 jcode.pl を読んだときはそうじゃなかった ような気がしますが、読み違えていたのかもしれません。 > 今は，「$strに全角文字を数個追加して，コンバート後にそれを除く」と > いうことを考えています。 追加する全角文字のエンコーディングを EUC-JP にするか、Shift_JIS に するかが問題です。どちらか決めるためには追加対象文字列のエンコーディングを 自動判別しなきゃいけません。で、それが正確にはできないので…と堂々めぐりです。 まぁ、元のフォームが EUC-JP であるということなので、 /([\x00-\x7F]|[\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE])*/ にマッチすれば EUC-JP として解釈できる文字列である、ということですから 無変換、でいいと思います。 # jcode.pl は汎用ライブラリですからそうもいきませんが。 > すみません。下の書込は私，椎です。 名前の部分にカーソルがある状態で Enter を押しても書き込み しないようにすればよいのかな? (どうやるのかさっぱりわかりません) |
|
>>2184 68user > 追加する全角文字のエンコーディングを EUC-JP にするか、Shift_JIS > にするかが問題です。 半角カナ「アイウエオ」の場合，後ろにスペースを３つ追加するだけで 上手くいきました。多分，全角文字なら判別対象になるので， それをある程度の長さで追記すればいいのかなと思いました。そこで， html側で別に送った全角文字を追加して判別するつもりでした。 ただ，こちらの掲示板では短い半角カナの「シイ」を判別できたので， jcode.plのせいではないようです（私の方ではシイも化けました）。 cgi-lib217.plを使っているせいかも……？ 人様のプログラムの改造から使い始めたPerlですが， 以前に比べればいろいろなことがわかってきました。 上述のことを確かめる意味でも， 自分が理解できる範囲で１から作り直してみることにします。 （jcode.pjは深く考えずに使いますが……(^^;） それを検証できたらまた報告しますね。 |
|
>>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; } −−−− これで「ア」などという１文字の半角カナもコード判別できているようです。 もうちょっとスッキリできればいいのですが……。 |
|
>>2204 shii http://www.din.or.jp/~ohzaki/perl.htm#JP_Code っていうかそのコードには 気になる点がいろいろと・・・ |
|
>>2205 ナナシサソ リンク先はPerlメモのgetcode関数のところですね。 できれば気になる点を具体的に指摘していただけると とてもありがたいのですが。 |
|
>>2204 shii 考え方はよいのですが、もちっとスマートにやるなら、 「あ」の文字コードを調べるスクリプト require 'jcode.pl'; $_="あ"; jcode::convert(\$_, 'euc'); s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg; print "あ in euc-jp: $_\n"; $_="あ"; jcode::convert(\$_, 'sjis'); s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg; print "あ in shift_jis: $_\n"; $_="あ"; jcode::convert(\$_, 'jis'); s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg; print "あ in jis: $_\n"; 実行結果: あ in euc-jp: %A4%A2 あ in shift_jis: %82%A0 あ in jis: %1B%24B%24%22%1B%28B # これは他のパターンも有りうるかも を踏まえて、 <input type="hidden" name="assist" value="あ"> としておき、 read(STDIN,$input,$ENV{'CONTENT_LENGTH'}); ($assist_code) = $input =~ s/(^|&)assist=(.*?))($|&)//; if ( $assist_code =~ m/^\%A4\%A2$/i ){ $input_encoding = 'euc'; } elsif ( $assist_code =~ m/^\%82\%A0$/i ){ $input_encoding = 'sjis'; } elsif ( $assist_code =~ m/^\%1B\%24B\%24\%22\%1B\%28B$/i ){ $input_encoding = 'jis'; } @parts = split(/&/,$input); foreach(@parts) { ($key,$val) = split(/=/); $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', $input_encoding); jcode::convert(\$val,'euc', $input_encoding); } くらいがよろしいかと思います (動作確認はしていません)。 >>2203 AGE > ntp はソースから make install しました。 > その場合のインストールされたファイルを知りたかったのです。 もし Makefile に uninstall とか deinstall とかいうターゲットがあるなら、 # make uninstall # make deinstall ですが、なさそうならば # make -n install して、インストールされるファイルをメモって、手動で rm ですね。 >>2202 スナフキン > ServletもCGIと同じくリクエスト毎に起動するのですか？ いいえ、しません。そういう意味では常駐していますね。 しかし、CGI を使うときも apache が常駐していますが、「常駐 システムを開発している」という意識は僕にはありません。それと 同様に、Servlet コンテナが常駐していても「常駐システム」とは 呼ばないんじゃないなぁ、ということです。まぁ、ここらへんの 感覚は人によって違うのかもしれません。 >>2200 /tk > どちらもスライスだと思うのですが えっと、@a[0] と (@a)[0] は違うんですよね? ということです。 要は、 「@a[0] は文法エラーのところを perl があえて $a[0] に読み変えている」 とこれまで思っていたのですが、 「@a[0] は文法的には正しいけれど、$a[0] の方が適当なので perl があえて警告するようにしている」 ということでしょうか? > @a は配列のスライスで, (@a) はリストのスライスかと… perl に配列とリストという区別はあるんでしたっけ。 |
|
>>2207 68user おお，なるほど！ありがとうございます。 ダミーを送るのなら，それをわざわざ対象文字列に結合しなくても いいわけですね。私が間抜けでした。 文字コードを調べるスクリプトが面白いですね（勉強になります）。 今回の件を自分のＣＧＩ向けに最小限にカスタマイズした（つもりの） スクリプトが下記です。 #--------------------------------------------------------- read(STDIN,$input,$ENV{'CONTENT_LENGTH'}); @parts = split(/&/,$input); foreach(@parts) { ($key,$val) = split(/=/); $val =~ tr/+/ /; $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; $code = &jcode::getcode(\$key); jcode::convert(\$key,'euc',$code); jcode::convert(\$val,'euc',$code,"z"); $val =~ s/\r\n|\r|\n//g; $val =~ s/,/，/g; $in{$key} = $val; } #--------------------------------------------------------- 入力項目名に半角カナ以外の日本語を使用することが前提なので， 汎用性はありません。 getcode関数を全項目に使っているところが余分なのですが， 見た目は，以前に比べてすっきりしました。 ところで， > ($assist_code) = $input =~ s/(^|&)assist=(.*?))($|&)//; ここはassistの中身のみを残して残りを消す作業だと思うのですが， ($assist_code)にカッコがついている理由と， 正規表現内のカッコの数が合わない理由を教えてください。 ・「行の先頭」または「＆の直後」にある「assist=」 ・「任意の１文字の０回以上の最短マッチ」 ・「行の終わり」または「＆の直前」 と，部分的にしか理解できませんでした。 |
|
>>2208 shii おいらはこう書くべきと思うけどな my ($assist_code) = $input =~ /(?:^|&)assist=([^&]*)/; どうせassist=なんじゃら、なんて残ってたって関係ないし。 > 正規表現内のカッコの数が合わない理由を教えてください。 ミスだねこれは だいたい、これだと > ($assist_code) = $input =~ s/(^|&)assist=(.*?))($|&)//; $assist_codeに入るのは(^|&)の部分になっちゃう |
|
>2207 68user >もし Makefile に uninstall とか deinstall とかいうターゲットがあるなら、 > # make uninstall これでうまくいきました。ありがとうございました。 |
|
メールを送るＣＧＩについて。 フォームに入力されたメールアドレスに対して、Sendmailを使って ＣＧＩ(Perl)からメールを送る時のことです。 ユーザやホスト名などが間違ったメールアドレスを入力しても、外部の サーバ宛てなら、正常にＣＧＩが終了し、エラーメールが戻ってきます。 ここまでは良いのですが、ＣＧＩやSendmailがあるサーバと同じサーバ 宛てにメールを送る場合、アドレスが正しければもちろん正常にＣＧＩ は終了し、メールは届きますが、UserUnknownになるようなメールアド レスを指定して送ると、正常にＣＧＩは終了せず、サーバエラーになっ てしまいます。 このようなサーバエラーを回避する方法はあるのでしょうか？ どなたか教えて下さい。よろしくお願いします。 |
|
初めましてpearlともうします。 以下のことで大変困っており、この掲示板にたどり着きました。 どうぞアドバイスをよろしくお願いします。 NTサーバーのあるディレクトリ(aaa)以下の 複数のサブディレクトリ(x1,x2,x3...)にある全てのファイルを 階層構造を保ったまま、Solarisのあるディレクトリにそっくり 移動(転送)したいのです。操作できるのは、Solaris側のみで、 シェルスクリプトによる自動実行を目指しております。 当初は、ftpのオプションで簡単に出来ると思っておりましたが・・。 また、不定期にサブディレクトリおよびファイルの追加があり 出来得るならば、初回以降は差分ファイルの転送だけ行いたい のですが、実現可能な方法をどなたかご教示願えませんか? |
|
>>2209 ナナシサソ > おいらはこう書くべきと思うけどな そうですね、僕の書いたコードではうまく動きませんでした。 >>2211 ぷよ丸 要はエラーを無視できればよいのですか? 何もエラー処理を 考えずに書けば無視できるのではないかと思うのですが、 具体的にどのように sendmail を実行していますか? >>2212 pearl おそらくは rsync を使うのがベストではないかと思います (使った ことはありませんが)。それがダメなら wget かなぁ。あるいは Solaris に sharity-light を入れて SMB しゃべれるようにして、 NT 側は共有フォルダ (って言うのかな) にしておくとか (これも 使ったことはありません)。 |
|
「エラー処理を無視できれば・・・」で、ひらめいて、エラーログ を見ながらいろいろとやってると解決できました。 つまり、sendmailでメールを送るときに、同一サーバ宛てのメー ルアドレスが間違っていると、標準出力にUserUnknownのエラーが 書き出され、ＨＴＭＬ出力前にそうなるから、エラー（BadHeader のエラーかな？）になっていたんですね。 それが分かったので、ＨＴＭＬを先に出力してから標準出力を閉じ、 sendmailでメール送るという順序にすることで解決しました。 これだと、sendmailの実行時にエラーが出てもＣＧＩからは無視し た感じになりますものね。 めでたしめでたしで解決したので報告します。 コメントありがとうございました。 これからもよろしくお願いします。 |
|
>>2207 68user > 要は、 > … cut … > ということでしょうか? そういう事だと思います。 以前書いた時に記述した近藤さんのサイトにも > @a[0]のような書き方はPerlのコードとして正しいものだからです。 と書かれていますし。 > perl に配列とリストという区別はあるんでしたっけ。 ん〜, スカラーで評価した時に, 配列は要素数を返し リストは最終要素を返す。 とかそういう話ではなくてでしょうか？ でも, scalar (@a); とか書いたら, しっかり最終要素が吐き出されたので なんか, 自分でも @a と (@a) の違いはよくわかりません。 少なくとも > えっと、@a[0] と (@a)[0] は違うんですよね? はい。そうです。 とは言えなくなってしまいました。 # 読み返すとゴミのような発言ですが, ご容赦下さい。m(_ _)m |
|
訂正です。 >>2215 /tk > 最終要素が吐き出されたので 要素数が吐き出されたので |
|
はじめましてです。 『HTTPクライアントを作ってみよう』の辺を参考にHTTPクライアントを 作っているのですが、うまくいきません。 まず、”作ってみよう”の前にtelnetを使ってのところでつまずきました。 % telnet test.hoge.com 80 Trying 123.123.123.10... Connected to test.hoge.com. Escape character is '^]'. GET /test/test.html HTTP/1.0(リターン) とやると、『NOT FOUND』になってしまいます。 ※ブラウザでhttp://test.hoge.com/test/test.htmlは表示される。 ※ちなみに、http://123.123.123.10/test/test.htmlは『NOT FOUND』 おそらく、Apacheでヴァーチャルホストで設定しているのだと 思いますが、このような場合どのようにすればよいのでしょうか？ 以上 宜しくお願いいたします。 |
|
>>2217 QDAK GET / HTTP/1.0(改行) Host: test.hoge.com(改行) (改行) |
|
>>2207 68user 「常駐システム」という言葉が悪かったですね、訂正します。 >Servlet コンテナが常駐して あえて言えば mod_perlに近いのでしょうか？ まあ、そのうちに勉強して理解できるように頑張ります。 #なかなか時間が取れませんが… >>2217 QDAK ナナシサソ(舌を噛みそう(^^;)さんも書いていますが、 http://X68000.startshop.co.jp/~68user/net/http-4.html の「さらなる改善点・バーチャルホストに対応」をどうぞ。 |
|
>2213 アドバイス有り難うございました。検討した結果使うことは出来ませんでしたが大変勉強になりました |
|
はじめまして。 「UNIXの部屋」でコマンド集を ”かなり”の量コピーさせていただきました。現場用サブnoteに保存して活用いたします。 また何か困ったことがあればここに来ると思いますがそのときはよろしくお願いします。 ありがとうございました。 |
|
crontab -e user でcronを登録したのですが起動するときにどうも環境設定が user で ログインした状態と違うみたいです。 .cshrc を取り込まずに cron が 動いてるらしくパスやら環境変数やらまるで違うのです。 そこで以下のようにむりやり設定するようにしたのですが 35 18 * * * setenv LANG ja;setenv ・・・ 結果は駄目でした。 cronが起動される際の環境設定（環境変数やパス）はどこでどうやって 設定するのか分かりますか？ |
|
下記No.2222 は解決したので無視してください。 申し訳ありません。 |
|
1./usr/local/reg/env/.cshrc.sun中で設定され ている a-e, l, m で始まる alias を実際の file に基づき説明 せよ(Mule の複数バッファの機能やカット，ペーストの機能を利 用すると良い)． 2.ヒストリ機能で直前のコマンドを少し変更する方法を 調べろ．(cp foo bar と入力する代りに cp ffo bar と入力して しまった場合等に便利) 3.*等のグロッビング用の文字を普通に入力するための方法を 調べろ(ファイル名が * のものを作成せよ．ただし，Mule は使 用しない．set noglob もしない)． 4.(t)csh において，~ は特別な意味を持つ文字である．この意 味を調べろ(複数あるかもしれない)． (参考)Emacs には，shell という関数や manual-entry という関数が存在する． 1〜4 に対する回答を，Subject が Report 5 なる mail で， 10/25(木)までに ip-rep@j-lab.ee.aoyama.ac.jp に送ること． |
|
No.2224は学校の課題なんですが、メールは送らないでください。このアドレスは先生のなので、意味がないのです。僕は生徒で、答えがわかったら掲示板に書いてください。お願いします。 |
|
「掲示板に書いてください。」って・・・ 日本語の勉強が先だよな・・ 先生に苦情を送っちゃっていいですか？ |
|
どうもすいませんでした。昨日からずっとインターネットで調べていたのですが、解らなかったので甘い考えでした。でも、自力でやって、二番だけわかったんですよ。やっぱりだめですよね楽しようとしたら。お返事まってます。 |
|
でも、愚痴を言っていいですか？先生って授業でやってないことを、レポートにすゆんですよ！！パソコン初めてやってるひとにっとっては、とっても大変なんですよ。学校には聞ける友達もいないし・・・どうしたら・・って考えたら、エキスパートに聞くのが一番かなって！でもいつも徹夜とかでやっても、間違ってると零点にするんですよ！努力を認めてくれないんですよ。ナナシサソさんは、UNIXできる方なんですか？ |
|
ちなみに、二番のこたえは、 「Ctrl-P（以下C-p)を押すとhistoryの前に入力したコマンドが現れる直前に入力 したコマンドをcp foo bar と入力する代りに cp ffo bar と入力して しまった場 合には、C-pを押してcp ffo barのffoをoffと書き換えればよい。」 であってますかね。よろしければ、採点のほうよろしくお願いします。 |
|
>>2229 n > 学校には聞ける友達もいないし・・・ UNIX を勉強するより、 - 詳しい友達を見付ける。 - それほど親しくない友達でも、課題提出前くらいは親しげに話しかけられる ような社交性を身につける。 - 課題だからといって、問題をそのまま掲示板に書き込んでも反感を買うだけ、 ということを書き込む前に推測できるようになる。 - 仮に課題だとしても、そうは見えないようにうまくカムフラージュ できるような文章力を身につける。努力しているという姿勢を アピールする。 といったことを学ぶべきじゃないですかね。いや、ほんとに。 というわけで、 http://cocoa.2ch.net/unix/index.html あたりで再チャレンジしてみては。 |
|
どうもご迷惑をかけました。ひとつお願いがあります。これからは、ホントに解らない事だけを聞くので、これからもこの掲示板に書き込みたいのです。よろしくお願いします。６８USERさん本当にアドバイスありがとうございます。これからは、気おつけます。これからもよろしくお願いしますと、言いたいのですがいいですか？ダメでしたら素直に書き込みはやめます。ちなみに、今回いのレポートは二番だけで送りました。くどいようですが、すいませんでした。そして、ありがとうございます。 |
|
「ネットワークプログラミングの基礎知識」で勉強させていただきました。とてもわかりやすくて入門にはピッタシカンカンでした。 難しかったのは、ソケットからの入力のバッファリングをOFFにする部分。以下のような説明をされてましたね。 > 26: select(SOCKET); $|=1; select(STDOUT); >ソケットに対してバッファリングしないようにします。 >これもおまじないだと思って下さい。 なかなかこれを理解できずにいたのですが、「プログラミング Perl 2nd」P146によると >autoflush HANDLE EXPR という関数があるらしいですね。"use FileHandle;"宣言が必要ですが・・。 autoflush SOCKET 1 ↑これなら、"おまじない"じゃなくて意味が通じ易くなるかもしれませんね |