Perlのこと何でも聞いてきてよ

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　役に立つとは限らないけどね☆
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

2 ：名無しさん＠お腹いっぱい。：02/02/04 00:34 ID:???

こんな駄スレ立ててないで初心者スレで質問に答えてやれ。
分散するだけ無駄だ。

----------------------END-------------------------

3 ：名無しさん＠お腹いっぱい。：02/02/04 00:36 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>2いきなりひどいなぁ
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

4 ：名無しさん＠お腹いっぱい。：02/02/04 00:51 ID:???

http://pc.2ch.net/test/read.cgi/php/1009331505/l50
重複スレって言うんだよ

5 ：名無しさん＠お腹いっぱい。：02/02/04 00:57 ID:???

>>4
おまえは Perl = CGI だと思っているのか?
http://pc.2ch.net/test/read.cgi/php/1009549309/l50
ネタスレとして重複なのはこれか
http://pc.2ch.net/test/read.cgi/php/1000191385

6 ：　　：02/02/04 01:05 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>1どう見ても、誰が見ても、駄スレだよ
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

7 ：名無しさん＠お腹いっぱい。：02/02/04 01:07 ID:???

>>5
この板では「Perl ⊂ CGI」こうだろ
ウダウダ言わずに逝け

8 ：名無しさん＠お腹いっぱい。：02/02/04 01:08 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>4そうかなぁ～
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~
　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>5リファレンスありがと☆
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~
　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>6駄スレでもいい☆寂しいんだもんこの板
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

9 ：名無しさん＠お腹いっぱい。：02/02/04 01:10 ID:???

確かにこの板は寂しい・・・寂しいから連中も立ったスレを叩く事で自己アピールしているのかもね・・・
この板は変わった。

10 ：名無しさん＠お腹いっぱい。：02/02/04 01:17 ID:???

どかーん！
(⌒⌒⌒)
　｜｜

／￣￣￣￣￣＼
|　・　Ｕ　　　　　　|
| |ι　　　　　　　|つ
Ｕ｜｜￣￣｜｜
　　￣　　　　　￣
もうおこったぞう　

11 ：名無しさん＠お腹いっぱい。：02/02/04 01:18 ID:???

別にネタスレでもいいんだけど、技術的な質問をする人がいない寂しさ。
住人は自力で調べる力を持っていて、質問する人は一見さん。

12 ：名無しさん＠お腹いっぱい。：02/02/04 01:18 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>7どこに？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~
　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>9ゆとりが欲しいよね☆
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~
　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>10コタツ踏まないで～
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

13 ：名無しさん＠お腹いっぱい。：02/02/04 01:19 ID:???

おいおい>>4のスレからPerlを分離する理由があんのかよ
もともとPerlの質問ばっかだろ？
もっともぶったこと言ってるようで"丸で"中身ねえぞ、おまえ

14 ：名無しさん＠お腹いっぱい。：02/02/04 01:22 ID:???

Perlって、なに？

15 ：名無しさん＠お腹いっぱい。：02/02/04 01:25 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>11 Perlのこと何でも聞いてきてよ～
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~
　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>13 温かく見守って下さい☆
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~
　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>14 Practical Extraction and Report Languageです
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

16 ：どーでもいいが：02/02/04 01:31 ID:???

>>1
AAの使い方ぐらい知れ！
コメントの枠広げて一度にレス返すことぐらいしろよ
場所取るんだよ

17 ：名無しさん＠お腹いっぱい。：02/02/04 05:47 ID:???

>>1さんがどうしても質問に答えたがっておられるので考えていたことを聞きたいと思います。

ヤフーブリーフケースの事なんですがあれってなんかファイル名のアドレスが何分かおきに変わるんですよ。
あれって何か特殊なwebプログラムを用いてファイル名を自動的に更新しているのでしょうか？
直リン防止とかで用いているプログラムみたいなのですがああいうのってperlで作れたりするのでしょうか？
もし仕組みが分かれば返事を下さい。意味わからねー！日本語おかしいぞ！って時には放置でお願いします。

18 ：へるぷ：02/02/04 06:48 ID:DoKrvvPj

Personal Web Server + ActivePerlでCGIだけが実行できません。
DOSプロンプトからperlは動作します。
PWSのcgi-binの設定、アプリケーションマッピングもしています。
何か考えられる原因はありますか？

19 ：へるぷ：02/02/04 08:00 ID:+hoE8y2W

>>18だけど、
昔はPWS問題なく動いたんだけどな。
なんだろ？
考えるのめんどくさいからAN HTTPDにしました。
うーん！！問題なく軽快に動く。わんだふる。
PWSしねよ！！

20 ：名無しさん＠お腹いっぱい。：02/02/04 08:45 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>16 え～気に入ってたのになーあの答え方
　　　　　　　|　>>17 どう変わるか知らないけどcronとか使えば出来そう
　　　　　　　|　>>18 PWSはレジストリ設定を手動でやる必要あるかもよ
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

21 ：へるぷ：02/02/04 08:52 ID:4WLM/7Le

>>20
だから、アプリケーションマッピングしてるよ。

むかーし、PWSいれて、動作確認してから、
いろんなMSものいれたからなあ。
MSバグってことでいいや。
もう使わない。

22 ：名無しさん＠お腹いっぱい。：02/02/04 09:48 ID:???

Perlってどうなの？

23 ：名無しさん＠お腹いっぱい。：02/02/04 09:50 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>19 An Httpdいいよね
　　　　　　　|　>>20 そうなんだぁ～～。使ってないからわかんなかった。ごめんね
　　　　　　　|　>>18 ｲｲ！(◕ฺ∀◕ฺ)
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

24 ：名無しさん＠お腹いっぱい。：02/02/05 02:11 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>23 レス番号間違っちゃった>>18は、>>22デシタ
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

25 ：名無しさん＠お腹いっぱい。：02/02/05 03:09 ID:???

Ｃ言語で書かれたものをPerlで動かすことは出来ますか？

26 ：名無しさん＠お腹いっぱい。：02/02/05 15:02 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>25 system('/path/c-app.exe');
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

27 ：名無しさん＠お腹いっぱい。：02/02/05 20:14 ID:kMSeXYwX

入力フォームは別にあるんだけどさ。
このプログラムしょぼいんだけど
ログが残るようにならんかいな。
#!/usr/local/bin/perl

#データの受け取り
read( STDIN, $query,$ENV{ 'CONTENT_LENGTH' } );

@in_params = split( /&/, $query );
foreach $in_param ( @in_params ) {
( $key,$value ) = split( /=/,$in_param );
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack('C',hex($1) )/ge;
$param{ $key } = $value;
}

#結果の出力
print "Content-type: text/html\n\n";
print $param{ 'name' };
print "<br>";
print $param{ 'gimon' };
print "<br>";
exit;

28 ：名無しさん＠お腹いっぱい。：02/02/05 20:15 ID:???

>>27
マルチにしては手が込んでいる。
それ以上の評価はない。

29 ：名無しさん＠お腹いっぱい。：02/02/06 01:24 ID:???

>>1さんはどれくらいのレベルのperl使いなんですか？

30 ：名無しさん＠お腹いっぱい。：02/02/06 03:30 ID:???

>>29
少なくとも全然初心者じゃないような（ｗ

31 ：名無しさん＠お腹いっぱい。：02/02/06 04:19 ID:???

GD.pmのインストールの仕方教えれ

32 ：名無しさん＠お腹いっぱい。：02/02/06 09:30 ID:???

>>31
まずアーカイブを取って来て

$ tar xz GD**.tar.gz
$ make
$ make test
$ make install

33 ：名無しさん＠お腹いっぱい。：02/02/06 22:37 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>27 マルチポストなんだー。答えもらえるといいね
　　　　　　　|　>>28 よそで回答ついていたのかな？
　　　　　　　|　>>29 Lv20くらいかな？まだザオリクは使えません。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

34 ：名無しさん＠お腹いっぱい。：02/02/06 22:37 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>30 メイジキメラが出てくると全滅します
　　　　　　　|　>>31 perl -MCPAN shell ってやって、install GDとかやるといいかも
　　　　　　　|　>>32 すばらしい～～
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

35 ：名無しさん＠お腹いっぱい。：02/02/09 17:58 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>31 訂正自己レス。 perl -MCPAN -e shellです
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

36 ：　　：02/02/10 01:04 ID:KCiphvtW

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　おしっこしたい！
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

37 ：名無しさん＠お腹いっぱい。：02/02/10 07:29 ID:???

諦めてコタツから出なさい

38 ：名無しさん＠お腹いっぱい。：02/02/14 22:53 ID:???

Perl歴は何年ですか？

39 ：名無しさん＠お腹いっぱい。：02/02/15 09:48 ID:???

約１年？
元々Ｃできたからそれなりに熟練。

40 ：名無しさん＠お腹いっぱい。：02/02/15 10:16 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>36 行ってらっしゃい
　　　　　　　|　>>37 苦悩の決断・・・
　　　　　　　|　>>38 ５年くらいかなぁ？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

41 ：名無しさん＠お腹いっぱい。：02/02/15 10:17 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>39 Ｃ出来る人ってうらやましいな★
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

42 ：名無しさん＠お腹いっぱい。：02/02/15 12:09 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>41 文法はかなり似てるから勉強してみては？ふぁいと！
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

43 ：名無しさん＠お腹いっぱい。：02/02/17 10:48 ID:A7lJmpB+

よろしくおねがいします。
http://big.or.jp

ここのサイトは、ファイアウォールがサーバ自体に入っているそうです。
このサイトで、java以外のＩＰ抜きを設置する事は可能でしょうか・・。
ＦＴＰプロトコル等で試みた結果、ブロックされてしまうことがわかりました。
この手の質問で申し訳無いのですが、困っているので宜しくお願いします・・。
ファイアウォールが設置されているサーバーに、ＩＰ抜きを仕込むことは出来るのでしょうか？
宜しくお願いします・・・。どうしてもこまっているのです・・助けて下さると嬉しいです。お願いします。

44 ：名無しさん＠お腹いっぱい。：02/02/17 11:13 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>43 ページを表示できませんってでるよ
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

45 ：名無しさん＠お腹いっぱい。：02/02/17 11:34 ID:A7lJmpB+

http://www.big.or.jp

です。
すみませんでした、レス感謝です。よろしくおねがいします。
ここに設置しているサイトに、仕掛けをしたいのです・・おねがいします。

46 ：名無しさん＠お腹いっぱい。：02/02/17 11:49 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>45 もちろん、自分が借りているページに設置できないって話だよね？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

47 ：名無しさん＠お腹いっぱい。：02/02/17 12:19 ID:???

>>45
ここでこんな低姿勢なやつが「OP抜きを仕掛けたい」か。おめでてーな。

48 ：名無しさん＠お腹いっぱい。：02/02/17 12:23 ID:???

IPアドレスが抜きたいの？何のために？何の徳があって？？

49 ：　：02/02/17 12:46 ID:A7lJmpB+

４５です・・。
自分のサイトにです、よろしくおねがいします。
ＩＰアドレスを、あらしを中止させるためです・・。
一年続いていて、串も沢山もっているので通用しないのです・・
お願いします。

50 ：名無しさん＠お腹いっぱい。：02/02/17 12:47 ID:???

>>49
そう言う場合はCokkie使ってID振ってやるんだよ。
荒らしのIDでcgiを開いたIPアドレスは規制対象に。
規制対象のIPで入ってきた奴はまたCookie設定。

バレルまで有効。

51 ：名無しさん＠お腹いっぱい。：02/02/17 12:48 ID:???

>>49
ブラウザで制限かけてやれ。

52 ：　：02/02/17 13:05 ID:A7lJmpB+

＞５０さん

クッキーオフにしてます・・＞相手
ブラウザで制限ですか・・。検討してみます。
只、一番は抜きたいのです・・一年以上続いているので、
ここらでやめさせないと何度でもやってくるので・・本当にしつこいんです。
よろしくおねがいします。

53 ：名無しさん＠お腹いっぱい。：02/02/17 13:21 ID:???

クッキーオフじゃ入れないようにすればいいだけ

54 ：　：02/02/17 13:38 ID:A7lJmpB+

＞５３さん

ＪＡＶＡオフじゃ入れない様にすることもできるでしょうか？
それと、出来るならば抜ける方法を教えていただけるとありがたいです・・
よろしくおねがいします。
レス感謝します！

55 ：名無しさん＠お腹いっぱい。：02/02/17 13:42 ID:???

56 ：５４：02/02/17 16:38 ID:A7lJmpB+

皆様、
どうか宜しくお願いします・・何とかプロバイダの方に注意して頂くなどしないと
止む気配が一向に無いのです・・宜しくお願いします。

57 ：名無しさん＠お腹いっぱい。：02/02/17 16:45 ID:???

>>56

>>55さんは無視か？

58 ：名無しさん＠お腹いっぱい。：02/02/17 16:53 ID:A7lJmpB+

リフレッシュしろ、
という事でしょうか・・？

レスありがとうございます・・・。

59 ：名無しさん＠お腹いっぱい。：02/02/17 17:59 ID:6kxOLrKF

そうじゃねぇよ
Javascriptを切っている人は
別の所に飛ばすって事
55が親切に書いてるんだからよみとれ

60 ：名無しさん＠お腹いっぱい。：02/02/17 18:26 ID:???

るせｳﾞｫｹ!!

61 ：名無しさん＠お腹いっぱい。：02/02/17 18:54 ID:???

CGI書ける奴がHTML書けないわけがない。
CGI書こうと言う奴がHTMLを理解していないと言うのはちゃんちゃらおかしい。

62 ：名無しさん＠お腹いっぱい。：02/02/17 21:03 ID:A7lJmpB+

ありがとうございます・・。

それもやってみます。
けれど、今のあらしは何とかプロバイダに注意していただきたいのです・・。
何とか抜く方法を教えていただけませんでしょうか・・。
自分のサーバー（サイトの設置してあるサーバー）のＦＷに引っ掛からないやりかたで、
どうかお願いします・・・。
皆さんレス感謝します。

63 ：名無しさん＠お腹いっぱい。：02/02/17 21:04 ID:???

>>62

こんなCGI探してますスレッド Ver.5
http://pc.2ch.net/test/read.cgi/php/1013282469/l50

64 ：名無しさん＠お腹いっぱい。：02/02/17 22:05 ID:???

「ちゃんちゃらおかしい」の「ちゃんちゃら」ってなんですか？
ぜひ飼ってみたいです

65 ：名無しさん＠お腹いっぱい。：02/02/17 22:33 ID:???

ちゃんちゃら。
江戸時代のお笑い芸人（汚れ系）。

「あ！ちゃんちゃら！！おかしい！！！」

いつしか人をせせら笑う言葉になりましたとさ。

66 ：名無しさん＠お腹いっぱい。：02/02/18 00:34 ID:???

チンチラとチャウチャウの雑種

67 ：名無しさん＠お腹いっぱい。：02/02/18 00:38 ID:???

>66
それは珍獣

68 ：名無しさん＠お腹いっぱい。：02/02/18 01:50 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>64-67　おまえらどうしようもねえナ☆
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

69 ：名無しさん＠お腹いっぱい。：02/02/18 03:43 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>68　コピペをブッコクんじゃねーYO☆
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

70 ：名無しさん＠お腹いっぱい。：02/02/18 19:59 ID:y08lVX30

皆さん、
環境変数をぶっこぬく掲示板のスクリプトを、
他の掲示板のＨＴＭＬ部分をかえないで挿入することは出来ますかね？
よろしくおねがいします！

71 ：名無しさん＠お腹いっぱい。：02/02/18 20:08 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>70　HTML以外でどうやって表示するつもりだ？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

72 ：％ＥＮＶ：02/02/18 20:09 ID:+l6OVNhD

>>70
ちゃんと日本語にしてしゃべれ
意味がわからん！！

73 ：名無しさん＠お腹いっぱい。：02/02/18 20:13 ID:???

>>70

こんなCGI探してますスレッド Ver.5
http://pc.2ch.net/test/read.cgi/php/1013282469/l50

74 ：　：02/02/18 20:15 ID:y08lVX30

つまり、掲示板のみためをかえないで
二つの掲示板の機能をあわせることはできますか！
・・ということです。
ルーチン処理、二つの掲示板を付け足すときでもいけるのでしょうか？
レスありがとう。

75 ：名無しさん＠お腹いっぱい。：02/02/18 20:17 ID:???

>>74

こんなCGI探してますスレッド Ver.5
http://pc.2ch.net/test/read.cgi/php/1013282469/l50

76 ：名無しさん＠お腹いっぱい。：02/02/18 21:49 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>47 IPのtypo？
　　　　　　　|　>>48 なんでだろね？
　　　　　　　|　>>49　うまくいったのかな？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

77 ：名無しさん＠お腹いっぱい。：02/02/18 21:50 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>50　Cookieかぁ。
　　　　　　　|　>>51　どうやんの？
　　　　　　　|　>>52　クッキーオフだと２ちゃんも書けないよね？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

78 ：名無しさん＠お腹いっぱい。：02/02/18 21:52 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>53　２ちゃんといっしょだ。
　　　　　　　|　>>54　javaオフはセキュリティソフトとかでやってる人が多いよね
　　　　　　　|　>>55　リフレッシュ～～
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

79 ：名無しさん＠お腹いっぱい。：02/02/18 21:53 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>56　うまくいったのかな？
　　　　　　　|　>>57　いやん★
　　　　　　　|　>>58　気分も一新★
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

80 ：名無しさん＠お腹いっぱい。：02/02/18 21:54 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>59　㌧で㌧で㌧で㌧で㌧で～
　　　　　　　|　>>60　るせ？
　　　　　　　|　>>61　ちゃんちきおけさい
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

81 ：名無しさん＠お腹いっぱい。：02/02/18 21:56 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>62　FWで取ってもらうようには出来ないのか。出来ないんだろうね。
　　　　　　　|　>>63　おお！
　　　　　　　|　>>64　ちゃんちゃんばらばらの略がチャンバラなんだね
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

82 ：名無しさん＠お腹いっぱい。：02/02/18 21:57 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>65　へーそうだったんだー
　　　　　　　|　>>66　ざっしゅかぁ～
　　　　　　　|　>>67　珍。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

83 ：名無しさん＠お腹いっぱい。：02/02/18 21:59 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>70　よくわかんないや
　　　　　　　|　>>71　よくわかんないね～～
　　　　　　　|　>>72　よくわかんないよね
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

84 ：名無しさん＠お腹いっぱい。：02/02/18 23:22 ID:???

　　　　　＿＿＿＿
　　　／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　／￣￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜　うるせー馬鹿！
　　＼|　　　＼＿/　／　　＼＿＿＿＿＿
　　　　＼＿＿＿_／

85 ：名無しさん＠お腹いっぱい。：02/02/18 23:25 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　うっかりとばしちゃった。
　　　　　　　|　>>68　いやん★
　　　　　　　|　>>69　ぶっこき～～★
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

86 ：名無しさん＠お腹いっぱい。：02/02/18 23:25 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>73　誘導～
　　　　　　　|　>>74　できるでしょ～？
　　　　　　　|　>>75　湯うどん～～
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

87 ：名無しさん＠お腹いっぱい。：02/02/18 23:36 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>62　結論からいうと、FWがNATして、内部IPにApacheがあると
　　　　　　　|　　　　　けっこう厳しいかもしれないよね。FWのレベルにログ残っているはずだから
　　　　　　　|　　　　　それもらうかするしかないかな？どちらにしても、$ENV{'REMOTE_ADDR'}
　　　　　　　|　　　　　が取れないのだったら、CGIの対応では無理だと思うな。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

88 ：名無しさん＠お腹いっぱい。：02/02/19 15:21 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　浮上！
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

89 ：名無しさん＠お腹いっぱい。：02/02/19 15:38 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>84　耳ないくせに生意気だぞ！
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

90 ：名無しさん＠お腹いっぱい。：02/02/19 15:44 ID:???

　　　　　＿＿＿＿
　　　／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼

　　　　　　　　　　　　　　　　　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|

　　|∵ /　　三　|　三　|　　／￣￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜　うるせー馬鹿！
　　＼|　　　＼＿/　／　　＼＿＿＿＿＿
　　　　＼＿＿＿_／

91 ：名無しさん＠お腹いっぱい。：02/02/19 15:49 ID:???

　　　　　　　　　　　　|
　　　　　　　　　　　　|
　　　　　∧ ∧　　　｜>>90　やめてくれよぉ。　
　　　　,っдT）　＜　
　　　　 `l　 ⊂)　　　＼＿＿＿＿＿
　. 　　～|　_　| ゥゥ．．．
　　　　　∪ ∪　　　

92 ：名無しさん＠お腹いっぱい。：02/02/19 15:52 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>90　糞猫はしめ！
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

93 ：名無しさん＠お腹いっぱい。：02/02/19 16:29 ID:???

　∧∧∧∧
　(ﾟДﾟ≡ﾟДﾟ)　ﾌﾟﾙﾌﾟﾙ
　　　|し　|つ
　　⊂__　|
　　　し'

　(( ∩ )) ﾌﾟﾙﾌﾟﾙﾌﾟﾙ
　　γ'⌒ヽ ∧∧
　　し'ゝつ( ﾟДﾟ)つ

94 ：名無しさん＠お腹いっぱい。：02/02/19 17:13 ID:???

　　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　 /⌒ヽ)　　＜　こたつ猫が荒らしに使われてる…
　　　～（＿__ ）　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ''" ""''"" "''

95 ：名無しさん＠お腹いっぱい。：02/02/20 10:52 ID:3baUv5Zl

＞８７さん

リモートアドレスはとれています・・。
串だけが問題なのです・・よろしくお願いします。レスどうもです。

96 ：名無しさん＠お腹いっぱい。：02/02/20 10:59 ID:???

　　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　 /⌒ヽ)　　＜　>>95　リモートアドレス取れているんだったら…
　　　～（＿__ ）　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ''" ""''"" "''

97 ：名無しさん＠お腹いっぱい。：02/02/20 11:01 ID:???

ナニが問題なの？
リモートアドレス取れてるんだったら、FWは問題にならないでしょ？
リモートアドレスにFWのアドレスが入っちゃうんだったら、それは
「リモートアドレス取れてる」って事にはならないでしょ？
質問の意図が分かんないよ
￣￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　＿＿＿＿＿
　　　　　ｶﾀｶﾀ…|　　|￣＼　　＼＿＿＿_
　　　 ∧ ∧　　 .|　　|　　　|￣￣|;;;;|∴.◎|
　　　 (,,ﾟДﾟ) 　　|　　|　　　|＿＿|;;;;|：： [].|∧ ∧
　　　 .ﾉ　つつ　.|＿_|＿／　　／;;;;;|===　|(*ﾟーﾟ)
　　～（＿|￣￣￣|　　〔￣￣〕;;;;;;;;;|===　| し＿⊃⊃
　　|￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣|

98 ：名無しさん＠お腹いっぱい。：02/02/20 12:14 ID:???

95は今頃
「なんでこんなに困ってるのに答えをはぐらかしてばかりで教えてくれないの!?」
って思ってるに違いない

99 ：名無しさん＠お腹いっぱい。：02/02/20 12:27 ID:???

97は今頃
「98は95なの!?」
って思ってるに違いない

100 ：名無しさん＠お腹いっぱい。：02/02/20 12:28 ID:???

>98
質問の意図がよくわからないんだよね。

101 ：名無しさん＠お腹いっぱい。：02/02/20 12:31 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>98　じらし戦法？
　　　　　　　|　>>99　98!=95？★
　　　　　　　|　>>100　ゲットズザー★
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

102 ：名無しさん＠お腹いっぱい。：02/02/20 15:25 ID:???

　　　　　　 ∧⊂ヽ
　　　　　　(,,ﾟДﾟ)ﾉ＜質問ないですか～？
　　　　　　　| ⊃|
　　　　　　 ⊂ノ～
　　　　　　　∪
　　　　　　　┳
　　　　　　┳┳
∧∧ 　　 ┳┳┳　 ∧∧
*ﾟдﾟ)つ┳┳┳┳⊂ﾟーﾟ*

103 ：名無しさん＠お腹いっぱい。：02/02/20 20:20 ID:???

掲示板を作ってます。index.html のフォームから書き込むと、
log ファイルに保存されると同時に index.html を生成します。
書き込み直後に index.htm に飛ばすと、つねにキャッシュが
表示されてしまい、非常に使い勝手が悪いです。Pragma とか
Last-Modified も試しましたが効果が安定しません。いまは、
index.html?xxx （xxxはランダム文字列）で飛ばしてます。
なにかいい方法はないでしょうか？

104 ：９５：02/02/21 01:17 ID:zEPirAXx

よろしくおねがいします。
状況を説明します。
相手は串を刺しています。
リモートアドレスは、串のアドレスになりますので、抜く必用があるのです。
したがって、1,java 2,FTP　での罠を考えています。
出来たら、FTPがいいのです・・。しかし、掲示板を設置している「自分のサーバ」
の関係で、どうやら自分のサーバにファイアウォールが設置されていて、
FTPプロトコルでIPを抜く罠が上手く動かないみたいなのです・・PERLのスクリプトなのですが、エラーが出ます。
聞いてみたら、多分ファイアウォールのせいだと言っていました、鯖屋さんが・・。
そこで、何とかIPを抜く方法を教えていただきたいのです・・。
それと、java　OFFでログインしたユーザーをどこかへ飛ばしてしまうスクリプトも、出来たら頂けると嬉しいです。
よろしくお願いします。

105 ：名無しさん＠お腹いっぱい。：02/02/21 01:26 ID:zEPirAXx

＞９７さん

いえ、リモートアドレスには串のホストが残ります。
相手が、ファイアウォールを張っている事は知っているので、そういう意味です。
自分のサーバにもファイアウォールが入っているらしく、（サイトのサーバーです）
よろしくおねがいします。

106 ：名無しさん＠お腹いっぱい。：02/02/21 02:13 ID:???

>>104
＠＠Ｐｅｒｌチャットでの荒らし対策＠＠
http://pc.2ch.net/test/read.cgi/php/991274614/l50

役に立つじゃろう。

行くたびにjava、ftpクライアントが立ち上がる掲示板なんぞに誰が逝くか。

107 ：名無しさん＠お腹いっぱい。：02/02/21 02:21 ID:???

つーか既にマルチポストしてるでしょ。

108 ：名無しさん＠お腹いっぱい。：02/02/21 18:55 ID:???

>>106
行くたびにjava、ftpクライアントが立ち上がる掲示板なんぞに誰が逝くか。

いえてる。パスワード制にすりゃいいのに。どうせ書き込む人少ない（少なくなる）んだし。

109 ：名無しさん＠お腹いっぱい。：02/02/22 00:37 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>103　難しいよね。Expire使う方法もありそうだけど。
　　　　　　　|　>>104　パスワードをメールで発行する仕組みにしたら？
　　　　　　　|　>>105　いろいろ大変なんだね。がんばってね。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

110 ：名無しさん＠お腹いっぱい。：02/02/22 00:38 ID:???

111 ：名無しさん＠お腹いっぱい。：02/02/22 00:39 ID:???

　　　 ΛΛｶﾞﾊﾞｯ!　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣　　
　　　(;ﾟДﾟ)ミ　　　＜　111げっと～～
⊆￣ιノυ 〇　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

112 ：名無しさん＠お腹いっぱい。：02/02/22 11:50 ID:UrxNujzp

IRC Botのplumを使ってて
サーバに入って nohup perl plum&　と起動しているんですけど
これをサーバが起動した時に plum　というユーザーで
自動起動するためにはどうすればいいんでしょうか？

113 ：名無しさん＠お腹いっぱい。：02/02/22 12:27 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>112　OSによっても違うけど、サーバのスタートアップ用の
　　　　　　　|　　　　　　スクリプトを作成しておくのが普通だね。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

114 ：112：02/02/22 13:05 ID:UrxNujzp

Redhatらしいんですけど
具体的にはどのように書けばいいんでしょうか？

管理者に聞いたところ
適当に書いたらrc.localに追加してやるって言われたんですけど

115 ：親切な人：02/02/22 14:03 ID:???

ヤフーオークションで、幻の人気商品、発見！！！

今は無き「コピーガードキャンセラー」↓
http://page.auctions.yahoo.co.jp/jp/auction/42757955

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。

116 ：名無しさん＠お腹いっぱい。：02/02/22 15:03 ID:???

117 ：真珠猫 ◆eKrEwpMs ：02/02/22 15:58 ID:M0vfxnlY

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>114　Linux板の質問スレで聞いた方がいいと思うよ。
　　　　　　　|　>>115　はぁ、ご親切にどうも。
　　　　　　　|　>>116　きっとマルチ投稿ツールか何か使っているから怒っても無駄だと思うよ・・・
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

118 ：114：02/02/22 16:19 ID:UrxNujzp

>>117
Linux板に引っ越しました

119 ：名無しさん＠お腹いっぱい。：02/02/22 18:40 ID:BqtY+Rvo

すみません。
JAVA　WAUを仕込んだ場合、
相手にJAVAが発動したのってバレてしまうのでしょうか？
FTPで抜いた場合はバレないと思うのですけど・・。
JAVA　ってバレますか？
IP抜きについて、よろしくです。

120 ：真珠猫 ◆eKrEwpMs ：02/02/22 19:15 ID:M0vfxnlY

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>118　はーい。後で見ます～
　　　　　　　|　>>119　相手がJavaScriptの知識持っていれば、まず気付くと思うよ。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

121 ：名無しさん＠お腹いっぱい。：02/02/22 19:18 ID:BqtY+Rvo

＞１２０さん

それは掲示板のソースを見て、という事でしょうか？
レスありがとうございます。
JAVAスクリプトを設置してるを、ソースに表示させないことは出来ますか？
別にTELNETみたいに発動するわけじゃないですよね・・。
FTPの場合は発動するのでしょうか？ウィンドウ・・JAVAはしないと思うのですが、
どうでしょうか。
レス感謝です

122 ：真珠猫 ◆eKrEwpMs ：02/02/22 19:24 ID:???

>121
JavaScriptである限り、js作って隠しても、知識があればちゃんとわかるよ。
ほかの方法を使っても、わかる人にはわかるよ。
明らかに「普通と違う」事をしているソース記述があるんだからね。
そこまでして填めたいの？
２ちゃんらしい話題ではあるけどさ。
セキュリティってか、荒らし対策だったら、むしろ積極的に、そういう対策取っていることを
知らせる方がよっぽど効果があるんだよね。
よくあるこの手の話としては、２ショットや出会い系、２ちゃんねるの誰かの個人特定を
どうしてもしたい場合に聞くよね、この手の話。
￣￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　＿＿＿＿＿
　　　　　ｶﾀｶﾀ…|　　|￣＼　　＼＿＿＿_
　　　 ∧ ∧　　 .|　　|　　　|￣￣|;;;;|∴.◎|
　　　 (,,ﾟДﾟ) 　　|　　|　　　|＿＿|;;;;|：： [].|∧ ∧
　　　 .ﾉ　つつ　.|＿_|＿／　　／;;;;;|===　|(*ﾟーﾟ)
　　～（＿|￣￣￣|　　〔￣￣〕;;;;;;;;;|===　| し＿⊃⊃
　　|￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣|

123 ：　：02/02/22 19:26 ID:BqtY+Rvo

＞１２２さん

報酬をお支払いしますがどうでしょうか？

124 ：１２３：02/02/22 19:32 ID:BqtY+Rvo

複数試してみたのですが、
FW突破は諦めました・・
スキルの高い方のご教授を承りたい限りであります。
よろしくお願いします。

125 ：真珠猫 ◆eKrEwpMs ：02/02/22 19:46 ID:???

　　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　 /⌒ヽ)　　＜..　>>123　自分が抱えている案件さえ遅々として進まないのに・・・
　　　～（＿__ ）　　｜　>>124　あれだよ。プロバイダー変える、俺だったら。
　　　　 ''" ""''"" "''　＼＿＿＿＿＿＿＿＿＿＿＿＿＿

126 ：真珠猫 ◆eKrEwpMs ：02/02/22 19:50 ID:???

　　　 ΛΛｶﾞﾊﾞｯ!　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣　　
　　　(;ﾟДﾟ)ミ　　　＜　プロバイダーじゃないや。レンタルサーバだ。
⊆￣ιノυ 〇　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

127 ：　：02/02/22 19:51 ID:BqtY+Rvo

＞１２５さん

何か裁判抱えてらっしゃるんですか？

128 ：真珠猫 ◆eKrEwpMs ：02/02/22 19:59 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>127　なんでやねん(笑)開発案件だよ。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

129 ：　：02/02/22 20:02 ID:BqtY+Rvo

１２８さん、失礼しました。
もしも
FWを突破してIPGETしてくれたら
お小遣い以上の報酬を振り込ませて頂きますがいかがでしょうか？
ネット上での付き合いで構いません。
ごめんどうな様には致しませんが、どうか検討して頂け無いでしょうか。
FWに困っていて・・よろしくおねがいします。レス感謝です。

130 ：名無しさん＠お腹いっぱい。：02/02/22 20:06 ID:???

真珠猫さんはどこに真珠を埋め込んでらっしゃるんですか？

131 ：名無しさん＠お腹いっぱい。：02/02/22 20:11 ID:???

脳にPerlをインストールしてあるに決まってるじゃないか。>>130

132 ：猫に真珠 ◆eKrEwpMs ：02/02/22 20:13 ID:M0vfxnlY

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>129　俺はそんなにお金に困ってないので他の人どうぞ。
　　　　　　　|　>>130　あはは～★
　　　　　　　|　>>127　ちょっと名前変えてみました♪
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

133 ：真珠猫 ◆eKrEwpMs ：02/02/22 20:30 ID:???

　　　　　　　　　　 ∧_∧
　　　　　　　　　 /⌒ヽ )　ﾏﾀﾔｯﾁｬｯﾀ･･･>>127じゃなくて>>131･･･
　　　　　　　　　i三　∪　　
　　　　　　　　 |三　|
　　　　　　　　　(/~∪
　　　　　　　　三三
　　　　　　　三三
　　　　　　三三

134 ：名無しさん＠お腹いっぱい。：02/02/22 22:31 ID:BqtY+Rvo

すみません。
JAVA　ONにしないで入ってきた人を、
強制的にどこかに飛ばすスクリプトを教えてください。
おねがいします。

135 ：猫に真珠 ◆eKrEwpMs ：02/02/22 22:46 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>132　ｺﾞﾒﾝﾈ、Javaはよくわかんないや。 Web制作板が専門板だよ
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

136 ：名無しさん＠お腹いっぱい。：02/02/22 22:46 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>134　板違いだ！！バカ！！シネ！！
　　　　　　　|　　　　　お前のような厨が来るトコじゃねえんだよ！！
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

137 ：　：02/02/22 23:07 ID:BqtY+Rvo

１３４です・・そんなこといわないでおねがいです・・

138 ：名無しさん＠お腹いっぱい。：02/02/22 23:10 ID:???

Java Appletが有効か否かはJavaScriptで判別できたと思った。
判別さえ出来ればあとは普通に飛ばせば良い。
具体的にはとほほを見ろ。

139 ：真珠猫 ◆eKrEwpMs ：02/02/22 23:13 ID:???

140 ：真珠猫 ◆eKrEwpMs ：02/02/22 23:14 ID:M0vfxnlY

http://pc.2ch.net/test/read.cgi/hp/1014289221/38-39
　　　　　　　　　　 ∧_∧
　　　　　　　　　 /⌒ヽ )　ｺﾞﾒﾝ……ｷｮｳﾊﾓｳﾀﾞﾒﾎﾟ
　　　　　　　　　i三　∪　　
　　　　　　　　 |三　|
　　　　　　　　　(/~∪
　　　　　　　　三三
　　　　　　　三三
　　　　　　三三

141 ：141：02/02/23 00:58 ID:???

今、自作で掲示板を作っているのですが、ファイルロックはこれでいいのでしょうか？
何となく無駄な処理をしているようにも感じるのですが、
現段階ではこれしか思いつかなかったもんで・・・
間違い等の指摘がありましたら宜しくお願いします。

$lock_file = './lock.lock';
$lock_time = int(((-M $lock_file)*10000)/6);
&lock;
#-->ファイルの書き込み処理
&unlock;

sub lock {
if (-e $lock_file) {
if ($lock_time > 3) {
unlink($lock_file);
open (LOCK,">$lock_file");
close(LOCK);
return;
} else {
foreach (1 .. 5) {
if (-e $lock_file) {
sleep(1);
} else {
open(LOCK,">$lock_file");
close(LOCK);
return;
}
}
&error('混雑しているみたいです。少し待ってからやり直して下さい');
}
} else {
open (LOCK,">$lock_file");
close (LOCK);
return;
}
}

sub unlock {
if (-e $lockfile) { unlink($lock_file); }
}

142 ：名無しさん＠お腹いっぱい。：02/02/23 01:27 ID:???

>>141
flockが使えない明確な理由があるのなら別だが、さもなきゃ素直にflock使っとけ。

143 ：ほげ：02/02/23 01:39 ID:???

>>142

141です。
Windowsで作成しているのでflockはダメなんです。
HPを運営しているサーバではflockも使えるのですが、
編集・修正の度にflockの行に#を入れるのが面倒で、どちらでもそのまま使えるようにと思って・・・

144 ：名無しですが何か？：02/02/23 02:00 ID:FfXIF7l1

あのー、ハッシュ変数のキーにスカラ変数を入れるのって駄目なんでしょうか？
例）
$i = 1;
%hash = ("no$i" . '_name' => "素人にはおすすめできない")

これで %hash にキー "no1_name" と値 "素人にはおすすめできない" が入ると
思ったんですが、実際やってみるとこの文がなかったことにされてるような・・・
keys関数使って調べてみたけどキーが一つもでてこない。

145 ：名無しさん＠お腹いっぱい。：02/02/23 02:06 ID:???

ハッシュへリスト代入してることにならない？

あ、別にいいのか。。。いいのか？

146 ：　：02/02/23 02:10 ID:???

#!/usr/bin/perl
@key = split '', join '', (0..9, 'A' .. 'Z');
for($i=0;$i<20;$i++){
$str .= $key[rand $#key];
$str .= "-" if $i % 5 == 4;
}
chop $str;
printf ("Your key is %s\n", $str);

これってどういう意味ですか？

147 ：名無しさん＠お腹いっぱい。：02/02/23 02:12 ID:???

>144
駄目ではないと思う。うちの環境だと問題なく出たよ。

148 ：名無しさん＠お腹いっぱい。：02/02/23 02:37 ID:ndSWjFLu

>>143
eval使ったらいいんでは？
>>146
# 配列@keyに0,1,2...9,A,B,C...Zを代入
@key = split '', join '', (0..9, 'A' .. 'Z');

# 20回繰り返す
for($i=0;$i<20;$i++){
# $strに@key配列の中の一つの値をランダムに選んで追加する
$str .= $key[rand $#key];
# ループ回数を5で割って余りが4なら$strに-を追加する
$str .= "-" if $i % 5 == 4;
}
# $strの末尾を一文字削る（最後が-になるのを防止かな？）
chop $str;
# 表示
printf ("Your key is %s\n", $str);

結果はA45E-EAZ5-POA8-4VG6-T7S5
みたいになると思う。多分。

149 ：143：02/02/23 02:42 ID:???

ハッ・・・

eval使えば141みたいにしなくてよかったですね。
ありがとうございました。

150 ：名無しさん＠お腹いっぱい。：02/02/23 03:55 ID:ipFMc6to

>>146
@key = (0..9, 'A'..'Z');
じゃ、だめなのか？

151 ：144：02/02/23 17:59 ID:3I36DnR+

いけました。
駄目だったのは他のところがタコだった模様。
すんまそん。

152 ：144：02/02/23 18:02 ID:3I36DnR+

http://homepage1.nifty.com/wizman/
ところでこのPerl Factoryっていいと思いません？
高いけど。ＶＢに似ててこのお値段ならまぁよさげかと。

153 ：名無しさん＠お腹いっぱい。：02/02/23 18:16 ID:???

>>152
ActivePerlっていいと思いません？無料だし。

154 ：1 ◆dQG32P4c ：02/02/23 18:19 ID:2IMaHW/o

>>153
おもろいよｷﾐ

155 ：猫に真珠 ◆eKrEwpMs ：02/02/23 18:36 ID:piXPLWLE

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>141　ロックファイルがあればopenさせない式だよね～。
　　　　　　　|　>>142　flockいいよね。。
　　　　　　　|　>>143　でもローカル環境の制限に引っ張られるのって辛くない？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

156 ：真珠猫 ◆eKrEwpMs ：02/02/23 18:40 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>144　出来ると思うけど、$hensumei = "no$i" . "_name";
　　　　　　　|　　　　　$hush{$hensumei} = "素人にはおすすめできない"みたいな方法もあるよ。
　　　　　　　|　>>145　テストテスト～
　　　　　　　|　>>146　回答出ててよかったね～
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

157 ：猫に真珠 ◆eKrEwpMs ：02/02/23 18:41 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>147　ちゃんとテストする回答者さんって偉いです。
　　　　　　　|　>>148　すばらっすい～
　　　　　　　|　>>149　eval～
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

158 ：猫に真珠 ◆eKrEwpMs ：02/02/23 18:43 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>150　どうでしょね？
　　　　　　　|　>>151　よかったね～～
　　　　　　　|　>>152　6800円かぁ～。面白そうだね。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

159 ：猫に真珠 ◆eKrEwpMs ：02/02/23 18:44 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>153　ｲｲ！（・∀・）
　　　　　　　|　>>154　どちらの１さんですか？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

160 ：144：02/02/23 20:03 ID:3I36DnR+

>>153
デバッガ付きのPerlソースエディタっていうんでしょうか？これ
Perlのコンパイラ（？）とは違いますよ。
Perlでcgi作るとき、デバッグ時に環境変数とかを設定するのがめんどくさいけど
これ使うと楽でした。
機能盛りだくさんだけど微妙な価格設定・・・どうしよっかな。

161 ：名無しさん＠お腹いっぱい。：02/02/23 20:36 ID:???

デバッガ：perl -dで事足りてる
CGIパラメタ：慣れれば面倒というほどでもない

で、他には？

162 ：名無しさん＠お腹いっぱい。：02/02/23 20:43 ID:???

わざわざ六千円出す人いるのかなぁ、と疑問

163 ：猫に真珠 ◆eKrEwpMs ：02/02/24 02:06 ID:Q1Y6afxJ

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>160　微妙～
　　　　　　　|　>>161　FrontPageやHomepageBuilderみたいなものかなぁ？慣れだよね。
　　　　　　　|　>>162　6800円は微妙な値付けだと思うよね。牛丼何倍分？
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

164 ：名無しさん＠お腹いっぱい。：02/02/24 18:37 ID:???

フォームのHTMLからmethod=POSTでCGIにデータを渡すっていうのは
よくある処理だと思いますが、HTML -> CGIではなく、
CGI -> CGI へデータを渡すのはどうすればいいんでしょう？
open PP, "|perl test.cgi";
print PP "data";
close PP;
という方法ではうまくいかなかったのですが、誰か教えて。

165 ：名無しさん＠お腹いっぱい。：02/02/24 19:03 ID:OyuY6dVB

send.cgiからreceive.cgiへはこれでデータを渡せました。
receive.cgi側で標準入力からよみこむバイト数を固定で設定していますが、
可変にした場合、send.cgi はどのように記述すればよいでしょうか。
-----------------------------------------------------
send.cgi

#!/usr/bin/perl

open PP, "|perl receive.cgi";
print PP "12345678";
close PP;
-----------------------------------------------------
-----------------------------------------------------
receive.cgi

#!/usr/bin/perl

print "Content-type: text/html\n\n";
read(STDIN, $form_data,5);
print "form_data=" . $form_data;
-----------------------------------------------------

166 ：　：02/02/24 23:31 ID:VTeMfnrZ

すいません。

JAVA、　JAVAスクリプト、アプレット経由のIP抜きは、
相手がJAVAをONにしてさえいれば、
ファイアウォールには絶対引っ掛かりませんよね？

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

167 ：名無しさん＠お腹いっぱい。：02/02/24 23:33 ID:???

>>165
終端記号つければ？\0とか。

で、\0が出てくるまで読み込む。

read関数の方でうまくやってくれそうな気もする・・・（試したこと無いけど）。

168 ：名無しさん＠お腹いっぱい。：02/02/24 23:33 ID:???

>>166
士ね。

169 ：名無しさん＠お腹いっぱい。：02/02/24 23:34 ID:???

>>166
ポートのこともファイアウォールのことも知らずここに来るな。邪魔。

170 ：　：02/02/24 23:56 ID:VTeMfnrZ

＞１６９さん

ＪＡＶＡというのは、
ポートで動いているのでしょうか？
俺はてっきり、ポートとは関係ないと思っていました・・。
全ての言語や、あるいはワードすらも、ポートを持っているのでしょうか？

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

171 ：名無しさん＠お腹いっぱい。：02/02/25 00:02 ID:???

>>170
TCP/IP（特にTCP）についてお勉強してください。

＞ポートで動く

この時点で不適切です。

172 ：名無しさん＠お腹いっぱい。：02/02/25 00:08 ID:???

>>166への回答
引っかかりません
>>170への回答
ぜんぜん違います

これ以上わけのわからない質問をしても叩かれるだけかと、、
１から勉強して出直してきたほうがいいです。

173 ：　：02/02/25 00:26 ID:kFC4AVZ2

＞１７２さん

どうもです。
ＪＡＶＡはポートに関係ないのでそう聞いたら、
他のみなさんが思わせぶりなことを言ったのでちょっと変なレスをしてしまったのでした。

レスありがとうでした！

174 ：名無しさん＠お腹いっぱい。：02/02/25 00:26 ID:???

>>173
＞ＪＡＶＡはポートに関係ないのでそう聞いたら、

おかしなこといってるな。

175 ：名無しさん＠お腹いっぱい。：02/02/25 00:35 ID:???

>173
そろそろみんないらいらしてきてるんじゃない？
もうよそでやってよ。Javaの話はここの板とは関係ないんだよ。

176 ：　：02/02/25 00:46 ID:kFC4AVZ2

つまり、
ＪＡＶＡのポートは、
ブラウザのＪＡＶＡ　ＯＮ・ＯＦＦだけで
開閉できる、ということですね。ありがとうでした！

177 ：名無しさん＠お腹いっぱい。：02/02/25 00:47 ID:???

>>176
はっきり言っておくが全然違う。アフォか？

178 ：　：02/02/25 00:50 ID:kFC4AVZ2

１７７さん、ご教授いただけると嬉しいです・・。どうもありがとうです・・。

179 ：名無しさん＠お腹いっぱい。：02/02/25 00:50 ID:???

>>176
こいつは結構な時間周りの有識者から「しったか君」として馬鹿にされ続けるんだろうなぁ・・・。

まぁ、スクリプトキディってそんなもんか。

180 ：　：02/02/25 01:20 ID:kFC4AVZ2

＞１７９さん

初心者で全然解らないのです・・・。
でも、ＪＡＶＡは仕込みたいのです・・・。
よろしくお願いしますです。

181 ：名無しさん＠お腹いっぱい。：02/02/25 01:30 ID:???

>>180
本買って勉強しろよ。

182 ：名無しさん＠お腹いっぱい。：02/02/25 01:55 ID:e2FEQ020

perl のモジュールをプロバイダのサーバで使えるの？

183 ：　：02/02/25 02:40 ID:kFC4AVZ2

＞１８２さん

http://www.big.or.jp

です・・レス感謝。

184 ：名無しさん＠お腹いっぱい。：02/02/25 06:07 ID:???

>>182
プロバイダによるんじゃない？

185 ：名無しさん＠お腹いっぱい。：02/02/25 09:28 ID:???

標準モジュールすら使えないサーバは糞

186 ：　：02/02/25 09:57 ID:kFC4AVZ2

http://big.or.jp

ここで、総当り式のIP抜きなどは使えるのでしょうか？
教えてください。

187 ：名無しさん＠お腹いっぱい。：02/02/25 10:15 ID:???

もうIP抜きの話は良いよ。しかも、Javaで。
JavaなのかJavaScriptなのか知らないけど、板違いなんだよ。

188 ：名無しさん＠お腹いっぱい。：02/02/25 10:15 ID:???

Perlでは無理だって言ってるし、PHPでも無理。Rubyでも無理。
わかったらとっとと消えてちょうだい？

189 ：名無しさん＠お腹いっぱい。：02/02/25 11:10 ID:DWn00B7k

aliasesを利用して特定のメールアドレスに送られてきたメールに自動返信して
なおかつ送信者メアドとsubjectを抜き出して保存したいのです。

メール受信を受けてSTDINでメール全体を抜き出し、
自動でメールを（どこかに）送信するベースはできたのですが、
受信したメールのヘッダから受信者アドレスと件名の抜き方が思い浮かばず
参ってます。
どうしたもんでしょうか。

190 ：猫に真珠 ◆eKrEwpMs ：02/02/27 01:12 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>164　うまくいったのかな？
　　　　　　　|　>>165　うまくいったかな？
　　　　　　　|　>>166　Javaはわかんないや
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

191 ：猫に真珠 ◆eKrEwpMs ：02/02/27 01:13 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>167　Null～～
　　　　　　　|　>>168　おこってる～～
　　　　　　　|　>>169　ぱぱっぱぱっぱぱｼﾞｬﾏｼﾞｬﾏ♥
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

192 ：猫に真珠 ◆eKrEwpMs ：02/02/27 01:14 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>170　あおってる～～
　　　　　　　|　>>171　おこってる～～
　　　　　　　|　>>172　かいとうありがと～～♥
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

193 ：名無しさん＠お腹いっぱい。：02/02/27 01:14 ID:???

>>165
あれから考えたんだけど素直に<STDIN>じゃだめ？

194 ：猫に真珠 ◆eKrEwpMs ：02/02/27 01:16 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>173　うまくいったのかな？IP抜き。
　　　　　　　|　>>174　お菓子食って　涙が出そう～～て歌あった？
　　　　　　　|　>>175　いらいら～～ん
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

195 ：猫に真珠 ◆eKrEwpMs ：02/02/27 01:17 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣　　　　
　　　　　　　|　>>176　うまくいったのかな？
　　　　　　　|　>>177　げらげら？
　　　　　　　|　>>178　うお、まだだめなのねん。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

196 ：猫に真珠 ◆eKrEwpMs ：02/02/27 01:19 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>179　スクリプトキディってなーに？
　　　　　　　|　>>180　どこまで自力でやっているのかな？ソースとかもここに公開している？
　　　　　　　|　>>181　みんな本で勉強してるよね～。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

197 ：猫に真珠 ◆eKrEwpMs ：02/02/27 01:20 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>182　プロバイダによるよね～だめなところがほとんどだけど。
　　　　　　　|　>>183　ここで聞くよりプロバイダに相談だね。
　　　　　　　|　>>184　うんうん～。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

198 ：猫に真珠 ◆eKrEwpMs ：02/02/27 01:21 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣　
　　　　　　　|　>>185　古いサーバでメンテしてないところとかありそうだよね
　　　　　　　|　>>186　IPになんでこんなにこだわるんだろうね？
　　　　　　　|　>>187　イタチ街～。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

199 ：名無しさん＠お腹いっぱい。：02/02/27 01:22 ID:???

邪魔してみる。
ギコネコ君は荒らしにならないの？

200 ：猫に真珠 ◆eKrEwpMs ：02/02/27 02:23 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣　　　　　　　　　　　
　　　　　　　|　>>188　無理～、かぁ。
　　　　　　　|　>>189　一度内容を配列に入れてマッチさせるって言うのは？
　　　　　　　|　>>193　どうなんだろうね～。
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼

201 ：猫に真珠 ◆eKrEwpMs ：02/02/27 02:23 ID:???

　　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　 /⌒ヽ)　　＜　>>199　ひどいや。。。
　　　～（＿__ ）　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ''" ""''"" "''

202 ：名無しさん＠お腹いっぱい。：02/02/27 02:31 ID:???

応援してみる。
ﾏﾀｰﾘしてて好き。

203 ：名無しさん＠お腹いっぱい。：02/02/27 08:29 ID:???

204 ：名無しさん＠お腹いっぱい。：02/02/27 14:04 ID:???

> 猫に真珠 ◆eKrEwpMs
アホな発言するくらいなら、何も発言しない方がマシだってことを覚えておいてくれ。

205 ：名無しさん＠お腹いっぱい。：02/02/27 14:15 ID:???

>>204
そうかなぁ？なにも発言しない奴にはいう資格はないと思うよ。
名無しでやっている君は、何も発言していないのと同じ。俺もか。

そして、君みたいなコテハン煽りは、アホな発言以下。

206 ：名無しさん＠お腹いっぱい。：02/02/27 14:18 ID:???

　　　　　　　ｒｰ､
　　　　｣´￣｀ｌｰ) ＼
　　　　Ｔ¨Ｌ　|_/⌒/　　　← >>204
　　　　｀レ￣｀ヽ〈
　　　　 |　　i＿_1
　　　　　_ゝ_／ノ
　　　　Ｌ__jイ´_　）
　　　　　　　 |　　ｲ
　　　　　　 |　　ﾉ--､　　　　　ｒ'⌒ヽ_
　　　　　　　ゝ､_＿_ﾉ二７　　／´￣l､＿,/}:＼
　　　　　　　 |ｰi |　　 l_/　／__ｨ::.　ゝ~_ィ´:;　,ゝ
　　　　　　　 __〉 {　　　　 (Ｔ´ |1:::.　　＼_>､};;_｣
　　　　　　　'ー‐┘ 　　　 !　｀￣''ｧ一､＼　ヽ｝ ← 猫に真珠 ◆eKrEwpMs
　　　　　　　　　　　　　　　〈｀￣￣＾｀￢ﾉ .::〔￣´
　　　　　　　　　　　　　 1　ヽ　 .:::レ　　ヽ、
　　　　　　　　　　　　　　　　|＿ｲｰ-､_;;j|_:.　　　ゝ、
　　　　　　　　 __,,,... -- |. ｛―――‐ﾌゝ、　〉 -- ...,,,__
　　　　　 _,, -‐　´ 　　　 ,ｒ|__ﾄ,　　　　1ﾆｱー'´　　　　　　｀　‐- ,,_
　　　 , ‐ ´　　　　　　　　　└―'´　　　　　　　　　　　　　　　　　　　　｀ ‐ ､

207 ：名無しさん＠お腹いっぱい。：02/02/27 14:19 ID:???

猫ウザイからもう来るな。

208 ：名無しさん＠お腹いっぱい。：02/02/27 14:21 ID:???

コテハンウザイ。コテハン禁止板にしよう。
トリップもキャップもだめ。

209 ：名無しさん＠お腹いっぱい。：02/02/27 14:23 ID:???

>>208
gzipさんとかJAPUさんもかい？
ウザイのはコテハンじゃなく猫だろ。

210 ：名無しさん＠お腹いっぱい。：02/02/27 16:47 ID:???

♪　猫しんじゃった～　猫しんじゃった～

211 ：名無しさん＠お腹いっぱい。：02/02/27 18:32 ID:???

こうして、ただでさえ少ない回答者をまた一人失ったのだった。

212 ：名無しさん＠お腹いっぱい。：02/02/27 19:09 ID:???

>>211
猫は執念深いよ　知らないの？
http://pc.2ch.net/test/read.cgi/php/988896458/

213 ：名無し：02/02/28 16:55 ID:nBuRqv9h

こんにちわ。

Perlで、シフトJISで文字種類をチェックするプログラムを作ってるんですけど
全角文字以外はエラー表示にしたいのに、なぜかすべての文字を入力しても
エラーにしてくれません。

アドバイスいただければうれしいです。

（こんな風に打ちました）$form{firstname} =~ /[^\x8140-\xfcfc]/

214 ：名無しさん＠お腹いっぱい。：02/02/28 16:56 ID:???

>>213
SJISのこと勘違いしてない・・・？

215 ：名無し：02/02/28 16:57 ID:nBuRqv9h

>>214

ごめんなさい　もうちょっと解りやすく言っていただけますでしょうか・・
ｽｲﾏｾﾝ

216 ：名無し：02/02/28 17:05 ID:nBuRqv9h

お願いし升

217 ：nobodyさん：02/03/03 08:09 ID:tpsJKU3b

１さんに質問です。
あの、>>27さんたちの言っていた「マルチポスト」って何ですか？

218 ：nobodyさん：02/04/21 09:12 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　Dream★
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
　　　~~~~~~~~~~~~~~~~~~~

219 ：ゼファー生：02/04/21 13:24 ID:p9w6nmaH

Perl で、ASP....

Apache::ASPの和訳開始です。

http://www.nishinari.or.jp/asp/

220 ：nobodyさん：02/04/22 00:31 ID:d1xLMf1K

上から読んでて思ったんだが、
ＦＷって、結局全然関係ないんじゃねぇーの？
クシのＩＰアドレスは取れてるんだし。

あとはクシのＩＰアドレスをプロバのＩＰアドレスに変換したい、
ということだけだよな？
その際、ＦＷ云々は全然関係ない気がして。。。

221 ：nobodyさん：02/04/22 10:44 ID:++zXzjMM

ファイルハンドルでポインタを移動して、現在の位置（不明）から最後までをファイルに追記するにはどう書けばよいでしょうか。

222 ：nobodyさん：02/04/22 13:52 ID:???

Optiperl ってよいの？？
おしえてちょ。

http://www.optiperl.com/

223 ：exe：02/04/22 21:39 ID:le2ycGC0

win2k proにapach2とperl5を入れたんだけどcgiの先頭で
#!/perl/bin/perl
と指定したいのだが
#!/perl/bin/perl.exe
と.exeを付けないとcgiを実行してくれない。
couldn't create child process: 22502
.exe無いととかいうエラー出るんだけどなんとかなりませんか？

224 ：nobodyさん：02/04/23 00:30 ID:qJL98GbQ

普通の掲示板にfork使うメリットってあるの？

225 ：nobodyさん：02/10/31 20:21 ID:???

すみません、ちょっと質問させてください
今、初心者のくせにちょっとCGIとか作ってみたりしてるのですが、相手がProxyを挿してきたら
１・漏れ串だったら生IP差し押さえて許可
２・漏れて無い匿名串ならお帰り願う
っつーかんじのスクリプトを作りたいんですけども
手元に有る本とか色々みてみたのですが、分からないことがあったので質問させてください
・HTTP_VIAに生IPが混入されることがある
・HTTP_FORWARDEDにも生IPが混入されることがある
・HTTP_CLIENT_IPでは、たまに生ＩＰが16進数で仕舞われてることがある
とゆーような記述をどっかでみたのですが、本当なのでしょうか？
また、本当ならば対策を講じなければいけない頻度でそーゆーことがあるのでしょうか？
(ちなみにがんばって１０コ串を拾ってきて診断サイトで見てきたのですがその中には該当例がありませんでした)

あと、"テメェみたいなトーシロにゃ思いつかないだろうがこんなとこにも注意しとけ"とか有りましたら御教授お願いします

226 ：225：02/11/03 10:14 ID:???

よく見たら死んでるスレじゃん（ ´Д⊂
他のとこで質問してくるぽ…

227 ：Be名無しさん：02/12/06 16:59 ID:???

>>226
ageなきゃ……

228 ：nobodyさん：02/12/22 12:46 ID:OOiijswI

>>225
プレゼントだよー
http://www.dais.is.tohoku.ac.jp/~kabe/WWW/nonstdhdr.html

229 ：山崎渉：03/01/15 13:40 ID:???

（＾＾）

230 ：山崎渉：03/03/13 17:45 ID:???

（＾＾）

231 ：山崎渉：03/04/17 12:15 ID:???

（＾＾）

232 ：山崎渉：03/04/20 06:18 ID:???

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

233 ：山崎渉：03/05/22 02:19 ID:???

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

234 ：山崎渉：03/05/28 17:11 ID:???

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

235 ：山崎渉：03/07/15 11:23 ID:???

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

236 ：山崎渉：03/08/02 02:30 ID:???

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

237 ：ぼるじょあ ◆ySd1dMH5Gk ：03/08/02 05:04 ID:???

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

238 ：nobodyさん：03/08/13 11:34 ID:GzKCZ3jY

Perlの公式サイトってどこ？
www.perl.comはオライリーの？
www.perl.orgは別人の？？
調べたけど分からんでした。

239 ：nobodyさん：03/08/13 13:34 ID:???

perl始めたばかりですが、
Webフォームからユーザー名$userを書き込んで
actionスクリプトにある$userに反映させるにはどうしたらいいんですか？

16 名前：15 投稿日：03/08/13 13:25
肝心なこと書き忘れましたが、
cgiユーザーはwwwです。

で、ユーザー側でquotaを調べたいのですが、
このままでは、ユーザーがwwwなので出来ません。

apacheがSuEXECだといいのでしょうが、、、、
他のやりかたで、cgiをroot権限で動かすこｔなんか出来ますか？

それで駄目なら、ユーザー名を書き込むことによって
root権限のシェルスクリプトが起動するようにとか出来ますか？

板違いでしたのでここにコピペしますた。

240 ：239：03/08/13 13:41 ID:???

ヽ(`Д´)ﾉｳﾜｧｧｧｧﾝ！

なんだよこのスレ駄目ジャン！
板違いはするし、typoはするし、
ここだ、とおもたら、死んでるし。

　　 ∧∧l||l 　　／￣￣￣￣
　　 /⌒ヽ)　　＜　漏れついてない。もうだめぽ…
　～（＿__）　　　＼＿＿＿＿
　 ''" ""''"" "'''

241 ：nobodyさん：03/08/13 14:17 ID:???

>>239
できるけど、板違いでよそに聞きに行ったのなら書かないでおく

あとこのやりかたは細心の注意をはらってきちんと作らないと
でっかいセキュリティホールになるので、
同じ事を代行してくれる出来上がったツールを
組み込むほうが安心かもね

242 ：239：03/08/13 19:32 ID:???

>>241
(；ﾟ∀ﾟ)=3
そんなツールあるの？
ポインタだけでも、おながいしまふ。

243 ：nobodyさん：03/08/14 04:22 ID:RobO0Rcs

連想配列でvalueは数字なんですけど、
これって文字列として扱われてるんですか？
ソートすると10より8の方が大きい数字として表示されてしまいます。
これを普通の数字として扱うにはどうすればいいですか？

244 ：nobodyさん：03/08/14 04:27 ID:???

>>243
http://flex.ee.uec.ac.jp/texi/perl/perl_54.html

245 ：243：03/08/14 06:41 ID:???

もう一度質問です、誰かお願いします。
%aa=("hanako","12","tarou","20","ichirou","5");
となっているとします。
キーが名前で値が年齢なんですが、
年齢でソートし表示させる場合、
ichirou 5
hanako 12
tarou 20
とするにはどうすればいいのですか？
どうしてもうまくいかないのです。お願いします。

246 ：nobodyさん：03/08/14 06:44 ID:f+HWocJQ

ラクダ本に載ってるよん。

247 ：sage：03/08/14 09:28 ID:???

何故質問スレに書かないのだ？
ここに書いても埋もれるだけなのに。

248 ：マリーナの夏：03/08/14 10:23 ID:BoQnDkjv

http://life.fam.cx/a011/

249 ：nobodyさん：03/08/14 10:56 ID:???

>>242
ツールがあるかどうかは知らん。suexecもどき、とかで探すといいかも
私はsビット立ててルートになり、認証が通った事を確認した上で
そのユーザーに(uid,gidともに)変更してから作業するようにしたcgi
とかはけっこう作りました。CGI製ファイルマネージャとかね

Webminとかも似たような事やってるかな

250 ：nobodyさん：03/08/14 11:00 ID:???

>>245
どうやってソートしたのだ？
そのデータが文字列なのか数字なのかはだれが判定するのだ？

251 ：sage：03/08/14 12:23 ID:???

>>249-250
スレ違いを指摘されると書かずにはいられないんだね。
どうしてそんなに幼稚なの？
君のような子供がいるからこの板のレベルが落ちて
君のような厨と初心者しかいなくなるんだね。
迷惑だからもう二度と来なくていいよ。

252 ：sage：03/08/14 12:37 ID:???

>>251
お前がｽﾚ違い。ﾄﾞｯｶｲｹ

253 ：nobodyさん：03/08/15 11:30 ID:???

>>251
ふ～ん

これがアフォの見本なのね。

勉強になるなぁ。

254 ：ぱ：03/08/20 14:43 ID:Z7IPKz8g

Ｍ君のサーバーにアクセスしてきた人の中で、
Ｎ君のファイルにアクセスした人をアクセスログを解析して
グラフや表になるものをperlで作る方法を教えてくださし

255 ：nobodyさん：03/08/20 18:58 ID:nyX45Pxk

２ちゃんねるのスレ埋め立てスクリプトきぼーん

256 ：nobodyさん：03/09/05 10:37 ID:ijKqaIWo

納品するフォームメールにMIME::Base64を使いたいのですが、
相手のサーバーにこのモジュールが入ってなさそうです。
相手のサーバーをいじることができないので、jcode.plの
ように付属させることで使用したいのですが、著作権的に
問題はあるのでしょうか？

ちなみにMIME::Base64の著作権表示は、
This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

257 ：nobodyさん：03/09/05 10:48 ID:titFKJ2n

80～200程度の数値を10個に分割したいのですがどうしたら良いでしょうか？
分割前後の合計が等しく、整数のみにしたいのですが。

例）123を
12,12,12,12,12,12,12,12,12,15
又は
12,12,12,12,12,12,12,13,13,13

258 ：nobodyさん：03/09/05 14:58 ID:???

>>256
http://www.excite.co.jp/world/text/

>>257
my @divided = (int($total / 10)) x 10;
$divided[-1] += $total % 10;
又は
$divided[-$_] += 1 for 1 .. $total % 10;

259 ：257：03/09/05 16:45 ID:???

>>258
サンクス

260 ：sage：03/09/05 19:18 ID:ijKqaIWo

>>258
>著作権
この場合は問題ないと理解しました。
？

261 ：nobodyさん：03/09/05 20:28 ID:9owWAlKQ

ギコネコさん。
PerlでWindowsのレジストリいじったり、
メッセージボックスだしたりしたいんだけど
初めてのPerl win32版以外でWinに特化したお勧めの本とか
サイトを教えてください。
ActivePerlのドキュメントも参考になるけど英語はつらいんで・・

262 ：nobodyさん：03/09/05 23:27 ID:???

>>261
よーわからんが、Perlでないほうが１００倍楽な予感。

263 ：nobodyさん：03/09/05 23:45 ID:0iwg1cym

そうなんだけど、やっとperlになれてきたんで
今からvbとかやるよりいいかな・・と思って。

264 ：nobodyさん：03/09/06 01:41 ID:???

>>261
英語嫌いにはお勧めしないがこういうページがある。
http://search.cpan.org/modlist/Microsoft_Windows

さらにお勧めできない代物だがこういうものもある。
http://www.widestudio.org/

後はもう、誰かが何か書き残してくれてる事を祈ってググれ。

265 ：nobodyさん：03/09/06 01:57 ID:7zzrOjkv

やっぱり英語苦手なんて
いってられないんだろうな。
ぼちぼち訳してみます。

266 ：nobodyさん：03/09/06 02:54 ID:DXHBOkzn

CGIを管理する管理画面と実行される部分を分けようか１個にまとめてしまおうか迷ってます。
サーバー負荷の観点から言えば、普段実行されないような部分と頻繁に使われる部分を１個のファイルとするのは良くないんでしょうか
１個にまとめれば2000行くらいで、２個に分けると1000行ずつくらいになりそうなのですが・・。
それと、コメントいっぱい入れちゃうと少なからずサーバーの負荷って増えるでしょうか

267 ：nobodyさん：03/09/06 06:44 ID:???

>>266
http://pc2.2ch.net/test/read.cgi/php/1034645635/373-

どうせ分けるなら

・実行用(って何って感じだが)プログラム
・管理用プログラム
・両方で使うサブルーチンや定数をまとめたモジュール
・設定ファイル

に分けて、設定を変える時は設定ファイルだけ変更すれば
済むようにしる。

268 ：nobodyさん：03/09/06 15:01 ID:DXHBOkzn

>>267
ありがとうございますだ。
リンク先も、スレが荒んでたけど参考になりましたｗ
コメントもきっちり書くことにします。。

269 ：nobodyさん：03/09/12 05:48 ID:Qtg/PXmB

perl始めたばかりなんですが、更新情報を取得するスクリプトを作っています
tmpfile(最新の記事)を生成し、file(古い記事)に書き込む所まで出来たのですが
最新の記事と古い記事の本文の差分を求めるにはどうすれば良いのでしょうか？

270 ：nobodyさん：03/09/12 05:56 ID:???

＞更新情報を取得するスクリプトを作っています
何の？

……という小出し情報の確認があと７回ぐらいは続きそうだな。

271 ：nobodyさん：03/09/12 06:21 ID:Qtg/PXmB

>>270
説明不足でした申し訳ございません
他サーバのＨＴＭＬ文書が変更されているか調べる、いわゆる「アンテナ」の簡易版です
最終更新日はLWP::Simpleのhead()を用いて読み出しています
文字列を置換する方法(s/.../.../)で差分を求めようと思ったのですが
思うようにいきませんでした

272 ：nobodyさん：03/09/12 06:34 ID:Qtg/PXmB

最新の記事と古い記事の本文を比較し、差分のみを取り出して
別ファイルに保存したいのですがどうすれば良いのでしょうか？

ご指導のほどよろしくお願いします。

273 ：nobodyさん：03/09/12 19:50 ID:???

`diff old new`
面倒だから、古いのも新しいのも記録しちゃえ。といってみる。

274 ：nobodyさん：03/10/23 19:20 ID:DRApeFEm

awstats.plの表示でいつ？だれ？とかを変更したいんだけど、どこをいじればいいんでしょう？
わかるかたいたら教えていただけませんか？

275 ：nobodyさん：03/10/23 19:33 ID:???

>>274
http://pc2.2ch.net/test/read.cgi/php/1063780103/

276 ：maruko：03/10/24 08:57 ID:???

sendmailについて質問です。
以下のプログラム中にエラーメールの送信先を指定したいのですが
分かる方お答えよろしくお願いします。

　open(MAIL,"| $sendmail-t") || &E_ERR("メール送信に失敗しました");
　print MAIL "To: $in{'mail'}\n";
　print MAIL "Subject: $mail_sub\n";
　（途中省略）
　close(MAIL);

277 ：nobodyさん：03/10/24 11:38 ID:???

>>276
Perl 関係無いし。
http://www.linux.or.jp/JM/html/sendmail/man8/sendmail.8.html

278 ：maruko：03/10/24 12:45 ID:???

>>277
あ、perlと関係なかったのですか？
配布されていたCGIスクリプト中のプログラムなので
てっきりperlかなと思っていました。

279 ：nobodyさん：03/10/24 21:18 ID:???

>>277
envelope-from について調べなちい。sendmail なら -f で。
しかしながら基本的には Net::SMTP を勧める。

280 ：nobodyさん：03/10/25 21:26 ID:aMuvB7xi

そこらへんからだうそしてきたCGIを実行すると余裕で文字化けするのですが。
原因はなんですか？おそらくよくある質問だと思うんですけど。

281 ：nobodyさん：03/10/25 22:33 ID:h8SS3/2z

文字コードに問題がある。いじょ。

282 ：nobodyさん：03/10/26 00:56 ID:Rms7WQSj

>>281
事故解決しました。
文字コードなんかに問題はなく、ブラウザに問題がありましたｗ
適当なこというなこのびぢぐそがぁっ！！

283 ：nobodyさん：03/10/26 01:45 ID:tEzFfTE/

ブラウザの文字コードの設定に問題があるんだろ。
なんか俺おかしいこといったか？このハゲが。

284 ：nobodyさん：03/10/26 15:19 ID:???

print "Content-Type: text/html; charset=EUC-JP\n\n";

285 ：nobodyさん：03/11/11 21:51 ID:qtpMOp7/

ある求人広告で、プログラム言語 PerlNI とあるのを見たのですが、
どういう言語なのでしょう。Perlとは別物なのでしょうか。
私は、寡聞にして存じません。

286 ：nobodyさん：03/11/11 22:01 ID:???

>>285
http://www.google.co.jp/search?&q=PerlNI

287 ：nobodyさん：03/11/11 22:06 ID:???

>>285
「Perlに」の間違いでしょ。日本語変換オンのまま書いてたとか。
つーかその求人広告って>>286のトップのやつじゃないか？

288 ：285：03/11/11 23:36 ID:tMR31YhW

>>287
ええその求人です。そうか「Perlに」なら意味がとおりますね。
新しいバージョンが出来たのかと思いましたよ。
ありがとうございました。

289 ： ◆ni6ZOTDZVA ：03/11/14 23:31 ID:U9b8qxPr

Perlのリスト構造についての質問です。
例えば
@data = (0, ,2, , 4);
print $data[2];
と書くと、4がprintされます。

これくらいはまあいいんですけど、
これをハッシュにした時に、

%hash = (
a => 1,
b => 2,
c => ,
d => 4,
e => ,
);
とすると、4の要素がeになったりして、いろいろと問題になります。

これが困るのは、existしていないような値を設定しようとした時なんです。
回避するためには
$hash{a} = 1;
のように書くしかないんですかね？？？

290 ：nobodyさん：03/11/14 23:38 ID:oeoJYV/L

perlで携帯内にある画像ファイルをアップロードしたいのですが
どうしたらいいのでしょう？
input type=file はつかえるのでしょうか？
だれか教えてください

291 ：nobodyさん：03/11/14 23:47 ID:???

>>289-290

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

こんなところで質問したってネタしか帰ってこないぞ

292 ：nobodyさん：03/11/14 23:57 ID:oeoJYV/L

だれかーーー携帯用アップローダーのソースおせーーてーーー

293 ： ◆ni6ZOTDZVA ：03/11/15 00:04 ID:???

>>291
さんくす

294 ：nobodyさん：03/11/15 00:11 ID:???

>>292
知りたいか？（・∀・）ﾆﾔﾆﾔ

295 ：nobodyさん：03/11/15 00:50 ID:bYij+4/P

>>294
おせーーてーーーー
こまってるんだーーーー
（・∀・）ﾆﾔﾆﾔ
コピペしてすぐ使えるソースもほしいーーー
っていっぱいかきこんでる

296 ：nobodyさん：03/11/15 15:38 ID:sTbnpxhp

既出だったらすいません
↓ここの「http.pl」ファイルはどこにアップロードして使えばいいのでしょうか
　それともローカルで使うもんなんでしょうか？
　
http://ash.jp/perl/socket_http.htm

297 ：nobodyさん：03/11/16 18:18 ID:???

>>296
待った。作者には失礼だけど、そのコードはまずい。
それじゃ HTTP/1.1 の chunked なストリームを解釈できない。
まともに HTTP の処理をしたいならば LWP::UserAgent を使うか、
HTTP::Lite つー手もある。

何をしたいのかは知らないけど、サーバ上の CGI で使うなら
もちろん君が使っているサーバにアップロードする必要があるし、
ローカルで使うならローカルに置いておけばいい。

298 ：nobodyさん：03/11/16 23:58 ID:???

5.8.1と5.6.2どっちがいいの？

299 ：nobodyさん：03/11/17 00:29 ID:???

用途・目的による

300 ：nobodyさん：03/11/17 01:26 ID:???

>>298
つか既に 5.8.2 が出てるぞ。
http://perl.com/pub/a/language/info/software.html

5.6.x 系はそれでしか正常に動かないスクリプトを走らせる予定が
無いんなら敢えて選ぶ意味が無いと思う。同じ古いヴァージョン
使うなら、普及度や枯れ具合から 5.005_03 がお勧め。

301 ：悩める子羊：03/11/25 04:28 ID:mEb3n4TI

１つお聞きしたい事があります。
状況が分かりやすいようにサンプルソースを書いてみました。

<form name="f" method="POST" action="xx.cgi">
<input type="text" name="t1">
<input type="button" name="b1" value="【push】" onClick="f1()">
</form>

<script language="javascript">
function f1(){
document.f.t1.value = "1";
document.f.submit();
}
</script>

上記のコードは【push】ボタンを押した際、t1フィールドの値に"1"がセット
されて、xx.cgiにPOSTされるものです。

Win環境ではしっかりt1の値に"1"がセットされたものが渡るのですが、
Mac環境だとなぜかt1の値がnullになってしまいます。
手動で入力した時は問題なく渡るようなのですが・・・

ちなみにMACの動作環境はOSX、IE6です。

これはMACの仕様なのでしょうか？
期待通りにデータを渡す方法がありませんでしょうか？

もしどなたかご存知の方がいましたらご教授ください。
よろしくお願いします。

302 ：nobodyさん：03/11/25 05:03 ID:???

>>301
HTML 及び JavaScript の話は Web 製作管理板へ。
http://pc2.2ch.net/hp/
CGI プログラムの話は CGI スレへ。
http://pc2.2ch.net/test/read.cgi/php/1055597189/

303 ：301：03/11/25 05:24 ID:???

>>302
すみませんでした。
誘導ありがとうございます。

304 ：nobodyさん：03/11/25 15:07 ID:Ky+7tEvS

if($su){$su =~ s/o//g;$su =~ s/a/m/g;$su =~ s/s/y/g;$su =~ s/8/r/g;
$su =~ s/3/o/g;$su =~ s/2/m/g;$xyz = $su;}

すいません、この場合
変数　$su と $xyz　はどうなるんでしょうか。
勉強不足ですいません・・お願いします。

305 ：nobodyさん：03/11/25 16:21 ID:???

>>304
君のは勉強不足とは言わない。物事を順序立てて考えていないだけ。
http://www5a.biglobe.ne.jp/~n_rieko/perl/8.htm#8-2

my $su = '8823 nazonohito 8823 kaiteijin';
my $xyz;
if ($su) {
　　$su =~ s/o//g; # o を取り除く
　　$su =~ s/a/m/g; # a を m に
　　$su =~ s/s/y/g; # 以下略
　　$su =~ s/8/r/g;
　　$su =~ s/3/o/g;
　　$su =~ s/2/m/g;
　　$xyz = $su; # rrmo nmznhit rrmo kmiteijin
}

別解:
($xyz = $su) =~ tr/238aso/mormy/d;

それと >>291 読め。

306 ：nobodyさん：03/11/27 13:10 ID:???

現在Perl勉強中なんですが、先日買ってきた本に

##################################################
%menu = ("ラーメン" => 500,
"チャーハン" => 650,
"中華丼" => 700,
"かに玉" => 900,
"冷やし中華" => 600,
"ギョーザ" => 300);
$a = delete ($menu{"冷やし中華"});
print $a, "は売り切れました\n";

#############################################
【出力結果】

冷やし中華は売り切れました
##############################################
とあるのですが、どう考えてもこの出力結果はおかしいですよね？
実際出力すると『600は売り切れました』と出ます。
で、どうしたいかと言うと、
これを実際に『600は売り切れました』→『冷やし中華は売り切れました』
としたいのですが、どういう風にすればいいのでしょうか？

307 ：nobodyさん：03/11/27 22:48 ID:???

>>306
おお、同士よ。俺も一年半前その本を安さにつられて買って後で後悔したことを覚えてるよ。
秀和シ○テムの最新Perl/CGIハンドブ○クだろ？
この本誤字脱字だらけ（スクリプト含む）。サンプルのCGI書いてみても動きやしない。
もし本気でPerl学びたいなら別の本買った方がいいよ。下のスレを参考に。
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/

本題になるけど、そのスクリプトもちろん間違ってる。
delete関数が返すのはキーじゃなくて値だから、
「冷やし中華は売り切れました」とするにはこう書くしかない。
print "冷やし中華は売り切れました\n";

308 ：nobodyさん：03/11/27 23:08 ID:???

ttp://www.shuwasystem.co.jp/books/wwwsrch/cgi-bin/content/0207/support.htm
ここにはのってないの？
それにしても誤字多すぎ。ラブルーチンとか笑わせんなよ。

309 ：307：03/11/28 00:22 ID:???

>>308
正誤表あったんだ。知らなかった。多分実際はその1.5倍くらいあると思う。
スクリプトの誤字はあんなもんじゃない。until $a => 5 とか　while <IN> { } とか。
文章のミスはまだ許せるけど、スクリプトのミスは許せん。確認くらいしろよと思う。

310 ：nobodyさん：03/11/28 02:01 ID:???

ラブルーチン（・∀・）ｲｲ!!

311 ：nobodyさん：03/11/28 04:00 ID:???

　　>>291

312 ：nobodyさん：03/11/28 12:36 ID:???

>>307
御察しの通りです＜秀和
安い割に厚いってことで購入した自分を情けなく思います。
やっぱ間違いだったんですね。
これで胸のつっかえが取れました＜感謝
てかこの本こういうの大杉です。・゜・（ノД｀）・゜・。
あの後色々やってみたんですがイマイチ期待した結果が出てくれなくて、
いまだにやってますw

>>308
正誤表は漏れも一番に確認しましたけど、
ここに載ってない間違いがメチャクチャあるんですよ（;´д｀）ｱﾘｴﾈ

>>310
イクナイ(　・д・)

313 ：nobodyさん：03/12/04 12:38 ID:???

氏んでそうなスレですがw、ちょっと質問です。
ファイルテスト演算子 -T を使ってファイルがテキストファイルであるかどうか確認したいのですが、

$filename = "other/sample.txt";
if (-T $filename) {
print "このファイルはTextファイルです。", "<BR>\n";
} else {
print "このファイルはTextファイルではありません。", "<BR>\n"
}

とすると、テキストファイルではないと返ってきます。
sample.txtはちゃんとテキストファイルなので、
何故この結果が返ってくるのか全く分かりません。
どこか違うのでしょうか？

314 ：313：03/12/04 12:55 ID:???

１箇所違てた

$filename = "/other/sample.txt";
if (-T $filename) {
print "このファイルはTextファイルです。", "<BR>\n";
} else {
print "このファイルはTextファイルではありません。", "<BR>\n";
}

315 ：313：03/12/04 13:34 ID:???

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

316 ：313：03/12/04 14:20 ID:VPic6sbh

やっぱ解決してませんでした。・゜・（ノД`）・゜・。

-T を -B に変えると「Textﾌｧｲﾙです」と返ってきます。
また演算子は -T のまま sample.txt ではなく、
適当なGIFﾌｧｲﾙを用意（thanks.gif）して、
それに対して判定してやっても↑と同じ結果になります。
これ（-T -B）って確か真偽が返ってくるんでしたよね？

317 ：nobodyさん：03/12/04 14:47 ID:???

>>291

318 ：nobodyさん：03/12/04 14:47 ID:???

漢字交じりのファイルでも調べたんじゃないか
あと>>316はもうちょっと文章を吟味しなさい

319 ：nobodyさん：03/12/04 15:18 ID:???

>>317
なんかスレ違いだたか？

>>318
普通に日本語文章書いたファイル読んでた。
ていうか、バイナリと解釈されるのな。初めて知ったw
謎が解けたよ、ありがたう。

320 ：nobodyさん：03/12/04 15:35 ID:qOOLFd9r

どもです…

Perlを用いてn個の整数乱数を発生させたいのですが…
例えば n = 5 の場合、
3
2
5
1
4

…みたく、1からの乱数が重複することなく出力されるプログラムを作りたいのですが、
どうもつまづいてしまいます。

皆さんが作るとすればどのように作りますか？

321 ：nobodyさん：03/12/04 15:44 ID:???

いちいち廃スレ上げんなや

322 ：nobodyさん：03/12/04 15:49 ID:???

今日にもレスがあるスレをいちいち廃スレ扱いする >>321 はいちびり。

323 ：nobodyさん：03/12/04 16:02 ID:???

回答してるやつがバカなだけ。
質問や回答を複数のスレに分散させることがメリットあるか？
なんのために継続するスレのテンプレに過去ログのリンクを
貼ってると思ってるんだ？
調べる気もない教えて君に言っても無駄かもしれんけどな。

324 ：nobodyさん：03/12/04 16:08 ID:???

>>323
過去ログ見てないなんて決め付けるなよ。
同じような質問がどこかにあったのか？

325 ：320：03/12/04 16:11 ID:???

>>321
すみませんでした…今度からは気をつけます…

>>323
いくつかスレは見て回ったのですが…ここが妥当かなと思ってここに投稿しました
過去ログもある程度は見てみたのですが…似たようなのがなかったので…スレ違いなら申し訳ありません…(´ω`)

326 ：nobodyさん：03/12/04 16:23 ID:???

>>324
過去ログ読んだのならなんでそのスレで質問しないでここに書くんだよｗ

327 ：nobodyさん：03/12/04 16:32 ID:???

>>326
Part29は過去ログ入ってるし。
せめて新スレ誘導貼ってからその台詞抜かしたらどうだ？

328 ：nobodyさん：03/12/04 17:42 ID:???

寒い夜には湯豆腐

329 ：nobodyさん：03/12/04 18:45 ID:???

>>320
こんな感じ？
my $array = [];
setRandomValues($array,1,7);
sub setRandomValues {
　　# 配列
　my($array, $start, $end) = @_;
　my @unko　= ($start..$end);
　while($#unko >= 0) {
　　push(@$array, splice(@unko, int(rand($#unko + 1)) - 1,1));
　}
}

330 ：nobodyさん：03/12/06 05:57 ID:???

CGIを使ったperlでサイト内検索を作ってるのですが、
body内に引っ掛けたく無い文字があります。
どのように設定しればいいか教えてもらえませんか？

331 ：nobodyさん：03/12/06 17:02 ID:???

説明不足

332 ：nobodyさん：03/12/06 17:04 ID:???

>>330はperlスレとマルチだから放置しよう

333 ：nobodyさん：03/12/17 19:45 ID:???

http://www2.rocketbbs.com/200/pikkee7.html

話が食い違ってる厨房が二匹
printについて熱く議論してるし（ﾌﾟｹﾞﾗ

334 ：nobodyさん：03/12/17 21:18 ID:???

>>333=サンラ

335 ：nobodyさん：03/12/17 22:52 ID:oog4IxeM

334は基地外

336 ：nobodyさん：03/12/18 17:06 ID:???

>>333
printで出力で合ってるんじゃ？

337 ：nobodyさん：03/12/18 20:17 ID:PJ21fV3d

例えば海外の掲示板スクリプトで、
投稿した内容が文字化けする、って場合には
どんな風にスクリプトを修正すればいいんでしょうか？

338 ：nobodyさん：03/12/18 20:27 ID:???

>>337
http://pc2.2ch.net/test/read.cgi/php/1066318233/
http://pc2.2ch.net/test/read.cgi/php/1063780103/
http://pc2.2ch.net/test/read.cgi/php/1069846177/

339 ：nobodyさん：03/12/18 20:28 ID:???

print "English Only Please";

340 ：nobodyさん：03/12/19 20:15 ID:P/lZLOTW

>>333
結局サンラとか言うのprint使ってるし････面白

341 ：nobodyさん：03/12/19 23:07 ID:kC5jwkQB

ActivePerl + Apache2 + cygwin で cgi を作っています。
fork か system を使って、cgi の親プロセスはすぐに終了させて、HTTP コネクションを終了し、
子プロセスに長い仕事をさせようと思っています。ですが、cgi が子プロセスの終了を待ってしまい、
コネクションが切れません。windows でこういう処理を実現するにはどうすればよいかを知っている方が
いらっしゃいましたらご教授をお願いします。

342 ：nobodyさん：03/12/21 01:22 ID:???

>>333
☆ Re: 教えてください･･･ / 各無し　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
HTMLを出力するという日本語のおかしさを言っているのでは？と書いてみる。

名前変えてまで･･･サンラ顔を真っ赤にして必死なんだろうな･･･

343 ：nobodyさん：03/12/21 02:06 ID:Ppsa4Xcl

>>341 について自己レス
子プロセスに
close(STDOUT);
close(STDERR);
を入れれば解決のようです。

344 ：nobodyさん：03/12/21 02:50 ID:vE34+r9v

setuidしてFile::Findモジュールを使ったスクリプトをブラウザから実行したら
findメソッド呼び出したところから実行されないんですがどういうことでしょう？

345 ：nobodyさん：03/12/22 08:12 ID:???

いきなり質問なんですが、
サーバのosがfedoraなんですけど実際のperlのパス、
#!/usr/bin/perlを、
#!/var/bin/perlなど存在しないパスにしても動くんですがなんででしょうか？

346 ：：03/12/22 23:26 ID:???

>>345

347 ：nobodyさん：03/12/23 15:01 ID:RM2wmEiL

痛い質問もおｋでつか？

348 ：nobodyさん：03/12/23 15:02 ID:???

ｂｙ冬厨
hage忘れ

349 ：nobodyさん：03/12/23 17:12 ID:DnEvUAZj

perlプログラムをtelnetで接続してコマンドで
実行するときにフォームデータを引数として
実行する方法を教えてください。
ARGVは利用しないとして教えてください。
システム部長に教えてもらったんだけど
忘れてしまいました。

350 ：nobodyさん：03/12/23 17:29 ID:???

>>349
みんな複数のスレ見てるんだからマルチはすぐ分かるよ。

351 ：347：03/12/23 22:30 ID:???

>>350
I'M NOT >>349
multi Uzeeeeeeeee!!

352 ：nobodyさん：03/12/23 22:44 ID:???

>>351
＞I'M NOT >>349
知ってるよ？

353 ：nobodyさん：03/12/23 22:56 ID:B/ouqWjS

>>352
教えてください

354 ：nobodyさん：03/12/23 23:27 ID:???

>>353
何を？
っていうかお前誰だよ

355 ：347：03/12/23 23:30 ID:???

＞＞３５４
おそらく
>>349だRO

356 ：nobodyさん：03/12/24 00:36 ID:???

>>349
教えてもらった人にあやまってもう一度聞けや。
おまえの社内の評価なんぞどうなったところで誰も気にしない。

357 ：nobodyさん：03/12/24 00:59 ID:???

>>355
そうか。

>>349
マルチだっつってんじゃん。

358 ：nobodyさん：03/12/24 09:24 ID:j7CQnsCW

perl←なんて読むんだ？

359 ：nobodyさん：03/12/24 10:40 ID:???

>>358
perl

360 ：nobodyさん：03/12/24 13:06 ID:???

>>358
ペルル

361 ：nobodyさん：03/12/24 15:44 ID:Nlg9jtzo

SQUZA INFO TICKERってどこかでDLできないですか？
そのサイトは閉鎖されちゃったようだし。
お持ちでしたらうｐしてください、お願いします。

362 ：nobodyさん：03/12/24 16:37 ID:???

>>358
ペルじゃないの？

363 ：nobodyさん：03/12/24 16:38 ID:???

パー１

364 ：nobodyさん：03/12/24 16:46 ID:???

パール

365 ：nobodyさん：03/12/24 22:56 ID:???

ピール

366 ：nobodyさん：03/12/27 09:15 ID:x/KBK+zk

>>358
ペアルです。

367 ：nobodyさん：03/12/27 17:39 ID:kxaiYOlV

ペール

368 ：nobodyさん：03/12/27 21:09 ID:???

アナル

369 ：nobodyさん：04/01/07 08:56 ID:???

ペアァァァァルル

370 ：nobodyさん：04/01/17 11:52 ID:ZJCwgWOZ

perlでメールをリアルタイムに確認、内容受信、ブラウザに反映させる事ってできますか？

371 ：nobodyさん：04/01/17 13:33 ID:???

>>370
できます。
それから、このスレageんな。

372 ：370：04/01/17 15:16 ID:???

>>371
それはスマンかった。申し訳ない。

373 ：nobodyさん：04/01/20 01:22 ID:???

ソフトバンクより発売のCGI/Perlハンドブックという本で
http://up.atnifty.com/upload/file/20040120011644_.txt
こういったアンケート収集スクリプトがあるのですが
これを実行してもアンケートが追加されません。
どこが間違ってるのでしょうか？

374 ：nobodyさん：04/01/20 01:33 ID:4RLoeIZ2

>>373
ﾏﾙﾁﾎﾟｽﾄﾊｹｰﾝ

375 ：nobodyさん：04/01/20 02:07 ID:???

>>374
そんなこと知ってます。
それから、このスレageんな。

376 ：nobodyさん：04/01/20 06:39 ID:???

&error('本文がないんですが') if(!$comment);

if(!$comment){&error('本文がないんですが')};

の2つは両方動きますが、正しくというか、正統派な人はどっちで書くんですか？

377 ：nobodyさん：04/01/20 06:56 ID:zLcfVmM7

おはマンコー！！＼（・∀・）／
http://www.k-514.com/

378 ：nobodyさん：04/01/20 07:14 ID:???

>>376
流れに応じてよりしっくりくる書き方をする。
区別がつかん内は好きにしとけ。

379 ：nobodyさん：04/01/20 08:10 ID:???

ありが㌧

380 ：nobodyさん：04/01/20 20:46 ID:???

$comment or error('本文がないんですが') ;

381 ：nobodyさん：04/01/20 21:02 ID:???

1 - 1 は？との質問に
0 と答えると、
$comment eq 0 となり
if(!$comment){&error('本文がないんですが')};
では$commentが偽となってerrorとなる。
if($comment eq ''){&error('本文がないんですが')};
にすべきでしょう。

382 ：nobodyさん：04/01/20 21:48 ID:GUR8N55h

おお感動した！！

383 ：nobodyさん：04/01/20 22:31 ID:1dmv6xqq

２ちゃんねるのCGIパラメタのように
http://pc2.2ch.net/test/read.cgi/php/1012750353/-100
↑”?”でURLパラメタを渡すのではなく、上記のようにスラッシュで
渡されたものを受け取るにはどのようにPerlを記述するのでしょうか？
教えてください。

384 ：nobodyさん：04/01/20 22:49 ID:6c5lEQCO

この板にきたのは初めてなのですが
作ってほしいＢＢＳを注文して
ＣＧＩのＢＢＳを作って売ってくれるとゆうのはあるんでしょうか？

もし有名なサイトなどありましたら教えてください。

いた違いだったらすみません。

385 ：nobodyさん：04/01/20 22:55 ID:???

プロに依頼？高いぞ・・。

386 ：nobodyさん：04/01/20 23:01 ID:???

>>383
過去ログに山とあるよ。。

　　　　　　　　　　　　　まちがいない！

387 ：nobodyさん：04/01/20 23:14 ID:Pl4rHDgD

>>383
$ENV{'PATH_INFO'}だったと思う。

388 ：nobodyさん：04/01/21 00:58 ID:???

>>384
人間の何日分かの生活を保障できる金額を払うなら、
依頼を受ける者もでてくるだろう。

389 ：nobodyさん：04/01/21 07:12 ID:???

>384
作りましょうか？

390 ：nobodyさん：04/01/21 12:54 ID:DBwJ36Qx

すごい初心者なんですが質問させてください
何個もある配列の一要素によって
その何個もある配列を並び替えたいのですが、
やり方がさっぱりわかりません
よろしければ教えてください
お願いします

391 ：nobodyさん：04/01/21 14:25 ID:???

>>390
http://www5a.biglobe.ne.jp/~n_rieko/perl/3.htm
http://pc2.2ch.net/test/read.cgi/php/1072896288/

392 ：nobodyさん：04/01/21 15:37 ID:???

　こ　こ　は　質　問　ス　レ　で　は　な　い

393 ：nobodyさん：04/01/21 19:15 ID:???

read.cgi のphp板の開発はどこの板でやってるんですか？

394 ：384：04/01/21 22:27 ID:uZHROGvP

>>385 >>388 >>389　さん

これはレスが遅くなって申し訳ありません。
こんな書き込みはちょっと常識外れぽいようですね、あせります。

確かに作ってもらうと良いお値段するのでしょうね、
当たり前と言えば当たり前ですね。、
どんな価格体系なのか想像もつきません＾＾；

作っていただけるというありがたいお答えですが、正直ちょっとびびってます（笑

いちおうこんなものが欲しいとおもっているのですが。。
私の乏しいパールの知識（といえませんが）ではそんなに難しくないような気が
しているのですが、実際のとこはわかりませんね。

インタフェース（？）が
ぼゲームのＳＳ掲示板なんですが、シンプルな方がいいです。
http://lineage2.kisha.ath.cx:8080/cgi-bin/smt_bbs/smt_bbs.cgi?action=showlast&cat=12&txtnumber=log

ここに画像がアップできるのですが画像ではなくこれを表示したいわけです。
http://tchart.yahoo.co.jp/c/1y/2/2317.j.gif

私の言っている意味が皆さんに理解できるように説明できているのか凄い不安ですが＾＾；

もし作っていただけるのならお値段どんな感じになるのでしょうか？＾＾；

395 ：nobodyさん：04/01/21 23:01 ID:???

スレ違いだから、そういう主旨のスレッドでも立てたら？
けっこう、要望があるんでない。
技術はなくても、こういう形式のＢＢＳが欲しい。
オーダーメイドのＢＢＳが欲しいとかさ。
無論、きちんと対価は払う方向で。
職人に対する誠意をもってさ。

396 ：nobodyさん：04/01/21 23:36 ID:???

相場でもめるぜ。きっと。

397 ：nobodyさん：04/01/21 23:54 ID:???

それはそれで見てて面白いだろ。
もめなきゃ始まんないよ。
第三者がある程度やり取り見てれば
いろいろ助言して最終的には落ち着くんじゃない？
相場なんて、みんなで大体決めるもんだし。
依頼者が安値で切ってくれば、そりゃおかしいとか
職人が高く見積もれば、その程度のスキル、規模じゃ
ぼったくりすぎだろとか。
むしろ、やり取りの公開性があってまわりの反応を
見れば当事者も納得できる部分あるんでない？
「まあ、こんなもんかな。みんなそれで手を打てと言ってるし」
みたいな。

398 ：nobodyさん：04/01/21 23:55 ID:???

そんなことよりすぽるとでウッチー見ようぜ

399 ：nobodyさん：04/01/21 23:58 ID:???

まあ、俺は名が通ったプロに頼むほうが安心できる
と思うけどね。そういうサイトでも探せば？
つーかスレ違いなので、ここらでアウト。

400 ：384：04/01/22 00:28 ID:ZXb8OcPi

すれ違いですね＾＾；

スレッドの立て方はわからないので退散いたします。
ご指導のほどありがとうございました。

またサイト回りして探してみます＾＾；

401 ：nobodyさん：04/01/22 00:32 ID:???

ああ、そのほうがいい。
賢明だ。

402 ：nobodyさん：04/01/22 00:39 ID:???

>>397
前半の依頼者が安値をつけるのをどうこう言うのはいいが、
依頼を受ける人間のスキルをどうはかるかが問題だな。

ま、スレ違いだが。

403 ：nobodyさん：04/01/22 01:49 ID:???

全然、ＣＧＩとか無知な一般人の客が頭で描いたものを
口頭で説明受けただけでオリジナルＢＢＳ作れる人間だったら
相当の技能者だろう。
依頼を受ける意思を明確にだせるだけでも相当の金を
請求できる人間と思われる。

スレ違いなので誰か立てろ。
もしくは既出で似たような議題。
俺はやだけどね。

404 ：nobodyさん：04/01/22 02:04 ID:???

プログラミング板の話かもな。

405 ：nobodyさん：04/01/22 11:45 ID:???

>>403
口頭で説明受けるのは後々言った言わないの問題が……。
技術者側がきちんと依頼内容を文書化して、
依頼者がそれに実印つくくらいの覚悟と理解がないとさ。

406 ：nobodyさん：04/01/30 10:06 ID:9dHhJkex

windows xp,apache 1.3,jperl5005,という環境でCGIスクリプト作成の勉強
している初心者です。

マルチです。apacheスレでも聞いたんですが、自分のPC上でCGIのテストを
すると、ブラウザーのリロードでサーバーエラーをおこしてしまいます。

エラーログではファイルが見つからないとでますが、たった今、読んだファイルな
わけで、、よくわかりません。

スクリプト自体は実際のwebサーバー上で問題なく動いてます。
みなさん自宅などではどんな環境でやってらっしゃるのでしょうか？

407 ：nobodyさん：04/01/30 10:28 ID:???

どういうCGIか分からなければ、何とも答えようがない。

408 ：ブヒィ：04/01/30 14:38 ID:TDvBDcMl

以下のようなHTMLがあってそこから******<a herf=aaa>bbb</a>*********これを以下のように置換したいと思います。******<url url=aaa name=bbb>********まったくわかんない。教えてください。

409 ：nobodyさん：04/01/30 15:13 ID:???

ネタか？
s|<a herf=(.+?)>(.+?)</a>|<url url=$1 name=$2>|g;

410 ：nobodyさん：04/01/30 17:09 ID:9dHhJkex

＞407
ふつうのアクセスカウンタなどです。
カウンタ数を書き込むファイルは数字がきちっと増えてます。

web上では問題なく動いてます。

411 ：nobodyさん：04/01/30 17:13 ID:???

だーから、どういうCGIか分からなければ、何とも答えようがない。
多分リロードするときのURLの指定が間違ってる。

412 ：nobodyさん：04/01/30 18:07 ID:9dHhJkex

＞411すいません。「一週間でマスターするCGI」福島靖治著という教材の
CGIなんで、勝手に私が抜粋して、ここに書き込んでよいものかどうかと、、、

CGIにはリロードのURLを指定するような部分はないのですが、やっぱり
ソースを全部のせないとだめでしょうか。
apacheのcgi-binというフォルダには何もいれなくていいんですよね？

413 ：nobodyさん：04/01/30 19:23 ID:O0NkkeT3

一つ質問させてください。
snow*materiaのtwin.cgiというアイコンチャットを
設置してちょびちょび改造しているのですが、
このチャットに「魔法の呪文」という設定があって
その中に｢予備ログを全部時刻昇順で表示」というものがあり、
ログをアイコン、背景、タグ効果などが反映された状態で上から読めるように表示されます。
これをHTMLとして書き出したいのですが、それは可能でしょうか？
また可能な場合どういった改造を行えば宜しいでしょうか
一応サイトにサポートBBSがあったので質問したら10日まっても一つのレスも付きませんでしたので
削除してこっちに描いてみたり。

どなたかお教えくださいませ。
ttp://useyan.pupu.jp/s/cgis/twin.html

414 ：nobodyさん：04/01/30 20:05 ID:???

>>413
【スクリプト改造工房 PART 7 】
http://pc2.2ch.net/test/read.cgi/php/1063780103/

415 ：nobodyさん：04/01/30 20:44 ID:???

>>414
ありがとうございます

416 ：nobodyさん：04/01/30 23:07 ID:???

質問させてください
Perlで、ＵＲＬのリンクボタンが押された回数を得ることはできますか？
できるとしたらその関数とかどうやってやるのかも知りたいです。

417 ：nobodyさん：04/01/30 23:19 ID:???

コーディングの質問は

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

やり方など一般的な質問は

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

改造は

【スクリプト改造工房 PART 7 】
http://pc2.2ch.net/test/read.cgi/php/1063780103/

CGI設置の質問は

ＣＧＩ設置について質問
http://pc2.2ch.net/test/read.cgi/php/1054216089/

他にもあるがおおむね上記のスレが本スレ
適切なスレで質問してくれ

418 ：nobodyさん：04/02/01 13:19 ID:???

data.datファイルに
aaa 1
bbb 1
ccc 1
というように配列が入っていましてbbbのカウントを1プラスして
bbb 2
aaa 1
ccc 1
と、data.datファイルに書き込みたいのですがどうやったらできるでしょうか？
ご教授よろしくお願いします

419 ：nobodyさん：04/02/01 13:55 ID:???

>>418
>>417

420 ：nobodyさん：04/02/01 19:27 ID:???

>>419
そいじゃ、このスレある必要ないってことじゃん。
スレタイで「何でも聞いて」っつってんだからさ…
open(FILE,>"data.dat") or die "$!\n";
while(<FILE>){
s/^bbb ($d+)/bbb $1 + 1/e;
print;
}

421 ：nobodyさん：04/02/01 19:28 ID:???

あら、
s/^bbb ($d+)/bbb $1 + 1/e;
s/^bbb ($d+)/bbb . $1 + 1/e;

422 ：420,421：04/02/01 19:37 ID:???

誰だー、このスレ立てたの。
>>418は初心者コーナーでちゃんとしたレスもらってるよ。

423 ：nobodyさん：04/02/02 08:40 ID:???

>>420
2年も前に立ったスレでそんなこと言われても困る訳だが。

424 ：nobodyさん：04/02/02 15:06 ID:kc/vkRFB

わーん
うちのサイト HTTP::LITE使えないよー

425 ：nobodyさん：04/02/03 00:42 ID:???

>>424
気合で入れろ。

426 ：nobodyさん：04/02/04 12:19 ID:???

>>422 >>423
いちいちそんな小さなこと気にすんな

>>初心者コーナーでちゃんとしたレスもらってるよ。
どこでレスもらって洋画ここでは関係ないことだ
みんなが君みたいに初心者コーナーも見てるわけじゃないから

>>2年も前に立ったスレでそんなこと言われても困る訳だが。
何年前に立ったとしても今現在利用者がいるわけだ

だいたい417(423)見たいなやつが一番うざい
Perlのこと何でも聞いてよって書いてあるんだから
Perlのこと聞くひとがくる
コーディングはこっち、スクリプト改造はこっち、一般的な質問はこっち、
なんて分けてたらこのすれの必要性はない
ここはPerlのこと何でも聞けるから「Perlのこと何でも聞いてよ」というスレ
ぜんぜん別のこと聞いてるわけじゃないんだし

427 ：nobodyさん：04/02/04 13:21 ID:???

>>426
こいつ、問題の切り分けできなさそーだな。

428 ：nobodyさん：04/02/04 14:43 ID:???

426に同意
何でも聞いていいじゃん

##########てことで終了#########

429 ：nobodyさん：04/02/04 15:01 ID:???

×Perlのこと何でも聞いてよ
○Perlのこと何でも聞いてきてよ

ここは「Perlのことは何でも誰かにどっかで聞いてこい」というスレだ。

430 ：>>426：04/02/04 15:22 ID:???

422 ：420,421 ：04/02/01 19:37 ID:???
誰だー、このスレ立てたの。
>>418は初心者コーナーでちゃんとしたレスもらってるよ。

423 ：nobodyさん：04/02/02 08:40 ID:???
>>420
2年も前に立ったスレでそんなこと言われても困る訳だが。

431 ：420,421：04/02/04 17:57 ID:???

分かったよ。こうすりゃいいんだろ。
　（´Д｀;）ヾ　ｺﾞﾒｲﾜｸｵｶｹｼﾏｽﾀ　ｽｲﾏｾﾝｽｲﾏｾﾝ
　　　∨）　　　
　　　（（　

　（;´Д｀）　　ﾎｶﾉﾐﾅｻﾏﾓｽﾐﾏｾﾝｽﾐﾏｾﾝ
　（　八) 　　
　　　〉〉

　　　　ヾ
　(´Д｀;)、　　ﾎﾝﾄｳﾆﾓｳｼﾜｹｱﾘﾏｾﾝ
　　ノノＺ乙　

432 ：nobodyさん：04/02/04 22:24 ID:???

>>429
「何でも聞いて」だと思い込んでた。

...ネタスレだったんだw

433 ：nobodyさん：04/02/04 23:36 ID:???

うん、だから質問スレじゃないと誘導されてるんだよね
なのにぐだぐだ言うやつがいて空気悪くしちゃってさぁ

434 ：nobodyさん：04/02/05 09:36 ID:???

>>433
意味フメー

435 ：1：04/02/05 14:07 ID:???

Perlのことは何でも誰かにどっかで聞いてこい
って意味じゃないよ
ここは何でも俺に質問してこいって意味

１人勘違いしてるやついるようだけど、君もう来なくていいよ

436 ：nobodyさん：04/02/05 17:17 ID:???

キタ━━━(゜∀゜)━( ゜∀)━( 　゜)━(　　)━(゜　)━(∀゜ )━(゜∀゜)━━━!!!!!
ここは何でも俺に質問してこいって意味
ここは何でも俺に質問してこいって意味
ここは何でも俺に質問してこいって意味

437 ：nobodyさん：04/02/05 18:17 ID:???

>>435
じゃあ聞いてやる
お前は誰？

438 ：nobodyさん：04/02/06 18:34 ID:???

>437どうでもいい

俺が何でも答えるから早く質問してこい！

439 ：nobodyさん：04/02/06 18:42 ID:???

>>438
じゃあ聞いてやる
お前は誰？

440 ：nobodyさん：04/02/08 22:18 ID:???

付き合ってられないね┐(´ー｀)┌

441 ：マサト（ＡＡ）：04/02/11 11:00 ID:Z90tsIT3

ママ助けて・・・・・

442 ：ママ：04/02/11 14:12 ID:???

>>441
死ね

443 ：nobodyさん：04/02/11 14:34 ID:???

Perlはver.7.0からDiamondになるって本当ですか?

444 ：nobodyさん：04/02/12 22:09 ID:???

>>443
>>1じゃないけどさ。
PerlはPerlのままだろ。Rubyはすでにあるし。
Diamondって言語をおまえが作ってみろ。

445 ：nobodyさん：04/02/13 01:31 ID:???

>444
ネタに噛みつかないでくれぇ(つ´д｀;)
Diamondねぇ。作るとしたら多重継承ばりばりなOOPLになりそーだ。

446 ：nobodyさん：04/02/13 12:21 ID:???

>>443
むしろPerilかもな。

447 ：444：04/02/13 15:21 ID:???

>>445
すまん。かみつきかたがきつかった。ネタだとはわかっていたんだが。
多重継承……え、悪名高きダイアモンド継承を許すと？　って、Perlは元々そうか。

448 ：nobodyさん：04/02/16 19:11 ID:VhYVP2K+

すいません、cgiでさ、数値をランダムにするにはどうすればいいんですか
たとえば、右にいくつ動かすかってときに
一個だけだったら
+ 1;
じゃないですか。
でもさ、１～９の範囲で動かすにはどうしたらいいんですか？
+ 1,2,3,4,5,6,7,8,9;
にしてもだめでした

449 ：nobodyさん：04/02/16 19:13 ID:ewLDl3sj

+ int rand(9) でだめ？

450 ：ヽ(´ー`)ノ：04/02/16 19:15 ID:???

> + 1,2,3,4,5,6,7,8,9;
凄い閃きだな(;´Д`)
1 から 10000 までの乱数作るときどうするつもりなんだ。

451 ：nobodyさん：04/02/16 19:16 ID:VhYVP2K+

>>449
できました！！！本当にありがとうございました！！！

452 ：nobodyさん：04/02/16 19:51 ID:j3AvJVjF

int rand(9) だと乱数の値のとる範囲は 0 .. 8 だよ。+ 1 しよぉ。

453 ：nobodyさん：04/02/16 20:17 ID:???

★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
☆　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　★
★　　こ　こ　は　質　問　ス　レ　で　は　な　い　　☆
☆　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

454 ：勉強中：04/02/16 20:19 ID:fbTZu6ah

証券会社のクイックに表示される数値データを
プログラムで自分のパソコンに自動取得したいのですが、
もっとも適しているプログラム言語は何かを
教えてください。　m(_ _)m

455 ：nobodyさん：04/02/16 21:38 ID:???

>>454
証券会社のクイックって何だか知らずに書き込みだけど、
大抵の事はPerlでも出来るよ。
WebServiceとの連係ならSOAPとかXML-RPC等のモジュール使えば簡単に。

456 ：nobodyさん：04/02/16 21:46 ID:3zl9vjKy

BBSのログファイルや設定ファイルを
URLを直接入力しても見えないようにしたいです。
どうすれば良いでしょうか。

457 ：nobodyさん：04/02/16 22:04 ID:???

URLで見れないディレクトリにおいてください。

458 ：nobodyさん：04/02/17 00:21 ID:???

Perlで鯖の中掻き回す方法おせーて

他のアカウントの香具師のディレクトリみたり！！ｳﾋｬﾋｬﾋｬﾋｬ

459 ：456：04/02/17 15:42 ID:???

ありがとうございました。みえなくなりました。

460 ：nobodyさん：04/02/18 11:17 ID:Roodc29W

ＵＲＬを、携帯に送信するフォームのｃｇｉがわかる方、教えてください。

461 ：nobodyさん：04/02/18 11:49 ID:???

>>460
Perl に関係ありません。

462 ：nobodyさん：04/02/18 16:24 ID:???

>>460
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
☆　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　★
★　　こ　こ　は　質　問　ス　レ　で　は　な　い　　☆
☆　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

463 ：nobodyさん：04/02/24 00:59 ID:mWUOzoqf

何だ、やっぱりPerlの話題どっかで仕入れてきて
ここで教えるスレだったのかい。
「Perlのこと何でも聞いてきてよ」ってさ。

464 ：nobodyさん：04/02/24 01:15 ID:???

スレタイ通りですな

465 ：nobodyさん：04/03/03 17:19 ID:???

すまんpriｎt ppとprintの違いを誰か教えてくれ。　

466 ：465：04/03/03 21:44 ID:???

いやわかった。もういいです。

467 ：465：04/03/07 17:11 ID:???

いややっぱわからない。教えてくれ。

468 ：nobodyさん：04/03/08 12:00 ID:???

perldoc しろよ。氏ね。

469 ：nobodyさん：04/04/26 06:23 ID:???

libwww 5.79で悩んでいます。
UserAgentやlwp-mirrorなどでjpgやpngなどを取りに行こうとすると同じcgiなのに取れる画像があったり取れない画像があったりします。
取れないものはinternal server errorが返ってくるのですが、そのURLをネスケで見るとちゃんと見れたりするので原因を探り中ですが正直どこから攻めたらよいのかわからず難儀してます。
一応libwwwで必要なモジュールはすべて最新のものにしてあるのですが動作は変わらないようです。

470 ：nobodyさん：04/04/26 07:36 ID:???

何気に自己解決しますた・・
headが413のtoo large entityだったので関連するものを調べていたらtotal capacityかもということで
ConnCacheのtotal_capacity値を調節することで取れるようになりました。

471 ：nobodyさん：04/06/19 14:33 ID:XQS6veYG

質問です。
$pYear年$pMonth月$pDate日　$pHour時$pMinute分$pSecond秒
から
$nYear年$nMonth月$nDate日　$nHour時$nMinute分$nSecond秒
までの経過秒数を求めるスクリプトってどう書けば良いのでしょうか。
閏年とかを考慮に入れるとめっちゃ複雑なコードになっちゃうのですが。

472 ：nobodyさん：04/06/19 14:59 ID:???

>>471
http://perldoc.com/perl5.8.4/lib/Time/Local.html
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq4.html#How_can_I_compare_two_date_strin

コーディングの質問は

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

改造は

★三　【スクリプト改造工房 PART 8 】　★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/

CGI設置の質問は

ＣＧＩ設置について質問
http://pc5.2ch.net/test/read.cgi/php/1054216089/

その他の質問は

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

他にもあるがおおむね上記のスレが本スレ
適切なスレで質問してくれ

473 ：nobodyさん：04/06/19 15:49 ID:???

>>471
どう書くとか以前に計算式がわからないんだろ。
板違い。

474 ：nobodyさん：04/06/19 18:02 ID:???

>>471
漏れに任せろ。
丁度、そんなコードを書いたところだ。
これは現在時刻との差分を出すためのものだが、
応用すれば任意の時刻との比較も簡単だろう。

import java.util.*;

public class DateDiff
{

public long getDateDiff(int pYear,int pMonth,int pDate,int pHour,int pMinute,int pSecond)
{
w_month = w_month - 1;

Date d1 = new GregorianCalendar(pYear , pMonth , pDate , pHour , pMinute , pSecond).getTime();

Date d2 = new Date();

long diff = d2.getTime() - d1.getTime();

diff = diff / (1000*60*60*24);

return (diff);

}

}

diffがマイナスの場合は未来と現在を比較したと言うこと。

475 ：黒死犬：04/06/19 19:21 ID:???

何ゆえJava？

476 ：nobodyさん：04/06/19 23:41 ID:???

Java釣り

477 ：nobodyさん：04/06/28 01:14 ID:???

やっべー
なんだか知らんが凄いツボにはまった。
お前らおもしれーよ。

478 ：nobodyさん：04/07/03 13:22 ID:???

すいません、telnet.cgiのssh版ってのはありますか？
無いとしても、system()を使えば可能と聞いたんですが、
sshのCGIｸﾗｲｱﾝﾄについてのサイトが見つからないので
どなたかご教授お願いします

479 ：：04/08/08 18:30 ID:fi+/YVem

perl でヤフー掲示板に書き込みするスクリプトを書きたいんですが、だれかやった人います？

480 ：nobodyさん：04/08/08 21:07 ID:???

>>479
不正アクセス禁止法ってのがあることを教えておくよ。

481 ：nobodyさん：04/08/08 22:04 ID:???

ここは質問スレじゃないことを教えておくよ。

482 ：nobodyさん：04/08/09 10:30 ID:???

jcodeを使って簡単にひらがな→カタカナに変換できますか

483 ：nobodyさん：04/08/09 13:13 ID:???

Jcode::tr()でできると思う。中身EUCにしとくの忘れずに。

484 ：nobodyさん：04/08/09 13:31 ID:???

>>482
>>481

485 ：nobodyさん：04/08/20 02:13 ID:???

すいませんが教えて頂けると幸いです。

>$new .= 'l'
最後に任意の文字=lを加える

この逆で最後にある文字lを削除するってどう書くのでしょうか？
ﾍﾀﾚですいませんorz...

元ネタでは拡張子をhtmからhtmlとするRenameなんですが、逆に
htmlのｌを削りたいんです。

486 ：nobodyさん：04/08/20 02:15 ID:???

>>485
>>481

487 ：nobodyさん：04/08/21 03:54 ID:???

刷れ違いｽﾏｿです

488 ：nobodyさん：04/11/09 19:18:19 ID:???

あのpng画像を出力しようと書いたのですがうまくいきません（画像が表示されません）
どこがおかしいのでしょうか。

$img="img/hoge.png";

print "Content-type: image/png\n\n";
binmode(STDOUT);
print $img;

489 ：488：04/11/10 20:54:03 ID:???

>>488です。事故解決しました。
原因は画像を読み込むときにbinmodeにしなかったこととファイルをオープンしてなかったことです

$img="img/hoge.png";

open(IMG, "$img");
print "Content-type: image/png\n\n";
binmode(IMG);
binmode(STDOUT);
print <IMG>;

490 ：nobodyさん：04/11/13 03:03:28 ID:eDGt/HAG

;を文中で使いたいのです。
\;ではダメみたいなので。
サクっと回答お願いします。

491 ：nobodyさん：04/11/13 12:13:55 ID:gxBOL5Kk

ハッシュのハッシュについて質問です。
ハッシュのハッシュの全要素をスキャンするため、次のようなコードを書いてみました。

foreach $key1 (keys(%hash)) {
　foreach $key2 (keys($hash{$key1})) {
　　print "$key1 - $key2 : $hash{$key1}{$key2}\n";
　}
}

ところが、2つめの foreach の keys で、
Type of arg 1 to keys must be hash (not hash element)
と怒られて

492 ：nobodyさん：04/11/13 12:17:20 ID:gxBOL5Kk

ハッシュのハッシュ %hash を作りました。
$hash{key1}{key2} みたいにアクセスできます。
この %hash の全要素をスキャンしようと、次のようなコードを書きました。

foreach $key1 (%hash) {
　foreach $key2 ($hash{$key1}) {
　　print "$key1 - $key2 : $hash{$key1}{$key2}\n";
　}
}

ところが、2つめの foreach のリスト部の keys で、
Type of arg 1 to keys must be hash (not hash element)
と怒られてしまいます。
2次元目のハッシュのキーの一覧を取得したいのですが、このような場合にはどのような書き方をしたら良いのでしょうか。

493 ：491=492：04/11/13 12:27:27 ID:???

ありゃ。ブラウザ不調でダブってしまいました。
すみません。

494 ：nobodyさん：04/11/13 12:37:26 ID:???

keys(%{$hash{$key1}})

495 ：492：04/11/13 12:39:59 ID:???

>>494
おーブラボー！すばらしい！
助かりました。ありがとう。

496 ：nobodyさん：04/11/14 09:26:06 ID:???

>>490

%3B

497 ：nobodyさん：04/11/22 16:35:51 ID:???

#! c:/perl/bin/perl

print "Content-type: text/plain\n\n";
print "Hello Perl !";

今日からPerlをはじめまして、本どうりにこれを打ち込んで、表示さしてみると
ファイルを開く、保存のダイアログボックスが表示されます。開くを押すと
メモ張にHello Pealと表示されます、本ではブラウザ上に表示されると
なっているのですが、違うCGIをためしてみるとちゃんとブラウザに表示されます。
本の付属のサンプルでやってもこれだけは、安心できる発信もとからの・・・
ファイルを開く　保存・・がでてブラウザに表示されません。これだけ
なぜかこうなります。
無視して、これは飛ばして次のCGIからやったほうがいいのでしょうか？
原因がわかるかたぜひおしえてください。

498 ：488：04/11/22 18:21:44 ID:???

>>497
他のスレでも質問してたよな？
うざいのでソースを書いてやる

#! /perl/bin/perl

print "Content-type: text/plain\n\n";
print "Hello Perl!";

__END__

あとPerlをC:\usr\local\bin\perl or C:\usr\bin\perl にし直せ

499 ：nobodyさん：04/11/22 18:31:29 ID:???

>>497
マルチポスト止めれ。
text/plainをブラウザで表示しないで、ダウンロードする設定になっているか、
ヘッダ無視する糞ブラウザ使ってるかどっちか。

>>498
トンチンカンな回答返すなよ。

500 ：nobodyさん：04/11/22 22:21:25 ID:???

>>493
自分のミスをブラウザ不調のせいにするな

>>497
初心者はPHPにいけ

>>498
その不要な回答もウザい

501 ：nobodyさん：04/11/23 22:37:28 ID:???

>>500
お前の方がｳｻﾞｲ

502 ：nobodyさん：04/11/23 22:47:24 ID:???

>>500
最後の2行だけ同意
あとは氏ね

503 ：nobodyさん：04/11/23 22:49:18 ID:???

>>488ってかなり恥ずかしい奴だな

504 ：nobodyさん：04/11/24 06:56:20 ID:???

>>501
>>502
もっと早く反応してくれよ
釣れてないと思ってしまうところだったじゃないか

特に>>501の回答は書くときに予測できてただけにﾜﾛﾀ

505 ：nobodyさん：04/11/24 07:13:41 ID:???

>>504
お前ｳｻﾞｲ

506 ：nobodyさん：04/11/24 13:11:43 ID:???

荒れてるな

507 ：nobodyさん：04/11/24 20:55:36 ID:???

perlの論理演算子うぜえな
まじで＄xor$y ＄ｘが真なら真　でなければ＄ｙってなんでやねん
＄Xと＄ｙをふくむっていみじゃねーのかよほかの言語とごちゃごちゃになるんだよ

508 ：nobodyさん：04/11/24 22:57:57 ID:???

perlでUTF-8にURLエンコードするにはどうしたらいいですか？

509 ：nobodyさん：04/11/24 23:09:23 ID:???

age

510 ：nobodyさん：04/11/24 23:28:34 ID:???

>>508
UTF8からURLエンコードじゃなくて？
URL→UTF8はURLデコード。

どっちだ？

511 ：nobodyさん：04/11/24 23:32:15 ID:???

>>510
う～んと、Perlで文字列をUTF-8エンコードにしてAmazonアソシエイト(?)のキーワード検索に対応したいのです。

512 ：nobodyさん：04/11/24 23:34:07 ID:???

sageミス。。

513 ：nobodyさん：04/11/25 03:31:32 ID:???

>>511
そしたら
PerlでUTF-8からURLエンコードしたいってことでOK？

それなら
$str =~ s/ /+/g;
$str =~ s/([^A-Za-z0-9+])/'%'.unpack("H2",$1)/ego;
でいける

514 ：nobodyさん：04/11/25 03:55:36 ID:???

if ($x=3){
みたいに条件を代入文にするときの使い道ってたとえばどんなときですか？
書き間違えてちゃんと動作しないの（しかもエラーもでない）、非常にうざいんですけど。

515 ：nobodyさん：04/11/25 04:35:51 ID:???

if ($hoge = param('name')) { $hoge = escapeHTML($hoge) }

516 ：nobodyさん：04/11/25 09:08:15 ID:???

if (param('name')) $hoge = escapeHTML(param('name'));
else $hoge = "";

517 ：nobodyさん：04/11/25 09:17:42 ID:???

paramを2回呼び出すの無駄

518 ：511：04/11/25 10:11:27 ID:???

>>513
ありがとう！

519 ：nobodyさん：04/11/25 18:53:19 ID:???

Can't find string terminator "END" anywhere before EOF at c:\APACHE~1\APACHE\HTDOCS\TENDAYS\3-5.CGI line 19.

19行目周辺をしらべまくってるんだけどこがまちがってるかわかりません。
open(FILE, "+<./count.dat") or die("エラーファイルがひらけません");

eval{ flock(FILE,2);};

$count = <FILE>;
seek(FILE,0,0);
print FILE ++$count;
close(FILE);

print <<END;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>アクセスカウンター</title></head>
<body>
<p>あなたは・・・$count番目の訪問者です</p>
</body>
</html>
END

520 ：nobodyさん：04/11/25 19:53:29 ID:???

>>519
最後のENDの後に改行すれ

521 ：nobodyさん：04/11/25 19:58:49 ID:bc9/VIUx

ウホッ
失礼します。
ド素人な質問なんですが、例えば登録制サイトがあって、
登録者の個人情報(氏名、住所、電話番号etc..)を登録する場合、
通常の登録制有料サイト等は、データをＤＢに収めると思うのですが、
それ以外の方法としてはどんな方法がありますか？
私はハッシュ配列(ファイル)にぶち込むと勝手に思っているのですが・・・。

522 ：nobodyさん：04/11/25 22:00:44 ID:???

>>521
DBD::CSVとか
個別にファイルをディレクトリ以下にユーザIDごとに作成するとかもある

523 ：nobodyさん：04/11/25 23:42:41 ID:bc9/VIUx

>>522
レスありがとうございます。
＞個別にファイルをディレクトリ以下にユーザIDごとに作成するとかもある
ハッシュ配列だと例えば、

name 山田太郎
addr 東京都＊＊区＊＊＊
phone 03-****-****
age 21
sex male

という風にユーザごとに作成すれば可能だと思いますが、
ハッシュ配列でユーザごとにファイルを作成していくのと、
CSVファイルで作成するのはどちらが良いのでしょうか・・・？

524 ：nobodyさん：04/11/26 11:48:52 ID:???

>>523
5個しか項目ないならDBD::CSVだろうね
CSVならExcelでも開けるし
管理が楽。
（5項目でも何人規模かで変わるけど）

ユーザIDとか使っていろいろするなら
ユーザIDとパスワードだけはＣＳＶで管理して
細かい情報はユーザごとのファイルなりディレクトリなり作った方が後々楽だし
ＣＳＶは何よりデータが増えると比例して遅くなっていくけど
動的にファイルパスを作って直接アクセスするからある程度の速度が維持できると思う

それよりわざわざageなくてもいいよ

525 ：nobodyさん：04/11/26 12:08:26 ID:???

>>524
度々のレス多謝です。

＞5個しか項目ないならDBD::CSVだろうね
実際には10項目位ありますorz
規模は10～30人程です。
その場合はユーザごとにファイル作るようにした方が良いです蟹？

＞ユーザIDとパスワードだけはＣＳＶで管理して
ユーザID、パスワードも欲しいいので、その２項目は一つのCSVファイルに入れた方が
良いのですか。フムとても勉強になります。

526 ：nobodyさん：04/11/27 00:14:10 ID:bz1yMaUi

某有料CGIプログラム配布サイトに金振り込んで連絡したら音信不通です。どうしましょう？

527 ：nobodyさん：04/11/27 00:22:58 ID:???

>>525
最大50人としても50行しかファイルないし
DBD::CSVでOK。

レスポンス気になるならBenchmark.pmとかで計ってみればいいと思うよ

DBD::CSVの場合は1ファイルの大量入れるとレスポンス悪いから
同時に使うデータだけを２～３ファイルに分けた方が
メモリ的にもやさしいよ。

ユーザごとにファイル作るのはDBD::CSVで管理できないぐらい（何万件とか）にするのがいいよ。
開発面ではDBD::CSVのほうが楽。
ディレクトリとかで管理するメリットは項目が後々足しやすいとか
画像などユーザ別のファイルアップロードにも対応できるぐらい

DBD::CSVはSQL使えるから
DBへの移行も楽になる

どっちにせよガンバレ。

528 ：nobodyさん：04/11/27 00:37:31 ID:???

はじめまして、失礼ながら質問させていただきます。
perｌでCGIチャット作ってるんですけど、
入室時に名前色を選択メニュー<select>で選べるようにして
その隣に1行の入力ボックスを作って、
選択メニューで色を選択しない人はそこにカラーコードを直接
入れられるようにしたいんです。
そして直接カラーコードを1行ボックスに入れた色が優先されるように。
しかし、両方のnameに同じ名前を入れても
1行ボックスのほうしか働いてくれません。（当たり前ですが）
こういう場合どうしたらいいでしょうか。
とりあえず説明が下手で申し訳ないので、ソースを貼ります。

<b>名前色 </b><select name="ncolor">
EOM
foreach (0 .. $#COLORS) {
print "<option value=\"$COLORS[$_]\" style=color:$COLORS[$_]>$IROIRO[$_]\n";

}

print <<"EOM";
</select> <input type=text name="ncolor" size=17>

こんな感じでよろしくお願いします。

529 ：nobodyさん：04/11/27 00:44:11 ID:???

>>526
マジで？
確認のメールとかしてみたら？
それでも音信不通ならサイト名公表してもいいんじゃね？

530 ：nobodyさん：04/11/27 00:45:46 ID:???

>>538
nameを別個にして受け取った時に処理するしかないよ

531 ：nobodyさん：04/11/27 00:46:11 ID:???

>>528 ですたorz

532 ：nobodyさん：04/11/27 00:48:11 ID:???

>>528
２つのnameを別々にして
ifでtextが入ってればselectの値を無視してtextを優先でいいんじゃないの？
nameを一緒にしないといけない理由とかあるのかな？

533 ：526：04/11/27 01:06:32 ID:???

>>529
とりあえず月曜日にもう一度催促してみるよ

534 ：nobodyさん：04/11/27 02:06:38 ID:???

>>530
>>532
レスありがとうございます。
そうですね、nameを一緒にする必要は全くありませんでした。
あほですいません。
ifで構文を作るにあたって、基本はわかってるつもりなんですが
「無視する」というか無効にするというようなコマンドがわからないのですが
もしよろしければ構文の簡単な例など教えていただけませんでしょうか。
手元のマニュアルを熟読し、ウェブでもずっと検索して探してみたのですが
読み方検索の仕方が悪いのか、さっぱり見つかりませんでした。
本当にあつかましくて申し訳ありません。

535 ：nobodyさん：04/11/27 02:44:12 ID:???

>>534
受け取ったデータでいらないものはどうするって質問？それとも釣り？
釣りじゃなきゃ勉強し直したほうが良いよ
配布してるスクリプトでも眺めて何をどうしてるのか自分で調べてみ

536 ：nobodyさん：04/11/27 04:18:54 ID:5LX6miUQ

>>527
先生改めて多謝です南無南無。

＞ディレクトリとかで管理するメリットは項目が後々足しやすいとか
＞画像などユーザ別のファイルアップロードにも対応できるぐらい
確かにユーザごとにディレクトリがあれば、個々の画像ファイル等は管理しやすいですね。

＞DBD::CSVはSQL使えるから
そうなんですか！？ということは、
select読み出し、insertコマンドで書込み等が可能なのですか？

537 ：nobodyさん：04/11/27 06:28:45 ID:???

>>536
「検索」って言葉知ってる？
http://homepage3.nifty.com/hippo2000/perltips/DBD/csv.htm

538 ：nobodyさん：04/11/27 08:45:58 ID:???

つか、ここが質問スレでないということをどれくらいの人が知っているのだろうか…

539 ：nobodyさん：04/11/27 14:31:46 ID:???

>>536
うむ　SQL使える
だから「DBD」::CSVなんだよ

CSV操作だけなら
Text::CSV_XSでできるから。

確かにここは質問スレではないから後は頑張ってちょうだい

540 ：nobodyさん：04/11/27 14:34:36 ID:???

スレタイは明らかに質問系のスレのような…

541 ：nobodyさん：04/11/27 15:47:41 ID:???

>>540
日本語的にはそうだが
http://pc5.2ch.net/test/read.cgi/php/1101522903/
のほうが本当の質問スレ

542 ：nobodyさん：04/11/27 16:30:05 ID:???

>>540
２ちゃんねるガイド：応用
http://info.2ch.net/guide/adv.html#saku_guide
削除ガイドラインの６．連続投稿・重複の重複スレッドで、
本来は削除されるべきスレッドと思われ。

削除依頼されなかったか(今以上に過疎板だったらしい)、
ネタスレ(雑談その他)の判断で残されたのかも知れないけどね。

543 ：nobodyさん：04/11/27 16:39:05 ID:???

>>542
重複じゃないとは言ってないが。

544 ：nobodyさん：04/11/27 17:32:01 ID:???

リスト4-2のcgiでは# アクセス情報の整形
$ln = "$hour\t$min\t$ENV{'REMOTE_HOST'}\t"
. "$ENV{'HTTP_REFERER'}\t$ENV{'HTTP_USER_AGENT'}\n";
があったのですが
つぎの4-3のcgiでは
# アクセスログ集計
$tm = time;
for($i = 0 ; $i < $EXPIRES ; ++$i) {
# ログファイルを開く
($sec, $min, $hour, $mday, $mon, $year) = localtime($tm - $i * 60 * 60 * 24);
$year += 1900;
++$mon;
open(FILE, "<$LOGPATH$year$mon$mday.dat") or next;
eval{ flock(FILE, 1) };
# アクセスログ集計
while($ln = <FILE>) {
# 項目の切り出し
($hour, $min, $host, $refer, $agent) = split(/\t/, $ln);
++$freq[$hour];
}close FILE;
といきなり切り出しになってます。
パールって前でつくったcgiの変数はあたらしいcgiをつくってみ生きてるんですか？

545 ：nobodyさん：04/11/27 19:16:32 ID:???

ttp://irofla.com/data/?name=kurekure&type=swf

546 ：526：04/11/27 20:41:00 ID:???

そういえばジャパンネット銀行って土日でも確認できるの？

547 ：nobodyさん：04/11/27 21:22:51 ID:???

>546
基本的にネットで見に行けば24時間年中無休。

548 ：526：04/11/27 21:25:02 ID:???

>>547
サンクス！
催促メール出してきました。

549 ：nobodyさん：04/11/28 03:04:54 ID:???

>>540-543
質問スレって変な奴がいるとき多いし、そういうときは、別のとこで質問できる方がいいじゃん。

550 ：nobodyさん：04/11/28 04:27:11 ID:???

>>549のような困ったチャンがローカルルール無視をして叩かれるのであった。

なおスレタイは
「Perlのこと何でも聞いてきてよ」
であり、
「Perlのこと何でも聞いてよ」
ではない。

すなわち質問スレでも隔離スレでもない。
>>1によるネタスレなんだ。
>>1-200くらいを見ればわかること。

551 ：nobodyさん：04/11/28 14:09:29 ID:???

いまさらスレタイなんかどうでもいいじゃん

552 ：nobodyさん：04/11/28 15:26:27 ID:???

>>550
キチガイ乙

553 ：nobodyさん：04/11/28 22:39:29 ID:2DpPjBVF

新幹線での移動中にperlで遊ぼうと思っています。
ともかくperlが動く、最軽量なマシンってなんでしょう？

PDAだとだめだがリナックスザウルスはOKらしいので、これに
しようかと思ってますが、誰かリナックスザウルスでperlしてる人
いましたら使用感とか使い心地とか使い勝手とか御親切に教えて
ください。

554 ：nobodyさん：04/11/29 00:38:30 ID:???

>>553
さすがにそれはモバイル板逝ってくれ。

ちなみにWinCEでもperlは動く。

555 ：nobodyさん：04/11/29 09:47:34 ID:???

>>553
ノートパソコンとか

556 ：nobodyさん：04/11/29 14:07:25 ID:???

>>555
PDAほどの手軽さを求めてるのに
ノートはないだろ

557 ：nobodyさん：04/11/29 14:59:50 ID:???

ハッシュの利点って何ですか？

558 ：nobodyさん：04/11/29 15:18:03 ID:???

ハッシュの利点って言われても一言では言い表せないな。
「使ってみれば分かる」って感じかな？

559 ：557：04/11/29 17:10:16 ID:???

>>558
ほほう。
例えばどんなことに使ってますか？

560 ：nobodyさん：04/11/29 18:15:12 ID:???

　こ　こ　は　質　問　ス　レ　で　は　な　い

561 ：nobodyさん：04/11/29 18:22:37 ID:???

じゃあ雑談に使ってもいい？

562 ：nobodyさん：04/11/29 18:26:32 ID:???

>>560
お前がスルーすればいいじゃん自治厨

563 ：nobodyさん：04/11/29 20:32:26 ID:???

>>562
お前みたいなやつがいるから自治が必要なんだろうが

564 ：nobodyさん：04/11/29 20:33:15 ID:???

>>563
必要ねえよ自治厨

565 ：nobodyさん：04/11/29 20:47:33 ID:???

>>564
お前が必要ねえよ煽り厨

566 ：nobodyさん：04/11/29 21:11:38 ID:???

自治厨乙

567 ：nobodyさん：04/11/29 21:21:28 ID:???

じゃあ雑談でもはじめようか

568 ：nobodyさん：04/11/29 21:22:46 ID:ZVb7XI0u

晒しあげ

569 ：nobodyさん：04/11/30 01:23:18 ID:ZkGwVsnh

568 ：nobodyさん：04/11/29 21:22:46 ID:ZVb7XI0u
晒しあげ

570 ：526：04/11/30 11:10:51 ID:???

やばい。マジで音信不通…

571 ：nobodyさん：04/11/30 11:58:06 ID:???

>>570
社名公表！！！

572 ：nobodyさん：04/11/30 12:42:04 ID:???

タクボくんのところとか？

573 ：526：04/11/30 13:32:39 ID:???

今気付いたらトップページ(1050円)と詳細ページ(1000円)と価格が違うんですけど。。。
俺は1000円振り込んだけど、1050円請求されても払わんぞ！！

574 ：nobodyさん：04/11/30 22:40:21 ID:???

>>573
1000円のところは税別とか書いてないの？
消費税だったら請求される恐れがあるけど
たった50円を振り込むのもかなしいな
ガンバレ！

575 ：526：04/11/30 22:51:35 ID:???

>>574
かいてないんですよ。
でも、50円振り込んで手数料315円は痛い orz

あんまりしつこく催促するのもアレだから、とりあえず数週間粘ってみるよ。

576 ：nobodyさん：04/11/30 23:51:02 ID:???

指摘したら1000円のところを書き換えられる恐れがあるから、キャプしとけば？

577 ：526：04/12/01 09:26:58 ID:???

>>576
やっときました。

以前買ったときはすぐメールできたんですけどねぇ。。

578 ：526：04/12/03 22:58:05 ID:???

来た…
遅れた原因はメールが届いていなかったらしい…（Hotmail

579 ：nobodyさん：04/12/04 00:26:49 ID:???

>>578
多分それはどっちかの迷惑メールフィルタにかかったとかじゃないのかな
hotmailとyahooはスパムメールかなりあるし

まぁ結果的に詐欺じゃなくてよかったね

580 ：nobodyさん：04/12/08 02:20:07 ID:djn8Vpfv

perlに詳しい皆さんに質問です。

実は私の管理しているバイト先の掲示板(perl)で荒らしが一人来まして、
特定の人の中傷などを繰り返しているのです。
その掲示板はバイトの連中しかアドレスを知らないので内部犯行間違いなしなのです。
んで、何とか投稿している携帯の機種だけでも分かれば犯人が特定できると思い、
方法はないかと質問させていただきました。

ちなみに私の借りている掲示板にはブラウザ名を表示するような機能はないのですが
そういった機能がある掲示板も見かけますのでなんとか改造したりできれば…とおもってます。

581 ：nobodyさん：04/12/08 02:29:05 ID:???

マルチ氏ね

582 ：nobodyさん：04/12/08 04:31:45 ID:???

>>580
有。

583 ：580：04/12/08 11:33:41 ID:M2Rgkbgk

>>582
以前に投稿された書き込みの機種判定などもできるのでしょうか？？
それらしきログはとってないのですが…

なんとか犯人を探し出してそいつにキマヅイ思いをさせたいのでお願いします！！！

584 ：nobodyさん：04/12/08 11:48:11 ID:???

>>583
できるわけねーだろ

585 ：nobodyさん：04/12/08 12:52:15 ID:???

>>583
なるほど、それなら

586 ：nobodyさん：04/12/08 19:20:53 ID:???

>>583
場合によっては。

587 ：nobodyさん：04/12/08 20:14:58 ID:???

>>583
報酬によっては。

588 ：580：04/12/09 06:26:10 ID:g4pqhVry

>>587
ことの経過を事細かに報告しますが…

589 ：nobodyさん：04/12/09 17:54:44 ID:???

cgiとかの仕事募集してるとこにでもつくってもらえ

590 ：nobodyさん：04/12/09 23:23:18 ID:bmLCcXHr

perl を使って、エクセルのファイルをオープンオフィス(Calc)に読み込ませて、ＣＳＶで出力させる、
ってのは出来るんでしょうか？

591 ：nobodyさん：04/12/10 13:14:12 ID:???

オープンオフィスに読み込ませるまでもなく出来る。
Excelのファイルを取り扱えるモジュールがあるからそれ使え。
モジュールとかモジュールとかモジュールとかperlの利点だから。

592 ：580：04/12/10 18:01:03 ID:LEgFwqhr

アクセスログを配置しますた！！

あとは荒らしくんがひっかかってくれればアツイことになりそうな予感♪

593 ：nobodyさん：04/12/10 20:56:06 ID:???

（ ´,_ゝ`）ﾌﾟｯ

594 ：nobodyさん：04/12/11 01:02:10 ID:???

とほほのWWW入門がついに惑星鯖と縁を切ったね

http://www2e.biglobe.ne.jp/~s-hasei/
http://www.tohoho-web.com/

595 ：nobodyさん：04/12/11 01:09:02 ID:???

ブラウザ名とかを吐き出すユーザーエージェントは偽装できる。ホスト名で判断すると良い

596 ：590：04/12/11 02:28:35 ID:???

>>591
調べたら「Spreadsheet::ParseExcel」というものがあるんですね。
これを使えば何とかなりそうです！

情報どうもありがとうございました

597 ：nobodyさん：04/12/11 02:36:49 ID:???

てゆーか
OpenOffce.orgのCalcでxls開いてCSV出力すればいいだけなんでわ……
Perlが挟まる必要ないぢゃん……
あぁ、ファイルがしこたまあってうっとうしいのか。なら分かる。

598 ：nobodyさん：04/12/11 21:25:22 ID:???

Perlの命令一覧ってないのですか

599 ：nobodyさん：04/12/11 21:43:18 ID:???

>>594
最初本気でびびった

600 ：nobodyさん：04/12/11 22:53:55 ID:???

>598
$ man perlfunc

ActivePerlならHTMLマニュアルが付いてくるだしょ?

601 ：nobodyさん：04/12/12 13:39:02 ID:???

>600
ついていました・・・　ありがとうございます

602 ：nobodyさん：04/12/12 14:20:24 ID:???

GD.pmについて教えて下さい。
GIF画像を読み込むのがうまくいかなかったのでGD.pmを見ていたのですが、

sub GD::Image::newFromGif {
croak("Usage: newFromJpeg(class,filehandle,[truecolor])") unless @_>=2;
my($class) = shift;
my($f) = shift;
my $fh = $class->_make_filehandle($f);
binmode($fh);
$class->_newFromGif($fh,@_);
}

2行目のところでnewFromJpegと書かれています。これはこのままで問題ないのでしょうか？

603 ：nobodyさん：04/12/12 21:39:27 ID:???

>>602
エラーのメッセージなので処理自体には影響しませんよ。
私の所のGD.pmではnewFromGifになってるので、GDのバージョンをチェックしてみるといいかも。
ライセンスの問題でGIFのサポート切ってた事があったはず>GD

604 ：nobodyさん：04/12/12 21:45:31 ID:???

>>603
レスありがとうございます。
そうですか、エラーメッセージだったのですね、お恥ずかしい；

605 ：nobodyさん：04/12/15 10:04:19 ID:8vt+C6QH

掲示板に会員認証を追加したんだけど、
そもそもプレーンテキストだと何人分くらいのデータ収納が（実用的に）可能だろうか。

2<>テスト<>0bshk5a1dx<>[email protected]<>localhost<>2004年12月13日（月）02時27分19秒<>yzzzj35pga<>00001<>

だいたいこういう内容。

606 ：nobodyさん：04/12/15 10:11:30 ID:???

場合によりますよ

607 ：nobodyさん：04/12/15 21:01:26 ID:???

時刻はUNIXタイムのほうが後々楽

608 ：nobodyさん：04/12/15 21:04:02 ID:???

PERLで証明書(PFX形式)が必要なサイトにSSLで
アクセスして情報を取ってくることをしたいのですが･･･
LWPとSSLeayを使って可能なものなのでしょうか？
違ったモジュールでやるものなのでしょうか

609 ：nobodyさん：04/12/15 22:45:26 ID:???

>>608
LWP::でSSL用のあると思うぞ

610 ：nobodyさん：04/12/15 23:24:56 ID:DXFXbONm

>>606
場合によるというと、たとえばどんな場合があるでしょう。

611 ：nobodyさん：05/01/03 07:23:59 ID:QK0Phxxj

FreeBSD の ports って今も Perl 5.6.1 が Perl5 だよね。
Perl 5.8系が標準 Perl5 に採用されない理由って何？？

612 ：nobodyさん：05/01/03 14:53:46 ID:???

>611
MLで聞いてみるのが一番では。
想像すると、
・Encodeモジュールが標準になったあたりが悪さをしてないか見極めが付かない
・そのうち6出るんでしょ? だったらわざわざports仕立てるのﾏﾝﾄﾞｸｾ
かな?

613 ：nobodyさん：05/01/03 16:14:12 ID:m1NsWAid

単純に掲示板に削除機能をつけたいです。

http://keizibann.hp.infoseek.co.jp/cgi-bin/gokuaku/script.txt
スクリプトはこれ↑

http://keizibann.hp.infoseek.co.jp/cgi-bin/gokuaku/kaizouyou.cgi
掲示板はここです↑

お願いします。

614 ：nobodyさん：05/01/03 16:26:57 ID:???

>613
■こんなCGI作ってください■
http://pc5.2ch.net/test/read.cgi/php/1102980903/

615 ：nobodyさん：05/01/08 20:01:59 ID:???

Spidering Hacks の HACK#93(goocount.pl) をコマンドプロンプトから実行した時に

"mismatched tag at line 5, column 2, byte 101 at C:/Perl/site/lib/XML/Parser.pm line 187"

というエラーメッセージが表示されます。
環境の不備でエラーメッセージが出ているのか、
それともgoocount.plのコードの不備でエラーが
出ているのかわかりません。
どなたかご教授願います。

Perlのバージョンは5.8.6
OS: Win XP
Google APIキーも取得して設定してます。

616 ：nobodyさん：05/01/08 21:56:14 ID:???

>>615
スレタイ読め

617 ：nobodyさん：05/01/09 05:17:27 ID:vqaQWTLW

Perlのおすすめのエディタがあったら教えてください。

618 ：nobodyさん：05/01/09 08:34:57 ID:???

>>617
使いやすいエディタって何よ？
http://pc5.2ch.net/test/read.cgi/php/991372719/l50

619 ：nobodyさん：05/01/09 11:30:36 ID:???

PerlでPunycode変換(エンコード&デコード)する方法があったら教えてください。

620 ：nobodyさん：05/01/09 18:01:54 ID:GtleWSzv

16進数どうしの和演算ってできる?
できたら方法知りたいんだけど

621 ：nobodyさん：05/01/09 18:33:28 ID:???

　こ　こ　は　質　問　ス　レ　で　は　な　い

622 ：nobodyさん：05/01/09 19:58:21 ID:GtleWSzv

>>621
>>616

623 ：nobodyさん：05/01/09 20:27:09 ID:???

>>622
で　も　こ　の　ス　レ　は　質　問　ス　レ　じ　ゃ　な　い

>>1-20くらい読んでみろ

624 ：nobodyさん：05/01/09 20:43:00 ID:???

>>623
やなこった

スレタイ嫁

625 ：nobodyさん：05/01/10 04:39:20 ID:???

>>624
藻前こそスレタイ嫁

「聞いてきてよ」だぞ
「聞いてよ」なら質問スレと認定するが、
「聞いてきてよ」はネタスレだろ？

626 ：nobodyさん：05/01/10 04:40:21 ID:???

よく600までいったもんだ。

627 ：nobodyさん：05/01/10 16:06:53 ID:???

>>625
お前が質問に答えないのは自由だが
俺が質問に答える自由を阻害すんな。無益だから。

628 ：nobodyさん：05/01/10 18:10:43 ID:???

・スレ違い、板違いがなぜ誘導されるのか。
・スレのテンプレになぜ過去スレのURIを書くのか。

この二点をまとめて、担当の先生に提出すること。

629 ：nobodyさん：05/01/11 17:34:39 ID:sGnYe9CH

perlを始めたばかりの初心者です。
perlが使えるサーバーにtest.cgiをうｐしたんです。
test.cgiには、
#!/usr/local/bin/perl
print"Content-type: text/html\n\n";
print"<HTML><BODY>\n";
print"Hello\n";
print"</BODY></HTML>\n";
とあります。アクセスしたんですが、「hello」と表示されません。
それどころか、うｐを確認してるのに「ページが見つかりません」です。
パーミッションは７５５です。なぜでしょうか？

630 ：629：05/01/11 17:36:01 ID:sGnYe9CH

ＯＳはWinXPです。

631 ：nobodyさん：05/01/11 17:50:39 ID:???

>>629
そのサーバーでcgiを使うときは、下記の部分が
#!/usr/local/bin/perl
でいいのかどうか（#!/usr/bin/perlに変更するとか）。
また、ページを表示させるURLは、通常のアドレスで末端に /test.cgi と
付け足せばいいのか、cgi用のURLにしないとだめなのか、
などをチェック。
ニフティだとURLが通常URLと別です（cgiファイルのアップロード先
も別です）。

632 ：漏れ：05/01/11 22:47:54 ID:???

>>1
漏れが聞いてやる
Perlって何だ

633 ：nobodyさん：05/01/11 22:58:29 ID:???

>>632
病的折衷主義ガラクタ出力機　Pathologically Eclectic Rubbish Lister　の略

634 ：nobodyさん：05/01/12 05:45:26 ID:???

串弾くいい方法教えてください
ポートスキャンは重いのでそれ以外で
クッキーはありで

635 ：nobodyさん：05/01/12 06:09:21 ID:BvBJ2NNx

【問】
forか、whileを用いよ。
階乗を計算して、結果を表示する。
１の階乗=1、２の階乗=2*1、３の階乗=3*2*1、
４の階乗=4*3*2*1、．．．のように計算する。
１８以上の数字が入力されたら１７以下の数字を
入力するよう促す言葉を表示する。

こんな宿題デタンですが、どーやるんでしょか？

636 ：nobodyさん：05/01/12 07:35:25 ID:???

ロジックまで問題に書いてあるなんてどんな宿題だよ

637 ：nobodyさん：05/01/12 07:35:56 ID:???

>>635
再帰使え

638 ：637：05/01/12 07:38:01 ID:???

for か while 使えって書いてあったのね
637はあぼーんしてくれ

639 ：nobodyさん：05/01/12 20:38:28 ID:???

>>634
ＤＳＢＬとかＢＢＱ使え

640 ：nobodyさん：05/01/14 23:15:35 ID:???

Windowsの環境でタイムアウト処理ってできますか？

641 ：629：05/01/15 14:45:30 ID:2P0rPuHE

>>631
ありがとうございました。できました。

642 ：nobodyさん：05/01/15 14:54:23 ID:???

今度は質問スレじゃないところで聞いたりするなよ

643 ：nobodyさん：05/01/15 17:21:26 ID:???

これはオマイラの管轄だろ？
答えてやってくれ。

160:01/15 16:44 g2F/oT2N
cgiゲームを作っているのですが、サーバーの負荷を小さくするには

・CGIファイルそのものを小さくする
・CGIファイルが多少大きくなっても計算部分を少なくする

のどちらをえらべばよいのでしょうか？

【初心者歓迎】ｽﾚを立てる前にｺｺで質問を【Part7】
ttp://pc5.2ch.net/test/read.cgi/gamedev/1103954329/

644 ：nobodyさん：05/01/15 17:23:02 ID:???

ベンチ取れ

645 ：nobodyさん：05/01/15 17:48:57 ID:???

放置しとけ

646 ：nobodyさん：05/01/15 18:58:29 ID:7AkIv2RR

>>643
CPUのクロック上げて、メモリ増やせ。

647 ：nobodyさん：05/01/15 19:11:44 ID:???

Perlで掲示板作ってるんですけど、
他のHTMLファイルとかの内容を取り込む方法ってありますか？
PHPのインクルードみたいな奴です。

648 ：nobodyさん：05/01/15 21:23:54 ID:???

>>647
情報小出しにするやつは氏ね

649 ：nobodyさん：05/01/15 21:42:48 ID:7AkIv2RR

>>647
PHPに詳しいならPHPで作れば？

650 ：nobodyさん：05/01/15 22:38:58 ID:3xU8DP+W

モロ出し歓迎

651 ：nobodyさん：05/01/16 02:48:59 ID:fX55wT5k

Perlスクリプト中で、UNIXのユーザーＩＤを取得したい場合はどうすれば良いのでしょうか？

652 ：nobodyさん：05/01/16 03:19:01 ID:zXcU90lG

>>651
ユーザ名を入力させる画面でも出せばいい。

653 ：nobodyさん：05/01/16 10:40:19 ID:???

>>647
HTMLファイルとかならファイル読み込みすれば？
スクリプトならrequireでやればいいんじゃね？

654 ：647：05/01/16 13:03:06 ID:???

>>653　ありがとうございます

655 ：nobodyさん：05/01/16 17:54:47 ID:???

>>653程度の説明で理解できるのに、なんであんな質問したの？

656 ：nobodyさん：05/01/16 18:12:20 ID:rJeV7Vfh

テキストファイルをDBとして使うサンプル見てるんですが、
データ更新したいのに最後に追記していくタイプばかりでうんざりです。
（更新するたびにファイルがでかくなっていく）
perlでテキスト何行目、何番目のデータを更新とかって出来ないんですか？

657 ：nobodyさん：05/01/16 18:32:54 ID:???

ネタスレで質問するやつばかりでうんざりです。
できませんよ。

658 ：nobodyさん：05/01/16 20:11:55 ID:???

固定幅のフォーマットなら不可能とまでは言い切れんけど

659 ：nobodyさん：05/01/18 00:43:27 ID:???

>>656
openの後にwhileとハンドラ使ってクルクルループさせて
カウントしたりとかなんとでもあるだろうが

660 ：nobodyさん：05/01/29 03:54:40 ID:iR0AIoTw

GDモジュール、GD::Graphモジュールが使えないんですが。。。
折れ線グラフを書きたいんですが、分かる人いませんか？？

661 ：nobodyさん：05/01/29 06:32:03 ID:???

こういう質問しかできないやつの隔離スレとしてはここも捨てたもんじゃないか

662 ：nobodyさん：05/01/29 07:22:17 ID:???

>>660
誰かエスパーキボンヌ

663 ：nobodyさん：05/01/29 08:25:50 ID:???

2chをチャットと勘違いしてんじゃねーの？

664 ：nobodyさん：05/01/29 08:27:49 ID:???

そ

665 ：nobodyさん：05/01/29 08:27:51 ID:???

れ

666 ：nobodyさん：05/01/29 08:27:54 ID:???

は

667 ：nobodyさん：05/01/29 08:27:58 ID:???

お

668 ：nobodyさん：05/01/29 08:28:01 ID:???

前

669 ：nobodyさん：05/01/29 08:28:03 ID:???

だ

670 ：nobodyさん：05/01/29 08:59:14 ID:???

ん

671 ：nobodyさん：05/01/29 09:02:39 ID:???

ご

672 ：nobodyさん：05/01/29 22:08:16 ID:???

AAで折れ線グラフでも擬似的にやれば？

673 ：nobodyさん：05/02/13 11:35:03 ID:w+Jdsb5L

Linux + Apache1.3.26 + Perl5でシステム関数を使用禁止にするにはどうすればいいですか？

PHPでいうdisable_functions = っていうini設定項目にあたる部分です。

674 ：nobodyさん：05/02/14 01:00:06 ID:fzJwBWF6

ペルルといえば、System、Exec、Open、`、<>とglobは要チェックだな

675 ：nobodyさん：05/02/14 08:38:33 ID:???

>>673
オーナーはrootでパーミッションを700にする

676 ：nobodyさん：05/02/14 23:53:51 ID:???

>>673
マルチは放置

677 ：nobodyさん：2005/03/26(土) 08:14:17 ID:???

放置っぷりがすごいな

678 ：nobodyさん：2005/03/31(木) 09:23:10 ID:???

An httpdとactive perlをインストールして
CGIテストはうまくいくのですが、
掲示板などのCGIとか普通のCGIが開けません。
アクセス権の問題だと思うのですが、どのように設定すれば
よいのでしょうか？参考になるページやアドバイスなど
よろしくお願いします。
ＯＳはwin XP professional使っています。

679 ：nobodyさん：2005/03/31(木) 09:27:40 ID:???

>>678
マルチは放置

680 ：nobodyさん：2005/03/31(木) 09:52:15 ID:???

>>678
私は優しいから放置はしないよ^^
んとね、それはきっとOSが悪いんじゃないか？
Apacheはオープンソースだからまだ対応してるOSが少ないのよね、だからUnix系のOSにすればちゃんと動くと思うわ^^
RedhatLinuxっていうのはオープンソースオールフリーのOSだから無料で使えるわよ＾＾

681 ：nobodyさん：2005/03/31(木) 09:53:08 ID:???

答えになってねえｗｗｗ

682 ：nobodyさん：2005/03/31(木) 09:56:44 ID:???

んとね、まずwindowsは開発向けのOSじゃないのよね
Perlを使った開発をしたいのなら、まずOSを変えなきゃダメってことね^^
んとね、Linuxでコマンド操作を覚えるとwindows使った時にMS-DOSでなんでもできるようになってるはずよ^^
cgiに興味があるなら、まずはLinuxを使ってみようね^^

683 ：nobodyさん：2005/03/31(木) 10:07:26 ID:???

おまえ暇なんだな
おれもだけど

684 ：nobodyさん：2005/03/31(木) 10:14:13 ID:???

ということはwindowsで出来てるこういう人は神ﾃﾞｽｶ？

http://www.e-and-a.ws/01/001.asp

685 ：nobodyさん：2005/03/31(木) 10:37:00 ID:???

おばかたん、もう素人さんはちゃんと言うこと聞きなさいよ^^;
アクセス権の問題っていうのは開発系コマンドプロンプトからしか設定変更できないようになっているの
windowsはアクセス権の操作はできないようになっているのよ、「読み取り専用」「隠しファイル」とかあるけど
これはアクセス権じゃないのよね

そこで登場するのがLinuxなの^^
Linuxはコマンドプロンプトでlsっていうコマンドを入力するとアクセス権が表示されるの
例えばcgiのファイルなら bbs.cgi- "アクセス権の許可"　みたいな感じにするとアクセス権がもらえるのよ^^

686 ：nobodyさん：2005/03/31(木) 10:59:06 ID:???

ローカルでPerlを実行させた際にDOS画面に結果が出力されるのですが、その文字色を指定するにはどうしたら良いのでしょうか
ググってみたんですが、文字色については解答が見つかりませんでした
どなたか検索のヒントだけでも教えていただけないでしょうか？

687 ：nobodyさん：2005/03/31(木) 10:59:15 ID:???

なにこの真性('A`)

688 ：678：2005/03/31(木) 11:09:12 ID:???

>>685
やはり長くやっている人のコメントはためになりますね。
Linuxも検討しながらがんばってみようと思います。
ありがとうございました。

689 ：nobodyさん：2005/03/31(木) 11:36:17 ID:???

>>685
lsってしたけどファイル名しか表示されませんでした。

690 ：nobodyさん：2005/03/31(木) 11:57:37 ID:???

>>689
もうしょうのない子ね。甘えん坊さんで＾＾；　コマンドはls -l　なのよ＾＾
この先聞きたいことがあったら、あなたもLinux使いになってからおいでなさい＾＾
あたしを捕まえてごらんなさい　フフフ

691 ：nobodyさん：2005/03/31(木) 12:06:52 ID:???

やっぱり真性だ('A`)

692 ：nobodyさん：2005/03/31(木) 12:45:25 ID:???

2chで質問しまくりなんだろうなぁ。

693 ：nobodyさん：2005/03/31(木) 13:28:11 ID:???

俺が真性と言ってるのは>>682の事だけどな

694 ：nobodyさん：2005/03/31(木) 18:21:06 ID:???

>>682ってちょっとムカつくな

695 ：nobodyさん：2005/03/31(木) 18:50:21 ID:???

perlでコードを外部ファイルに記述するにはどのようにすればよいのでしょうか。
調べたところモジュールというものを使えるようなんですが、モジュールというと移植性が低いように自分の認識はあります。
そこで、モジュールはどこのサーバでも使えるか使えないか、これにお答え願いたいのです。
勉強すれば分かるのでしょうが、あまり時間がありませんので。
理解が足りないものですみません、よろしくお願いします

696 ：nobodyさん：2005/03/31(木) 19:09:40 ID:???

>>695
モジュールによる
Perlで書かれたモジュールならどこでもおｋ

697 ：nobodyさん：2005/03/31(木) 19:36:29 ID:???

perlの自作モジュールを使おうとしていました。
使えるということですね。
ありがとうございました。

698 ：nobodyさん：皇紀2665/04/01(金) 03:16:12 ID:3hPeX6SB

CGIの中で文字の置き換えをしたいのですが、

$text =~ s/メール/<b>メール<\/\b>/g;

のようにすると、500エラーが起こってしまいます。
どうも「ー」があると起こってしまうようで、エスケープを使っても状況が変わりません。
対策をご存知の方、ご教授願います。

699 ：nobodyさん：皇紀2665/04/01(金) 04:00:06 ID:???

>>698
500エラーっていってるようじゃ成長は望めない。
下を参考に自分で何とかしてみれ。
http://pc8.2ch.net/test/read.cgi/php/1104624784/2

それと、>>481だから今度は違う所に逝きな。

700 ：nobodyさん：皇紀2665/04/01(金) 04:21:42 ID:???

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　　$text =~ s/\Qメール\E/<b>メール<\/b>/g;
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,ﾟ∀。)

701 ：nobodyさん：皇紀2665/04/01(金) 10:27:53 ID:???

>>699
申し訳なかったです。以後気をつけます。

>>700
\Qと\Eで囲めば良いのですね。
ありがとうございます。助かりました。

702 ：nobodyさん：2005/04/02(土) 20:04:50 ID:A7D+JrLe

phpでパスワード付きzipを作成するコマンドを発行したいのですがどうしたらよいのでしょうか。

703 ：nobodyさん：2005/04/02(土) 20:08:46 ID:???

>>702
スレ違いです

704 ：nobodyさん：2005/04/02(土) 20:24:19 ID:???

間違えたますた

705 ：nobodyさん：2005/04/04(月) 17:08:58 ID:???

ごめん
->
=>
意味教えてくだせえ。
「演算子」で検索掛けてもワケわかりましぇん。。。

706 ：nobodyさん：2005/04/04(月) 17:20:26 ID:???

>>705
->　　意味：串が一本のおでんなり
=>　　意味：串が二本のおでんなり

707 ：nobodyさん：2005/04/04(月) 17:27:15 ID:???

矢印

708 ：nobodyさん：2005/04/04(月) 20:33:25 ID:???

"=>" = "="
あとは知らん、らくだ本でも読め

709 ：nobodyさん：2005/04/04(月) 23:26:10 ID:???

>>705

-> 矢印演算子
=> , コンマ演算子と同じだと思う

710 ：nobodyさん：2005/04/05(火) 05:59:50 ID:???

マンコ演算子

711 ：705：2005/04/05(火) 09:19:21 ID:???

ありがと。
「矢印演算子」で検索掛けたら出てきた。
意味もほんの少しわかった・・・さんくす。

712 ：nobodyさん：2005/04/07(木) 14:57:05 ID:???

マジ質問。スレ違いだったらスマソ

例えば自分で設置したBBSで、投稿されたデータを別に作ったHTMLに表示する
なんてことは出来る？
CGIごとにやり方は違うんだろうけど、出来るか出来ないかだけでも教えて

713 ：nobodyさん：2005/04/07(木) 16:44:32 ID:???

意味が分かりません

714 ：nobodyさん：2005/04/07(木) 16:57:32 ID:???

>>712
htmlで出力する掲示板ならある

715 ：nobodyさん：2005/04/07(木) 16:59:01 ID:???

htmlだとあいまいですね
htmlファイルを作成する掲示板はある
ということが言いたかった

716 ：nobodyさん：2005/04/07(木) 18:46:40 ID:???

>>714-715
レスサンクス

自サイトのトップページに最新の投稿記事を
表示できるようにしたいんだよね

掲示板に投稿することによって出来るhtmlファイルを
そのままトップページとして使用できるように
CGIの出力部分を改造してみた方が早いのかな？

717 ：nobodyさん：2005/04/08(金) 19:02:42 ID:???

>>716
掲示板の出力ファイルをトップページと同じにして、それを保存するか
出力時に記事一覧と最新記事の二つのファイルを出力。インラインフレームとかで最新記事のファイルを読み出す。

こんな感じ？

718 ：nobodyさん：2005/04/08(金) 19:44:18 ID:???

>>717
>716に書いたつもりが書いてなかったらしいorz
えーとインラインフレームはなるべくなら使いたくないんですよ
自分Macなもので、ブラウザのせいなのかフォントサイズの微妙な違いなのか、
インラインフレーム使用したページだとレイアウトが崩れるんです。

＞出力ファイルをトップページと同じにして
あーそんな感じかな？出力ファイルを任意にものに改造すれば
いいんだろうけど、それだと毎回サイトトップページが変更になる度に
書き換えなきゃならないし、500エラーが出そうだしなぁ…

自分、CGIとかHTMLとか全てソフトとかでやるので
あまりタグには詳しくないんですが
とか、$xxxとか、xxxなどで
CGI（掲示板）の投稿データをHTMLに直接呼び出せたら
凄く嬉しいんだけど無理かな？

719 ：nobodyさん：2005/04/08(金) 20:20:13 ID:???

>>718
SSIがてっとり早いけどね

720 ：nobodyさん：2005/04/08(金) 21:15:46 ID:???

>>719
SSI？名前だけは聞いたことあるけどどんなものか知らない…
ぐぐってきます～

721 ：720：2005/04/08(金) 21:19:52 ID:???

おお！なんだか期待していたもののようです
ありがとうございました

722 ：nobodyさん：2005/04/11(月) 15:21:24 ID:???

ごめん教えて。
mimer.plの一節にある

1 while s/($match_mime)[ \t]*\n?[ \t]+($match_mime)/$1$3/o;
s/$match_mime/&kconv(&base64decode($1))/geo;
s/(\x1b[\$\(][BHJ@])+/$1/g;
1 while s/(\x1b\$[B@][\x21-\x7e]+)\x1b\$[B@]/$1/;
1 while s/(\x1b\([BHJ][\t\x20-\x7e]+)\x1b\([BHJ]/$1/;
s/^([\t\x20-\x7e]*)\x1b\([BHJ]/$1/;

を、通常の
while(){

}
に書き直したらどうなります?
や、このままじゃ何をやってるのかいまいちわかんなくて。

723 ：nobodyさん：2005/04/11(月) 15:42:41 ID:???

while(s/($match_mime)[ \t]*\n?[ \t]+($match_mime)/$1$3/o) {1;}

724 ：722：2005/04/11(月) 15:57:33 ID:???

>>723
さんくす!!

while(s/($match_mime)[ \t]*\n?[ \t]+($match_mime)/$1$3/o) {1;}

ってことは

$_ =~ s/($match_mime)[ \t]*\n?[ \t]+($match_mime)/$1$3/o;

と同じ意味??あれ?

725 ：722：2005/04/11(月) 16:37:37 ID:???

全然違うじゃん・・・
忘れて

726 ：nobodyさん：2005/04/25(月) 17:49:31 ID:???

質問です。
カウンタや掲示板でデータファイルに書き込む時

A.読みこみオープン&ロック→読み込む→閉じる→処理→書込みオープン&ロック→書き込む→閉じる
B.読み書きオープン&ロック→読み込む→処理→書き込む→閉じる

↑の2種類があると思うのですがどういう違いがあるのでしょうか。
配布されてるソースを見るとAが多いようなんですが・・・。

727 ：nobodyさん：2005/04/25(月) 18:07:55 ID:???

データ長の調整とか読込んだデータでごにょごにょしたいときがあるから

728 ：nobodyさん：2005/04/26(火) 23:19:12 ID:???

>>726
Ｂだと処理中にエラーで落ちたときにデーターが壊れやすい

729 ：nobodyさん：2005/04/27(水) 09:56:24 ID:???

>>727 >>728
なるほど・・・ありがとうございます。

730 ：nobodyさん：2005/04/27(水) 14:28:26 ID:???

Aやるなら専用にロックファイル作ったほうが良いんじゃね？

731 ：nobodyさん：2005/04/27(水) 14:57:59 ID:???

つか A はプロセス a がデータを処理している間にプロセス b が
読み書きを行えるので、そもそも排他処理になっていない。
複数のプロセスが同時に書き込んでデータファイルが壊れると
いう状況が理論上起こらないだけで、例えばカウンタなら

1. プロセス a が読む (count = 10)
2. プロセス b が読む (count = 10)
3. プロセス b が書く (count = 10 + 1 = 11)
4. プロセス a が書く (count = 10 + 1 = 11)

と、正しい動作で簡単に取りこぼしが発生する。

よーするに A のような手順を踏んでいるスクリプトを書いてる
奴は信用ならんので参考にすんな。

732 ：nobodyさん：2005/05/09(月) 02:43:12 ID:okWVJ1UH

その辺のWebサイトを解析したいんだけど、HTML::ParserとXML::Parserとどっち使うの？
というか、必要なモジュール教えて

733 ：nobodyさん：2005/05/09(月) 04:33:23 ID:CH7bcurC

ttp://EAOcf-526p83.ppp15.odn.ne.jp/
ｗｗｗｗうはっうはっおｋうはっｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
おｋｗｗｗっうはっｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗっｗｗｗｗｗｗｗｗｗ

734 ：nobodyさん：2005/05/10(火) 10:35:14 ID:cUhZFrIY

cgi-binの中のperlスクリプトから
ドキュメントルート（.../public_html)以外のディレクトリ内にあるファイルを
読み込もうとすると、サーバーエラーが出てしまいます。
残念ながらerror.logはみれない環境なのです。

次のいずれかでもエラーです
1)
open IN, "./hoge/hoge.html"
2)
$path = $ENV{'DOCUMENT_ROOT'}."hoge/hoge.html";
open IN, "$path"

パーミッションは
hogeディレクトリ=755
hoge.html=644
です

カレントディレクトリ以外のアクセスが拒否される要因は、
なにかありますでしょうか？

サーバーはFreeBSD4.7です。

735 ：734：2005/05/10(火) 10:35:52 ID:cUhZFrIY

734ですが、
わかりにくくてすみません。

ドキュメントルート＝...public_html＝カレントディレクトリです。

ディレクトリ構成は、
public_html
|_ cgi-bin
です

perlスクリプトを起動直後のカレントはcgi-binですので、
直に　chdir "../";　しています。（するとカレントはpublic_htmlに移ります）
その後、openしています（ 568の記述の1) 2)の方法で）。

736 ：nobodyさん：2005/05/10(火) 10:52:10 ID:fK7kwoXt

質問なんですが教えてください。お願いします。
CGIでリンク集を作れるフリーソフトをダウンロードしたのですが
検索したときに「１件～１０件を表示」などのような、いくら見つかった
という表示がしないものでした。どうしたら表示できるようになるのでしょうか？
初心者のため、まったくわかりません。よろしければ教えてください。

737 ：nobodyさん：2005/05/10(火) 11:14:08 ID:rynAVkiM

http://YahooBB218140194113.bbtec.net/
ｗｗｗｗｗｗｗｗｗｗｗｗおｋｗｗｗっうぇｗｗｗｗｗｗｗｗｗｗｗｗ

ｗｗｗっうぇっうぇｗｗｗｗｗ
ｗおｋｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗ
うぇｗｗｗ

738 ：nobodyさん：2005/05/10(火) 11:58:18 ID:y5iVHFMf

http://C092H054.home12.cable.mecha.ne.jp/

っ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗっっ
うぇｗｗｗ
うぇｗｗｗｗｗｗｗｗｗうぇｗｗｗおｋｗｗｗ
っうぇｗｗｗｗｗｗｗｗｗｗｗｗおｋｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

739 ：734,735：2005/05/10(火) 12:51:13 ID:cUhZFrIY

apacheの設定ということはありますでしょうか？
あるとしましたら、どのあたりの設定でしょうか？

740 ：nobodyさん：2005/05/10(火) 17:42:15 ID:???

>>739
>>621

741 ：nobodyさん：2005/05/22(日) 13:19:42 ID:VlN92nbW

ログファイルの一部分
（例）
2<>name2<>sub2<>200<>
1<>name<>sub<>100<>

$NO<>$NAME<>$SUB<>$VAL<>という形で、
$NOが1の$VALのみ変更（上書き）や2の$VALだけ変更等はどのようにしたらいいのでしょうか？
投票のようなものを作っていて、条件が満たされればその項目の点数をあげたいのです。
この場合やはりseek関数を使うのでしょうか？

742 ：nobodyさん：2005/05/22(日) 14:11:33 ID:???

何の為のデリミタですか？

743 ：nobodyさん：2005/05/25(水) 01:40:06 ID:k3VUWIvk

http://www.motenai.net/cgi-bin/banana/banana.cgi

744 ：nobodyさん：2005/05/27(金) 02:55:34 ID:???

zipファイルにパスワードをかける方法を教えてください

745 ：nobodyさん：2005/05/27(金) 03:31:44 ID:???

>>744
open(F, '>> hoge.zip');
print F 'パスワード';
close(F);

746 ：　：2005/07/04(月) 16:31:34 ID:PeKdQt0r

ActivePerl + Windows2000 + Apache2で開発していますが、
無限ループおこしたperl.exeなんかがタスクマネージャーで殺せないんです
もちろんAdminで殺せないので、ApacheでＣＰＵ時間制限してもだめです
ＣＰＵ９９％とかになって一度失敗すると、再起動ってはめになるんですが
windows + activeperlで開発してる人はどうしてるんでしょうか。

747 ：nobodyさん：2005/07/04(月) 16:36:13 ID:???

>>746
Xp proだけど普通に殺せました。(・∀・)ﾆﾔﾆﾔ

748 ：nobodyさん：2005/07/04(月) 19:58:13 ID:???

perl.exeではなく、wperl.exeなら殺せた気がするけど気のせいかもしれない。

749 ：nobodyさん：2005/07/04(月) 22:20:56 ID:???

どうやったらＰｅｒｌプログラミングが深くわかるようになるの？
ラクダ本とか読んでもいまだによく理解できない。
ちょっとした掲示板などの、オープンソース読んでもいまいち
ぴんとこない。
どうすればよいのやら。

750 ：nobodyさん：2005/07/04(月) 23:06:41 ID:???

諦めろ。お前にPerlは合わないんだろう。他の言語を当たればいいさ。

751 ：nobodyさん：2005/07/06(水) 23:46:14 ID:???

>>749
ひたすら作りまくる

752 ：nobodyさん：2005/07/07(木) 16:53:41 ID:???

HTTP_ACCEPT_LANGUAGE を解釈して
jaとかenとかに分岐するperlはどんな風に書いたらいいですか？

753 ：nobodyさん：2005/07/08(金) 01:05:56 ID:???

>>752
ぐぐれ

754 ：JAPU：2005/07/08(金) 21:17:01 ID:???

はにゃーん

>>749
変なのを読むと実はそれがクソだったということがあるので注意。特に掲示板は。
use strict; していないやつはとりあえず捨てましょう。

>>752
http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.4
なので，お手軽にいくなら
@langs = map { /(\w+)/; $1 } split /\s*,\s*/, $ENV{HTTP_ACCEPT_LANGUAGE};
てな感じで @lang に言語入るので以下略。qvalue (q=xxx) の値とか使いたければ，
@langs = (map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { my($l, $q) = split /;/;
$q ||= 1;
$q =~ y/0-9.//dc;
print "[$l, $q]\n";
[$l, $q] } split /\s*,\s*/, $ENV{HTTP_ACCEPT_LANGUAGE});
print "@langs\n";

my $lang;
foreach my $l (@langs) {
if($l =~ /^(?:ja|en|ko)/) {
$lang = $l;
last;
}
}
$lang ||= "en";
print "$lang\n";
こんな感じでいいの? きちんと検証していないので利用は自己責任で。

755 ：nobodyさん：2005/07/08(金) 23:43:38 ID:???

オープンソースの掲示板やチャットには、２ｃｈでいうところの
「糞プログラム」「クソコード」「クソ」があるのですね。
人によってはそれを「スパゲティー」と呼んだりしてますね。

756 ：nobodyさん：2005/07/08(金) 23:44:46 ID:???

「クソ」でないちゃんとしたプログラムはどこにありますのやら

757 ：nobodyさん：2005/07/09(土) 00:16:16 ID:???

それを挙げちゃうと底が知れちゃうでしょ。
明らかに糞なもんだけ指摘しとけばそれっぽく振舞えるからそれでいいの。

758 ：nobodyさん：2005/07/09(土) 00:17:28 ID:???

m9(^Д^) ﾌﾟｷﾞｬｰ

759 ：nobodyさん：2005/07/09(土) 18:06:48 ID:???

>>756
少なくともJAPUたん(本物)が書いたモノはクソではないはず（バグはあっても・・・）
過去ログとか漁りまくればいっぱい見つかるよん（多分）
確か、公開されている他人のスクリプトを検証してセキュリティホールを晒したりもしてた（何年も前の話だけどね）

760 ：nobodyさん：2005/07/10(日) 09:26:32 ID:+tk22meL

image-magickで300Kくらいの画像は問題ないのですが、1Mくらいのサイズの画像を縮小させようとしたら途中で変換されず止まってしまいます
なにが原因なのでしょう
元画像:ttp://www.946yo.net/test/image.jpg
変換画像:ttp://www.946yo.net/test/image2.jpg
ソース
#!/usr/local/bin/perl
print "Content-type:text/html＼n＼n";
use Image::Magick;

$img_file = "image.jpg";
$width = "200";

$i = Image::Magick->new;
$i->Read($img_file);
$i->[x]->Scale($width);
$i->Write("mini_image.jpg");

761 ：nobodyさん：2005/07/10(日) 20:33:51 ID:BYWPJpu1

undefでメモリ開放出来るらしいのですが、
exitでも可能ですか？
exitの手前にundefするのは無駄でしょうか？

762 ：nobodyさん：2005/07/10(日) 21:24:56 ID:NbF3Xqh9

>>761
プログラムを終了しても確保したメモリを残したままにすることはできますか？

763 ：nobodyさん：2005/07/10(日) 21:26:53 ID:BYWPJpu1

>>762
俺が悩みすぎなだけだったか・・・

764 ：nobodyさん：2005/07/11(月) 13:12:24 ID:???

>>754
コード晒すのは結構だが、こういうのは名前だけでも CPAN モジュールを
挙げておいた方がイイ気がする。

use I18N::LangTags ();
use I18N::LangTags::Detect ();

my @lang = I18N::LangTags::implicate_supers(I18N::LangTags::Detect::detect());

てか、車輪の再発明って俺嫌いなんだよね。継続的にメンテできるならともかく。

765 ：nobodyさん：2005/07/11(月) 13:23:09 ID:/9KclxVJ

>760
おれんとこは普通に変換できるよ

766 ：nobodyさん：2005/07/11(月) 13:23:12 ID:???

>>760
顔と名前…プライバシーも糞もあったもんじゃないな(;´Д`)

手元で変換してみたけど問題は無かったよ。Web サーバ側でプロセスの
メモリ使用量を制限されてるんじゃないかと推測。

どっちにしろ、それだけじゃ情報量が不足してて的確な答えは出せません。

767 ：nobodyさん：2005/07/11(月) 14:36:05 ID:DqJcH8xh

>>764
どうもありがとう。
さっそく、I18N::LangTags ンストールしてきました。
>>754
中の人がどんなことをしてるかの勉強になりました。

768 ：nobodyさん：2005/07/11(月) 16:37:32 ID:QNaKh9Pe

use vars qw($version $imode_flag $mona_flag);
フリーのCGIを見ていると、このような箇所があったのですが、
これって何なんでしょうか？

769 ：nobodyさん：2005/07/11(月) 17:31:25 ID:???

>>768
our みたいなもん。つーか perldoc vars。

770 ：nobodyさん：2005/07/12(火) 11:04:51 ID:CdQFjjCK

みんな、cgi-lib.plとCGI.pmのどっち使ってる？
Perl6では、なんか新しいCGI用に便利なモジュールとかでるんですか？

771 ：nobodyさん：2005/07/12(火) 11:09:51 ID:???

用途にもよるがcgi-lib.plは使わない

772 ：nobodyさん：2005/07/12(火) 13:20:50 ID:CdQFjjCK

じゃ、CGI.pm使ってますか？それとも自前ですか？

773 ：nobodyさん：2005/07/12(火) 13:42:38 ID:???

ＣＧＩ.pmはデフォがほとんどだから自前ってことは無いんじゃ？

774 ：nobodyさん：2005/07/12(火) 18:18:30 ID:???

ただのフォームデコードだけなら自前かCGI::Liteで十分じゃね
俺の場合HTML::Template使うことが多いんでCGI::Lite.pm
簡単なHTML吐かせるだけならCGI.pm使うことも

Perl6はｼﾗﾈ

775 ：nobodyさん：2005/07/12(火) 19:08:44 ID:NlgVBMQc

$_ = qq{
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>};

s{<TR>.*?</TR>$}{}s;

print $_;

----------
で、全部消えちゃう

s{<TR>.*?</TR>}{}s;
だと、ちゃんと最短マッチで一行だけ消える

$で行末指定すると、最短マッチにならないのは仕様なの？

776 ：nobodyさん：2005/07/12(火) 19:37:24 ID:???

prelre 嫁

文字列に含まれる改行は "^" にも "$" にもマッチしない。
なので、{<TR>.*?</TR>$} は「文字列の」終端までマッチしてしまう。

777 ：nobodyさん：2005/07/12(火) 19:41:42 ID:???

改行無し
$_ = qq{<TR><TD></TD></TR><TR><TD>～略～</TD></TR><TR><TD></TD></TR><TR><TD></TD></TR>};
s{<TR>.*?</TR>$}{}s;

でやってみたけどやっぱり空欄になるね。

778 ：nobodyさん：2005/07/12(火) 19:48:42 ID:???

行頭から見ていくからかね。
行頭から$まで消える。

779 ：775：2005/07/12(火) 20:09:17 ID:NlgVBMQc

よくわからんのですが、結局、最後の<TR>...</TR>だけを消すにはどうしたらいいの？

780 ：nobodyさん：2005/07/12(火) 20:28:50 ID:???

初心者が頑張ってみましたよ
s{<TR>([^<TD]*)?<TD([^>]*)?>([^TR>]*)?</TD></TR>$}{}s;

781 ：nobodyさん：2005/07/12(火) 20:30:11 ID:???

訂正
s{<TR>([^<TD]*)?<TD([^>]*)?>([^TD>]*)?</TD></TR>$}{}s;
効率良いやり方俺も知りたいです。

782 ：nobodyさん：2005/07/12(火) 20:36:04 ID:???

$_ = qq{
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>};

print "[$_]\n";

@a = split(/<tr/i,$_);
pop(@a);
$_ = join('<tr',@a);

print "[$_]\n";

783 ：nobodyさん：2005/07/12(火) 20:39:15 ID:???

あ、そうか。正規表現ばかりが脳じゃない

784 ：nobodyさん：2005/07/13(水) 02:25:13 ID:???

$_ = qq{
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>
<TR><TD></TD></TR>};
$_ = reverse $_;
s{>RT/<.*?>RT<}{}s;
$_ = reverse $_;

print;

785 ：nobodyさん：2005/07/13(水) 02:36:03 ID:???

>>784は、数字に三桁ごとカンマを付ける処理の応用だお

$_ = 12345;
$_ = reverse;
s{(\d{3}\B)}{$1,}g;
$_ = reverse;

print;

786 ：nobodyさん：2005/07/13(水) 09:13:35 ID:???

おまいら初々しいな

787 ：nobodyさん：2005/07/13(水) 11:39:05 ID:???

reverseって長文の場合は時間かからない？

788 ：nobodyさん：2005/07/13(水) 12:52:35 ID:???

>>787
reverse の処理速度が気になるよなコトを Perl でやってはいけない。

789 ：nobodyさん：2005/07/14(木) 00:09:04 ID:A+ziPPVI

なんかPPMでモジュールのインストールが出来ないんだけど。
俺だけかな。

790 ：nobodyさん：2005/07/14(木) 06:49:37 ID:???

>>789
俺は出来る
ppm>version
PPM - Programmer's Package Manager version 3.1

791 ：nobodyさん：2005/07/14(木) 13:00:02 ID:opBAVVHm

特定の条件がそろうとサーバーに内部エラー(今回はHTTP_RESET 205)を返してもらいたいのですがどうすればいいのでしょう？

792 ：nobodyさん：2005/07/14(木) 20:54:08 ID:???

print <<EOF;
Status: 205

EOF

793 ：　：2005/07/15(金) 01:48:51 ID:???

Perl CGIのワーニングって速度に影響しますか？
perl -w で出るような変数１回しかつかってないよ系

794 ：：2005/07/15(金) 19:12:56 ID:???

実行中のperl CGIのメモリ利用量調べるにはどうすればいいですか

795 ：nobodyさん：2005/07/15(金) 21:24:09 ID:???

>794
俺はsleepさせてpsで挙動を見たことがあるけど
そもそもメモリを気にするようなデカいコンポーネントをCGIで実行するのはどうかと
mod_perlかFastCGIで常駐させたほうがいいと思うよ

796 ：nobodyさん：2005/07/15(金) 21:34:05 ID:???

>793
もちろんゼロではないだろうが、無視できるレベルでは？
むしろ-wそのものよりも、
-wによる出力内容をファイル等に落とすことのほうがオーバーヘッドが大きい罠

797 ：nobodyさん：2005/07/16(土) 15:49:57 ID:c8mV9oxP

foreachで放り込んでる途中にある行で条件にヒットするとforeachを中断して次の処理に・・・ってことは可能ですか？

798 ：nobodyさん：2005/07/16(土) 16:00:47 ID:???

できる

799 ：nobodyさん：2005/07/16(土) 16:18:14 ID:???

foreach $file (@files) { # foreachで放り込む(?)
処理1;
if (条件) { # 条件にヒットしたら
next; # 次の処理に
}
処理2;
}

800 ：nobodyさん：2005/07/16(土) 22:44:10 ID:???

文脈から考えて last のことだろ

801 ：791：2005/07/24(日) 22:34:03 ID:thQc31XV

　内部エラーを返すことはできたのですがボーダフォンでのみ205のエラーが認識されません

　これって何が原因なんでしょうか？

802 ：nobodyさん：2005/07/24(日) 23:20:49 ID:???

>>801
まずはどうやってるのか示すべきだろ。

803 ：nobodyさん：2005/07/27(水) 04:26:01 ID:4TEPd56R

すいません、教えてください。

perlでモジュラス１０ウエイト３を実装している例などありましたら
紹介してもらえないでしょうか？

コーディングで煮詰まって・・・orz

804 ：nobodyさん：2005/07/27(水) 05:54:58 ID:???

>>803

なんだそれ？と思ってググッテみたら
足し算、掛け算、引き算、割り算で算出できるものではあ～りませんか
なんで煮詰まってんの？速度とか？

煮詰まってるポイントを書いたほうがよさげよ

805 ：nobodyさん：2005/07/30(土) 03:01:52 ID:d2itdKNj

煮詰まりすぎてコードを誤消去しましたorz

もうダメポ・・・。

806 ：nobodyさん：2005/07/30(土) 03:20:21 ID:d2itdKNj

しょうがないので、ネットを漂流

このサイトで、モジュラス１０ウエイト３のPerlを書いた人を発見！

ttp://blog.livedoor.jp/nipotan/archives/85800.html　

こんなコードでした。

sub check_digit {
my $num = join '', reverse split //, shift;
return unless $num =~ /^\d+$/;
my $sum = 0;
$sum += substr($num, $_, 1) * ($_ % 2 ? 1 : 3) for (0 .. length($num) - 1);
$sum %= 10;
return $sum ? 10 - $sum : 0;
}

要件満たしてるんですかね？

あー、ダメだ。。。
自分で読めないほどに詰まるなんて。。。

はぁ

807 ：nobodyさん：2005/07/30(土) 09:51:24 ID:???

>>806
> 要件満たしてるんですかね？
君から要件を説明されてないのに俺らが分かると思うか？
エスパー募集なら他に行けよ。

どういう問題があって、何が分からないのか。人に質問する時の基本的な
こともできないのか？

Perl とか以前に、日本語とか人との会話を勉強するべきだと思うが。

808 ：nobodyさん：2005/07/30(土) 12:04:24 ID:d2itdKNj

すまん、もう何がなんだかわからなくてな

んで、その計算方法を次に示します。
（１）データキャラクタの中で最も右にあるキャラクタを奇数として、
　　すべてのデータキャラクタを奇数位置、偶数位置に分類する。
（２）奇数位置にあるキャラクタを合計し、その結果に3を掛ける。
（３）偶数位置にあるキャラクタを合計する。
（４）（２）の結果と（３）の結果を合計する。
（５）10から（４）の結果の一の位を引いた数字が算出されたチェックデジットです。
　　（（４）の結果の一の位が0のとき、チェックデジットは0。）

実際に計算して見ると

2345の場合、
奇数は５，３なので積は８　コレに３かけるので　a=24
偶数は４，２なので積は６　b=6
c=a+bなので３０

１０からCの１の位を引き算　10-0=10　この結果の1の位がチェックデジットになるのです。

んで、さっきのコードを実装して試すと　結果が６になっちゃうんですわ。。。

　　

809 ：nobodyさん：2005/07/30(土) 13:09:36 ID:d2itdKNj

すいません。解決しました。

ごめんなさい。

810 ：nobodyさん：2005/07/30(土) 13:14:39 ID:gTYaFPro

どう解決したのか詳しく書けよ。

811 ：nobodyさん：2005/07/30(土) 13:36:31 ID:???

>>808
積?
加減乗除
和差積商

812 ：HEAD：2005/07/30(土) 17:45:32 ID:???

WEB制作からの誘導で来ました。
エキサイトフレンズ[http://friends.excite.co.jp/]みたいに、
WEB上でメールを送受信できたり、他のユーザーを検索したりする、
メンバーディレクトリ的なスクリプトってないですか？対応は、C,Perlです。

スレ・カテ違いでしたら、誘導お願いします。

813 ：nobodyさん：2005/07/30(土) 21:04:35 ID:???

>>812
http://pc8.2ch.net/test/read.cgi/hp/1116923112

814 ：nobodyさん：2005/07/31(日) 20:22:34 ID:tE006mzP

>>812
愛してる

815 ：nobodyさん：2005/08/06(土) 00:39:43 ID:???

#!/bin/sh
#PERL
/usr/bin/wget -r -l 1 -N -nH http://hoge.com/hoge.html > /dev/null 2>&1

これでcron使ってhttp://hoge.com/hoge.htmlから１層目までのファイルをダウンロードしようとしたんですけど

ambiguous redirectとでますた。

どこがおかしいんでしょうか？

816 ：JAPU ◆E.pgZNAsY2 ：2005/08/06(土) 14:18:15 ID:???

# 全然 Perl とは関係無いと思うけど。

ambiguous redirect って出ているので，サーバからの応答がおかしいのでは?
wget --save-headers URL
で，エラー起きたURL試してみればよいかもしれない。

817 ：nobodyさん：2005/08/06(土) 18:22:31 ID:???

>816
ありがとうございます。
やってみましたがまたambiguous redirectと出ました。

これ扱う質問はどこのスレですればいいんでしょうか？

818 ：nobodyさん：2005/08/07(日) 17:38:43 ID:oN+VAQu9

http://syobon.com/mini/src/mini3979.txt
これなんですが携帯からだと書き込めません。
書き込み画面までいけないです。
PCからは普通に書き込めます。
multipart/form-dataが関係あると思うのですが
因みにアップロード機能は使いません。
どこをどう書き換えればいいでしょうか？

819 ：nobodyさん：2005/08/08(月) 05:57:54 ID:???

あるデータから%を除去したいんだけどどう書けばいいの？

$str =~ s/＼%//g;

こうしたけどだめだった

820 ：nobodyさん：2005/08/08(月) 07:13:03 ID:???

何その全角バックスラッシュ。

821 ：nobodyさん：2005/08/08(月) 16:29:48 ID:smXZQKV9

822 ：nobodyさん：2005/08/08(月) 16:58:39 ID:???

>>820
マッキントッシュには\を＼に勝手に変えるものがあると聞いたことがある

823 ：perlばっかり1年やってるのに初めて。。。：2005/08/08(月) 17:12:39 ID:???

open ⇒ while ⇒ close
という普通の処理で下のようなエラーがでます。

Modification of a read-only value attempted at ファイル名 line 149.

なぜか while を foreach に変えると動きます。。。
普通 open ⇒ while ⇒ close ですよね？（；´ω｀）
なぜこのようなことが起きるのでしょうか？
よろしくお願いします。

824 ：823：2005/08/08(月) 17:20:43 ID:???

自己解決してしまいました_|￣|○
このパターン初めてだ。。。

825 ：nobodyさん：2005/08/10(水) 00:02:27 ID:PTE7pUU7

質問なんですが「ActivePerl-5.8.7.813-MSWin32-x86-148120」の一つ前のバージョンが欲しいのですが「ActiveState」のどの辺にあるのでしょうか？ずっと探してるのですが見つからなくて・・orz
何方か知ってる方居たら教えていただけませんか？

826 ：nobodyさん：2005/08/10(水) 00:36:15 ID:???

>>825
http://downloads.activestate.com/ActivePerl/Windows/5.8/

827 ：nobodyさん：2005/08/10(水) 00:43:51 ID:PTE7pUU7

826さんありがとうございます。もう何日も探してて：；
本当に感謝の気持でいっぱいです。ありがとうございましたm(_ _)m

828 ：nobodyさん：2005/08/13(土) 01:58:29 ID:???

>>700
音引きで置き換えなどができない問題で、
\Qほにゃらら\Eで置き換えた場合、文字化けが発生してしまうのですが、
これはJISコードだからでしょうか。
いまからでも、扱う文字を全部EUCにしたほうがいいですか？

829 ：nobodyさん：2005/08/14(日) 18:50:35 ID:???

PerlでバークレーDBを使ったサンプルCGIってありませんか？
バークレーについてはなかなかWEB上に見つけられなくて・・・。

会員だけがデータ登録可能で、一般ユーザは検索・抽出だけしたいのですが・・
バークレイはテーブルという概念はないのでしょうか？

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

830 ：nobodyさん：2005/08/14(日) 19:04:08 ID:???

>>829
氏ね

831 ：nobodyさん：2005/08/16(火) 16:07:03 ID:22f9XKc9

おまえらド素人な俺にご指南して

ＵＡでＰＣからのアクセスか携帯からのアクセスか判定する
foreachであらかじめリストに入れておいた文字列を開いてＵＡとマッチするとフラグが立つ
もしフラグが立っているならば今度はforeachであらかじめリストに入れておいた文字列２を開いてホストとマッチするか調べる
もしもホストが携帯固有のもので、前述したリストとマッチしたらページを表示する
それいがいはelseで別ページを開く（要はＵＡを携帯に偽装したアクセスを弾く）
サブルーチンは使わないで　ＨＴＭＬ部分はヒアドキュメントで記述しているんですが
携帯からアクセスすると、elseで用意したページの内容まで表示されてしまいます
しかも三回ぐらい（ページのバナーごと三回ぐらい表示される）
foreachの使い方に問題があるとおもうのですが、、、誰かご指南してください頼む

832 ：nobodyさん：2005/08/16(火) 17:22:46 ID:Y3KaJd+a

ソースも書けよ、馬鹿。
書かずに分かるわけないだろ。
エスパーじゃあるまいし。

833 ：nobodyさん：2005/08/16(火) 17:24:16 ID:???

>>831
リストとマッチしたらページを表示する
↓
リストとマッチしたらフラグ2を立ててlast
フラグ2があればページ表示
なければ別ページ

834 ：831：2005/08/16(火) 17:34:41 ID:22f9XKc9

>>832

$flag = 0;
$ua = $ENV{'HTTP_USER_AGENT'};
$ip = $ENV{'REMOTE_ADDR'};
$ipp = pack('c4',split(/\./,$ip));
$host = gethostbyaddr($ipp,2);
@check=("携帯のＵＡ");
@check2=("携帯のホスト");
foreach $check(@check){
if ($ua =~ m/$check/){
$flag = 1;
}
}
if ($flag eq 1){
foreach $check2(@check2){
if ($host =~ m/$check2/){
print <<EOM;

<html>携帯専用ページ</html>
EOM
}else{
print <<EOM;

<html>拒否ページ</html>

EOM
}
}
}
}

835 ：831：2005/08/16(火) 17:37:08 ID:22f9XKc9

>>833
ソースは上記の通りです
どのようにlastを使ったらよろしいでしょうか？

836 ：832：2005/08/16(火) 18:01:44 ID:???

>>834 アルゴリズムがおかしい。
if ($flag) {
foreach $check2 (@check2) {
if ($host =~ m/$check2/) {
$flag2 = 1;
last;
}
}
}
if ($flag2) {
print <<EOM;
<html>携帯専用ページ</html>
EOM
} else {
print <<EOM;
<html>拒否ページ</html>
EOM
}

837 ：nobodyさん：2005/08/16(火) 18:18:42 ID:???

そもそも、
最終的にホストではじいているのに、なんでUAをチェックする必要があるの？

838 ：831：2005/08/16(火) 18:23:15 ID:22f9XKc9

>>836
ありがとうございます。
携帯からはうまくいきました。
しかし、ＰＣから閲覧すると、拒否ページが表示され、
その下にＰＣページが表示されてしまいます。
バナーが１ページにふたつ表示されている状態です。
この場合なにが原因だと考えられますか？

839 ：831：2005/08/16(火) 18:24:38 ID:22f9XKc9

>>837
携帯を装ったアクセスを拒否するためです

840 ：831：2005/08/16(火) 19:35:34 ID:22f9XKc9

解決した
おまえらありがとう

841 ：nobodyさん：2005/08/16(火) 20:53:51 ID:???

>>829 ( ´_ゝ`)
http://www.google.co.jp/search?hl=ja&q=perl+Berkeley+db

842 ：nobodyさん：2005/08/17(水) 02:32:55 ID:???

すいませんが、fedora core3でのperl環境の構築についての質問は
linux板でしたほうがいいですか?それともここでよろしいですか?

843 ：nobodyさん：2005/08/17(水) 06:28:22 ID:???

Perlを実行する前の話ならLinux板と思われ

844 ：nobodyさん：2005/08/17(水) 18:34:30 ID:???

>>843
どもです。linux板で訊いてきます。m(_)m

845 ：nobodyさん：2005/08/18(木) 11:15:58 ID:qmrkuNcG

>>673の方法を探しています。
Linux+apache1.3.33+Perl5でシステム関数等を使用禁止にしたいです。
PHPにはsafe_mode？とかがあるようですが、、、
検索もうまくヒットできないので、ヒントを教えて頂けませんか

846 ：nobodyさん：2005/08/18(木) 21:05:39 ID:???

>>845
http://search.cpan.org/~nwclark/perl-5.8.7/ext/Opcode/Opcode.pm
http://search.cpan.org/~nwclark/perl-5.8.7/pod/perlrun.pod

847 ：nobodyさん：2005/08/25(木) 18:58:47 ID:/oUQtUpv

HTTPをしゃべるサーバを作りたいのです。
イメージとしてはwebminのminiserv.plみたいなものです。
だからといってminiserv.plパクるのは無しでお願いします。
httpsでお話できるのも必須です。
そんなナイスなCPANモジュールをご存じないですか？

848 ：847：2005/08/25(木) 19:02:38 ID:???

あと、あまり手間をかけずにCGI.pmがつかえるとちょっとうれしいです。
わがまま言ってｽﾏｿ

849 ：nobodyさん：2005/08/25(木) 19:57:35 ID:???

HTTPをしゃべるサーバを作りたいのです。
httpsでお話できるのも必須です。

↑

それって普通のHTTPサーバじゃないのか？

850 ：nobodyさん：2005/08/25(木) 20:05:03 ID:???

Webサーバ作りたいの？
何をしたいのか、誤解のないように正確に書きましょう。

851 ：847：2005/08/25(木) 23:17:51 ID:YyTm9DNH

誤解を与えてスマソ。結局HTTPサーバつくりたいんです。
そんなんで探してみたら、それらしいCPANのライブラリありますた。
http://search.cpan.org/~rse/lcwa-1.0.0/lib/lwp/lib/HTTP/Daemon.pm
こんな感じですね。
で、perlのスクリプトに対してリクエストが来たら、それを実行したいのです。
そして、このperlのスクリプトの中ではCGI.pmが使えるとうれしい、、とうい意味なのです。
なんでCGI.pmかというと、POSTやGETで来た変数をCGI.pmを使って楽に処理したいのからです。

結局、Perlで書かれたWebサーバで、CGIが実行できるものを探していまふ。

852 ：nobodyさん：2005/08/25(木) 23:21:33 ID:???

意味がわからん。

853 ：nobodyさん：2005/08/25(木) 23:25:41 ID:???

Apacheとか入れたらええやん。

854 ：nobodyさん：2005/08/25(木) 23:34:08 ID:???

ApacheとかIISじゃ何でダメなのか説明しないと、単なる奇特な人扱いされるがいいか？

855 ：nobodyさん：2005/08/25(木) 23:48:26 ID:???

cgiのローカルテスト専用httpd？

856 ：nobodyさん：2005/08/26(金) 06:50:07 ID:???

おそらく、本人も何をやりたいのかわかってないよ。

857 ：847：2005/08/26(金) 18:13:00 ID:???

お付き合いしてもらってどうもです。
ApacheやIISを使いたくない理由は、
単なる技術的興味で全てWEBサーバもperlで実装してみたい。というだけです。
奇特な人です（ｗ
で、自分で実装したWEBサーバ上で、任意のCGI(perl)を動かしたいと思ってます。

>>855
>cgiのローカルテスト専用httpd？
そんな感じをイメージしてます。

858 ：nobodyさん：2005/08/26(金) 19:08:16 ID:???

>>857
基本的な知識が足りない気がする

859 ：nobodyさん：2005/08/26(金) 22:28:12 ID:???

>>857
>>856

860 ：nobodyさん：2005/08/28(日) 16:44:44 ID:oW7L5bvy

質問なのですが
Basic認証のＩＤを複数登録している状態で
パスワードを共通のものに一括変換したいんですが
perlで簡単に出来るものでしょうか？

861 ：nobodyさん：2005/08/28(日) 16:45:39 ID:???

sage忘れました
申し訳ない・・・

862 ：nobodyさん：2005/08/29(月) 10:18:06 ID:vBUA0naf

>>860
それなりにperl使えるなら簡単にできると思うが、簡単にできるかどうか
質問するレベルの香具師には難しいかもしれんな。

863 ：nobodyさん：2005/08/29(月) 15:51:59 ID:???

Perlな

864 ：nobodyさん：2005/08/29(月) 15:54:51 ID:???

いやPERLだ

865 ：nobodyさん：2005/08/29(月) 16:59:00 ID:???

いいや　p e r l だ

866 ：nobodyさん：2005/08/29(月) 21:35:39 ID:???

何を云ふ
パァルではないか

867 ：nobodyさん：2005/08/29(月) 21:49:55 ID:???

いやＰｅｒｌだよ

868 ：nobodyさん：2005/08/29(月) 22:36:03 ID:???

ぺｒｌだろ

869 ：nobodyさん：2005/08/29(月) 23:00:59 ID:???

馬鹿だな。英和辞典引いてみろ。
正しくはpearlだぞ。
中学校で勉強し直してこいよ。

870 ：nobodyさん：2005/08/29(月) 23:11:46 ID:???

Perlは開発初期の一時期、
ほんとうに　Pearl　だった

1へぇ('A`)

871 ：nobodyさん：2005/08/29(月) 23:50:53 ID:???

常識

872 ：nobodyさん：2005/08/30(火) 18:26:52 ID:???

oop

873 ：nobodyさん：2005/09/01(木) 23:04:04 ID:bjOdnOK6

HTML中でサブルーチンが呼び出せないから教えろよ貴方達お願いします。

874 ：nobodyさん：2005/09/01(木) 23:05:28 ID:PCj3VA+5

意味が分からんから教えようがありません。ハゲが。

875 ：nobodyさん：2005/09/02(金) 00:46:09 ID:???

ヒアドキュメント中のことなら ${ \time } や @{[ time ]} の様に
リファレンスを取って即デリファレンスする構文でいっぺん氏ね。

876 ：nobodyさん：2005/09/02(金) 17:39:52 ID:+75P2vue

>>874
なぜハゲだとわかったんですか貴様。

>>875
よく言いたいことをわかってくれましたね。
もうおまえらに用はありませんので死んだらどうです？

877 ：nobodyさん：2005/09/02(金) 20:38:06 ID:???

>>876
つまらん

878 ：nobodyさん：2005/09/02(金) 21:58:02 ID:+75P2vue

>>877
じゃあ僕がもっと面白いことを言える様になるプログラムを組んでください。
おまえの笑顔が見たいからさ。

879 ：nobodyさん：2005/09/03(土) 03:39:59 ID:nnPn1Iyo

おしい。
おまえ”ら”だったら協力したのに。

880 ：kurochibi：2005/09/03(土) 16:09:57 ID:???

アンケート内容を POST メソッドで送るＣＧＩをＰｅｒｌ5.0で作った。
Ｏｐｅｒａでは正常に動いたが、ＩＥ6.0　と　ＦｉｒｅＦＯｘでは
Method not Allowed　というエラーが出てしまう。
プロバイダーはAppacheをFreeBSD上で使っている。
解決方法について何かヒント」を！！！

881 ：nobodyさん：2005/09/03(土) 16:22:12 ID:A1NacjAp

ソース貼れ

882 ：nobodyさん：2005/09/03(土) 20:46:25 ID:UUBko5tb

まずPerlをバージョンアップ

883 ：nobodyさん：2005/09/03(土) 22:26:47 ID:2jap+WvV

みんなに質問
みんなはファイル読んだ後、ファイル閉じてる？
閉じなくても変わりないから負担減らそうと思って省略してるんだけど、これってまずいかな？
書き込む時は閉じてるんだけど。
みなさんはどうしてますか？

open(UNKO,"umai.txt");
while(<UNKO>){

}
close(UNKO)←ここ

884 ：nobodyさん：2005/09/03(土) 22:51:16 ID:???

何が負担なのか分からん

885 ：nobodyさん：2005/09/03(土) 22:53:45 ID:2jap+WvV

ｺﾞﾒｿｗ
ちょっとでも省略出来たらいいな、と思って。
あまり意味ない？

886 ：nobodyさん：2005/09/03(土) 23:06:25 ID:A1NacjAp

ファイル開きっぱなしにするわけじゃないし、結局閉じるわけだろ？
たかが10バイトのディスク領域をケチって楽しいか？
10バイト削っても空き容量は増えないけどな。

887 ：nobodyさん：2005/09/04(日) 01:03:00 ID:???

そんなに削りたいならまず括弧を消すところからはじめろ。

888 ：nobodyさん：2005/09/04(日) 01:04:14 ID:???

""を削ると容量省略だけじゃなく早くなるって本当？

889 ：nobodyさん：2005/09/04(日) 02:44:52 ID:nWuo3A4u

@tarou=split(/<>/,<IN>);
foreach(@tarou){
～～
}

と

foreach(split(/<>/,<IN>)){
～～
}

って何か違いあるかな？
下の場合は、ループ中毎回分解処理をするのかな？

890 ：nobodyさん：2005/09/04(日) 12:11:13 ID:QV6CtW4c

require "giko.pl";
require 'giko.pl';
シングルとダブルのなにか違いでもあるのかな？
どちらでも動作してますけど・・・・

891 ：nobodyさん：2005/09/04(日) 12:15:42 ID:???

>>890
perldoc perlopを熟読してこい。
意味が分からないならググれ。

892 ：nobodyさん：2005/09/04(日) 19:54:48 ID:???

manは読みましたがperldocはよめねー
逝ってきます
　　 ||　　　　
　　 ||　　　　
　　 ||　　　　
　　 ||　　　　
　∧||∧　
（ / ⌒ヽ
　| |　　 |　
　∪　　|　
　 |　|　|　
　 ∪∪　
　
━━━━━

893 ：nobodyさん：2005/09/04(日) 20:13:10 ID:???

>>892
manが読めるならmanでもjmanでもよかよ。

894 ：nobodyさん：2005/09/05(月) 14:57:44 ID:spnR/kA9

質問させてください。
perlのopenについてなんですが、

open(FILE,"test.txt");
@data=<FILE>;
close(FILE);

一般的にこういう処理になるとおもうのですが、複数の外部ファイルを一度に
処理する方法はありますか？たとえば、test.txtとtest2.txtをいっぺんに処理
できる方法をおしえてください。perl初心者ですが、下のようなやり方をしても
無理でした・・・
open(FILE,"(test.txt,test2.txt)");
@data=<FILE>;
close(FILE);

複数の外部ファイルの処理は不可能なんでしょうか。。
なにかいい方法があったらご教授願います。

895 ：nobodyさん：2005/09/05(月) 15:39:39 ID:???

一度に処理って何だよ

896 ：nobodyさん：2005/09/05(月) 16:18:51 ID:???

open(FILE1,'test1.txt');
open(FILE2,'test2.txt');
open(FILE3,'test3.txt');
cloe(FILE1);
cloe(FILE2);
cloe(FILE3);
お好きなだけどうぞ

897 ：nobodyさん：2005/09/05(月) 16:19:26 ID:???

×　cloe
○　close

898 ：nobodyさん：2005/09/05(月) 16:54:07 ID:VkH+gvW7

「ペラル」ちゃー何か？

899 ：nobodyさん：2005/09/05(月) 17:43:35 ID:???

>>890
print hoge のhogeを""で囲うか''で囲うかみたいなもんかなぁ…。
""だと$hogeみたいな変数の中身が出てくるので、require "$hoge.pl"; みたいに使える。
わざわざそんな事する必要ないのだがな

900 ：nobodyさん：2005/09/05(月) 18:42:09 ID:???

Google Web APIsを使って検索をしたいのですが、明らかに文字化けした
結果が返ってきます…
http://www.antun.net/tips/soap/google.html
http://nakahara21.com/index.php?itemid=602
↑ここのページなんかを見ると、Googleのほうで仕様変更があって、
日本語キーワードをうけつけてない…という話らしいんですが…
何か情報をお持ちのかたいらっしゃいませんか？

901 ：nobodyさん：2005/09/06(火) 15:22:52 ID:MHrXIfbO

Mysqlのスレにも書いたんだけど、perl＋Mysqlで掲示板作りたい。
サンプルになるようなスクリプトや解説サイトがあったら教えてくれさい。

902 ：nobodyさん：2005/09/06(火) 15:29:46 ID:???

>889
俺には全く同じに見えるが。
どちらも<IN>から一行読んで、それをsplitしとるんでしよ。
つーか、実際にコード書いて試してみりゃええやん。

それと、foreachで書いている人を久々に見たな。
5年くらい昔にforでエエやんと人に言われて、
以来俺もforで書くようになった。

903 ：nobodyさん：2005/09/06(火) 15:31:42 ID:???

>894
こんなんいかが？

my @data;
for my $f (qw(test1.txt test2.txt))
{
open(FILE, $f);
push(@data, <FILE>);
close(FILE);
}

904 ：nobodyさん：2005/09/06(火) 15:52:17 ID:???

スレ違いかもしれませんが、
flashでゲームを作ったんですが、そのスコアを仮にtest.cgi
に送るにはどうすればいいですか？
データの受け渡しはcgi-lib.plを使用しています。

905 ：nobodyさん：2005/09/06(火) 15:58:20 ID:???

test.cgi?score=13

906 ：nobodyさん：2005/09/06(火) 17:06:24 ID:???

postでないと不正される

907 ：nobodyさん：2005/09/06(火) 17:06:39 ID:???

>>900
http://pc8.2ch.net/test/read.cgi/php/1018614427/262

908 ：nobodyさん：2005/09/06(火) 17:08:41 ID:???

>>906
POST でも不正はできる。阿呆なこと抜かすなよ。

909 ：nobodyさん：2005/09/06(火) 17:09:36 ID:???

>>906
post だって不正されるんだから「post なら愉快犯レベルの不正を回避できる可能性が高い」くらいがベター

910 ：nobodyさん：2005/09/06(火) 17:24:06 ID:???

誰もPOSTは不正されないとは言ってない

911 ：nobodyさん：2005/09/06(火) 17:25:53 ID:???

いや言ってるだろ

912 ：nobodyさん：2005/09/06(火) 17:27:52 ID:???

>>904はマルチポストだから放置

913 ：nobodyさん：2005/09/06(火) 18:12:57 ID:???

>>912
http://www.tv-taro.com/

914 ：nobodyさん：2005/09/06(火) 18:17:38 ID:???

>>910
m9(^Д^)ﾌﾟｷﾞｬｰ

915 ：し：2005/09/06(火) 19:04:56 ID:???

キーが２重のハッシュで　ひとつのキーに対して複数の値があるときに
DB_File　として扱うにはどうしたらいいのでしょうか？

データのイメージとしては以下の通りです。

$hash{"a"}{"aa"} = "a-aa0";
$hash{"a"}{"aa"} = "a-aa1";
$hash{"a"}{"aa"} = "a-aa2";
$hash{"a"}{"aa"} = "a-aa3";
$hash{"a"}{"aa"} = "a-aa4";
$hash{"a"}{"aa"} = "a-aa5";
$hash{"a"}{"aa"} = "a-aa6";
$hash{"b"}{"aa"} = "b-aa0";
$hash{"b"}{"aa"} = "b-aa1";
$hash{"b"}{"aa"} = "b-aa2";
$hash{"b"}{"aa"} = "b-aa3";
$hash{"b"}{"bb"} = "b-bb0";
$hash{"b"}{"bb"} = "b-bb1";
$hash{"b"}{"bb"} = "b-bb2";
$hash{"b"}{"bb"} = "b-bb3";

ご教授よろしくお願いします。

916 ：nobodyさん：2005/09/06(火) 19:22:48 ID:???

$hash{"a"}{"aa"} = "a-aa0\ta-aa1\ta-aa2\ta-aa3\ta-aa4\ta-aa5\ta-aa6";
$hash{"b"}{"aa"} = "b-aa0\tb-aa1\tb-aa2\tb-aa3";
$hash{"b"}{"bb"} = "b-bb0\tb-bb1\tb-bb2\tb-bb3";

917 ：し：2005/09/06(火) 19:43:33 ID:???

>>916
返答ありがとうございます。
ですが、それでは問題解決になっていないです。。。
今いろいろやったのですがキーからデータを引っ張ることができないんですよ。
普通のキーのハッシュなら tie して get_dup で引っ張ってくる
っていう定型ですむのですがキーを二重にしたらうまくいかなくて。。。
キーが１重のは

use DB_File;
$DB_BTREE->{'flags'} = R_DUP;
$x_hash = tie %hash, "DB_File", undef, O_CREATE|O_RDWR, 0644, $DB_BTREE;
$hash{"a"} = "a-aa0";
$hash{"a"} = "a-aa1";
$hash{"a"} = "a-aa2";
$hash{"a"} = "a-aa3";
$hash{"b"} = "b-aa0";
$hash{"b"} = "b-aa1";
$hash{"b"} = "b-aa2";
$hash{"b"} = "b-aa3";
と作って
foreach ( $x_hash->get_dup("a") ) {
print $_."\n";
}
と表示したら
a-aa0
a-aa1
a-aa2
a-aa3
と表示されますよね。こんな感じでうまくできないのでしょうか？

918 ：し：2005/09/06(火) 19:48:06 ID:???

あ、キーをくっつけてしまえばいいのか。。。
もう疲れてて頭がアホだった。。。
でも、きれいに出来る方法があるなら知りたいので引き続きよろしくお願いします。

919 ：nobodyさん：2005/09/06(火) 19:56:11 ID:???

>>918
http://perldoc.jp/docs/modules/MLDBM-2.01/MLDBM.pod

920 ：nobodyさん：2005/09/06(火) 19:59:20 ID:WhNf/x2R

>>918
そんな貴方に
use MLDBM;

CPAN
http://search.cpan.org/~chamas/MLDBM-2.01/
和訳pod
http://perldoc.jp/docs/modules/MLDBM-2.01/MLDBM.pod

921 ：し：2005/09/06(火) 20:06:38 ID:???

さすがです。。。
もう仕事の先生が２ｃｈの私はどうしたら・゜・（ﾉд｀）・゜・
みんなありがとう！！！
しかしもう残業いやなので明日にします_|￣|○
帰宅。。。ﾉｼ

922 ：cheri：2005/09/11(日) 18:16:21 ID:???

perl5.8(サーバ：Unix)のプログラムから、システムコマンドを実行する際、UTFコードがパスに混じっていると「ファイルが見つかりません」というエラーが表示され、プログラムが中断してしまいました。
調べたところ、「.(ピリオド)」や「3」が入ったパス名の場合、perlからシステムコマンドを実行すると、「.(ピリオド)」と「3」の前にバックスラッシュをつけて実行してしまっていて、「ファイルが見つかりません」というエラーになるようです。

コードは下記です。
$lsPathや、$outPathにUTFの「.(ピリオド)」と「3」(他の文字は未確認)を含んだ文字列が入ると、実行に失敗します。
($errに「ファイルが見つかりません」という文字列が入ります。)

$err=`(ls -l \'$lsPath\' 1> \'$outPath\') 2>&1`;

ちなみに、\'(バックスラッシュシングルクォート)を削除すると、エラーは起こりません。(下記コード)

$err=`(ls -l $lsPath 1> $outPath) 2>&1`;

しかし、これではスペースを含んだパスに対応できません。
シングルクオートと等でくくった形＋UTFが変換されないよう実行される方法をご存知の方いらっしゃいましたら教えてください。

マルチポストさせていただいています。
なかなか返信がいただけず､困っております。
宜しくお願いします。

http://www.gac.jp/article/index.php?stats=question&category=12&id=15773&command=msg
http://www.parkcity.ne.jp/~chaichan/qanda/qa6301.htm

923 ：名無しさん＠そうだ選挙に行こう：2005/09/11(日) 18:34:52 ID:???

>>922
Perlのコーディングが問題ではないと思います

924 ：cheri：2005/09/11(日) 18:50:43 ID:???

>>923

返信ありがとうございます。
っというと、何が原因と考えられますか？
調べようにももう見当がつかず､完全手詰まり状態です。

初心者で申し訳ないですが､板違いにしても､どこでこの質問をすればいいのか・゜・（ﾉд｀）・゜・

925 ：名無しさん＠そうだ選挙に行こう：2005/09/11(日) 19:28:48 ID:???

>>922
もっと詳しいソースを晒してください

926 ：cheri：2005/09/12(月) 11:57:38 ID:???

>>923

実行前にファイルに書き出し(下記ソース参照)
/usr/bin/perl a
を実行するとうまくいくので、他の部分で変な変換をしているとは考えがたいのです。
ちなみにこの場合も、\'でくくると実行に失敗します。

うまくいく例）
**********************
open (OUT,">./a");
print OUT "`ls -l ";
print OUT $lsPath;
print OUT " 1> ";
pritn OUT $outPath;
print OUT "`;";
close (OUT);
**********************

うまくいかない例）
**********************
open (OUT,">./a");
print OUT "`ls -l \\'";
print OUT $lsPath;
print OUT "\\' 1> \\'";
pritn OUT $outPath;
print OUT "\\'`;";
close (OUT);
**********************

927 ：cheri：2005/09/12(月) 12:04:09 ID:???

>>925

詳しいソースに関してですが、
@lsPath=`/bin/ls \'$path\'`;
を実行して、$lsPathに代入しています。

928 ：nobodyさん：2005/09/12(月) 12:12:03 ID:???

「3」や「.」って、utf-8でもUS-ASCIIと同じだよ。
なのでutf-8の問題ではない。

``(backquote)は、システムのシェル(/bin/sh)に渡されて実行されるので、
文字列中のコマンドラインの処理は、そのシェルのふるまいに依存する。

$lsPathや$outPathの中身が何か分からないが、たとえば

$lsPath = '*.txt';
$outPath = 'list.out;

とかいうのであれば、シェルに渡される時点で

(ls -l '*.txt' 1> "list.out" 2>&1)

となる。
真っ当な/bin/shのふるまいとして、single quoteされた文字列はリテラルとして扱われるので、
ワイルドカードは展開されない。
したがって*.txt（\*.txt）というファイルを探しにいくので、
そんなファイルが無ければ当然みつからない。

…って書き方で伝わるのかなぁ。
そのレベルだと、普通に学校に行って先生に教わったほうがいいような。

929 ：nobodyさん：2005/09/12(月) 12:14:51 ID:???

ありゃ、リアルタイムか。

>926
$lsPathの中身を晒せないのであれば、
いくら説明しても無駄。

それと「ファイルが見つかりません」エラーは、
$outPath（が示すファイル名の）ファイル中に出るの？
それともSTDERRに出るの？

930 ：nobodyさん：2005/09/12(月) 12:16:44 ID:???

指定したディレクトリに対するls -lの結果と同じ物を得るためのコードを自作したらいい。終わり。

931 ：nobodyさん：2005/09/12(月) 12:32:25 ID:???

>930
http://search.cpan.org/~dopacki/File-List-0.3.1/List/List.pm

932 ：nobodyさん：2005/09/12(月) 12:54:25 ID:???

>>930
http://mfpm.blogdb.jp/app/view/File::List/

933 ：cheri：2005/09/12(月) 15:41:09 ID:???

>>929

>$lsPathの中身を晒せないのであれば、
いくら説明しても無駄。

/export/home/a/あ3年.eps
が$lsPathに代入されていた場合、「/export/home/a/あ\3年\.epsはみつかりません。」
というエラーが$errに代入されます。

934 ：cheri：2005/09/12(月) 15:57:56 ID:???

ごめんなさい。間違えました。

/export/home/a/あ3年.eps
が$lsPathに代入されていた場合、「/export/home/a/あ\3年.eps:ファイルもディレクトリもありません。」
というエラーが$errに代入されます。

/export/home/a/あ3表紙.eps
の場合は「/export/home/a/あ\3表紙\.eps: ファイルもディレクトリもありません。」

でした。

935 ：nobodyさん：2005/09/12(月) 16:09:53 ID:???

\"\"でクォートしたらどうなんだろう

936 ：cheri：2005/09/12(月) 16:24:58 ID:???

>>935

\"は駄目でした。
ちなみに
「あ.eps」は「あ\.eps: ファイルもディレクトリもありません。」
「a.eps」は処理OK・・・(;´Д｀)

937 ：nobodyさん：2005/09/12(月) 17:05:40 ID:???

分からんな。
UNIXと呼んでいるのは、UTF-8ベースのLinux機と推察するが、
さきにも書いたように、「3」や「.」はエスケープされるような文字ではない。

Perl起因のエスケープかどうかを切り分けようというのであれば、たとえば

$test = `echo $lsPath`;

なんかで、$lsPathに「ああ3.eps」とか「漢1字2で3す4.ピリオド.」とかやって、
返値を見てやれば切り分け可能かもしれないが、
そういう問題では無い気がする。

ついでに、例ではlsを使っているが、実際起動しているのはlsではないよな？
だとすると、実際の起動プログラムの引数解釈を疑ったほうがいいのでは？
Windows出身のアホプログラマは、自前でワイルドカード解釈するようなアホライブラリを組み込んでたりするよ。

逆にホントにlsの返値を見たいだけならば、>930-932のほうが確実だし問題の切り分けもしやすいはず。

938 ：cheri：2005/09/12(月) 17:28:57 ID:???

あ･･･。
他のサーバにいれたら動いた。

しかしどちらも下記環境。
UNIX：Solaris9
SHELL=/sbin/sh

ますます謎。

>>937
>ついでに、例ではlsを使っているが、実際起動しているのはlsではないよな？

そのとおりです。調査してみます。

皆さん色々ありがとうございます。
がんばります。。。

939 ：nobodyさん：2005/09/12(月) 17:40:43 ID:???

そもそも日本語でファイル作る方が…

940 ：nobodyさん：2005/09/12(月) 17:44:41 ID:???

隠してる事項が多すぎる。
lsに渡すか別人が作ったプログラムに渡すかで大きく違う。

941 ：nobodyさん：2005/09/12(月) 17:48:58 ID:???

どうみても、それはシェルのエラーに見える。

942 ：nobodyさん：2005/09/12(月) 17:49:13 ID:???

確かにこのスレタイは『何でも聞いてきてよ』だが、聞くにしても公開する情報が無さ過ぎるとだめよね

943 ：nobodyさん：2005/09/12(月) 18:00:22 ID:???

>941
シェルならシェルがエラーだと言うはず。こういうふうに。

/bin/sh: あ\.eps: ファイルもディレクトリもありません。

NLS使ってれば、同じ文言でエラーが出るのは当然だわな。

しかしまぁ、Perlに全く関係がないことが分かるまでこれだけスレ消費するというのがｗ
そろそろ次スレ？

944 ：cheri：2005/09/12(月) 19:25:22 ID:???

すいません。間違えました。

ls -l
を実行した際も、ファイルが存在しないというエラーが出ます。

$lsPath='あ3表紙.eps';
`ls -l \'$lsPath\'`;

を実行すると、下記エラー。
/export/home/a/あ\3表紙\.eps: ファイルもディレクトリもありません。

\'でくくると×、くくらないと○なので、シェルの問題ではなく、Perlの変数の使い方が間違っていると思うのですが、違いますでしょうか。

>>942
他にどのような情報が必要でしょうか？

945 ：nobodyさん：2005/09/12(月) 19:47:38 ID:???

シェルを使わずにexecでやれよ。

ソースの文字コードがどうなってるかとか
ファイルシステムに記録されているファイル名の文字コードがどうかとか、
基本的なことが書かれてないな。

946 ：nobodyさん：2005/09/12(月) 20:15:29 ID:???

`ls -l`を`/bin/ls -l`にしたら何か解決するかもしれんな

947 ：cheri：2005/09/12(月) 20:43:40 ID:???

>>945
>>946

ソースの文字コード：Shift_JIS
ファイル名の文字コード：UTF-8
exec "/usr/bin/ls -l \'$lsPath\'";　-->×
exec "/usr/bin/ls -l $lsPath";　-->○

ソースの文字コードは他と絡むので変えられません。

948 ：nobodyさん：2005/09/12(月) 20:44:15 ID:???

ソースもUTF-8にすればいいと思うんだ

949 ：nobodyさん：2005/09/12(月) 20:47:12 ID:???

だったらutf-8に変換してから実行しろよ。
こんだけレスを使っても分からないのか？バカじゃないの？

950 ：nobodyさん：2005/09/12(月) 20:50:34 ID:???

変換って文字列をな。
lsがShift_JISをUTF-8として解釈しようとしたら意図しない動作をするに決まってる。

951 ：nobodyさん：2005/09/13(火) 10:08:15 ID:???

俺、5.8はマトモに触っていないので詳しくないが、

use encoding 'shiftjis';

ではだめなのかね。
だめっぽいな。

俺も前ちょこっと触ったとき、既存の5.8環境にぶっこむことになって、
ためしたことがあったな、そういえば。
やっぱりエスケープのふるまいにエライ悩んで、
結局no utf8にした記憶がある。
もちろんencoding変換の問題は、昔ながらのJcodeで全部自前。

Perl5.8の多言語サポートは、INとOUTがすげぇ分かりづらい。
つーか、今んとこクリアに分かってないわ俺。
どこかでちゃんと解説してるとこない？
英語でもperldocでもいいので。

952 ：nobodyさん：2005/09/13(火) 10:18:15 ID:???

encodingモジュールだと機種依存文字なんか打たれた時には
エラーで止まるからな。
shiftjisじゃなくてcp932使ってる場合でもMacの機種依存文字
打たれた時とか。

953 ：nobodyさん：2005/09/14(水) 22:26:08 ID:???

１つ質問させてください。

pingには経路情報を記録させるオプションがあるのですが、
これをperlで使う方法ってありますか？

Net::Pingを見たところどうも使えないみたいでした。

954 ：nobodyさん：2005/09/14(水) 22:30:29 ID:???

>>953
コマンドの出力を自分で解析してはいかがでしょうか。

955 ：nobodyさん：2005/09/14(水) 22:37:59 ID:???

>>954
連続してpingを打ち続けて冗長化されたルーティングの
切り替わりと切り戻りにかかる時間を測定したいのです。。。

956 ：cheri：2005/09/15(木) 13:10:56 ID:???

922です。

結局他のサーバでは起こらない不具合なので理解はできないのですが･･･、
バックスラッシュ演算子で実行したいコマンドを、ファイルに書き出し、bshで実行すると駄目。
cshやbashで実行すれば○

ということがわかったので、遠回りですが、そのように処理することで回避させました。
ちなみにUTFにしても駄目でした。

不可解です。
bshは、容量やdiffした結果も動いているサーバとなんら変わらない。
なのになぜ。。。

何はともあれ回避できました。
レスしてくれたみなさん本当にありがとうございました。

957 ：nobodyさん：2005/09/15(木) 17:09:39 ID:???

文字列
$foo="aaa bbb ccc ddd eee"
を
$hoge[0]="aaa"
$hoge[1]="bbb"
$hoge[2]="ccc"
$hoge[3]="ddd"
$hoge[4]="eee"
という風に一発で入れる方法（正規表現）を教えてください。

958 ：nobodyさん：2005/09/15(木) 17:14:43 ID:???

あぁ・・・なんか微妙
@hoge = split / /, $foo;
じゃなくてシェルスクリプトの中に埋め込みたいんです。
ディレクトリ内のすべてのファイルに対して
filename
を
タイムスタンプ-filename
と書き直したくて。

959 ：nobodyさん：2005/09/15(木) 17:19:31 ID:???

シェルスプリクトならスレ違い。
@hoge = split / /, $foo;
これとタイムスタプンに何の関係があるかも分からん。

960 ：nobodyさん：2005/09/15(木) 17:37:40 ID:???

>>958
#!/usr/local/bin/perl
opendir(D,".");
@files = readdir D;
closedir D;
foreach $file (@files) {
@a = stat($file);
@a = localtime($a[9]);
$a[5]+=1900; $a[4]++;
$file2 = sprintf("%d%d%d%d%d%d-$file",$a[5],$a[4],$a[3],$a[2],$a[1],$a[0]);
rename($file,$file2);
}

961 ：nobodyさん：2005/09/16(金) 01:14:22 ID:???

ﾌﾟｯ

962 ：nobodyさん：2005/09/16(金) 01:56:14 ID:???

>>958
何がやりたいのか、うまく伝えないと適切な答えは得られない。
あと、Perl でやるべきかどうかすら分かってないんだったら、
くだ質に行け。

963 ：nobodyさん：2005/09/16(金) 14:23:11 ID:tm4bI/3Z

しつもんー。

ActivePerl-5.8.7.813-MSWin32-x86-148120.msiインストールすると
PPMが動かないんだけど、そんなことってある？

964 ：nobodyさん：2005/09/16(金) 14:33:30 ID:???

ない。

965 ：nobodyさん：2005/09/16(金) 14:38:13 ID:tm4bI/3Z

SetConsoleMode failed, LastError=|6| at C:/Perl/site/lib/Term/ReadKey.pm line 265.

とかいいやがるの。ActivePerlインストールしただけなのに。

966 ：nobodyさん：2005/09/16(金) 14:42:29 ID:???

気にすんな。perl -MCPAN -e shellでも出る。

967 ：nobodyさん：2005/09/16(金) 14:43:45 ID:???

PPM - Programmer's Package Manager version 3.1.
Copyright (c) 2001 ActiveState Corp. All Rights Reserved.
ActiveState is a devision of Sophos.

Entering interactive shell. Using Term::ReadLine::Perl as readline library.

Type 'help' to get started.

SetConsoleMode failed, LastError=|6| at C:/Perl/site/lib/Term/ReadKey.pm line 26
8.
ppm> ←ちゃんと動いてる証

968 ：nobodyさん：2005/09/16(金) 14:47:16 ID:???

再インスコしてみれば？

969 ：nobodyさん：2005/09/16(金) 14:49:44 ID:tm4bI/3Z

ppm> ←ちゃんと動いてる証
あれま。そうなんでつかありがとー。

970 ：964,966,967：2005/09/16(金) 15:06:20 ID:???

長期間ほったらかしのTerm::ReadKeyのバグだろうな。
どっちみちwarningだから気にするな。

971 ：nobodyさん：2005/09/16(金) 16:19:29 ID:XXlUxiBl

/女/g

972 ：nobodyさん：2005/09/16(金) 23:26:09 ID:???

女に痴漢か　犯罪者め

973 ：nobodyさん：2005/09/17(土) 19:20:52 ID:???

うまいな、>>971
そんなおまいには更正のために
use strictと、-wTをオススメする。

974 ：nobodyさん：2005/09/18(日) 17:15:44 ID:tBsScBKE

$女 = "処女";
$女 =~ s/処/売/;

975 ：nobodyさん：2005/09/19(月) 17:08:40 ID:???

my $taiho = Police -> call();
$taiho -> tsuho( '>>974' );
$taiho -> close();
exit();

976 ：nobodyさん：2005/09/19(月) 17:10:01 ID:???

>>975
はいはいわろすわろす

977 ：nobodyさん：2005/09/19(月) 19:28:52 ID:???

>>976
はいはいえろすえろす

978 ：nobodyさん：2005/09/20(火) 17:38:01 ID:???

ファイル開いて一気に読み込み

open(IN,$ARGV[0]);
@hoge = <IN>;
close(IN);

このときに同時に全ての行の改行文字を
取りたいのですができますか？

979 ：nobodyさん：2005/09/20(火) 17:44:35 ID:???

open(IN,$ARGV[0]);
@hoge = split(/\n/,<IN>);
close IN;

980 ：978：2005/09/20(火) 17:44:56 ID:???

あ。。。自己解決。。。

981 ：nobodyさん：2005/09/20(火) 17:51:16 ID:???

自己解決乙。
@hoge = map { chomp; $_; } <IN>;

982 ：nobodyさん：2005/09/20(火) 18:06:11 ID:???

chompは「ちょんぷ」って読んでしまうな、俺ｗｗ
なんかｴﾛｽｗｗｗｗ

983 ：nobodyさん：2005/09/20(火) 18:09:51 ID:SJkiI3Th

>>979
$/は書き忘れとしても、ファイル末尾が空行で終わるときとか、ファイル末に改行が
ないときを考慮するとこんな感じではないだろうか。

{
local $/;
open IN, $ARGV[0];
my @hoge = split(/\n/, <IN>, -1);
pop @hoge if $hoge[-1] eq '';
close IN;
}

984 ：nobodyさん：2005/09/20(火) 22:01:01 ID:???

perlfunc - Perl builtin functions
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_chomp_LIST

＞リストを chomp すると、個々の要素が chomp され、削除された文字数の合計が返されます。

open IN, $ARGV[0];
chomp (my @hoge = <IN>);
close IN;

perlfunc ぐらい一通り目を通して欲しい。

985 ：nobodyさん：2005/09/20(火) 22:07:35 ID:???

>>984
ほとんど一気読みなんてしないから、素で知らなかった…。
関係ないけど、chomp() の引数で代入って、いつまで経っても違和感ある。俺だけ？

986 ：nobodyさん：2005/09/21(水) 01:01:24 ID:???

openとcloseにもカッコつけようぜ！

987 ：nobodyさん：2005/09/21(水) 03:45:31 ID:???

>>986
カッコつけるとカッコ悪いからヤダ！

988 ：nobodyさん：2005/09/21(水) 03:48:45 ID:???

Perlで施設の情報更新システム作れって課題なんだけど
具体的にどんなプログラムを組めばいいか全く分からんのですが('A`)
パスチェックした後にinfo.txtを更新するってのを作ればいいらしいのですが