トップページ⇒php
1001コメント350KB

【Perl 】初心者コーナーPart7

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい01/09/12 13:04ID:???
いらっしゃーい、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を見よう。
0102名無しさん＠お腹いっぱい。01/09/19 07:22ID:???
こんな時間にレスがつくとは！！
なが〜いスクリプトってのはただ単に
入れ子になってるだけなんですけど
httpdがずっと通信してますよー。ってなってて
もうやめた。って感じで止まり、鯖見つからんかった事にしといてー。
ってなるんです。
0103じゃ･･01/09/19 07:24ID:AuWg3XVU
頭でヘッダ吐いちゃえ　　：-）
0104名無しさん＠お腹ごろごろ01/09/19 14:53ID:ZyNXuusg
Windows98+ActivePerlの環境で・・・
Perlスクリプトの設置場所とカレントディレクトリを「c:\temp」にした状態で
「c\temp\sample.txt」を「c:\temp\old\sample.txt」に移動するにはどうすれば良いでしょうか
0105名無しさん＠お腹いっぱい。01/09/19 14:56ID:???
>104
ログ見ろ！
>84-86
0106名無しさん＠お腹ごろごろ01/09/19 15:06ID:???
え°？
[[解決]]
0107コアだんぷ01/09/19 15:35ID:hUyzFQTQ
みんなってどれくらいでPerlとか使えるようになったの？
例えば簡単な掲示板作れるくらいのレベルに達するのにどれくらい
かかった？
先日友人に1ヶ月くらいやってやっと簡単な掲示板作れるレベルになった
といわれてビクーリした。そいつは仕事から帰ってずっとPerlやってたみたいなんだけど
そんなにかかるの？
ちなみに俺は簡単な掲示板作れるようなレベルになるまで1週間かからなかった記憶があります。
個人差もあると思いますがだいたいどれくらいでいけるもんなのですか？
0108Ｐ01/09/19 16:05ID:???
Perlに割いた時間によるでしょうね
やりたいことができれば習熟度や経歴なんて関係ないよ〜

私は掲示板のアレンジは即日可能でしたが
特に目的がなかったのでその後は進歩していません
0109名無しさん＠お腹いっぱい。01/09/19 16:06ID:???
>107
Perl以外のプログラムを組んだ事あるかないかによる。
組んだ事がなくてもその知識があるかないかによる。
文系か理系かにもよる。

漏れは改造から入ったから、簡単な掲示板を１から自分で作ったのが
いつだったか全然覚えてない。（ぉ
0110名無しさん＠お腹いっぱい。01/09/19 17:00ID:tAq/5NMs
すいません。掲示板の通知機能で複数のメールアドレスを指定したいとき、
$mailto = "'x_x_x@xxx','x.x.x@xxx','xxx@xxx',"
こんな書き方で大丈夫でしょうか？
0111名無しさん＠お腹いっぱい。01/09/19 19:09ID:???
BBSを書いてるんですが、ログの扱いでちょっと考えてます。
2chの様に複数のスレッド(トピック)が有ってそこにレス付けて行く
BBSの場合トップソート(あげ機能）の有無に関わらずログの整理が
必要ですよね。
多くの掲示板みたいに
open (FH,"./log.txt");@log = <FH>;
ってやるのは少し気が引けます
もし　while (<FH>)　で何とかしたいとしたら、ここみたいに
スレッド毎にログファイルとsubject.txtみたいなテキストを用いる
しか無いんでしょうか。　ログファイルが増えるのもちょっとなぁ
と思ってるんですが・・・
　
0112sage01/09/19 20:42ID:???
>110
それじゃ無理。具体的な掲示板スクリプト書いてくれ

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

>111
複数の方法がある場合、ナニを優先させるか明記しないとレス不可能
というかナニがしたいの？
0113sage01/09/19 22:59ID:???
↑の４行目
@Mailto = ('〜以下省略〜');ですよ。「=」抜けてました（汗々）
0114名無しさん＠お腹いっぱい。01/09/19 23:11ID:RdNP37os
>>110のでもいいんじゃないかな？
To: mail_addr@host, nail2@host, ...
で送れるでしょ。

ただ、ダブルクオートでくくると、変数展開がまずいことにならないかな。
$mailto = '"x_x_x@xxx","x.x.x@xxx","xxx@xxx"';
の方が安心かも。
011511401/09/19 23:15ID:RdNP37os
サッキノとリケシー。
動かしているスクリプトの処理によっては、えらいことになりかねない。
011611001/09/20 00:32ID:xeOjatSc
”’ｘ_ｘ_ｘ＠ｘｘｘ’”だとうまくいきませんでしたが
’”ｘ_ｘ_ｘ＠ｘｘｘ”’だと出来ました。
最初は単純にカンマで区切っただけだったんですが（$mailto = '[email protected],[email protected],[email protected]';）
これだと最初のやつが送信されなかったんです。_ があったのが悪かったんでしょうか？？？
なぜだかよくわかってませんけどこれから勉強します。
１１２さん１１４さんお答えどうもありがとうございました。
0117名無しさん＠お腹いっぱい。01/09/20 04:24ID:tvjA6dmg
前板（現レンタルサーバ）でのチャットスレがとても勉強になると聞いたんですが
探しても見つかりませんでした。
どこで見られますか？
011892401/09/20 04:48ID:???
>>116
perlじゃなくて、sendmailの仕様の話だろ
0119名無しさん＠お腹いっぱい。01/09/20 07:33ID:???
2つの配列同士から同じ要素含んでないか調べるのって
どうやるんですかーー？
ちなみにgrepって検索文字に変数使えないんですか？
例えば grep ~ /$hoge/,@kensakutaisho;
みたい$hogeつかえないのですか？
0120あぼーんNGNG
あぼーん
0121らすかる01/09/20 07:50ID:MTc8pgUs
今掲示板のスクリプト書いてるんですが
スクリプトを1つのファイルにまとめるか複数に分けるか悩んでます。
エラー処理のところなどを別ファイルにしようかと思うのですが
やはり複数に分けた方が処理は軽くなるのでしょうか？
それとも複数でも全てを１つのファイルにまとめても大してかわらないのでしょうか？
0122名無しさん＠お腹いっぱい。01/09/20 07:56ID:o56tunDA
web上でcgiからcgiを作るって危険なんですか？
0123名無しさん＠お腹いっぱい。01/09/20 08:17ID:???
map {$ck{$_}++} @a1;
@a3 = map {$ck1{$_}} @a2;

@hits = grep {$_ =~ /$hage/} @search_target;
↓
@hits = grep {/$hage/} @search_target;
↓
@hits = grep /$hage/,@search_target;
0124名無しさん＠お腹いっぱい。01/09/20 09:19ID:???
>121
ログを１ファイルで管理する場合は保存件数を制限するだろ？
複数ファイルで管理するとそれを探すステップが必要なので
入門レベルで処理の重い／軽いを気にするなら１ファイル管理がいいと思うが？

>122
作るcgiの完成度と作られるcgiの内容による
0125名無しさん＠お腹いっぱい。01/09/20 09:34ID:???
>>119
条件によっていろいろなので一概に言えない。
@dupe = grep {$tmp{$_}++} @array1, @array2

>>121
分けたほうが遅くはなるけど、たいして変わらない。
分けるなら読み込みのスクリプトと、書き込みのスクリプトで分ける。
2chもそうだよね。
0126名無しさん＠お腹いっぱい。01/09/20 15:34ID:???
$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;
}

これで済ませないの?
0127名無しさん＠お腹いっぱい。01/09/20 15:48ID:???
右へ倣え。
もしくは、盲目的「ソフトリファレンスは使うな」。
もしくは、マッチの負荷を気にしている。

つーか、ハッシュのままでいいじゃん。
012812701/09/20 15:52ID:???
ごめん。s/ソフト/シンボリック/
0129名無しさん＠お腹いっぱい。01/09/20 16:21ID:UtkSX9Kc
>>126
なんかスクリプトの中にパラメータを
>m/^(name|year|sex|)$/){next;}
って書くのはマジックナンバーの埋め込みみたいに
感じるんですけど。メンテナンスが面倒になりませんか?
0130１２６01/09/20 16:34ID:???
即レス感謝〜
一番の理由はマッチングのコストなのかな、、
シンボリックリファレンスは多用すると参照先が曖昧になってしまうから
上級者さんが、使うなー って言ってるんですよね

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

色んなスクリプト読んでるんですが、何故か2つめのやり方が凄く
多いんです。で、3つ目は一度も見た事無いんで、何か落とし穴でも
有るのか、それともこう言う基本部分のリファレンス?みたいなのが
どっかに有って、みんなそれをコピーして使ってるのかな
と思ったんです　perlってほんと色々な書き方が有って困ってるのに
この部分だけ判子押したように同じだったんで。。。
0131名無しさん＠お腹いっぱい。01/09/20 16:46ID:X2sVnNMY
たしかに2番よりは3番の方がいいかも知れん。
マジックナンバー(マジックストリング?)なんてどうにでもなるし。
ただ、入力データだということをハッキリさせたいのでハッシュの方がいいとは思うが。
そんな俺は自作のCGI::Queryで$q->param("foo")だけど。
0132ぱーるやろう01/09/20 16:47ID:???
E-mailアドレスとURLをチェックする正規表現教えてください。
0133名無しさん＠お腹いっぱい。01/09/20 17:00ID:zGNHdu/.
>>132
>>2-5のリンク先見れ
013411901/09/20 17:41ID:???
>>123
>>125
どうもありがとです。
それで試してみます。
123の矢印は省略可って事ですよね？
>>132
どっかのサイトにあったなぁ。
メアドも例外みたいのがあってそれをはじかず
変なアドレスだけをはじいていくってやつが。
ちなみに超長かった。
例外考えないと
if($email !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){&error("メアド変");}
($siteurl !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i){&error("URL変");}
か？
013511901/09/20 17:41ID:???
if($email !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){&error("メアド変");}
elsif($siteurl !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i){&error("URL変");}
だ。
0136名無しさん＠お腹いっぱい。01/09/20 18:15ID:???
Perl上級者って名乗れるのはどれくらいになってからですか？
0137名無しさん＠お腹いっぱい。01/09/20 18:18ID:JzJOOdyA
>>136
とりあえず自分で上級者って言わない奴。
0138名無しさん＠お腹いっぱい。01/09/20 18:23ID:???
>>136
Inter National Perl Coding Qualification (INPCQ)
Master クラスを取得してから
0139名無しさん＠お腹いっぱい。01/09/20 18:27ID:???
>>136
Perlを使いこなせるようになってから
014013601/09/20 18:39ID:???
>>138
googleで検索しましたが情報がありませんでした。
どのような資格(?)なのですか？

おしえれ。
0141名無しさん＠お腹いっぱい。01/09/20 19:12ID:???
初級：モジュールを理解し、汎用的なサブルーチンをモジュールに追い出す
中級：CPANにモジュールを登録し、Perl文化に貢献する
上級：Perlのコアの開発に携わる
神：ラリーウォール
0142名無しさん＠お腹いっぱい。01/09/20 19:24ID:???
絶対神：KENT
0143名無しさん＠お腹いっぱい。01/09/20 19:54ID:???
>>142
不覚にもﾜﾗﾀ
0144名無しさん＠お腹いっぱい。01/09/20 20:58ID:???
>141
げ。どうしよう。初級者じゃん俺。もっとヘボいと思ったのに俺。
0145初心者++01/09/20 22:18ID:???
俺も興味有るなあ
0146稲垣(ﾟдﾟ)ゴルォ01/09/20 22:26ID:???
kent 照りカット
0147名無しさん＠お腹いっぱい。01/09/20 23:01ID:???
>>146
ﾂﾏﾗﾝ
0148名無しさん＠お腹いっぱい。01/09/20 23:45ID:dlBnP3mg
Perl初心者が学習用に見るなら、どのスクリプトがおすすめですか？
0149名無しさん＠お腹いっぱい。01/09/21 01:45ID:D8Pk/8eM
二つの配列から同じ要素を見つけて
その要素以外を記録する方法がやはりわかりません。
というかうまく動きません。
これだ！というのがあれば教えてください。
0150名無しさん＠お腹いっぱい。01/09/21 02:05ID:DP/oQEFM
>>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"}

ぱっとしないけど。
015114901/09/21 02:16ID:D8Pk/8eM
どうもありがとう！
今自分でアイデア出てやっとこさ作れたけどその
数倍長いよｗ
いや親切さん多くてうれしいですね。どうもでした。
015215001/09/21 02:18ID:DP/oQEFM
@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"}}

こっちのほうがええかも
0153Perl上級者01/09/21 02:55ID:???
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);
0154Perl上級者01/09/21 02:59ID:???
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
0155名無しさん＠お腹いっぱい。01/09/21 03:05ID:???
>>154
せめて環境くらい書いたらどうだ、ｳﾞｫｹｸｧｽ君！
0156Perl上級者01/09/21 03:07ID:???
>>155のアホ
HP-UXだボケ。
ま、おまえにはわからんだろ（嘲笑）
0157_gunzip@Perl初級者01/09/21 03:10ID:???
>>153-154
(´-`).｡ｏＯ（仮にもPerl上級者なら、考えるまでもないと思うが･･･)
0158Perl上級者01/09/21 03:14ID:???
>>157
初級者はすっ込んでろ。
0159初心者@Perlなんですが・・・01/09/21 03:29ID:???
ばっふぁ。
0160_gunzip@Perl初級者01/09/21 03:31ID:???
>>158

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

# fork()が何をするか、どういったバッファリングが行われるか
# 分かっていれば、何も難しくない。
0161名無しさん＠お腹いっぱい。01/09/21 03:52ID:???
>>154-160 ふーんなるほど。ひとつ賢くなった。
こんなことないとperldelta読まない俺は逝ってよしですか。
0162あぼーんNGNG
あぼーん
0163Perl上級者01/09/21 04:27ID:???
全然わからん。ちゃんと説明しろ。
素人ども。
0164774301/09/21 04:41ID:0C1HqUNw
UNIXサーバーのcドライブにアクセスしようとする奴になんかいいメッセージをおくってやる方法ねぇかな？
0165_gunzip01/09/21 04:46ID:???
(0) 前提（おおまか）
標準エラー出力以外のストリームは、端末など対話的装置に対しては
行バッファリング（バッファが一杯になるか、改行文字によって書き出す）、
そうでない場合は完全バッファリング（バッファが満杯になって初めて
書き出す）を行う。

(1) ./log.pl の場合

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

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

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

#-------------#
0166_gunzip01/09/21 04:48ID:???
(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のような違いが生じた。
0167774301/09/21 04:49ID:0C1HqUNw
cドライブを探したがるウイルスは、どういう仕組みになってるんすか？
0168_gunzip01/09/21 04:55ID:???
間違えた。
>（後の動作は(2)と同じ）
じゃない。（大体分かると思うけど）

(´-`).｡ｏＯ（Zzz････おやすみ >>163)
0169Perl初級者01/09/21 05:24ID:???
「バッファをコピー」するからか。
なるへそ。
0170Perl下級者01/09/21 05:36ID:???
>>169
Perl上級者の理解力が急に増したのかと思った。
紛らわしいハンドルつけるなｺﾞﾙｧ

>>164
アクセスしてくるURLと一致するファイルをサーバ上に作れば
いいんでない？　"c:"で始まるファイル名で。
0171名無しさん＠お腹いっぱい。01/09/21 05:39ID:DP/oQEFM
ここのスレッドの住人て 他にどんな言語が使えるの？
0172名無しさん＠お腹いっぱい。01/09/21 09:40ID:5isnB2us
モジュールってなんですか？
どうやってインストールするんですか？
どうやって使うんですか？

なんかモジュールなんて知ってて当然みたいな説明ばかりで
基本的なところがわからない
検索したら、モジュールの作り方とか出てきて涙
0173名無しさん＠お腹いっぱい。01/09/21 09:54ID:aEvmZgeQ
>>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=
モジュールの作り方ばかり出てくるか？
0174名無しさん＠お腹いっぱい。01/09/21 09:57ID:5isnB2us
あとCPANもよくわかんない。CPANからもってこい、CPANから
ダウンロードしろとか、なんかやっぱりCPANも常識なんですよね？
なんかすげぇバカなこときいてるんだろうなぁ…
0175名無しさん＠お腹いっぱい。01/09/21 10:12ID:5isnB2us
>>173
Windowsなんです。なんかモジュール？をダウンロードしたら
Makefile.PLがはいってて、perl Makefile.PLするってのまで
なんとなくわかって、で？みたいな
makeしろと言われてもmakeコマンド？なんてないし・・・

ようやく
ttp://member.nifty.ne.jp/hippo2000/perltips/module_install.htm
にたどりつきました。ちょっと前進かも？
0176名無しさん＠お腹いっぱい。01/09/21 10:13ID:5isnB2us
うわ。我ながらすげー頭悪い書き方してるな
でもなんかもうなにがなんだかわかんないんです
0177名無しさん＠お腹いっぱい。01/09/21 10:14ID:???
>>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=
モジュールの作り方ばかり出てくるか？
017817701/09/21 10:15ID:???
なんでこんなに遅れて二重投稿（鬱
0179名無しさん＠お腹いっぱい。01/09/21 10:30ID:j0KdAUa.
>>174-176
皆おなじ道をたどってきたのさ。。。

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

今インストールしてみたいモジュールは具体的に何かあんの？
0180あぼーんNGNG
あぼーん
0181名無しさん＠お腹いっぱい。01/09/21 12:32ID:5isnB2us
>>179
ありがとうございます。涙。

今ほしいのは、MP3ファイルのタグを操作（主に読み込み）する
ためのモジュールです。
MP3-infoってのを見つけたのは良いのですが、これを
どうすれば？？？みたいな状態です。
Makefile.PLがあって、Makefileを作る、ってのは成功したものの、
makeなんて持ってないよ？という
0182a'x ◆5GIjpSRQ 01/09/21 12:48ID:???
>>181
ActivePerlならコマンドプロンプトから

ppm install MP3::Info

ってやればOK。
0183名無しさん＠お腹いっぱい。01/09/21 15:09ID:5isnB2us
>>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
両用やってみました。
0184名無しさん＠お腹いっぱい。01/09/21 15:18ID:???
>>181
こちらで一覧見て調べましょう。
http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/Packages
で、PPMPackageはデリミタ(::)指定じゃないです。

見たところありますね。
ppm install MP3-Info でどうぞ。
0185a'x ◆5GIjpSRQ 01/09/21 15:24ID:???
>>183
むぅ。俺はそれでinstall出来たんだが。
ひょっとしてfirewallの中からのアクセス？だったら

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

ってやってppm使ってみて。
0186a'x ◆5GIjpSRQ 01/09/21 15:29ID:???
>>184
>で、PPMPackageはデリミタ(::)指定じゃないです。
そうなの？俺は :: でも出来たが････。(今試したら、- でも出来た)
0187_gunzip01/09/21 17:35ID:???
VineLinuxにActivePerl入れて試してみたけれど、::でおっけいだったよ。

というか、ppmは中で
$package =~ s/::/-/g;としているから、デリミタの問題ではなくてtypoか何かじゃないかなあ。
0188名無しさん＠お腹いっぱい。01/09/21 18:44ID:nYoU2cMw
ファイルロックではどんなのがありますか？
普通はflock使いますか？
0189名無しさん＠お腹いっぱい。01/09/21 18:49ID:???
うん。
0190名無しさん＠お腹いっぱい。01/09/21 19:03ID:TAJp9wyQ
JavaScriptで、onload=で複数のスクリプトは起動できないの？
できるとすればどうやって書けばいいの？
0191名無しさん＠お腹いっぱい。01/09/21 19:33ID:???
板違い。
0192名無しさん＠お腹いっぱい。01/09/21 19:35ID:TAJp9wyQ
失敬パールだった。
0193名無しさん＠お腹いっぱい。01/09/21 20:36ID:RIYGknmQ
>>184-186 わーーーーー。入った。入りました。
ありがとうございます。typoだったのかな？
とにかく嬉しい！ 感謝感激です。
0194名無しさん＠お腹いっぱい。01/09/21 20:42ID:ziETu.IM
Apache::Sessionなんですが、
セッションのタイムアウトを実現するために、
Apache::Session::MySQLでセッションテーブルに
TIMESTAMPフィールドを置いて、cronでスクリプト走らせて
一定時間以上前のものを削除しています。
こういうようなことを、Apache::Session::DB_Fileでやるには
どうしたらいいんでしょう？
0195名無しさん＠お腹いっぱい。01/09/21 20:43ID:???
>>184-187 でした。番号間違い。すみません。
さーがんばるぞー！
0196名無しさん＠お腹いっぱい。01/09/21 21:11ID:???
>>187
PPM見たけど、s/::/-/な部分が見当たらなかった。
ポインタ示していただけるとありがたいです。
0197_gunzip01/09/21 22:11ID:???
>>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;
0198a'x ◆5GIjpSRQ 01/09/21 22:42ID:???
>>196
Win版なら
C:\Perl\bin\ppm
の107行から（バージョンにより行は多少変わると思うが）
for (@ARGV) {
s/::/-/g;
}
と有ります。ppm.batにも同様に120行から
for (@ARGV) {
s/::/-/g;
}
と有ります。
0199あぼーんNGNG
あぼーん
020019601/09/21 23:37ID:???
>>197-198
ありがとう。
自分、CygwinPerlでしかも入れてないんで、
PPM-*.tar.gz持ってきてその中身見てました。
020114901/09/22 04:45ID:ZYiZZlao
>>152
レスおそくなっちゃいましたけど。
わざわざありがとうです。
■ このスレッドは過去ログ倉庫に格納されています