|
> ログアウト後も終了させないでつづけさせるには http://X68000.startshop.co.jp/~68user/unix/pickup?nohup でいいですか? > 更に、曜日が、羨ましい状態です。 おぉ、毎日が日曜日…。 Win+perl の件は後程。 |
|
スゴい深刻な問題抱えてますーーーー。 連休明けまでに（３月２０日までに）プレイステーション２売ってくれる 人いませんかーーーー？？？？？ チョットクライ高くてもかまいませんんんん。 |
|
> cygwinをインストールして、perlをインストールして、cygwin1.dllを > 入れ替えて、やっと動作するので 勘違いしてCygwinをダウンロード(13MB)する人がいるかもしれないので一応。 CygwinPerlをインストールするためにCygwinをインストールする必要はないです。 どうするかというと、それは僕のページに書いてます。:-) (http://homepage1.nifty.com/tyuuki/perl/windows_perl.html) |
|
＞68userさま お返事ありがとうございます。 リンク先のnohupコマンドを使ってやってみたのですが やっぱりログアウトするとプロセスが終了してしまうみたいです。 nohup /home/hoge/hage/commandA&&/home/hoge/hage/commandB & というかんじで入力しているんですけど。。 実行すると「nohup: appending output to `nohup.out'」 というメッセージがでます。 こういうやり方でいいんですよね？ サーバの設定の問題なのかな？ どうすればいいんだろうか。。 |
|
> 実行すると「nohup: appending output to `nohup.out'」 ということは bash をお使いだろうと思いますが、こちらでは nohup commandA && nohup commandB & でできました。tcsh なら ( nohup commandA && nohup commandB ) & とサブシェルに実行させれば動くようです。 |
|
Yuuki様； >勘違いしてCygwinをダウンロード(13MB)する人がいるかもしれないので一応。 うっ、た、確かに・・・ ご指摘ありがとうございます。 会社のマシンでも、pathからcygwinをはずして、usr\以下にpathを 追加し、そこにcygwin1いれると、動いてました。 あと、Yuuki様のページ、なかなかインストールしやすくなっていて、 感心しました。 |
|
ＤＶＤとＣＤ−ＲＷが一緒になっているドライブがあると聞いたけど、これってお買い得？ |
|
モジュール関係を中心に更新しました。 http://X68000.startshop.co.jp/~68user/net/ さすがにネタが尽きてきた & 飽きてきた。何かおもしろい 題材ないですかね。NNTP も ICQ もいまいち食指が動かないなぁ。 あと、Windows+perl を使うときの参考ということでリンクを 張りましたが、よいですか?＞Yuuki さん # 「よいですか?」というのは (失礼な言い方でなりますが) # こういう分野は情報がすぐに古くなるので、定期的に更新を # 続ける気はおありですか? ということ。 ## 僕は Windows 使ってないため、情報が正しいかどうか全く ## チェックできないので。 なお、ちょっと忙しくなるので、26〜27日あたりから 4月中旬まで しばらく掲示板を閉めます。 |
|
>こてつさん DVDとCD-RWくっついてるやつは 性能的にみても,別々に買ったほうが安いので 辞めといたほうがよろしいかと。 >68user様 自作機で新マシン作りました。ハード関係 前より詳しくなりましたよ。CGIは相変わらずですけど。 奥深いですね。自分で組むと全く動かないです(w |
|
> あと、Windows+perl を使うときの参考ということでリンクを > 張りましたが、よいですか?＞Yuuki さん はい。大丈夫です。 |
|
> はい。大丈夫です。 了解です。 > 自分で組むと全く動かないです(w CGI ってのはデバッグしにくい環境なので、いろいろと がんばってみて下さい。 いろいろとありまして、転載についての説明を http://X68000.startshop.co.jp/~68user/ に加えました。ご一読下さい。 予告通り、4月中旬まで掲示板は閉めます。ではまた。 |
|
68user様 突然掲示板に書き込む無礼をお許しください。 私はネットワークの勉強をし始めたばかりの薩摩という者です。 こちらのページは大変奥深く、いつきても感動してしまいます。 ところで、今回意を決して掲示板に書き込むことに決めたのは、 ftptransのforkの部分を4引数selectを用いたらどうなるかを 知りたかったためです。 自分で考えてみたのですが、ソースが汚くなってしまい、 もし68user様ならどのように書かれるのか気になって しまったのです。本当ならこういうソースはメール等で お送りすべきとは思うのですが、こちらの方でするように とありましたので、いかに書きます。なお、ftptrans内で 用いられているサブルーチンはそのまま使わせて頂きました。 if ($passive){ &client_work(DATA,$data_connection_host,$data_connection_port); } $rin = &set_bits(COMMAND,DATA,DATA_WAITING); while(1){ $ret = select($rout=$rin,undef,undef,undef); if(fileno(COMMAND) && vec($rout,fileno(COMMAND),1)){ $ret = &read_response; if ( $ret =~ m/^5/ ){ print STDERR $ret; close(DATA); close(DATA_WAITING); exit; }elsif( $ret =~ m/^1/ ){ if ($mode eq put){ open(IN,$infile) || die "$infile: $!"; while (<IN>){ print DATA $_; } close(IN); } }elsif( $ret =~ m/^2/ ){ close(DATA); } }elsif(fileno(DATA_WAITING) && vec($rout,fileno(DATA_WAITING),1)){ accept(DATA,DATA_WAITING); $rin = &set_bits(COMMAND,DATA,DATA_WAITING); close(DATA_WAITING); }elsif(fileno(DATA) && vec($rout,fileno(DATA),1)){ open(OUT,">$outfile") || die "$outfile: $!"; print OUT <DATA>; close(OUT); close(DATA); exit; } } sub set_bits { @sockets = @_; $rin=""; foreach $sock (@sockets){ if(fileno($sock)){ vec($rin,fileno($sock),1)=1; } } return $rin; } sub to_bin { return unpack "B*",$_[0]; } 以上です。投稿が非常に長くなってしまいましたが、 気付いた点がありましたら御指摘いただけると幸いです。 また、68user様がかかれた物も拝見できましたら ありがたいのですが。 以上、よろしくお願いします。 |
|
ごめんなさい。下の投稿をしたのは僕です。 名前が抜けていました。どうも削除はできないようなので、 もう一度投稿しました。 本当にごめんなさい。 |
|
どうも、おひさしぶりです。再開おめでとうございます。 散々アドバイス頂いて、スクリプトも頂いて、そのおかげでなんとか perl proxyを作れました。本当にどうもありがとうございます！ sysreadの返値がundefかどうかを判定するところではまってました。 これでやっと当初の目的(漢字変換および80桁で折り返す、ヘブライ語 のテキストをiso-8859-8-iからiso-8859-8)に取り掛かれます・・・ |
|
ふう、やっとネットワークに繋がった。 > perl proxyを作れました。 あれを完成させてコメント付けて解説付けて公開するつもりでしたが、 全然進んでないので、置いておきます。 http://X68000.startshop.co.jp/~68user/tmp/2nd-proxy.pl へにかさんのが これより高機能なら公開して下さいね。 # 不具合: # POST の長さについて、実際のデータより少し多めに送ってしまう # ような気がする & たまに永遠にソケットを読みに行ってしまう # ことがある & ブラウザ側が途中で切断しても proxy 側が感知できない。 # perl5.004 だと動かないような気がする。perl5.005_05 以降 # ということで。 ＞薩摩さん これって動いているんですよね。ならいいんじゃないでしょうか。 でもまぁ、せっかく select を使っているんだから、 > while (<IN>){ > print DATA $_; > } せずに、read して 再度 select で待つとよいかもしれません。 そうすれば、「現在 〜% 読み込み中、あと何秒、(〜bytes/sec)」 なんてのを刻々と表示できますし。表示するかどうかは別としても、 僕ならそうすると思います。 |