Perlについての質問箱 38箱目

Perlについての質問箱 ..

331:デフォルトの名無しさん
08/11/07 18:37:21
ActivePerlをインストールし、perlを採用したプログラミング入門書を見ながらやっているのですが、
ファイルを開くと一応コマンドプロンプトが起動し、実行されるのですが一瞬で消えてしまいます。

最初は、
print"やあ世界！\n;"

exit;
としか書いてなくて、一瞬で終わっちゃうからだなと思い（一瞬ですがやあ世界という表示はされてました）、
入門書の例文にあった
print"名前を入力してください。\n";
$onamae=<STDIN>;
chop $onamae;
print"\n";
print"あなたのお名前は$onamaeさんです。\n;
print"$onamaeさんこんにちは。";
exit;
という内容のファイルを作ってみました。
しかし、名前を打ち込むスキもなく終了してしまいます。

エスパーにしか答えようがない質問かもしれませんが宜しくお願いします。
OSはXPで、入門書は2000年頃の古いものです。

332:デフォルトの名無しさん
08/11/07 18:48:53
>>331
まさかファイルをエクスプローラ上でクリックして動かしてる？
それじゃダメだ
まずコマンドプロンプトを起動してそこで

C:\> perl [ ファイル名 ] [ RETURN ]

で実行しないと

333:デフォルトの名無しさん
08/11/07 18:55:09
>>331
定番の入門書リャマ本
URLﾘﾝｸ(www.oreilly.co.jp)

334:デフォルトの名無しさん
08/11/07 18:55:48
>>332
ありがとうございます。
さきほどURLﾘﾝｸ(www.site-cooler.com)を読んでやってみたら色々できました。
さっきの二番目の例文はなにかミスってるみたいでエラーがなんとかって英文で返されてしまいましたが。

なんだこの本・・・大事なことが書いてない。

335:デフォルトの名無しさん
08/11/07 18:57:34
>>333
ありがとうございます。
また何かつっかえたら買い換えますｗ

336:デフォルトの名無しさん
08/11/07 19:11:31
今は２１世紀だぜ？なんでまた２０世紀の古い本を・・・

337:デフォルトの名無しさん
08/11/07 21:14:29
>>336
じゃあ、2008年6月発売のを

URLﾘﾝｸ(oreilly.com)

338:デフォルトの名無しさん
08/11/08 01:45:17
>>331
＞print"あなたのお名前は$onamaeさんです。\n;
文字列を閉じてない。「\n」の後に「"」が必要。

ところで、文字列のクォートにはqq｛｝もおすすめ。

339:デフォルトの名無しさん
08/11/08 17:11:08
質問です。

my %hash = @arr;
$hash{'SendTE'} = 0;
@arr = %hash;

ハッシュのように扱われてる特殊な配列に
重複しないキーを与えるには上記のように
書いていました。
これを一発で書くにはどう書けばいいでしょうか？
（配列をハッシュのように扱いたい。）

340:デフォルトの名無しさん
08/11/09 00:51:07
for(my i=0; i<@arr;i+=2){ $arr[$i+1] = 0 if $arr[$i] eq 'SendTE' }

341:デフォルトの名無しさん
08/11/09 08:02:11
>>339
普通に
my %hash = ( @arr, 'SendTE' => 0 ) ;
じゃダメなのか？サブルーチンとかでの常套手段だけど？

sub hoge {
　my %hash= ( foo => 'bar', @_ ) ;
　return $hash{foo} ;
}
printf "%s\n", hoge( foo => 'foo' ) ;

342:デフォルトの名無しさん
08/11/09 08:37:45
ハッシュにリストを代入するときキーに相当するところに同じ値が複数あると
どれが優先されるかは決まってたっけ?

%h = (a => 1, a=> 2);
print $h{a}

試せば今の処理系でどっちかはわかるけど、仕様としてマニュアル等に明記
されているかどうかを知りたい。

343:デフォルトの名無しさん
08/11/09 10:27:31
マニュアル代読サービスに頼めよ

344:デフォルトの名無しさん
08/11/09 10:46:01
>>342
programing perl のhashの説明、冒頭にそのまんまの記載があるじゃん。
my %h = ( a => 1, a=> 2 ) ;
は、以下のコードと同じ効果がある。
my %h = () ;
${a} = 1;
${a} = 2;
同じキーだと通用しないとでも思うのはあなたの勝手。

345:デフォルトの名無しさん
08/11/09 16:54:02
>>342
上書きされるってことになるんだから()内がどっち向きに処理されるか考えりゃ良い

346:デフォルトの名無しさん
08/11/09 18:03:31
いや、少なくとも考えて分かる類のものじゃないでしょ。

347:デフォルトの名無しさん
08/11/09 18:34:34
@arrには、$arr[0] = 0 しか実行されないような気がするのですが、何故以下のような結果に
なるのでしょうか？

use Data::Dumper;

$i = 0;
$arr[$i] = $i++;

print Dumper \@arr; #=> [undef, 0]

348:デフォルトの名無しさん
08/11/09 19:20:11
むかしPerlクイズで結城さんも混乱してたな。
俺のイメージでは、
= （代入するよー）
$i (右辺の$iは0だなー）
++（$iをインクリメントするよー）
$arr[$i] ($arr[$i]に0代入するんだなー。$iはなんだろなー。1だなー）
ってことで、$arr[1]が0になる。

349:デフォルトの名無しさん
08/11/09 19:37:55
俺なんかの説明じゃあれなので、Perlクイズの該当箇所のバックナンバー
URLﾘﾝｸ(archive.mag2.com)

350:デフォルトの名無しさん
08/11/09 19:45:50
>>348-349
㌧

351:デフォルトの名無しさん
08/11/09 20:03:53
なるほどねぇ。クイズとしては面白けど、
そんなクソなコードは間違っても書かないから、どうでもいい。
まったく何の役にも立たないし、他の言語への応用も利かないムダ知識やん。

352:デフォルトの名無しさん
08/11/09 20:31:38
>>344
perldataあたりざっと見てそれらしい記述を見つけられなかったのですが、
ラクダに書いてあるんなら仕様だと思っていいのかな。ありがとう。

353:デフォルトの名無しさん
08/11/09 20:37:06
そもそも「ハッシュ」の意味が分かってないだろ？
分かってたらそんな疑問は持たないはず。

354:デフォルトの名無しさん
08/11/09 20:38:34
>>351
クイズのリンク先を読むと仕様ではっきり決まってないってあたりまで
説明されてるのでそういうコードは書いちゃいけないというところまで
理解すれば無駄ではないと思うよ。

355:デフォルトの名無しさん
08/11/09 20:42:51
更に考えると、そもそも重複したキーを配列に持つときにどれを優先したいか、って話だな。
だから実際には問題になることがない問題なのだ。

356:デフォルトの名無しさん
08/11/09 20:46:12
>>353
リストを連想配列に変換するときにどれを優先するかなんて必ずしも自明じゃないだろ。

ごく自然な仕様として、
* 前を優先する
* 優先順位は決めない
の二つがある。

357:デフォルトの名無しさん
08/11/09 21:07:04
自明だよ。
* 最後を優先する
に決まってるだろ。
右辺側は順序を保持するリストなんだから。
これはLISPでも、Cのカンマ演算子でも同じ、「最終評価値」の概念。

お前さんは以下のような仕様だと嬉しいにか？
$a = 1;
$a = 2; # $aの値は 1 のまま

358:デフォルトの名無しさん
08/11/09 21:21:07
バッドノウハウ地獄

359:デフォルトの名無しさん
08/11/09 21:23:45
だがperlは常に信用できない。気持ち的に。

360:デフォルトの名無しさん
08/11/09 21:33:28
そして今日もPythonやRubyの入門サイトをチラ見するけど本腰を入れることはない……

361:デフォルトの名無しさん
08/11/09 21:36:45
>>357
後者はそのとおりだが。前者は全く自明じゃない。
変な思い込みをする癖は直した方がいいよ。

362:デフォルトの名無しさん
08/11/10 00:13:56
>>361
( )の処理が右から左だと思う根拠は？

363:デフォルトの名無しさん
08/11/10 00:20:23
日本語が通じないらしい

364:デフォルトの名無しさん
08/11/10 00:36:38
左から右だという根拠を私は残念ながら知らないので勝手にそう思い込むのは危険
という主張です。根拠があるのなら示してもらえばそうでしたかで済みます。

もちろん右から左だという根拠も同じぐらいありません。

365:デフォルトの名無しさん
08/11/10 01:15:32
つーか　%hash　=　@rray　ってときに、何か例外があるんじゃないかという畏れ。

366:デフォルトの名無しさん
08/11/10 01:22:58
本来ならリストから連想配列への変換関数を使わないといけないところを、
ただの代入文で済ませてしまえる言語仕様が、諸悪の根源な気がする。

367:デフォルトの名無しさん
08/11/10 01:55:02
諸悪の根源は、

「Perlはもうそろそろ終わり。Perlの経験を踏まえたあたらしいスクリプト言語へ
シフトしましょう……って、え? CGIってなに? あ、使うな!」

となってしまったこと。

368:デフォルトの名無しさん
08/11/10 02:02:16
正論側の根拠なんぞ簡単だろ。ほれ。
----
%a = (1,2,3,4,1,'a',2,'b',3,'c',4,'d');
print %a;
----
結果→4d1a3c2b # ハッシュだから順不同。
これ即ち (1=>'a' , 2=>'b' , 3=>'c' , 4=>'d')

馬鹿側が根拠を示すのも簡単だ。上記以外の結果を示せば良い。
馬鹿には無理だろうがな。

369:デフォルトの名無しさん
08/11/10 03:06:03
いや、言語仕様と実装の話だよ。

370:デフォルトの名無しさん
08/11/10 06:31:49
>>368
自尊心だけは十分育ってるようだから、次は知能と知識だね。
頑張って！

371:デフォルトの名無しさん
08/11/10 08:55:32 BE:141505128-PLT(54321)
ネタだろ…

372:デフォルトの名無しさん
08/11/10 10:20:20
まぁそういうことにしたいよな。

373:デフォルトの名無しさん
08/11/10 12:47:06
__END__リテラルを含むfoo.plからexecを使うと
execしたプロセスが全部終了するまで
foo.plはロックされるものなのだろうか

374:デフォルトの名無しさん
08/11/10 13:34:04
>>373
関係ないと思うよ

375:デフォルトの名無しさん
08/11/10 17:10:32
>>349
現在の結城さんだったら把握してそうだけど。
>私が調べた限りでは、代入演算子の右と左でどちらを先に評価するかは、
>Perlの本には言及されていませんでした。
perltrap にばっちり記載されてる。
右辺を先に評価。
# perl の 5.005_02/ 1998-Aug-08 でも。

LHS vs. RHS of any assignment operator

LHS vs. RHS of any assignment operator. LHS is evaluated first in
perl4, second in perl5; this can affect the relationship between
side-effects in sub-expressions.

@arr = ( 'left', 'right' );
$a{shift @arr} = shift @arr;
print join( ' ', keys %a );

# perl4 prints: left
# perl5 prints: right

376:デフォルトの名無しさん
08/11/10 19:20:54
>>374
__END__リテラルって意味わからんので、__DATA__セクションのことなんじゃないだろうか？

ただ、プロセス寿命の話なら、ちゃんとした仕様は
たぶんなくて、実装次第+環境次第だろと思う。
だいたい、UNIXとWindowsでかなり違うよな。

377:デフォルトの名無しさん
08/11/10 19:31:32
>>376
ごめんリテラルじゃないね、セクションかトークンと言うべきだった。
うちの環境はWindows XP SP3 + ActivePerl v5.8.8 built for MSWin32-x86-multi-thread
Binary build 817 [257965] Built Mar 20 2006 17:54:25
らしい。

execしたプログラムが走ってる状態のままスクリプトを上書き修正しようとしたら
拒否されて不便だったんだけど、__END__削ったら上書きできた。
なにゆえなのか、よくわからない…

378:デフォルトの名無しさん
08/11/10 20:46:37
>>375
初心者ですが、これは襲撃でした。
自然な思考法なら、perl4の結果を期待するのではないでしょうか？
（それは、初心者だけか）

379:デフォルトの名無しさん
08/11/10 20:47:15
>>378
襲撃でなく、衝撃です。

380:デフォルトの名無しさん
08/11/10 21:09:12 BE:212256083-PLT(54321)
襲撃wwww

381:デフォルトの名無しさん
08/11/10 21:35:40
常識で判断しないのがperlプログラマーだ。
perlの全てを知ってるのが訓練されたperlプログラマーだ。

ほんとperlは地獄だぜ。HAHAHAHAHA

382:デフォルトの名無しさん
08/11/10 22:06:11
perl -le '$i=0;$arr[$i++]=$i;print $arr[0]'
これは1なんだな。わけわかんね。

383:デフォルトの名無しさん
08/11/11 01:36:13
perl = CGI

CGI = perl

384:デフォルトの名無しさん
08/11/11 07:33:41
>>382 モチツケ

385:デフォルトの名無しさん
08/11/11 07:40:28
初心者ですが、どこかのスレでperlの進化型が
ruby,pythonと言う説を見かけました。
これは本当と言えますか？

386:デフォルトの名無しさん
08/11/11 07:59:06
もしそうなら引っ越す

387:デフォルトの名無しさん
08/11/11 08:46:36
>>385
言える

388:デフォルトの名無しさん
08/11/11 09:10:17
>>385
きれいなPerl=Ruby
Perlを捨てて０からシンプルかつ強力に作ったもの=Python

389:デフォルトの名無しさん
08/11/11 09:24:08
>>385
解釈による。

オレ的には認めない。
「進化」ではないだろ。

390:デフォルトの名無しさん
08/11/11 09:31:33
>>377
＞__END__削ったら上書きできた。
もう一度落ち着いて、__END__セクションを追加してから
動作を確認するべき。

391:デフォルトの名無しさん
08/11/11 10:12:12
つまり、
サルが進化したものが人間。
perl が進化したものがruby/python
そゆこと？

392:デフォルトの名無しさん
08/11/11 10:16:25
>>391
> サルが進化したものが人間。
> perl が進化したものがruby/python

スクリプト言語/インタプリタ言語の後発のものだということだから、
「perlが進化した」というように、単一の系列に押し込めるのは明らかな間違いだろう。

393:デフォルトの名無しさん
08/11/11 10:19:04
>>386-389
レス有難うございます。
仮に、この三つを全然知らない場合、どれを会得しようと思いますか？

394:デフォルトの名無しさん
08/11/11 10:52:56
>>393
初心者はPythonがお勧め。

395:デフォルトの名無しさん
08/11/11 11:12:48
>>393
Python

396:デフォルトの名無しさん
08/11/11 11:42:20
% perl -le '$i=0;$arr[$i++]=$i++;print $arr[1]'
０

ますますわけわかめ

397:デフォルトの名無しさん
08/11/11 12:21:43
>>396 モチツケ

398:デフォルトの名無しさん
08/11/11 12:56:02
>>396
それはええやろｗ

399:デフォルトの名無しさん
08/11/11 13:00:42
>>393
Perl。

念のために言っとくが、ここはPerlスレだからな！ｗ

400:デフォルトの名無しさん
08/11/11 13:55:08
いまからPerlをやるって人って自虐者？

401:デフォルトの名無しさん
08/11/11 13:58:02
>>382
これ左辺から評価してる？

402:デフォルトの名無しさん
08/11/11 14:39:45
>>398
ちがうよ！全然ちがうよ！
>>382と>>396を見比べるとすごく気持ちわるいんだよ！

403:デフォルトの名無しさん
08/11/11 15:21:21
>>402
$i=0; $arr[++$i]=++$i; print $arr[2]

404:デフォルトの名無しさん
08/11/11 15:49:19
馬鹿すぎて死にたい。

演算子の優先順位
左結合項リスト演算子 (左方向に対して)
左結合 ->
非結合 ++ --

ずーっと下に

右結合 = += -= *= などの代入演算子

405:デフォルトの名無しさん
08/11/11 18:34:59
>>377
環境依存の可能性が高いので、Activeperl 5.8 + WinXP 限定の話として...
perlは__END__(又は__DATA__)を見つけると、ソースファイルをcloseせずに処理を開始する。
そしてexecしたプロセスに開いたファイルが引き継がれる。

ただしperlは単にファイルをリードオープンしているだけであり、何もロックしていないので、
ファイルの中身を書き換える事は可能。
Winでは開かれたファイルのリネームや削除が失敗するので、それに引っかかっているのでは？

>>382,396
perlの中では参照渡しだし、ポストインクリメント演算子は元の値を保持するための一時変数を作る。
配列用の代入処理部へは \配列,\要素番号,\値が渡される
前者(382)では \@arr,\${古い$iの値(0)を保持している一時変数},\$i を渡すのに対して、
後者(396)だと \@arr,\${古い$iの値(1)を保持している一時変数},\${古い$iの値(0)を保持している一時変数}
を渡すという違い。

406:デフォルトの名無しさん
08/11/11 18:55:14
質問です。
Storableを使ってハッシュをバイナリデータに書き出す際、
上書きではなく追加書き込みで保存する方法はあるのでしょうか。

例
test.pl
---
use strict;
use Storable qw(nstore);

%hash = (
"a" => '1',
"b" => '2',
);

nstore [%hash], "hash.dat";
----

test.plを一度実行し、hash.dat生成

407:デフォルトの名無しさん
08/11/11 18:55:47
（続き）
その後test.pl内の%hashを

----
%hash = (
"c" => '3',
"d" => '4',
);
----

に書き換えて保存、再度test.plを実行

…するとhash.dat内には
c=>3 と d=>4 のペアしか存在していません。
つまり上書き保存されていることになります。
自分は追加保存の形にしたいのですが、
何かいい案がありましたらご教授ください。
よろしくお願いします。

408:デフォルトの名無しさん
08/11/11 19:11:12
>>407
まず元のを読んでから要素を追加して書けばいいと思うよ

409:デフォルトの名無しさん
08/11/11 21:56:02
質問です
外部プログラムを起動して、そのプログラムの実行中にperlから値を渡すといったことはできないでしょうか
あるCのプログラムを実行しscanfで入力待ちになり、そこへ値を渡すといった感じなのですが

410:デフォルトの名無しさん
08/11/11 21:56:41
ソケット使えばできる。

411:デフォルトの名無しさん
08/11/12 23:35:47
大学の宿題誰かおながいします・・・
＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞
配列，2次元配列を用いて， santaku.pl を以下のようにグレードアップせよ．
○　3択の問題を4題出題し，正解数を最後に表示．
$mondai を　@mondai にして配列化
@sentakuを 2次元配列化 $santaku[A][B]の形
$kotaeを　@kotaeにして，配列化

これを　santaku2.pl という名前で保存して動かす

412:デフォルトの名無しさん
08/11/12 23:36:52
santaku.plっってのはこれです
# santaku.pl
# 問題
$mondai="東京ディズニーリゾートがあるのは次の内，どこか？";
# 選択肢
$sentaku[1]="東京県";
$sentaku[2]="千葉県";
$sentaku[3]="神奈川県";
# 答え
$kotae=2;
#
$user=0;
printf ("%s\n", $mondai); # 問題の表示
for ($i=1; $i<=3; $i++) { # 選択肢の表示
printf ("[%d] %s\n", $i, $sentaku[$i]);
}
printf ("答えを1～3から選んでください ");
$user=<>;
if ($user==$kotae) {
printf ("正解\n");
} else {
printf ("不正解\n");
}
exit;

よろしくお願いします(；へ；)

413:デフォルトの名無しさん
08/11/12 23:47:42
どこまで考えて、どこが分からないの？

414:デフォルトの名無しさん
08/11/12 23:55:39
最初からわかりません・・・
1つずつやったら面倒だから二次元配列にするというのはなんとなくわかるのですが
どこから手をつけていいのか；；；

forを2重でつかったりもするんでしょうか・・・頭が痛いです；

415:デフォルトの名無しさん
08/11/13 00:04:41
0番使えよ……

416:デフォルトの名無しさん
08/11/13 00:16:04
$[=1;

417:デフォルトの名無しさん
08/11/13 00:29:28
大学の教養でそういう講義があるのかな？

とりあえず、問題と答えを4問分2次元配列にして、
正解数をカウントする変数をつくればできると思う

418:デフォルトの名無しさん
08/11/13 01:05:45
printf ……

419:デフォルトの名無しさん
08/11/13 01:11:16
そうです、情報機器の操作っていう講義です

どうですか？？正解数をカウントする変数はさっぱりです＞＜
# =================== データ部分 ==========================
# 問題
$mondai[1]="東京ディズニーリゾートがあるのは次の内，どこか？";
$mondai[2]="東京大学があるのは次の内，どこか？";
$mondai[3]="横浜があるのは次の内，どこか？" ;
# 選択肢
$sentaku[1]="東京県"; $sentaku[2]="千葉県"; $sentaku[3]="神奈川県";
# 答え
$kotae[1]=2;
$kotae[2]=1;
$kotae[3]=3;
# =========================================================
#
# =================== 手続き部分 ==========================
#
$user=0;
printf ("%s\n", $mondai); # 問題の表示
for ($i=1; $i<=3; $i++) { # 選択肢の表示
printf ("[%d] %s\n", $i, $sentaku[$i]);
}
printf ("答えを1～3から選んでください ");
$user=<>;
if ($user==$kotae) {
printf ("正解\n");
} else {
printf ("不正解\n");
}
exit;

420:デフォルトの名無しさん
08/11/13 01:36:31
情報機器の操作とやら　でperlなんだね

どちらかというとアバウトな言語だと、教える方も大変だろうに。

rubyとかpythonの方がよさそうだが

421:デフォルトの名無しさん
08/11/13 01:39:28
＞rubyとかpython
さっぱりです＞＜
basic c javaなら講義中に名前を見ましたが。。
その教授はperlが使いやすいといっていたので、、よくわかりませんが

どなたかよろしくお願いします；明日の朝提出なので＞＜

422:デフォルトの名無しさん
08/11/13 01:58:02
明日の朝提出なのになんで今頃もってくるんだか。。。
毎日わかったところまでをここで聞いていればよかったのに。

printfだけなおして友達のを写した方が早いよ

423:デフォルトの名無しさん
08/11/13 02:11:29
この程度のがわからないのならあきらめた方が良いんじゃね？

424:デフォルトの名無しさん
08/11/13 02:27:03
明日の朝なら、まだ30時間くらいあるじゃない。

425:デフォルトの名無しさん
08/11/13 08:04:28
# =================== データ部分 ==========================
# 問題
my @mondai=();
$mondai[0]="東京ディズニーリゾートがあるのは次の内，どこか？";
$mondai[1]="東京大学があるのは次の内，どこか？";
$mondai[2]="横浜があるのは次の内，どこか？";
# 選択肢
my @sentaku=();
$sentaku[0][0]="東京県";　$sentaku[0][1]="千葉県";　$sentaku[0][2]="神奈川県";
$sentaku[1][0]="東京県";　$sentaku[1][1]="千葉県";　$sentaku[1][2]="神奈川県";
$sentaku[2][0]="東京県";　$sentaku[2][1]="千葉県";　$sentaku[2][2]="神奈川県";
# 答え
my @kotae=(2,1,3);
# =================== 手続き部分 ==========================

my @input=();
for(my $cnt=0;$cnt<scalar(@mondai);$cnt++){
printf("%s\n", $mondai[$cnt] ); # 問題の表示
for(my $cnt2=0;$cnt2<3;$cnt2++) { # 選択肢の表示
printf("[%d] %s\n",$cnt2,$sentaku[$cnt][$cnt2] );
}
printf("答えを1～3から選んでください");
my $user=<>;
push @input,$user;
}
exit;

とりあえず、問題表示部分だけ。正誤判定は自分で考えてください。
…ところで、「@sentakuを 2次元配列化 $santaku[A][B]の形」が嫌だなぁ。
リファレンス($santaku->[A][B])使っちゃ駄目なのかな？

426:デフォルトの名無しさん
08/11/13 08:13:52
# =================== データ部分 ==========================
# 問題
my @mondai=("東京ディズニーリゾートがあるのは次の内，どこか？",
"東京大学があるのは次の内，どこか？","横浜があるのは次の内，どこか？");
# 選択肢
my @sentaku=(["東京県","千葉県","神奈川県"],["東京県","千葉県",
"神奈川県"],["東京県","千葉県","神奈川県"]);
# 答え
my @kotae=(2,1,3);
# =================== 手続き部分 ==========================
my @input=();
for(my $cnt1=0;$cnt1<scalar(@mondai);$cnt1++){
　printf("%s\n", $mondai[$cnt1] ); # 問題の表示
　for(my $cnt2=0;$cnt2<scalar(@{$sentaku[$cnt1]});$cnt2++) { # 選択肢の表示
　　printf("[%d] %s\n",$cnt2,$sentaku[$cnt1][$cnt2] );
　}
　printf("答えを1～3から選んでください");
　my $user=<>;
　push @input,$user;
}
exit;

この方がスッキリしてて良いかな？

427:デフォルトの名無しさん
08/11/13 09:22:27
みんな、なんでいつものゴルフバージョンを作らないの？

428:デフォルトの名無しさん
08/11/13 09:35:48
>>427
おまえが率先して作らないからだろ。司令官どの。

429:デフォルトの名無しさん
08/11/13 10:50:48
419は「２次元配列」の意味がわかってない

430:デフォルトの名無しさん
08/11/13 10:52:18
＞…ところで、「@sentakuを 2次元配列化 $santaku[A][B]の形」が嫌だなぁ。
＞リファレンス($santaku->[A][B])使っちゃ駄目なのかな？

よく、質問を質問で返す人がいるよね。
しかも、「・・・じゃダメなの？」という言い方する人が結構多い。
なんか頭悪そう。

431:デフォルトの名無しさん
08/11/13 10:57:07
自信が無いから、質問を質問で返すのかな。とにかく頭悪そうに見える。

432:デフォルトの名無しさん
08/11/13 11:05:00
頭の悪さ判定師が集結中のスレはここですか?

433:デフォルトの名無しさん
08/11/13 11:27:51
課題にレスしちゃうところがなんか頭悪そう。

434:デフォルトの名無しさん
08/11/13 11:28:49
配列変数で添え字が0から始まるのに、1、2、3…と使うのは気持ち悪い。
$[ = 1 とすればいいが、そんなの私は実際に使ったことない(使う必要ない)。
それに、問題、選択肢、回答と別々の配列変数に入れて、添え字でくくるのも
気持ち悪い。私なら無名ハッシュの配列を作るが。
my @mondai = (
"東京ディズニーリゾートがあるのは次の内，どこか？",
"東京大学があるのは次の内，どこか？",
"横浜があるのは次の内，どこか？",
);
my @sentaku = (
["東京県","千葉県","神奈川県"],
["東京県","千葉県","神奈川県"],
["東京県","千葉県","神奈川県"],
);
my @kotae = (2,1,3);
for my $q(0..@mondai-1) {
print $mondai[$q], "\n";
for my $i(1..@{$sentaku[$q]}) {
printf("[%d]%s\n", $i, $sentaku[$q][$i-1]);
}
my $input;
while (1) {
printf "答えを1～3から選んでください: ";
chomp($input = <STDIN>);
last if $input =~ /^[1-3]$/;
}
print $input == $kotae[$q] ? "○正解" : "×不正解";
print "\n\n";
}
print "終わり\n";

435:デフォルトの名無しさん
08/11/13 11:29:04
「東京県」に誰も突っ込まないのは頭悪すぎ

436:434
08/11/13 11:30:21
>>435
しまったorz

437:デフォルトの名無しさん
08/11/13 11:31:14
東京大学は東京都にも千葉県にも神奈川県にもあるのに頭悪すぎ

438:デフォルトの名無しさん
08/11/13 11:33:41
埼玉都ですね。わかります。

439:デフォルトの名無しさん
08/11/13 11:34:14
URLﾘﾝｸ(www.campuscity.jp)
神戸県ですね、わかります。

440:デフォルトの名無しさん
08/11/13 11:38:27
本質的な部分での発言ができないので
コメントや文字列リテラルの中のスペルミスやtypoに
突っ込まざるを得ない人たちが集まるスレはここですか？

441:デフォルトの名無しさん
08/11/13 11:41:17
>>430
そういう言い方しちゃダメなの？

442:デフォルトの名無しさん
08/11/13 11:43:21
ここで本質とは何を指していますか？
頭が悪いので教えてください。

443:デフォルトの名無しさん
08/11/13 11:45:36
>>440
「本質的」とか言い出すあたり、すごく頭悪そう。

444:デフォルトの名無しさん
08/11/13 11:47:23
ここは乗っかっとくとこだろｗ

445:デフォルトの名無しさん
08/11/13 11:47:32
>>442
議題は横浜がどこにあるかです

446:デフォルトの名無しさん
08/11/13 11:47:43
顔真っ赤だよｗ
そんなに恥ずかしかった？

447:デフォルトの名無しさん
08/11/13 12:06:20
["東京県（都？）","千葉県","神奈川県"] が重複してるのがなんか嫌だね。

my @sentaku = (["東京県","千葉県","神奈川県"])x3;

とか短くできんのかな？

448:デフォルトの名無しさん
08/11/13 12:11:53
>>447

449:デフォルトの名無しさん
08/11/13 12:16:13
選択肢は広がる可能性があるからそれぞれ指定できるようにしておいたほうがいいと思う。
俺なら47都道府県を別配列で持っておいて、インデックスの配列で指定する。
my $sentaku = [
[1,2,3],
[1,2,3],
[1,2,3],
];

450:デフォルトの名無しさん
08/11/13 12:16:17
>>441
「質問に質問で返す」ことはなぜよくないこととされているのでしょうか。
URLﾘﾝｸ(q.hatena.ne.jp)

451:デフォルトの名無しさん
08/11/13 12:26:58
これさ、問題つくってるヤツアホだよな。

452:デフォルトの名無しさん
08/11/13 12:32:45
？が付いただけで質問返しと認識するってどうよ…
って430までで唯一「・・・じゃダメなの？」を使ったオレが
顔を真っ赤にしてカキコ。

>>447
my @arr = ( ([1,2 ]) x 2 ) ;

453:デフォルトの名無しさん
08/11/13 12:34:56
>>439
埼玉都はネタだけど、神戸県は明治初期に実在した。

454:デフォルトの名無しさん
08/11/13 12:35:15
あ、問題見てなかった
リファレンス使わない2次元配列なんて、逆にわからんわ

455:デフォルトの名無しさん
08/11/13 12:43:29
>>447
２問目の選択肢が変更になったらどうするのかねアンダーソン君

456:デフォルトの名無しさん
08/11/13 13:00:06

リファレンス使わない2次元配列なんてない、
てことはリファレンスは使っていいのか、
となると2次元配列じゃない方がやりやすくね？

ってなるんだが。

457:デフォルトの名無しさん
08/11/13 13:11:47
↑ こいつ最高に頭悪い

458:デフォルトの名無しさん
08/11/13 13:35:50
>>2-458
すごく頭悪そう。

459:デフォルトの名無しさん
08/11/13 15:09:10
>>458 ﾁｮﾄﾜﾛﾀ

460:デフォルトの名無しさん
08/11/13 16:20:56
ヒマだったんで二次元配列縛りなしでやってみた。

my $ok = 0;
TEST: for ( @qz ) {
print $_->{'質問'} . "\n";
print "\t$_\n" for ( @{$_->{'選択肢'}} );
while (1) {
print '正しい選択肢の番号を入力してください(中止:q): ';
chomp ( my $c = <STDIN> );
last TEST if $c =~ /q/i;
if ( $c =~ /^\d+$/ && 1 <= $c && $c <= @qz ) {
$c == $_->{'答'} ? ( print "正解" and $ok++ ) : print "不正解";
last;
}
}
print "。\n\n";
}
print "$ok 問正解しました。\n";

461:407
08/11/13 16:33:58
>>408
レスありがとうございます。
規制に巻き込まれてしまい、返事が遅くなってしまいました

やはり一度読み込み直すしかありませんか…
外部データが増えるとそれだけ読み込み・追加・書き出しに時間がかかってしまうので
何とか追加だけでやりくり出来ないかと考えていたのです。
アドバイスと合わせ、色々模索してみたいと思います

462:460
08/11/13 16:48:31
誤 $c <= @qz
正 $c <= @{$_->{'選択肢'}}

余計なことするといつも恥をかく...orz

463:デフォルトの名無しさん
08/11/13 18:20:36
>>461
> やはり一度読み込み直すしかありませんか…

いや。
普通、DBM類を使う。

464:デフォルトの名無しさん
08/11/13 19:39:19
>>461
全ての面倒を読み込み側に押し付けるって手もある。
保存用フォルダに "${^T}.${$}" 等のファイル名で書き出すとか。

465:デフォルトの名無しさん
08/11/13 20:08:32
この度、WindowsサーバーのPerlを5.6.1から5.8.8にバージョンアップ
する事になりました。
バーチャルサーバーを立ててWEBチームにテストしてもらっていたのですが、
動かない部分がいくつかある模様です。
WEBチームからPerlのバージョンアップによって
命令がどう変わったか等を調べて欲しいと頼まれたのですが、
どのようにして調べれば良いのでしょうか？

ご教授お願いいたします。

466:デフォルトの名無しさん
08/11/13 20:21:12
>>465
URLﾘﾝｸ(perldoc.perl.org)

467:デフォルトの名無しさん
08/11/13 20:47:19
「質問を質問で返すな」って、そんな場面は、結構あると思うし、
そもそも(発端になった)>>435は質問に、まったく答えてない訳でも
無いのに…。

「夕飯何にしようか？」
「肉が良いなぁ。焼肉としゃぶしゃぶどっちが良い？」
「質問を質問で返すなm9（＾Д＾）ﾌﾟｷﾞｬｰ」

とか言っちゃうのかな？(w

468:デフォルトの名無しさん
08/11/13 20:51:27
いうだろ

469:デフォルトの名無しさん
08/11/13 21:00:57
これがゆとり大学生の実態である。

470:デフォルトの名無しさん
08/11/13 21:03:53
>>465
＞命令がどう変わったか
「命令」は変わってないよな。ｗ

マジレスすると、変更内容を調べるよりも、
ダメなところを特定して調整するほうがきっとマシ。
それがイヤなら、Perlのバージョンを戻せ。

つか、両方インストールして使いわけろよ。ふぁ。

471:デフォルトの名無しさん
08/11/13 21:12:38
>>461
キーの重複はかまわないのか？

☆かまわない
別のファイルに出力してから、もとのファイルに
くっつければいいんじゃね。

☆ダメ
前のファイルを読み込まずに、重複を調べる
方法を教えろ。
続きはそれからだ。

472:デフォルトの名無しさん
08/11/13 21:51:49
× 続きはそれからだ。
○ 続きはよそでやれ。

473:デフォルトの名無しさん
08/11/13 21:56:22
「夕飯何にしようか？」
「普通に焼肉じゃいけないの？」

474:デフォルトの名無しさん
08/11/13 21:56:52
「夕飯何にしようか？」
「普通にしゃぶしゃぶじゃいけないの？」

475:デフォルトの名無しさん
08/11/13 21:57:56
「夕飯何にしようか？」
「普通にカレーじゃいけないの？」

476:デフォルトの名無しさん
08/11/13 21:59:48
「夕飯何にしようか？」
「ラーメンじゃダメなの？」

477:デフォルトの名無しさん
08/11/13 22:32:54
「夕飯何にしようか？」
「俺が決めていいの？」

478:デフォルトの名無しさん
08/11/14 01:30:11
夫「今日の夕飯なに?」
妻「何が食べたいの?」
夫「質問に質問で返すなっ!!」

……これが>>430の結婚生活(もしあったとして)

479:デフォルトの名無しさん
08/11/14 05:35:27
「夕飯何にしようか？」
「晩飯じゃないの？」

480:デフォルトの名無しさん
08/11/14 06:10:57
単一ファイル内で複数packageを定義した場合、
継承がうまく動かないのですが、どうすれば良いでしょうか。

$foo = Foo->new(); # OK
$bar = Bar->new(); # NG

package Foo;
sub new { bless {}; }

package Bar;
@ISA = qw(Foo);

これだと Bar->new() が失敗します。
package Bar 部分を Bar.pm というファイルにして、ファイル先頭で use Bar すると
問題ないのですが、単一ファイル内で継承させる場合はどう書けば良いのでしょうか。

481:デフォルトの名無しさん
08/11/14 06:42:23
{package Foo;
sub new { bless {}; } }
{package Bar;
@ISA = qw(Foo);}

$foo = Foo->new(); # OK
$bar = Bar->new(); # OK

482:480
08/11/14 07:00:38
>>481
おおお。助かりました。thanks!

483:デフォルトの名無しさん
08/11/14 08:40:19
package Foo;
sub new { bless {}; }

package Bar;
@ISA = qw(Foo);

package main;
$foo = Foo->new(); # OK
$bar = Bar->new(); # OK

じゃねえの

484:デフォルトの名無しさん
08/11/14 14:24:45
夫「今日の夕飯なに?」
妻「スキヤキじゃダメなの？」
夫「・・・」

485:デフォルトの名無しさん
08/11/14 14:26:27
夫「赤ちゃん産まれた？男の子？女の子？」
妻「男じゃダメなの？」
夫「・・・」

486:デフォルトの名無しさん
08/11/14 19:10:29
>>485
その流れはヤバい！ｗ
もう離婚するしかないな。

487:デフォルトの名無しさん
08/11/14 20:42:25
ｺﾞﾒﾝ理解できない
童貞の俺にも分かるように詳しく

488:デフォルトの名無しさん
08/11/14 20:53:25
童貞じゃないけど、俺もわからん！

489:デフォルトの名無しさん
08/11/14 21:03:13
女だったら、夫がロリコンでいたずらすると思ったんだろう。

490:デフォルトの名無しさん
08/11/14 21:50:28
な～る

491:デフォルトの名無しさん
08/11/14 21:58:27
深読みしすぎてた
ﾄﾝ

492:デフォルトの名無しさん
08/11/14 22:46:06
>>489
それは俺も考えたけど、
それだとスキヤキが説明できない。

493:デフォルトの名無しさん
08/11/15 05:16:10
>>485
もう嫁ケンカうってるじゃんｗ

494:デフォルトの名無しさん
08/11/15 09:03:03
ﾂﾝなだけだろｗ

495:デフォルトの名無しさん
08/11/15 10:19:13
生まれる段階に至っても性別を知らなかった夫

496:デフォルトの名無しさん
08/11/15 19:02:17
産まれた？って訊いてる時点でダメだろ

497:デフォルトの名無しさん
08/11/15 19:58:51
後のオブジェクト指向である

498:デフォルトの名無しさん
08/11/16 02:32:11
同じ文字列を使ってもDigest::MD5で得られる16進とmd5sumの結果が違うのはなぜでしょうか

499:498
08/11/16 02:36:14
自己解決しました。
一方には改行コードが含まれていないだけでした。

500:デフォルトの名無しさん
08/11/16 10:31:38
perlのマッチ演算子で変数が使えますけど
$pat = "foo"; $str =~ /$pat/; # この場合 /foo/ と同じ
変数に含まれる文字を全て普通の文字としてマッチさせるにはどうしたらいいでしょうか。

たとえば $pat = "foo[0]"; だと、/$pat/では[0]の部分を文字クラスとして処理するよう
ですが、単純に "foo[0]" という文字にマッチしてほしいのです。

501:デフォルトの名無しさん
08/11/16 10:36:15
/\Q$unko\E/

502:デフォルトの名無しさん
08/11/16 13:14:45
dmain.cpp
Note: including file: d:/projects/game/include\common.h
Note: including file: d:/projects/game/include\product.h
Note: including file: d:/projects/etc/psdk/include\WindowsX.h
Note: including file: d:/projects/etc/psdk/include\windows.h

こういうファイルを

dmain.obj: \
/cygdrive/d/projects/game/include/common.h \
/cygdrive/d/projects/game/include/product.h \
/cygdrive/d/projects/etc/psdk/include/WindowsX.h \
/cygdrive/d/projects/etc/psdk/include/windows.h \
dmain.cpp

こんな風にするスクリプトってどうやるの？

503:デフォルトの名無しさん
08/11/16 13:57:44
perl -ple 's/$/\\/; s/cpp/obj/; s/Note: including file: d:/\/cygdrive\/d/; END{ print "dmain.cpp";} '

504:デフォルトの名無しさん
08/11/17 20:02:29
質問です。掲示板のプログラムなのですが、データファイル（１行１投稿内容のテキストファイル）
を掲示板のCGIのサーバーとは異なるサーバーに置きたいのですが、その場合どのように
すればよいでしょうか？　できればmySQLサーバーはインジェクションの関係で使いたくあり
ません。

サーバー１　掲示板cgiや画像データなどを担当
サーバー２　掲示板テキストデータ（掲示板cgiから読み書きされる）

なにかアドバイスをお願いします。

505:デフォルトの名無しさん
08/11/17 20:11:26
>>504
NFSマウント。とネタレス。
WebProg行け。とマジレス。
その質問だとperl無関係だから、いきなりperlのスレに行くなよ…。

506:デフォルトの名無しさん
08/11/18 19:27:48
URLﾘﾝｸ(www.drk7.jp)
に記載されている通りにやったのですが、
C:\strawberry\cpan\build\DB_File-1.817-XRfyBQ>perl Makefile.pl
Parsing config.in...
Looks Good.
Note (probably harmless): No library found for -llibdb
Writing Makefile for DB_File

C:\strawberry\cpan\build\DB_File-1.817-XRfyBQ>dmake
cp DB_File.pm blib\lib\DB_File.pm
AutoSplitting blib\lib\DB_File.pm (blib\lib\auto\DB_File)
gcc -c -I/usr/local/BerkeleyDB/include -s -O2 -DWIN32 -DHAVE_DES_FCRYPT
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -DPERL_MSVCRT_
READFIX -s -O2 -DVERSION=\"1.817\" -DXS_VERSION=\"1.817\" "-IC:\strawberry
\perl\lib\CORE" -D_NOT_CORE -DmDB_Prefix_t=size_t -DmDB_Hash_t=u_int32_t versi
on.c
version.c:30:16: db.h: No such file or directory
dmake: Error code 129, while making 'version.o'

と出てしまい、DB_Fileが結局インストールされません。
INCLUDEもLIBも自分の環境に沿って変えているのですが出来ません。

どなたかよろしくお願いします。

507:デフォルトの名無しさん
08/11/18 20:14:56
長文すみません
以下のjavaを

// 平均パケット到着レートの算出＆ヒストグラム構成
if (preTimeList.size() >= pktNumForCalcRateAverage) {
sampleAveRate = pktNumForCalcRateAverage / (nowTime - preTimeList.remove(0));
int point = (int)(sampleAveRate / gap);
histgram[point] += 1;
total += sampleAveRate;
lineNum += 1;
}

をperlに書き変えたいのですが

# 平均パケット到着レートの算出＆ヒストグラム構成
if ($preTimeList.size() >= $pktNumForCalcRateAverage) {
$sampleAveRate = $pktNumForCalcRateAverage / ($nowTime - $preTimeList.remove(0));
　　　　$point = ($sampleAveRate / $gap);
　　　　$histgram[$point] += 1;
　　　　$total += $sampleAveRate;
　　　　$lineNum += 1;
　　}　

ではエラーが出てしまいうまくいきません。
nowTimeが間違っているのでしょうか？
どなたかアドバイスお願いします。

508:デフォルトの名無しさん
08/11/18 21:14:27
エラーメッセージは？

509:デフォルトの名無しさん
08/11/18 21:56:41
それ以前の問題だろ…

javaの文章に適当に$つけりゃperlになるとでも思ってんのかねえ？

510:デフォルトの名無しさん
08/11/18 21:58:07
Perl 6で動かしてるとか

511:デフォルトの名無しさん
08/11/18 22:36:19
　　エラーメッセージを読む。

そういうクセをつけてあげないと、本人のために良くないだろ。

512:デフォルトの名無しさん
08/11/18 22:57:13
すげえ正論っぽいし、事実>>507に対するレスじゃなきゃ
完全同意なんだけどねえ。
車を運転しようとしてる9歳児に「交通規則は守れるか？」
って問うくらいには見当違いだと思う。

513:デフォルトの名無しさん
08/11/18 23:17:55
まあまあ、推測に推測を重ねていないで、ここは本人のレスポンスを
待とうじゃないか。

514:デフォルトの名無しさん
08/11/19 00:13:09
>>505
ありがとうございます。別にきいてみようとおもいます。

515:デフォルトの名無しさん
08/11/19 00:44:16
>>507
- java の . と perl の . の違い
- int の意味
- java の size メソッドと perl の scalar @arr で何が得られるか
- java の remove メソッドと perl の shift ( or splice )
- 更には各変数と配列に何が入っててどういう状態なのか
- 前後にどういう処理が行なわれているか
これが直に答えられないなら移植なんか考えない方が良いよ。

516:506
08/11/19 03:43:41
No library found for -llibdb じゃなくて
No library found for -ldb　でした…。
どなたかよろしくお願いします…。

517:デフォルトの名無しさん
08/11/19 07:47:34
>>516
dbは正常にインストールされているのか

518:デフォルトの名無しさん
08/11/19 19:35:21
>>512
じゃあ何と言うべきなの？
キミにはまだ早い、オトナになるまで待ちなさい、とでも？

519:デフォルトの名無しさん
08/11/19 19:45:50
ゆとり乙

でおｋ

520:506
08/11/20 00:21:04
>>517さん
dbというとちょっと分からないのですが、
Berkeley DB 4.6.21 をインストールして、
URLﾘﾝｸ(www.drk7.jp)
に書いてある通りに全ての手順を踏んだのですが、
No library found for -ldb
となって出来ないんです…。

521:デフォルトの名無しさん
08/11/20 04:46:40
ぜんぜん詳しくないけど、あてずっぽうで・・・

gcc -c -I/usr/local/BerkeleyDB/include -s -O2 -DWIN32 -DHAVE_DES_FCRYPT
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -DPERL_MSVCRT_
READFIX -s -O2 -DVERSION=\"1.817\" -DXS_VERSION=\"1.817\" "-IC:\strawberry
\perl\lib\CORE" -D_NOT_CORE -DmDB_Prefix_t=size_t -DmDB_Hash_t=u_int32_t versi
on.c

-L オプションが見当たらないけど、なんで？
-IC:\strawberry\perl\lib\CORE" って正しいのかな？lib のディレクトリを -I で指定してるけど。
　　lib ディレクトリにヘッダファイルが入ってるの？？
-ldb が無い、って言ってるんだから、ほんとうに無いのか、あるのか、自分の目で確かめたかな？
-ldb と省略せずに、\hoge\hage\libdb.l みたいにフルパスで指定してみてはどうか？

522:デフォルトの名無しさん
08/11/20 20:16:22
require 'ファイル名';
とするときに、１つ前のディレクトリにあるファイルを指定したいのですが、どうすればいいでしょうか？
require '../ファイル名';
だとエラーがでてしまい、できません。

523:デフォルトの名無しさん
08/11/20 21:40:27
>>522
1つ前の前に現在地がどこかを考えるんだ
../ や ~/ はシェルの機能なんだ

524:デフォルトの名無しさん
08/11/21 02:09:21
>>522
スクリプト保存場所と実行場所が同じならそれで動く。
（多分このケースだろうけど）違って場所固定ならスクリプトに
use FindBin;
require "$FindBin::Bin/../hoge.pl" ;
但し、FindBin はケースによってスクリプト保存場所を
示さない場合があるので、そんな場合には FindBin::Real
だか CPAN から引っ張って来て使う。

（蛇足）スクリプト内でカレントディレクトリに動的変化があり、
require する対象も連動変化があるなら、
use Cwd ；
しといて
require getcwd . q{/../hoge.pl}しなきゃならん。

525:デフォルトの名無しさん
08/11/21 02:16:40
あ。説明一行目正確じゃねえな。
「保存場所に関係無く、実行場所の ../ にあるならそれで動く。」
に訂正。

526:デフォルトの名無しさん
08/11/21 03:33:20
まぁたいてい、マウスでクリックして動作させるだろうから
カレントディレクトリをスクリプトのあるディレクトリに移動させておく、とか
そういう処理が必要だろうな。

527:デフォルトの名無しさん
08/11/21 06:37:05
>>522 エラーメッセージは？

528:506
08/11/21 13:19:05
>>521さん
返信ありがとうございます。
libdb.a
というのは前述したURLに書いてある通りに作成しました。
-Lオプションに関してはわかりません…。
確認したところ
\strawberry\perl\lib\CORE
にヘッダファイルがたくさん入ってました。
-ldbに関しては検索しているのですが、どうしてもわからないんですよね。
やはりWindowsでperl環境は無茶があるのでしょうか。

529:デフォルトの名無しさん
08/11/21 17:18:30
>>528
なんか>>506のエラーは
エラー情報(version.cないよ、コンパイルエラーみたいな)っていうのは、
そのページの「CPAN で DB_File をインストール　→　必ず失敗する。」のところだから
そのまま次の「config.in　を修正して DB_File を手動で dmake してインストール」
にいけばいいんじゃないの？　そこでLIBパス設定してるし

530:506
08/11/22 01:11:58
>>529さん
返信ありがとうございます。
修正して、dmakeしたところ
C:C:\strawberry\cpan\build\DB_File-1.817-aAwZC0>dmake
dlltool --def DB_File.def --output-exp dll.exp
g++ -o blib\arch\auto\DB_File\DB_File.dll -Wl,--base-file -Wl,dll.base -mdll -s
-L"C:\strawberry\perl\lib\CORE" -L"C:\strawberry\c\lib" version.o DB_File.o -Wl,
--image-base,0x2d2e0000 C:\strawberry\perl\lib\CORE\libperl510.a \strawberry\c\
lib\libmsvcrt.a \strawberry\c\lib\libmoldname.a \strawberry\c\lib\libkernel32.a
\strawberry\c\lib\libuser32.a \strawberry\c\lib\libgdi32.a \strawberry\c\lib\lib
winspool.a \strawberry\c\lib\libcomdlg32.a \strawberry\c\lib\libadvapi32.a \stra
wberry\c\lib\libshell32.a \strawberry\c\lib\libole32.a \strawberry\c\lib\libolea
ut32.a \strawberry\c\lib\libnetapi32.a \strawberry\c\lib\libuuid.a \strawberry\c
\lib\libws2_32.a \strawberry\c\lib\libmpr.a \strawberry\c\lib\libwinmm.a \strawb
erry\c\lib\libversion.a \strawberry\c\lib\libodbc32.a \strawberry\c\lib\libodbcc
p32.a dll.exp
version.o:version.c:(.text+0x7a): undefined reference to `db_version'
DB_File.o:DB_File.c:(.text+0x10d5): undefined reference to `db_create'
collect2: ld returned 1 exit status
dmake: Error code 129, while making 'blib\arch\auto\DB_File\DB_File.dll'
となりました…。
blib\arch\auto\DB_File\
には.existsファイルしかありませんでした。

次ページ