Perl コーディング初心者質問コーナー Part27

**nobodyさん** · 03/08/14 06:06

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 07:26

>>77
削除依頼よりかコピペ荒らしで挙げれば規制対象になるのにねぇ。。。

**nobodyさん** · 03/08/16 08:41

SQL文のデバッグなどで、printとは別にどこかへ変数の内容などを出力する場合、
どのような方法が考えられるでしょう？

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 10:24

>>62
お答え、ありがとうございます。
できるとは最初から思ってはいませんでしたが。
C言語とかでDLL書くのめんどくさいのでperlでかけたらなぁって。
とりあえずまずはperlcc使えるように環境を整えようかと思っております。
なぜか僕の環境、Cプログラムは吐き出すんですがコンパイルしてくれなくて。
しかもそのプログラムをコンパイルしてみるがエラー続出。
どうなんだ、LarryWallよｗ
仕方がなく自分でエラー部分を書き直してるのですが。
なんとかまともなCプログラム、吐き出させられないですかね。
ちなみに環境はWinMeでActivePerl、CコンパイラはDev-C++(GCC系)とBCCです。
解決方法がありましたら、教えてください。

**nobodyさん** · 03/08/16 10:32

VC++を使う。

**nobodyさん** · 03/08/16 11:17

>>83そう思うなら、おまえがコピペ荒らしとして規制依頼しろよ。できねーくせにガタガタぬかすな

**nobodyさん** · 03/08/16 11:18

ＫＥＮＴのネットクルーザーで
検索部分を改良したい。
英語の半角、全角をともに検索するには
どうしたらいいのでしょうか？

**nobodyさん** · 03/08/16 11:22

>>89
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

**助けてください** · 03/08/16 12:07

1：自分はこう言う事がしたい。
http://server/program.cgi/hogeというのを、http://server/hogeで見れるようにしたい
2：それでこんな風にやってみたが･･･
.htaccessに「ErrorDocument 404 /program.cgi」と追加。
3：こんなエラーが出て上手く行かなかった。
エラーは出ないけど、404エラーなので、エラーログがたまっていく・・・

どなたか助けてくださいm(__)m

91 · 03/08/16 12:08

ErrorDocument 404 /nph-test.cgi
だと、ヘッダに404となってしまうので、
ファイル名をnph-program.cgiにして、「print 'HTTP/1.0 200 OK'."\r\n";」とヘッダに追加。
でも、エラーログが（ｒｙ

**nobodyさん** · 03/08/16 12:23

>>91
DirectoryIndex
スレ違いなので後は自分で調べな。

**nobodyさん** · 03/08/16 12:32

>> 93
DirectoryIndex DirectoryIndex nph-program.cgi
と記載してあります。
やっぱプログラム側の問題じゃないからここじゃ駄目ですね。。。

**nobodyさん** · 03/08/16 12:37

ｺﾋﾟﾍﾟ荒らしにﾏｼﾞﾚｽ。
残り少ない夏休みを2chでｺﾋﾟﾍﾟ荒らしするだけに費やす気みたいだけど、
入門本くらい一通り読んで初心者ﾚﾍﾞﾙに到達してから来てね。

**nobodyさん** · 03/08/16 12:44

>>86
perlをＣにﾄﾗﾝｽは完全に出来ませんし
できたとしても使い物にはなりません（実行ファイルは馬鹿でかい）
あきらめたほうがいい
XSをつかうかswigをつかうか
perlのソースコードを書き換えるかしてください

Win32系のモジュールで直接DLL関数に引数はわたせます

**nobodyさん** · 03/08/16 12:52

>>84
コメント扱いで出力。htmlなら内に埋め込む。batならremの後ろに書く。
自分でファイルをオープンして書き込み保存。
syslogに飛ばす。
変数デーモンを作成して、そこへの接続を全て記録。

>>91
そう言う用途にはapacheのモジュールのmod_writeを使うと便利。
が、確実にスレ違いなのでそれ以上言わない。

**nobodyさん** · 03/08/16 12:54

mod_writeじゃねーよ＞ｵﾚ
mod_rewriteね。

91 · 03/08/16 13:05

googleでmod_rewriteで探してきます。
Apacheの板orスレってあったっけ？（－－

**nobodyさん** · 03/08/16 13:11

>>99
この板にも自宅サーバ板にもUNIX板にも

91 · 03/08/16 13:49

>> 100
おお。..._〆(ﾟ▽ﾟ*)メモメモ
ありがとうございました
それではいってきます（ｗ

91 · 03/08/16 15:16

/htdocs/.htaccess: Invalid command 'RewriteEngine', perhaps mis-spelled or defined by a module not included in the server configuration
こんなエラーから進めない（；；

91 · 03/08/16 15:39

>>99
mod_rewriteが入っていない可能性が出てきたので他の方法ってありませんか？

**nobodyさん** · 03/08/16 15:54

>>103
すれ違い

84 · 03/08/16 15:54

>>97
>コメント扱いで出力。htmlなら内に埋め込む。batならremの後ろに書く。

……コロンブスの卵(^^;　そーか、SQL実行しないでこーすればいいのか（汗）
アドバイスありがとうございました。

あと、「syslogに飛ばす」っつーのは、具体的にどうすればいいのでしょうか？
厨で申し訳ありませんが、ヒントなど頂ければ幸いです。よろしくお願いします。

**nobodyさん** · 03/08/16 16:25

>>105
qx{/usr/bin/logger -s "Virus warning: uploader:[$host]:Detected $1 and deleted."};
みたいな。

**nobodyさん** · 03/08/16 17:11

>>105-106
標準モジュールに Sys::Syslog というものが…。

**nobodyさん** · 03/08/16 17:40

>>95

もう、動かないからあきらめた

**nobodyさん** · 03/08/16 17:41

このスクリプト、どうもみても初心者のじゃねーよ

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 18:09

質問スレが珍しく荒れてるな～と思ったら、全部　メール欄???　の仕業かい！ｗ

**nobodyさん** · 03/08/16 18:41

お。なるほど。メール欄であぼーんすればよかったのか

84 · 03/08/16 18:57

……syslog.phってどーやってつくればいいのでせう？＜厨なアタシ(T_T)

それはさておき、「Can't locate Date/Manip.pm in @INC～」なんてエラーが出てきました。
CPANで「Install1 Date」はしたのですが、他になにかしなければならないことがあるのでしょうか？
重ね重ねで申し訳ありませんが、よろしくお願いします。

**nobodyさん** · 03/08/16 21:02

>>117
一々作らんでも @INC に入ってない? UNIX系OS以外は知らんけど。
作るなら h2ph で。

見つからんって言われてるんだから、入れればいいじゃん。:-)
http://search.cpan.org/author/SBECK/DateManip-5.42a/

**nobodyさん** · 03/08/16 21:19

十進数の数字があり、それを出力する時16進数にしたいのですが、
どのように変換すれば良いのでしょうか？

すみません、かなり初歩的な質問ですがお願いします。

**nobodyさん** · 03/08/16 21:20

sprintf

**nobodyさん** · 03/08/16 21:33

%x

84 · 03/08/16 22:43

>>118
Date::Manipは入りました。……単純に「install Date::Manip」でOKなんですね。
厨でごめんなさい(T_T)

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 01:00

>>119
printf("%x", $a);
とか
$s = hex($a)
とか

**119** · 03/08/17 01:30

返信遅れてすみません。

アホな質問に答えてもらって、とってもありがとうございました。
m(__)m

**nobodyさん** · 03/08/17 01:59

ディレクトリ作成するときって
mkdir("mydir",0700);
のようにパーミッション指定できるが、
open(fp,">output.txt");
ってやって書き込むとパーミッションが自動的に644になります。
これを600にするにはどうしたらいいでしょう？？？

っつってもあとでchmodすればすむことなんだが、
open時に600にするようにできればしたい、

**nobodyさん** · 03/08/17 02:13

>>126 umask

**nobodyさん** · 03/08/17 02:29

>>126

いったんファイルを削除します。それからディレクトリで呼び出すを選ぶと
復元できるので、その設定でパーミッションを設定すると固定できます。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 02:38

>>126
IO::Fileモジュール使うとパーミッションを指定しながらオープンできます。
(sysopen互換のO_XXX指定を使うとファイルロックしながらオープンできたり便利。)

**126** · 03/08/17 02:42

大変参考になったぞ。
おめーらに感謝。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 05:55

POP3サーバと接続してメールを閲覧するプログラムを
書きたいのですが、これをsocketモジュールを使わない
で行うことは可能でしょうか。

初心者ですみませんが教えてください。

**nobodyさん** · 03/08/17 06:21

>>139

Net::POP3

**nobodyさん** · 03/08/17 06:22

化膿。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 13:11

X.cgiの中の、一部の数字を取り出したいのですが。
X.cgiの中身はこんなです

1,データＡ,データＢ,データＣ,
2,データＡ,データＢ,データＣ,
3,データＡ,データＢ,データＣ,

この中の、最後のデータの数字「3」を変数に入れたいのです。

open(IN,"X.cgi") ;
while (<IN>) {
$num = split(/,/);
}
close(IN);
print $num;

これ全然違いますが、$numに「3」が入ってくるようにしたいんです。
よろしくおねがいします。

**nobodyさん** · 03/08/17 13:23

>>149
splitの使い方がまちがっとる
$num = split(/,/); のすぐ下に print $num; を入れてみ。
その後で、splitの説明を読むとグー

**nobodyさん** · 03/08/17 14:12

>>149
$num = split(/,/); の２つ下に print $num; を入れる。
それからwhile (<IN>) {　をwhile($IN1 > 0)｛
に変える。
その後で、スクリプトを３の入るようにすればＯＫ。
上はどっかの馬鹿だから無視しろ。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 14:16

>>126
おまえの脳みその程度もよくわかりました。
もう、二度と来ないでくださいね。すっごいむかつく！！
くだらん質問する暇あったら自分で調べろ！死ね！！

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 14:37

>>151 は例の荒しているヴァカだろ？

**nobodyさん** · 03/08/17 15:07

>>160
そうみたいだな

**nobodyさん** · 03/08/17 15:22

レス削除で削除人からコピペで依頼してくれってあったから、
運用情報のほうへ回そう
荒らしとしてアク禁しますっていうことなんじゃないか？

**nobodyさん** · 03/08/17 15:43

>>160
なんでアレは削除依頼に入れてくれないんだろう。

**nobodyさん** · 03/08/17 17:34

#! /usr/local/bin/perl

while(<STDIN>) {
　　　　print;
}

のようなフィルター（そのまま出力するだけですが（；´Д｀））を作った後、
DOSの場合、どうやって実行するんですか？

すごい初歩的な質問でスイマセン

**nobodyさん** · 03/08/17 17:36

Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにかあります？

**nobodyさん** · 03/08/17 18:11

>>164
perlにパスが通っており、
それがtest.plというファイルなら、
test.plのあるフォルダにcdコマンドで移動し、
perl test.pl
と打ってEnterを押す。

とか、普通に答えてみる。

コーディングの質問じゃねー。

**nobodyさん** · 03/08/17 18:16

>>165
binmode( FILE );
print FILE $buff;

**nobodyさん** · 03/08/17 18:23

>>166
出来ました。ありがとうございます。
というかスレ違いでしたか、スイマセン。今から気をつけます。

**nobodyさん** · 03/08/17 18:24

>>165
>Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにか(いいバイナリファイル)あります？
画像ファイルがバイナリファイルだろうね。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 18:44

アクセス解析のCGI作ったんですけど、
フレームを使っている性で全部リファラがindexになってしまいます。
使っている鯖はSSIは使えませんし、.htaccessも使えません。

どうすればリファラが取れるんですか？教えてください。御願いします。

すれ違いだったらすいません。

**nobodyさん** · 03/08/17 18:53

>171
CGIスレ向き。

**あぼーん** · NG

あぼーん

**139** · 03/08/17 19:29

>>140
説明不足ですみません。
要はモジュールを使わずにpop接続を行いたいのです。

**あぼーん** · NG

あぼーん

**149** · 03/08/17 19:40

>>151
ありがとうございました。
ちょっとうまくいかないんですが（ＴＴ）
なんか根本的に判ってないかもしれないので出直します。
splitの勉強を・・・

**nobodyさん** · 03/08/17 19:41

>>174
一旦モジュールを使って望みの動作をするスクリプトを組み、
コードを全てインライン展開する。

**nobodyさん** · 03/08/17 19:57

>>176
>>151は荒氏だから参考しるな！
病気がうつるぞ～。
splitの勉強汁～。

**nobodyさん** · 03/08/17 20:35

荒ｸﾝを解析してみたよ。
・17歳童貞
・高校生だが、成績が追いつかず、学校でも苛められて現在引き篭もり中。近々退学予定。
・自己管理が出来ず、体系は肥満気味。お風呂に入らないので臭い。
・家族構成は共働き両親２人とペットのハムスター20匹（名前付き）
・起きている間は、ほぼインターネットを利用している。
・最近KENT-WEBからASKAを借りてきて、初めてPerlを知った。
・日ごろから、書き込む度に叩かれている某掲示板には恨みを抱いているようだ。
・もう2ヶ月ほど家族意外と顔を合わせた事は無い。

**nobodyさん** · 03/08/17 20:42

>>174ソケット使ってやるしかないですナァ…。

**nobodyさん** · 03/08/17 20:53

>>174
http://x68000.startshop.co.jp/~68user/net/
ここのサンプルはSocketモジュールを使ってるけど、
「サンプルがperl5専用なワケ」を読めば、すぐperl4対応
（->モジュール不使用）にできるはず。

しかし、なんでモジュールを使わずに？