【Perl 】初心者コーナーPart7

**名無しさん＠お腹いっぱい** · 01/09/12 13:04

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

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

1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。

参考書籍はこちら【【Perl,CGI】参考書籍第２版】
http://corn.2ch.net/test/read.cgi?bbs=php&key=988809842&ls=50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part３】
http://corn.2ch.net/test/read.cgi?bbs=php&key=988727833&ls=50

過去ログ、その他の役立ち情報は>>2-5を見よう。

**名無しさん＠お腹いっぱい** · 01/09/12 13:04

[過去ログ]
Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156
Part5　http://corn.2ch.net/test/read.cgi?bbs=php&key=988728069
Part6　http://corn.2ch.net/test/read.cgi?bbs=php&key=996075607

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

**名無しさん＠お腹いっぱい** · 01/09/12 13:05

[総合]
　・Perl Com: http://www.perl.com/pub/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/
[お薦め]
　・Perl Recipes: http://www.effectiveperl.com/recipes/
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/
[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・PerlMonth - Online Perl Magazine - : http://www.perlmonth.com/index.html
　・use Perl All The Perl: http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Perl for Newbie: http://www.harukaze.net/~mishima/perl/index.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/

**名無しさん＠お腹いっぱい** · 01/09/12 13:05

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module/
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm
[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.html
　・CGI and Security http://www.japu.org/cgi/security/
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txt

**名無しさん＠お腹いっぱい** · 01/09/12 13:09

文面は伝統だったのかな?・・漏れのBOOKMARKも適当に足しました。

**名無しさん＠お腹いっぱい。** · 01/09/12 13:26

オツカレー

・Linuxの日本語マニュアル
http://www.linux.or.jp/JM/
sendmailとかgzipとかのマニュアルも読める。

**名無しさん＠お腹いっぱい。** · 01/09/12 14:10

>>1
ｺﾞｸﾛｳｻﾏ
　　　　　　　　　　　　　　　
・FreeBSDの日本語マニュアル
http://www.jp.freebsd.org/man-jp/

**ひきこもりたいっ** · 01/09/12 14:26

前スレ930です、向こうに書こうとしたら誘導されちゃった　^^
931さん932さんどうもです。
取り合えず連装配列が簡単そうなので、これでやってみる事に
しました。
パッケージも使ってみようと思います、ありがとう

**名無しさん＠お腹いっぱい。** · 01/09/12 16:35

新しくなったのでもう一度

TwnLounge Faith editionというスクリプトにクッキーを発行させたくて
悪戦苦闘しています。KENTさんのスクリプトのクッキー発行・取得の部分をとってやって見たのですが
うまくいきません。どなたか教えていただけるとありがたいです。

http://www.hpfree.com/giants/lng.txt
↑実際使っているサーバーはCGI可です。

GETできてません。
SETはできてるのかわかりません・・・

よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 01/09/12 17:15

>SETはできてるのかわかりません・・・
こういう事言われるとどこから説明していいか解らんのだが。。
良く見てないが、%in はクライアントのクッキーの値でわ
それをSetしても初回訪問者の %in は常に空だから永遠に発行出来ないと
セットするのは %FORM では無いのか
何故、printの手前で手動で値を代入したりしないのか
もしperlはどうでも良いからクッキーだけ喰わせたいと言うなら
改造スレッドの方が答えが得られると思うがどうか

10 · 01/09/12 17:18

何かキツイ言い方かな、多分新規発言モードとレスモードがあるんだろ
からまずは新規発言モードにFORMの内容セットしてみれ>>9

**名無しさん＠お腹いっぱい。** · 01/09/12 18:27

見てみたけど%in ($in{...}) って何？突然現れてるけど。
フォームの受け取りは %FORM だろ？1083行辺りのサブルーチンreadParamを見れ。
$in{...}を全部$FORM{...}に。

1192行からの

$c_name = $ck{'NAME'};
$c_email = $ck{'EMAIL'};
$c_hpage = $ck{'HPAGE'};

でクッキーをセットした時のキーを使ってない。

name\:$FORM{'NAME'}\,email\:$FORM{'EMAIL'}\,url\:$FORM{'HPAGE'}

でやったんだから nameとemailとurlだろ。

あとURLの入力フォームはデフォルトでhttp://が入ってるから、
クッキーをセットする前に$FORM{"HPAGE"}からhttp://を取れ。

set_cookieサブルーチン内で

$FORM{"HPAGE"} =~s/http:\/\///;

何も考えんでコピーしても動くはず無いし、進歩もしないぞ。

つかKENTのスクリプトってcookieのエンコードしてねぇの？
ダメダメじゃん。

**名無しさん＠お腹いっぱい。** · 01/09/12 18:35

> まずは新規発言モードにFORMの内容セットしてみれ

言葉が理解できません・・・
簡単に言うとどういうことですか？

未熟者で本当にすいません。

**つーか** · 01/09/12 18:50

無茶くちゃだってば、
デリミタがGETとSETで違う
getとsetで使ってる名前が違う
全体に変数名が無茶苦茶
: 使いたいならエスケープすれ
getとset違うスクリプトから持ってきてんのか?
もう何が何か解らん
上手く行ってもこのままじゃ日本語は使えない

**名無しさん＠お腹いっぱい。** · 01/09/12 19:18

>>13
簡単に言う。

コピペで済まそうとするな。少しは勉強しろ。

**名無しさん＠お腹いっぱい。** · 01/09/12 21:19

てゆーか>>12ので良いべ？

**名無しさん＠お腹いっぱい。** · 01/09/12 21:49

>>12 やってみましたがだめでした
http://www.hpfree.com/giants/lng.txt

> getとset違うスクリプトから持ってきてんのか?
同じスクリプトからですけど・・・

> コピペで済まそうとするな。少しは勉強しろ。
ごもっともだと思います。

今回の事が解決すれば改めて勉強をしようと思いますのでよろしくお願いします。

**名無しさん＠お腹いっぱい。** · 01/09/12 22:03

>>>12 やってみましたがだめでした
>http://www.hpfree.com/giants/lng.txt

やってねーじゃねーか。

|1192行からの
|
|$c_name = $ck{'NAME'};
|$c_email = $ck{'EMAIL'};
|$c_hpage = $ck{'HPAGE'};
|
|でクッキーをセットした時のキーを使ってない。
|
|name\:$FORM{'NAME'}\,email\:$FORM{'EMAIL'}\,url\:$FORM{'HPAGE'}
|
|でやったんだから nameとemailとurlだろ。

は無視かえ？

ノーミソ使えんなら改造なんかするな。

**名無しさん＠お腹いっぱい。** · 01/09/12 22:11

urlをhpageにしたんですけど・・・

大文字じゃないと駄目ですか？

**名無しさん＠お腹いっぱい。** · 01/09/13 03:30

そもそも
> KENTさんのスクリプトのクッキー発行・取得の部分をとってやって見たのですが
自体がいいアプローチなのか?

**名無しさん＠お腹いっぱい。** · 01/09/13 09:16

12でも書かれてるが、cookieをエンコードしてない時点で駄目。
;とか入るとおかしくなる。
１つのクッキーに , 区切りでセットしてキーと値を : のに
, と : が値に入る可能性を考慮していないのも駄目。

IEからJScriptで取る場合は日本語がエンコードされてると
正常に取れないけど。（IE 5で検証）
だから２ちゃんはエンコードしてない。
そういう事情は無いのにエンコードしない。
阿呆としか思えない屑スクリプト。

21 · 01/09/13 09:20

日本語が変だ。

>１つのクッキーに , 区切りでセットしてキーと値を : のに
>, と : が値に入る可能性を考慮していないのも駄目。

キーと値を : で区切り、それを , で連結しているのに、
, と : が値に入る可能性を考慮していないのも駄目。

に訂正。

**名無しさん＠お腹いっぱい。** · 01/09/13 16:27

それじゃ、改造しなおそうかと思ってきたのですが

どこで配布されているCGIのものが移しやすいのでしょうか？

もしくわ打開策を教えていただけるとうれしいのですが・・・

**名無しさん＠いつも空腹** · 01/09/13 16:39

データソートの質問です

【ソース】
------------------------------------------------------------
#ファイル読み込み
open(IN,"$datafile");
@lines = <IN>;
close(IN);

#ソートしてから重複データを削除する
@lines = sort { $a cmp $b } grep ( !$count{$_}++, @lines );

#書き込み更新
open(OUT,">$datafile");
print OUT @lines;
close(OUT);
------------------------------------------------------------

データ形式は
63,父Ａ,30,母Ａ,27,息子Ａ,5,娘Ａ,1
158,父Ｂ,55,母Ｂ,52,息子Ｂ,27,娘Ｂ,24
：
：
[家族の合計年齢],[名前],[年齢]・・・・
というcsvファイルなのですが昇順ソートすると
158→63の順になってしまい私の希望するソートができません

３桁の数字[158]よりも２桁の数字[63]を先に並べるにはどうしたらよいでしょうか？

**名無しさん＠お腹いっぱい。** · 01/09/13 17:01

$a cmp $b

　　↓

$a <=> $b

**名無しさん＠お腹いっぱい。** · 01/09/13 18:27

質問です。いま、ファイルに入力されている数字を多い順からn個抜き出して表示するプログラムを作ろうと思うのですが、
どうすればよいのでしょうか？
ちなみにデータファイル形式は、こんな感じです。
1,5,3,8,4,6
1,6,4,9,7,8
1,3,2,4,6,8

ヒントでも良いのでお願いします。

19 · 01/09/13 18:40

なんとか自分で解決しました。

みなさんありがとうございました。

**名無しさん＠お腹いっぱい。** · 01/09/13 18:47

>>26
ハッシュ、ソート使う

**名無しさん＠お腹いっぱい。** · 01/09/13 18:54

>>26
$n=5として、
9, 8, 8, 8, 7 か
9, 8, 7, 6, 5 のどっち？

**名無しさん＠いつも空腹(24)** · 01/09/13 19:34

>25
なるほど、解決しました
ありがとう

26 · 01/09/13 21:12

>>29
9,8,7,6,5の方でお願いします。

聖可 · 01/09/13 21:22

聖可

**名無しさん＠お腹いっぱい。** · 01/09/13 23:06

>>26
こんな感じ？

my $N = 5; #表示する最大数設定

#カウントする
my %count;
while(<DATA>){
foreach my $number(split /,/){
$number += 0;#数値化
$count{ $number}++;
}
}

#値でキーをソート
my @keys = keys %count;
@keys = sort {$count{$b} <=> $count {$a}} @keys;

#表示
my $junni = 1;
printf "%7s %7s\n",'number', 'count';
printf "%s\n", '='x20;

foreach (@keys){
printf "%7s %7s\n",$_, $count{$_};
$junni++;
$junni > $N and last;
}

__DATA__
1,5,3,8,4,6
1,6,4,9,7,8
1,3,2,4,6,8

**名無しさん＠お腹いっぱい。** · 01/09/13 23:47

$n = 5;
undef $/;
my %tmp;
my @big_n = (sort { $b <=> $a } grep { ! $tmp{$_}++ } split /[,\n\s]+/, <DATA> )[0..$n-1];
print join ', ',@big_n;

34 · 01/09/13 23:49

あ、間違った。全然意味が違うね

34 · 01/09/13 23:58

やけくそで一文。真似しちゃダメな例。

my $n = 5;
my %tmp;
print map { "$_ => $tmp{$_} times\n" } (sort { $tmp{$b} <=> $tmp{$a} } grep { ! $tmp{$_}++ } split /[,\n\s]+/, <DATA> )[0..$n-1];

**名無しさん＠お腹いっぱい。** · 01/09/14 01:38

テキスト中にあるタグを分解するスクリプトを作っています。
<xxx attribute="value">
というタグを
$tag->{xxx}->{attribute} = value;
という感じに変えたいと思っています。

$text = q|<img src="../pen.gif" alt="This is a pen." width=10 height=20><br>
<font size=3 color=#ff0000 face="Arial" style="text-decoration: overline underline;">あああ</font>|;

@tags = map{ m/<(.+?)>/g } $text;

for(@tags) {
@array = split / /;
$xxx = shift @array;
for (@array) {
/([^=]+?)=["']?([^"']*)["']?/i;
$tag->{$xxx}->{$1} = $2
}
}

print <<"_EOF_";
$tag->{img}->{src}　　（実際の出力結果：../pen.gif）
$tag->{img}->{alt}　　（This）←ここで値が切れてる
$tag->{img}->{width}　（10）
$tag->{img}->{height} （20）
$tag->{font}->{size}　（3）
$tag->{font}->{color} （#ff0000）
$tag->{font}->{face}　（Arial）
$tag->{font}->{style} （text-decoration:）←ここで値が切れてる
_EOF_

これだと、"This is a pen."など半角スペースを含んだ時に期待通りに動いてくれません。
何か上手い方法はないでしょうか？

**名無しさん＠お腹いっぱい。** · 01/09/14 20:58

>>37
$_ = q<font size=3 color=#ff0000 face="Arial" style="text-decoration: overline underline>;

s/"//g;
s/(.*?)([\w\d-]+)=/$1,$2,/g;
my @str = split /,/;

#前後の空白削除
foreach(@str){
s/^\s+//;
s/\s+$//;
}

#display
print shift @str;
while(@str){
my $attribute = shift @str;
my $value = shift @str;
printf " %-15s: %s\n",$attribute,$value;
}

**名無しさん＠お腹いっぱい。** · 01/09/14 23:06

chmod が出来ません。
ユーザから任意の値を受け取って 666 なら
$mode = sprintf ("%04d",$mode);
chmod ("$mode","$file");
というようにしてるのですが、時々謎の(110とか)値になってしまうのですが。。

chmod (0777,"./foo/boo"); なら大丈夫なんです
手前で適当にprintしてみても、$mode 　0777 、 $file ./foo/boo
みたいにちゃんと値は設定されてるんです
evalとか使わないと駄目なんでしょか?
chmod (eval($mode),"$file");　じゃ駄目ですし

**名無しさん＠お腹いっぱい。** · 01/09/14 23:28

chmod ("$mode","$file");　　←$mode がいけないみたい
777で411になります　　-＿-..

37 · 01/09/15 00:35

>>38
ありがとうございました！
空白の扱いが非常に参考になります。
とても助かりました。

**名無しさん＠お腹いっぱい。** · 01/09/15 00:48

>>39
umask(000);

**名無しさん＠お腹いっぱい。** · 01/09/15 01:01

>>42
ありがとう、でもこの場合どういう風に使えばよいのでしょうか?
どうも$modeの中の値が10進表記と解釈されて0777(DEC)=>1411(OCT)
で411になっている様です
sprintf とか oct を使えば良いのでしょうか

**名無しさん＠お腹いっぱい。** · 01/09/15 01:16

うまく逝きました。。
$mode = "777";
$mode = sprintf ("%04d",$mode);
$modeoct = oct($mode);
chmod ("$modeoct","$file");
でも何故かが解らないです。。
8進数の10進表記??? 謎。。。

**名無しさん＠お腹いっぱい。** · 01/09/15 01:48

>>44
まんま、
perldoc -f chmod

**名無しさん＠お腹いっぱい。** · 01/09/15 01:59

>>45
ありがとう、
$mode = '0644'; chmod oct($mode), 'foo';
だと文字になっちゃうからヤバイよと言う事かな。。
"'0644'"は駄目なんですね、難しいです。。
perldoc知らなかったです、勉強になります、ありがとうです>>45

**名無しさん＠お腹いっぱい。** · 01/09/15 11:59

単発スレで怒られました、申し訳ないです。
自分でも頑張って探してみますが、質問します。

他のコンポーネントを使わずに、メールサーバを割り出す方法はどうすればいいのでしょうか？
例えば、hoge@hoge.comの場合、メールサーバはhoge.comだったり、mail.hoge.comだったり、
MXによって変わってきますよね？その場合はどう処理すればよいのでしょうか？

**名無しさん＠お腹いっぱい。** · 01/09/15 13:09

Net::DNS で MX みる。
tu-kahokanokonnpo-nenntottenani

**名無しさん＠お腹いっぱい。** · 01/09/15 13:10

ただの変換ミスさね。

**名無しさん＠お腹いっぱい。** · 01/09/15 13:49

>>48
＞他のコンポーネントを使わずに、メールサーバを割り出す方法はどうすればいいのでしょうか？
なので、Net::DNSは使えないです、他の方法は無いでしょうか？

**名無しさん＠お腹いっぱい。** · 01/09/15 13:50

じゃあ、Net::DNSがやってることをそのままやればいい。
ソースみれ。

**名無しさん＠お腹いっぱい。** · 01/09/15 14:02

>>51
わかりました、そーします

**JAPU@会社作ったにょ** · 01/09/15 15:29

素直に nslookup 呼び出す作戦とか。

#! /usr/local/bin/perl -wT

$addr = shift || 'hoge@fbi.gov';
$addr =~ /@([a-zA-Z0-9.-]*)/;
$domain = $1;

$ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin";

print "MX for $domain:\n";

@mx = (sort { $a->[1] <=> $b->[1] }
map { /preference = (\d+), mail exchanger = (.*)/; [$2, $1] }
grep /mail exchanger =/, `nslookup -type=MX $domain`);

print "$_->[0] (preference $_->[1])\n" foreach @mx;

__END__

**名無しさん＠お腹いっぱい。** · 01/09/15 16:15

>>53
nslookupを呼び出すのは禁止なんですよね。
困った困った。

**名無しさん＠お腹いっぱい。** · 01/09/16 04:15

**名無しさん＠お腹いっぱい。** · 01/09/16 04:24

-wTスイッチとか use strictは、もしかしてコマンドラインじゃないと意味無しですか？
HTTPD立ち上げてブラウザからhttp://127.0.0.1/で掲示板とか作ってるんですが・・。

各所で-wT使え strict使えとか言われてるのに使えなくて困っております。

**名無しさん＠お腹いっぱい。** · 01/09/16 05:14

1 にも書いてあると思うんだが, もうちょっと「使えなくて」をちゃんと説明してくれ

**あぼーん** · NG

あぼーん

◆PerlPiVg · 01/09/16 11:57

>>56
多分、-wT は
#!/usr/bin/perl -wT
がやりたいんだと思われ。

で、use strict の使い方と意味知ってますか。

**名無しさん＠お腹いっぱい。** · 01/09/16 13:02

>>56
というわけで、perldoc strict かな。

>>59
良いトリップですな。

**名無しさん＠お腹いっぱい。** · 01/09/16 14:08

fetchmailというPOPサーバからローカルスプールへメールを
取り込むプログラムがありますが、同じようにWebベースの
メールをローカルスプールに取り込むperlスクリプトを作りたい
のですが、それを書くのに便利なモジュールとCGIとの会話に
必要な知識が載っている資料(RFCかweb)を知っていたら
教えていただけませんか。

**名無しさん＠お腹いっぱい。** · 01/09/16 15:24

>>61
そんな都合の良いもんねーよ。

もっと基本からはじめろ。

**名無しさん＠お腹いっぱい。** · 01/09/16 16:15

>>62
そうでしたか。結構CPANとかには「そんな都合のいいもの」って
思うようなものもあるので、誰かが作っているかもって思ったの
です。LWPとか使って書くしかないってことですか。

>もっと基本からはじめろ。
車輪の再発明を避けようと、似たようなモジュールがないか探した
だけで、基本に戻れってことですか？

**名無しさん＠お腹いっぱい。** · 01/09/16 16:21

Webmailなんてサイトによって全然違うんでは?
LWP以上の何を求めてるのかが解りませんが
hotmail.pmみたいなのを探してるのか。。。

**名無しさん＠お腹いっぱい。** · 01/09/16 17:06

>>64
たしかに違いますが、大手のinfoseek, exciteくらいなら使っている
人も多いし、webメールが面倒って思って作っているひとがいるかも
って思ったので^

>LWP以上の何を求めてるのかが解りませんが
各WEBの違いを吸収してくれるモジュールがあれば…ってことです。

>hotmail.pmみたいなのを探してるのか。。。
それってあるのですか? CPANとgoogleで検索かけても見つけ
られませんでした。

**名無しさん＠お腹いっぱい。** · 01/09/16 17:40

だから無いってば、大体本家の仕様がかわる度に(以下略
そもそも世界中に一体何千のサービスがあって(以下略

**名無しさん＠お腹いっぱい。** · 01/09/16 17:45

>>66
了解。

**名無しさん＠お腹いっぱい。** · 01/09/16 18:46

ttp://www.f2s.comのフリースペースに
ttp://www4.tkcity.net/~elmo/accessory/wforum.htmlを設置しようと思い、
「#!/usr/local/bin/perl」のパスを「#!/usr/bin/perl」に変更し
cgi-binとbbsディレクトリのパーミッションは755に変更。
後は以下のように変更しました。
wforum.cgi(755)
wforum.log(644)
wf_admin.cgi(755)
index.cgi(755)
1.html(644)
pastno.dat(644)
index.html(644)
title.gif(644)
jcode.pl(644)
fold.pl(644)
accesslog.log(644)
code.log(644)

ですが、どうしても「500 Internal Server Error」と出てしまい動きません。
たぶんパーミッションが間違ってるのかな？と思いますが
どう変えれば良いのかがわかりません。
誰か教えて下さい、お願いします。
ちなみにFTPソフトは「Fetch3.0.3J2」を使ってます。

**名無しさん＠お腹いっぱい。** · 01/09/16 18:56

>>68
頑張ってください、と言いたい所だが。
スレ違いです。

ＣＧＩだけど、なんか質問ある？part３
http://corn.2ch.net/test/read.cgi?bbs=php&key=988727833&ls=50

01/09/16 20:16

>>69
つーか、 use CGI::Carp してみたら助かること多いのにね。

**名無しさん＠お腹いっぱい。** · 01/09/16 20:31

>>68
KCatch.pm使ってエラーメッセージ表示できる。
続きはCGIスレでやってね。

**名無しさん＠お腹いっぱい。** · 01/09/16 20:33

http://www4.tkcity.net/~elmo/accessory/wforum_readme.txt

68 · 01/09/16 20:53

すみませんでした。。。

**名無しさん＠お腹いっぱい。** · 01/09/16 21:17

クッキーの内容によってアクセス拒否を行いたいんですが、
参考になるルーチンなどありますでしょうか。

**名無しさん＠お腹いっぱい。** · 01/09/16 21:25

　無い、以上。

**名無しさん＠お腹いっぱい。** · 01/09/16 22:30

ココは厨房の憂さ晴らし場ですか？

**名無しさん＠お腹いっぱい。** · 01/09/16 22:44

>>70
確かに。
私はKCatchじゃなくてCGI::Carp派です。

書いとくか…
BEGIN {
use CGI::Carp qw(carpout);
open FH, ">> ./error.txt";
carpout(*FH);
}

**名無しさん＠お腹いっぱい。** · 01/09/17 00:52

クッキーの内容でアクセス拒否って
クッキー切られてたら意味ない気がしたのだが

**あぼーん** · NG

あぼーん

**名無しさん＠お腹いっぱい。** · 01/09/17 00:59

内容取れなくても拒否だろ。

**名無しさん** · 01/09/17 22:02

パターンマッチで「ラーメン」など「ー」を検出しようとすると
unmatched [] in regexp at ファイル名が表示されるんですけど
エラーをなくすにはどうしたらよいですか？

**名無しさん** · 01/09/17 22:06

「ラ(.*)メン」で解決しました

**名無しさん＠お腹いっぱい。** · 01/09/17 22:14

頻出ネタですな。
\Q \E
quotemeta

**名無しさん＠お腹いっぱい** · 01/09/17 22:34

ファイル移動に関する質問です
$a : 移動前のファイル名
$b : 移動先のディレクトリ名
この場合、どんな風に書けばいいのか教えてください

**名無しさん＠お腹いっぱい。** · 01/09/17 22:57

>84
$c : 移動前のディレクトリ名
rename("$c/$a","$b/$a");

**名無しさん＠お腹いっぱい。** · 01/09/17 23:49

use File::Copy;
move($a,$b);

**名無しさん＠お腹いっぱい。** · 01/09/18 05:01

>>84
蛇足ながら。
$a,$bはsort用の特殊変数なので
普通の用途では使わないほうがいい（かもしれない）

84 · 01/09/18 07:57

おかげさまで解決しました

**名無しさん＠お腹いっぱい。** · 01/09/18 21:30

カレントディレクトリ名を取得するのって
どうやってやるんでしょうか？

**名無しさん＠お腹いっぱい。** · 01/09/18 22:23

>>89
use Cwd;
$dir = cwd();

**名無しさん＠お腹いっぱい。** · 01/09/18 23:07

>>90
わ。そんな簡単な方法があったのですか。
ありがとうございます。感涙です。

**名無しさん＠お腹いっぱい。** · 01/09/18 23:27

入力された文字列を80Byte以下に分割したいと思ってます。
（分割結果を個別で携帯メールに送る）

日本語文字列の分割はどうすればいいのでしょう？
substr使って以下のようにすると、1byteコードが入ったところで化けます。

$max_byte = 80;
$offset = 0;
for($i=0;;$i++){
@mailbody[$i] = substr($mailbody,$offset,$max_byte);
$offset +=length(@mailbody[$i]);
if(@mailbody[$i] eq ""){
last;
}
}
よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 01/09/19 00:24

>>92
正規表現を使う
あと､@じゃなくて$な

**名無しさん＠お腹いっぱい。** · 01/09/19 02:33

>>92
つーか、日本語は2byte（または3byte）って事知ってるか？

@と$間違うレベルじゃ多分無理だろうな。

**名無しさん＠お腹いっぱい。** · 01/09/19 02:47

perl6からは、初心者が@と$と%間違うのは少なくなるだろう。。。。
逆に間違う古参が出てくるだろうが。

**あぼーん** · NG

あぼーん

**名無しさん＠お腹いっぱい。** · 01/09/19 05:36

>>92
93と94の言ってることがわからなければ、たとえばこのへんを参考に。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Split

そのあと>>2-3のリンク先も全部読んでおくといいかも。
２ヶ月もがんばれば全部読めるっすよ。

**名無しさん＠お腹いっぱい。** · 01/09/19 06:33

ローカルでなが～いスクリプト動かしたいんですけど
タイムアウトしてサーバーがみつからんです。っていいます。
なんとかしてください。

**名無しさん＠お腹いっぱい。** · 01/09/19 06:42

>>98
ローカルで？サーバーで、の間違いでしょ？
forkして子プロセスにやらせるとか
やること記述したファイル生成して、cronに拾わせるとか

**名無しさん＠お腹いっぱい。** · 01/09/19 07:02

↑ アンタ甘いな、この聞き方からしてなが～いスクリプトってのはフェイクなんだよ
良く聞いてみたらなが～いのはもちろんhelloperlも動かない
つーかHTMLも表示出来ん、Pingも飛ばねえってオチ　　　これ基本ね

**名無しさん＠お腹いっぱい。** · 01/09/19 07:18

>98
ブラウザ表示がタイムアウトになっても処理は続いてる。
画面に表示されないだけ。
表示内容を見たいだけならスクリプトの最後に表示させたい内容を
外部保存するように書き換えて、あとからそのＨＴＭＬだけ開けばいい。

**名無しさん＠お腹いっぱい。** · 01/09/19 07:22

こんな時間にレスがつくとは！！
なが～いスクリプトってのはただ単に
入れ子になってるだけなんですけど
httpdがずっと通信してますよー。ってなってて
もうやめた。って感じで止まり、鯖見つからんかった事にしといてー。
ってなるんです。

**じゃ･･** · 01/09/19 07:24

頭でヘッダ吐いちゃえ　　：-）

**名無しさん＠お腹ごろごろ** · 01/09/19 14:53

Windows98+ActivePerlの環境で・・・
Perlスクリプトの設置場所とカレントディレクトリを「c:\temp」にした状態で
「c\temp\sample.txt」を「c:\temp\old\sample.txt」に移動するにはどうすれば良いでしょうか

**名無しさん＠お腹いっぱい。** · 01/09/19 14:56

>104
ログ見ろ！
>84-86

**名無しさん＠お腹ごろごろ** · 01/09/19 15:06

え°？
[[解決]]

**コアだんぷ** · 01/09/19 15:35

みんなってどれくらいでPerlとか使えるようになったの？
例えば簡単な掲示板作れるくらいのレベルに達するのにどれくらい
かかった？
先日友人に1ヶ月くらいやってやっと簡単な掲示板作れるレベルになった
といわれてビクーリした。そいつは仕事から帰ってずっとPerlやってたみたいなんだけど
そんなにかかるの？
ちなみに俺は簡単な掲示板作れるようなレベルになるまで1週間かからなかった記憶があります。
個人差もあると思いますがだいたいどれくらいでいけるもんなのですか？

Ｐ · 01/09/19 16:05

Perlに割いた時間によるでしょうね
やりたいことができれば習熟度や経歴なんて関係ないよ～

私は掲示板のアレンジは即日可能でしたが
特に目的がなかったのでその後は進歩していません

**名無しさん＠お腹いっぱい。** · 01/09/19 16:06

>107
Perl以外のプログラムを組んだ事あるかないかによる。
組んだ事がなくてもその知識があるかないかによる。
文系か理系かにもよる。

漏れは改造から入ったから、簡単な掲示板を１から自分で作ったのが
いつだったか全然覚えてない。（ぉ

**名無しさん＠お腹いっぱい。** · 01/09/19 17:00

すいません。掲示板の通知機能で複数のメールアドレスを指定したいとき、
$mailto = "'x_x_x@xxx','x.x.x@xxx','xxx@xxx',"
こんな書き方で大丈夫でしょうか？

**名無しさん＠お腹いっぱい。** · 01/09/19 19:09

BBSを書いてるんですが、ログの扱いでちょっと考えてます。
2chの様に複数のスレッド(トピック)が有ってそこにレス付けて行く
BBSの場合トップソート(あげ機能）の有無に関わらずログの整理が
必要ですよね。
多くの掲示板みたいに
open (FH,"./log.txt");@log = <FH>;
ってやるのは少し気が引けます
もし　while (<FH>)　で何とかしたいとしたら、ここみたいに
スレッド毎にログファイルとsubject.txtみたいなテキストを用いる
しか無いんでしょうか。　ログファイルが増えるのもちょっとなぁ
と思ってるんですが・・・
　

**sage** · 01/09/19 20:42

>110
それじゃ無理。具体的な掲示板スクリプト書いてくれ

@Mailto('Mail1@hoge.jp','Mail2@hoge.jp','Mail3@hoge.jp'); #送りたいメールアドレスを好きなだけ書く
foreach $Mailto (@Mailto){掲示板スクリプトの送信処理;}
大まかな考え方はこんな感じだと思うよ

>111
複数の方法がある場合、ナニを優先させるか明記しないとレス不可能
というかナニがしたいの？

**sage** · 01/09/19 22:59

↑の４行目
@Mailto = ('～以下省略～');ですよ。「=」抜けてました（汗々）

**名無しさん＠お腹いっぱい。** · 01/09/19 23:11

>>110のでもいいんじゃないかな？
To: mail_addr@host, nail2@host, ...
で送れるでしょ。

ただ、ダブルクオートでくくると、変数展開がまずいことにならないかな。
$mailto = '"x_x_x@xxx","x.x.x@xxx","xxx@xxx"';
の方が安心かも。

**114** · 01/09/19 23:15

サッキノとリケシー。
動かしているスクリプトの処理によっては、えらいことになりかねない。

**110** · 01/09/20 00:32

”’ｘ_ｘ_ｘ＠ｘｘｘ’”だとうまくいきませんでしたが
’”ｘ_ｘ_ｘ＠ｘｘｘ”’だと出来ました。
最初は単純にカンマで区切っただけだったんですが（$mailto = 'x_x_x@ne.jp,x.x.x@ne.jp,xxx@ne.jp';）
これだと最初のやつが送信されなかったんです。_ があったのが悪かったんでしょうか？？？
なぜだかよくわかってませんけどこれから勉強します。
１１２さん１１４さんお答えどうもありがとうございました。

**名無しさん＠お腹いっぱい。** · 01/09/20 04:24

前板（現レンタルサーバ）でのチャットスレがとても勉強になると聞いたんですが
探しても見つかりませんでした。
どこで見られますか？

**924** · 01/09/20 04:48

>>116
perlじゃなくて、sendmailの仕様の話だろ

**名無しさん＠お腹いっぱい。** · 01/09/20 07:33

2つの配列同士から同じ要素含んでないか調べるのって
どうやるんですかーー？
ちなみにgrepって検索文字に変数使えないんですか？
例えば grep ~ /$hoge/,@kensakutaisho;
みたい$hogeつかえないのですか？

**あぼーん** · NG

あぼーん

**らすかる** · 01/09/20 07:50

今掲示板のスクリプト書いてるんですが
スクリプトを1つのファイルにまとめるか複数に分けるか悩んでます。
エラー処理のところなどを別ファイルにしようかと思うのですが
やはり複数に分けた方が処理は軽くなるのでしょうか？
それとも複数でも全てを１つのファイルにまとめても大してかわらないのでしょうか？

**名無しさん＠お腹いっぱい。** · 01/09/20 07:56

web上でcgiからcgiを作るって危険なんですか？

**名無しさん＠お腹いっぱい。** · 01/09/20 08:17

map {$ck{$_}++} @a1;
@a3 = map {$ck1{$_}} @a2;

@hits = grep {$_ =~ /$hage/} @search_target;
↓
@hits = grep {/$hage/} @search_target;
↓
@hits = grep /$hage/,@search_target;

**名無しさん＠お腹いっぱい。** · 01/09/20 09:19

>121
ログを１ファイルで管理する場合は保存件数を制限するだろ？
複数ファイルで管理するとそれを探すステップが必要なので
入門レベルで処理の重い／軽いを気にするなら１ファイル管理がいいと思うが？

>122
作るcgiの完成度と作られるcgiの内容による

**名無しさん＠お腹いっぱい。** · 01/09/20 09:34

>>119
条件によっていろいろなので一概に言えない。
@dupe = grep {$tmp{$_}++} @array1, @array2

>>121
分けたほうが遅くはなるけど、たいして変わらない。
分けるなら読み込みのスクリプトと、書き込みのスクリプトで分ける。
2chもそうだよね。

**名無しさん＠お腹いっぱい。** · 01/09/20 15:34

$ENV{'QUERY_STRING'} = 'name=hogehoge&year=22&sex=men&pass=77777';
だったとして

@querys = split (/&/,$ENV{'QUERY_STRING'});
foreach (@querys){
  ($name,$value) = split (/=/,$_);
  $fromin{"$name"} = $value;
}

これは理解出来るとして、

@querys = split (/&/,$ENV{'QUERY_STRING'});
foreach (@querys){
  ($name,$value) = split (/=/,$_);
  $fromin{"$name"} = $value;
}
  $name = $formin{name};
  $year = $formin{year};

これは何故? 殆どの配布スクリプトがこんな感じ
なんですけど、、何で

@querys = split (/&/,$ENV{'QUERY_STRING'});
foreach (@querys){
  ($name,$value) = split (/=/,$_);
  unless ($name =~ m/^(name|year|sex|)$/){next;}
  $$name = $value;
}

これで済ませないの?

**名無しさん＠お腹いっぱい。** · 01/09/20 15:48

右へ倣え。
もしくは、盲目的「ソフトリファレンスは使うな」。
もしくは、マッチの負荷を気にしている。

つーか、ハッシュのままでいいじゃん。

**127** · 01/09/20 15:52

ごめん。s/ソフト/シンボリック/

**名無しさん＠お腹いっぱい。** · 01/09/20 16:21

>>126
なんかスクリプトの中にパラメータを
>m/^(name|year|sex|)$/){next;}
って書くのはマジックナンバーの埋め込みみたいに
感じるんですけど。メンテナンスが面倒になりませんか?

**１２６** · 01/09/20 16:34

即レス感謝～
一番の理由はマッチングのコストなのかな、、
シンボリックリファレンスは多用すると参照先が曖昧になってしまうから
上級者さんが、使うなーって言ってるんですよね

>メンテナンスが面倒になりませんか?
これは上の例の2つ目でも同じ事ですよね例えばaddを足したら
$add = formin{add}　を足さないといけないという部分では

色んなスクリプト読んでるんですが、何故か2つめのやり方が凄く
多いんです。で、3つ目は一度も見た事無いんで、何か落とし穴でも
有るのか、それともこう言う基本部分のリファレンス?みたいなのが
どっかに有って、みんなそれをコピーして使ってるのかな
と思ったんです　perlってほんと色々な書き方が有って困ってるのに
この部分だけ判子押したように同じだったんで。。。

**名無しさん＠お腹いっぱい。** · 01/09/20 16:46

たしかに2番よりは3番の方がいいかも知れん。
マジックナンバー(マジックストリング?)なんてどうにでもなるし。
ただ、入力データだということをハッキリさせたいのでハッシュの方がいいとは思うが。
そんな俺は自作のCGI::Queryで$q->param("foo")だけど。

**ぱーるやろう** · 01/09/20 16:47

E-mailアドレスとURLをチェックする正規表現教えてください。

**名無しさん＠お腹いっぱい。** · 01/09/20 17:00

>>132
>>2-5のリンク先見れ

**119** · 01/09/20 17:41

>>123
>>125
どうもありがとです。
それで試してみます。
123の矢印は省略可って事ですよね？
>>132
どっかのサイトにあったなぁ。
メアドも例外みたいのがあってそれをはじかず
変なアドレスだけをはじいていくってやつが。
ちなみに超長かった。
例外考えないと
if($email !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){&error("メアド変");}
($siteurl !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i){&error("URL変");}
か？

**119** · 01/09/20 17:41

if($email !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){&error("メアド変");}
elsif($siteurl !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i){&error("URL変");}
だ。

**名無しさん＠お腹いっぱい。** · 01/09/20 18:15

Perl上級者って名乗れるのはどれくらいになってからですか？

**名無しさん＠お腹いっぱい。** · 01/09/20 18:18

>>136
とりあえず自分で上級者って言わない奴。

**名無しさん＠お腹いっぱい。** · 01/09/20 18:23

>>136
Inter National Perl Coding Qualification (INPCQ)
Master クラスを取得してから

**名無しさん＠お腹いっぱい。** · 01/09/20 18:27

>>136
Perlを使いこなせるようになってから

**136** · 01/09/20 18:39

>>138
googleで検索しましたが情報がありませんでした。
どのような資格(?)なのですか？

おしえれ。

**名無しさん＠お腹いっぱい。** · 01/09/20 19:12

初級：モジュールを理解し、汎用的なサブルーチンをモジュールに追い出す
中級：CPANにモジュールを登録し、Perl文化に貢献する
上級：Perlのコアの開発に携わる
神：ラリーウォール

**名無しさん＠お腹いっぱい。** · 01/09/20 19:24

絶対神：KENT

**名無しさん＠お腹いっぱい。** · 01/09/20 19:54

>>142
不覚にもﾜﾗﾀ

**名無しさん＠お腹いっぱい。** · 01/09/20 20:58

>141
げ。どうしよう。初級者じゃん俺。もっとヘボいと思ったのに俺。

**初心者++** · 01/09/20 22:18

俺も興味有るなあ

**稲垣(ﾟдﾟ)ゴルォ** · 01/09/20 22:26

kent 照りカット

**名無しさん＠お腹いっぱい。** · 01/09/20 23:01

>>146
ﾂﾏﾗﾝ

**名無しさん＠お腹いっぱい。** · 01/09/20 23:45

Perl初心者が学習用に見るなら、どのスクリプトがおすすめですか？

**名無しさん＠お腹いっぱい。** · 01/09/21 01:45

二つの配列から同じ要素を見つけて
その要素以外を記録する方法がやはりわかりません。
というかうまく動きません。
これだ！というのがあれば教えてください。

**名無しさん＠お腹いっぱい。** · 01/09/21 02:05

>>149
@a = (1,2,3,4,5,6);
@b = (2,4,6,8,10);

foreach (@a) {$hash{$_} = ""}
foreach (@b) {exists($hash{$_}) ? delete $hash{$_} : print "$_\n"}
foreach (keys %hash){print "$_\n"}

ぱっとしないけど。

**149** · 01/09/21 02:16

どうもありがとう！
今自分でアイデア出てやっとこさ作れたけどその
数倍長いよｗ
いや親切さん多くてうれしいですね。どうもでした。

**150** · 01/09/21 02:18

@a = (1,2,3,4,5,6);
@b = (2,4,6,8,10);

foreach (@a, @b) {$hash{$_}++}

# 重複してるの
foreach (sort keys %hash) {if ($hash{$_} >= 2) {print $_, "\n"}}

# 重複してないの
foreach (sort keys %hash) {if ($hash{$_} == 1) {print $_, "\n"}}

こっちのほうがええかも

**Perl上級者** · 01/09/21 02:55

Perl5.005.3と5.6でなぜ結果が違うのか教えれ。

#!/usr/bin/perl

$message = "Hello";

print "子プロセスを起動....\n";
$pid = fork();
if($pid < 0){
die("子プロセスの作成に失敗しました。\n");
}elsif($pid == 0){
$message .= " World";
print "\$message = $message\n";
exit(0);
}
wait();
print "\$message = $message\n";
exit(0);

**Perl上級者** · 01/09/21 02:59

Perl5.6
./log.plでも./log.pl > logfile

子プロセスを起動....
$message = Hello World
$message = Hello

---------------------------
Perl5.005.3
./log.pl
子プロセスを起動....
$message = Hello World
$message = Hello

./log.pl > logfile

子プロセスを起動....
$message = Hello World
子プロセスを起動....
$message = Hello

**名無しさん＠お腹いっぱい。** · 01/09/21 03:05

>>154
せめて環境くらい書いたらどうだ、ｳﾞｫｹｸｧｽ君！

**Perl上級者** · 01/09/21 03:07

>>155のアホ
HP-UXだボケ。
ま、おまえにはわからんだろ（嘲笑）

**_gunzip@Perl初級者** · 01/09/21 03:10

>>153-154
(´-`).｡ｏＯ（仮にもPerl上級者なら、考えるまでもないと思うが･･･)

**Perl上級者** · 01/09/21 03:14

>>157
初級者はすっ込んでろ。

**初心者@Perlなんですが・・・** · 01/09/21 03:29

ばっふぁ。

**_gunzip@Perl初級者** · 01/09/21 03:31

>>158

(´-`).｡ｏＯ（仰せのままに････)

# fork()が何をするか、どういったバッファリングが行われるか
# 分かっていれば、何も難しくない。

**名無しさん＠お腹いっぱい。** · 01/09/21 03:52

>>154-160 ふーんなるほど。ひとつ賢くなった。
こんなことないとperldelta読まない俺は逝ってよしですか。

**あぼーん** · NG

あぼーん

**Perl上級者** · 01/09/21 04:27

全然わからん。ちゃんと説明しろ。
素人ども。

**7743** · 01/09/21 04:41

UNIXサーバーのcドライブにアクセスしようとする奴になんかいいメッセージをおくってやる方法ねぇかな？

**_gunzip** · 01/09/21 04:46

(0) 前提（おおまか）
標準エラー出力以外のストリームは、端末など対話的装置に対しては
行バッファリング（バッファが一杯になるか、改行文字によって書き出す）、
そうでない場合は完全バッファリング（バッファが満杯になって初めて
書き出す）を行う。

(1) ./log.pl の場合

この場合は行バッファリングが行われる。

> print "子プロセスを起動....\n"; (*1)

改行文字により、バッファが標準出力に書き出される。
後はコード通りの（思った通りの）動作をする。

#-------------#

**_gunzip** · 01/09/21 04:48

(2) ./log.pl > logfile の場合

この場合、標準出力は端末ではないので完全バッファリングが行われる。従って、

> print "子プロセスを起動....\n"; (*1)

では標準出力に書き出されない。(->バッファへ)その後、

> $pid = fork();

fork()呼び出しによって親のプロセスイメージが複製される際、親の
バッファも同時にコピーされる。(...まあ、大抵"copy-on-write"
だろうけど)
そして、子プロセスがprint "...", exit()した際に

> 子プロセスを起動....
> $message = Hello World

...と、子プロセスのバッファが書き出され、親と子の共有するカーネル空間の
ファイルテーブルのオフセットが更新される。
そして、親は子の死を確認した後、同じくprint "..."; exit()し、更新された
オフセット値から、自身のバッファ

> 子プロセスを起動....
> $message = Hello

を書き出す。...単にこれだけ。

#-------------#

Perl5.6からはfork()の際に自動的に全てのバッファをフラッシュするよう
変更されたため、プログラム作成者の意図通りに(*1)の部分で標準出力
バッファが書き出される。（後の動作は(2)と同じ）
従って、>>153-154のような違いが生じた。

**7743** · 01/09/21 04:49

cドライブを探したがるウイルスは、どういう仕組みになってるんすか？

**_gunzip** · 01/09/21 04:55

間違えた。
>（後の動作は(2)と同じ）
じゃない。（大体分かると思うけど）

(´-`).｡ｏＯ（Zzz････おやすみ >>163)

**Perl初級者** · 01/09/21 05:24

「バッファをコピー」するからか。
なるへそ。

**Perl下級者** · 01/09/21 05:36

>>169
Perl上級者の理解力が急に増したのかと思った。
紛らわしいハンドルつけるなｺﾞﾙｧ

>>164
アクセスしてくるURLと一致するファイルをサーバ上に作れば
いいんでない？　"c:"で始まるファイル名で。

**名無しさん＠お腹いっぱい。** · 01/09/21 05:39

ここのスレッドの住人て他にどんな言語が使えるの？

**名無しさん＠お腹いっぱい。** · 01/09/21 09:40

モジュールってなんですか？
どうやってインストールするんですか？
どうやって使うんですか？

なんかモジュールなんて知ってて当然みたいな説明ばかりで
基本的なところがわからない
検索したら、モジュールの作り方とか出てきて涙

**名無しさん＠お腹いっぱい。** · 01/09/21 09:54

>>171
俺は C, PHP, Ruby, Python, ASP(VBScript), ColdFusion を
全て中途半端に使える（ｗ

んで今はJSPの勉強中。

てか一つに的絞って、まずそれを極めろって自分でも思う。

>>172
http://www.google.co.jp/search?hl=ja&q=Perl+%83%82%83W%83%85%81%5B%83%8B+%83C%83%93%83X%83g%81%5B%83%8B&lr=
モジュールの作り方ばかり出てくるか？

**名無しさん＠お腹いっぱい。** · 01/09/21 09:57

あとCPANもよくわかんない。CPANからもってこい、CPANから
ダウンロードしろとか、なんかやっぱりCPANも常識なんですよね？
なんかすげぇバカなこときいてるんだろうなぁ…

**名無しさん＠お腹いっぱい。** · 01/09/21 10:12

>>173
Windowsなんです。なんかモジュール？をダウンロードしたら
Makefile.PLがはいってて、perl Makefile.PLするってのまで
なんとなくわかって、で？みたいな
makeしろと言われてもmakeコマンド？なんてないし・・・

ようやく
ttp://member.nifty.ne.jp/hippo2000/perltips/module_install.htm
にたどりつきました。ちょっと前進かも？

**名無しさん＠お腹いっぱい。** · 01/09/21 10:13

うわ。我ながらすげー頭悪い書き方してるな
でもなんかもうなにがなんだかわかんないんです

**名無しさん＠お腹いっぱい。** · 01/09/21 10:14

>>171
俺は C, PHP, Ruby, Python, ASP(VBScript), ColdFusion を
全て中途半端に使える（ｗ

んで今はJSPの勉強中。

てか一つに的絞って、まずそれを極めろって自分でも思う。

>>172
http://www.google.co.jp/search?hl=ja&q=Perl+%83%82%83W%83%85%81%5B%83%8B+%83C%83%93%83X%83g%81%5B%83%8B&lr=
モジュールの作り方ばかり出てくるか？

**177** · 01/09/21 10:15

なんでこんなに遅れて二重投稿（鬱

**名無しさん＠お腹いっぱい。** · 01/09/21 10:30

>>174-176
皆おなじ道をたどってきたのさ。。。

WindowsのActivePerlを使ってるなら、CPANからもってくるより
ActivePerlのサイトからPPMつうのでダウンロードするほうが
簡単な場合が多いよ。
ただPPM形式になってるのはメジャーなモジュールだけだから
有名じゃないモジュールはCPANを利用するしかない。

今インストールしてみたいモジュールは具体的に何かあんの？

**あぼーん** · NG

あぼーん

**名無しさん＠お腹いっぱい。** · 01/09/21 12:32

>>179
ありがとうございます。涙。

今ほしいのは、MP3ファイルのタグを操作（主に読み込み）する
ためのモジュールです。
MP3-infoってのを見つけたのは良いのですが、これを
どうすれば？？？みたいな状態です。
Makefile.PLがあって、Makefileを作る、ってのは成功したものの、
makeなんて持ってないよ？という

**a'x** ◆5GIjpSRQ · 01/09/21 12:48

>>181
ActivePerlならコマンドプロンプトから

ppm install MP3::Info

ってやればOK。

**名無しさん＠お腹いっぱい。** · 01/09/21 15:09

>>182 ありがとうございます。使っているのはActivePerlです。
さっそく実行してみたところ、
Error installing package 'MP3::Info': Could not locate a PPD
file for package MP3::Info
というエラーになってしまいました。
C:\> ppm install MP3::Info
と、
C:\> ppm
PPM> install MP3::Info
両用やってみました。

**名無しさん＠お腹いっぱい。** · 01/09/21 15:18

>>181
こちらで一覧見て調べましょう。
http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/Packages
で、PPMPackageはデリミタ(::)指定じゃないです。

見たところありますね。
ppm install MP3-Info でどうぞ。

**a'x** ◆5GIjpSRQ · 01/09/21 15:24

>>183
むぅ。俺はそれでinstall出来たんだが。
ひょっとしてfirewallの中からのアクセス？だったら

set HTTP_PROXY=http://(Proxyホスト名):(Proxyポート)

ってやってppm使ってみて。

**a'x** ◆5GIjpSRQ · 01/09/21 15:29

>>184
>で、PPMPackageはデリミタ(::)指定じゃないです。
そうなの？俺は :: でも出来たが････。(今試したら、- でも出来た)

**_gunzip** · 01/09/21 17:35

VineLinuxにActivePerl入れて試してみたけれど、::でおっけいだったよ。

というか、ppmは中で
$package =~ s/::/-/g;としているから、デリミタの問題ではなくてtypoか何かじゃないかなあ。

**名無しさん＠お腹いっぱい。** · 01/09/21 18:44

ファイルロックではどんなのがありますか？
普通はflock使いますか？

**名無しさん＠お腹いっぱい。** · 01/09/21 18:49

うん。

**名無しさん＠お腹いっぱい。** · 01/09/21 19:03

JavaScriptで、onload=で複数のスクリプトは起動できないの？
できるとすればどうやって書けばいいの？

**名無しさん＠お腹いっぱい。** · 01/09/21 19:33

板違い。

**名無しさん＠お腹いっぱい。** · 01/09/21 19:35

失敬パールだった。

**名無しさん＠お腹いっぱい。** · 01/09/21 20:36

>>184-186 わーーーーー。入った。入りました。
ありがとうございます。typoだったのかな？
とにかく嬉しい！感謝感激です。

**名無しさん＠お腹いっぱい。** · 01/09/21 20:42

Apache::Sessionなんですが、
セッションのタイムアウトを実現するために、
Apache::Session::MySQLでセッションテーブルに
TIMESTAMPフィールドを置いて、cronでスクリプト走らせて
一定時間以上前のものを削除しています。
こういうようなことを、Apache::Session::DB_Fileでやるには
どうしたらいいんでしょう？

**名無しさん＠お腹いっぱい。** · 01/09/21 20:43

>>184-187 でした。番号間違い。すみません。
さーがんばるぞー！

**名無しさん＠お腹いっぱい。** · 01/09/21 21:11

>>187
PPM見たけど、s/::/-/な部分が見当たらなかった。
ポインタ示していただけるとありがたいです。

**_gunzip** · 01/09/21 22:11

>>196
あ、もしかしたらWindows版のppm.batを見ていませんか?

$ grep "s/::/-/" -n /usr/local/ActivePerl-5.6/bin/ppm
111: s/::/-/g;
164: $package =~ s/::/-/g;
190: $package =~ s/::/-/g;

**a'x** ◆5GIjpSRQ · 01/09/21 22:42

>>196
Win版なら
C:\Perl\bin\ppm
の107行から（バージョンにより行は多少変わると思うが）
for (@ARGV) {
s/::/-/g;
}
と有ります。ppm.batにも同様に120行から
for (@ARGV) {
s/::/-/g;
}
と有ります。

**あぼーん** · NG

あぼーん

**196** · 01/09/21 23:37

>>197-198
ありがとう。
自分、CygwinPerlでしかも入れてないんで、
PPM-*.tar.gz持ってきてその中身見てました。