Perlコーディング初心者質問スレ Part 52

**nobodyさん** · 2006/09/15(金) 14:01:51

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

お勧めサイトは >>2-10

前スレ　http://pc8.2ch.net/test/read.cgi/php/1153987463/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/

**nobodyさん** · 2006/11/13(月) 17:01:43

>>813
以前の対話形式はppm-shell
コマンドラインなら
ppm command arg
でも行ける
# 殆どGUI版使ってないや

**nobodyさん** · 2006/11/13(月) 19:14:27

>>814
サンクス。

**nobodyさん** · 2006/11/13(月) 20:06:21

ppm ってインストール済のモジュールを一括してアップグレードできないんですか？

**nobodyさん** · 2006/11/13(月) 21:12:11

>>816
ppm upgrade -install

**nobodyさん** · 2006/11/14(火) 00:35:27

Perlは入門書を一冊読んで簡単な掲示板がやっと作れる程度のかなりの初心者なのですが、
ＣＧＩその１内のデータを、ＣＧＩその２に受け渡すにはどうしたらいいのでしょうか？

「アドレス?パラメータ」の形で、フォームのデータをやり取りするようにデータが渡せると
書いてあったので、「アドレス?a=$a&b=$b&c=$c」というようにすれば、ＣＧＩその１で
変数aに代入したデータをＣＧＩその２に送ることが出来るかと思ったので、

require 'cgi-lib.pl';
&ReadParse( *form );
$a = $form{'a'};
$b = $form{'b'};
$c = $form{'c'};

として、

print "${a}${b}${c}\n";

と表示してみようとしても、どの変数も空のままなのか何も表示されません。

どうすれば、変数データ等はやり取りできるようになるのでしょうか？

**nobodyさん** · 2006/11/14(火) 01:02:20

>>818
<input type="hdden" name="a" value="value of a">
みたいにフォームに仕込むのが簡単かな。
クライアント側でいじれちゃうというデメリットがあるけどね。

**nobodyさん** · 2006/11/14(火) 01:58:17

>>819
早い回答ありがとうございます。
それでやってみます。

**nobodyさん** · 2006/11/14(火) 04:24:01

質問です
my $file = "no001.jpg";
print -s $file;
上記のようにファイルサイズを出力するスクリプトで
正規表現を用いて no???.jpg　にマッチするファイルのサイズを表示させたいのですが
方法が思いつきません
分かるかたいましたらご指導お願いいたします。

**nobodyさん** · 2006/11/14(火) 07:25:09

言っとくがオレはopendir派だ

**nobodyさん** · 2006/11/14(火) 13:15:59

CGI出力時の改行コードは指定するにはどうすればよいのでしょう。
LFにしたいのですが、どうやってもCRLFになってしまいます。
自宅のwindows上でも、xreaでもCRLFで出力されてしまいます。

**nobodyさん** · 2006/11/14(火) 13:38:15

自己解決しました。
ちゃんと出力されていました。
ブラウザでの保存時に勝手に改行コードが変えられていたようです。

**nobodyさん** · 2006/11/14(火) 14:07:32

>>821
loopで回して同じことして加算すれば。loopは opendir 派でなければ
foreach $hoge (<no???.jpg>) {
}

コマンドラインでなら ls -l と awk で One Liner するけどね

**nobodyさん** · 2006/11/14(火) 15:06:38

Perlで特定のHTMLファイルの一部を抜き出して出力したいと考えています。

随時更新される Yahoo! のトップのソースぐらいぐちゃぐちゃ (文法もぐちゃぐちゃでテーブルレイアウト、勿論適切なidはついていません) なHTMLから
特定の場所のデータを抜き出して、変数に代入したいといった感じです。

<table>
<tr>
<td>AAA</td>
<td>BBB</td>
<td>CCC</td>
</tr>
<tr>
<td>DDD</td>
<td>EEE</td>
<td>FFF</td>
</tr>
</table>

例えば、上のようなテーブルのBBBの部分が随時かわるとして、それを動的に取得するかんじですね。
実際には外部のサーバのデータとなりますが、wget+cronで取得するつもりなのでそこはいいんですが、HTMLから
一部のデータを抜き出すのに便利なモジュールなどはありますでしょうか？

なかったら地味に自分でロジック組んで見ます。

**nobodyさん** · 2006/11/14(火) 15:37:42

$n= 1;
$get=($html=~ m#<td>(.*?)</td>#g)[$n];

そんなもんわざわざモジュール使わなくて書いたほうがシンプルじゃん

**nobodyさん** · 2006/11/14(火) 15:49:46

そんな単純なHTMLソースなわけないだろｗｗｗ
でも正規表現でひっぱってくるしかないと思う
ソースの書き方が変わったら終わりだけど。
HTML::Parserみたいなのではないだろうし・・・

**nobodyさん** · 2006/11/14(火) 22:30:15

それpla（ｒｙ

**nobodyさん** · 2006/11/15(水) 11:31:14

miyagawa乙

**nobodyさん** · 2006/11/15(水) 22:37:01

自作のライブラリ、またはモジュールを用意しまして、
呼び元から利用可能なサブルーチンの一覧を得る方法はありますか？

**nobodyさん** · 2006/11/16(木) 01:05:15

オブジェクト指向を勉強するためにムーバブルタイプのソース見てるんですが、
これってお手本にしていいんでしょうか。
お手本的なコードを紹介してもらえないでしょうか。

**nobodyさん** · 2006/11/16(木) 01:52:46

my $name= 'test';
&$name;
sub test {
print 'test';
}
2行目ゎうそんこ。$nameを使って&testを実行することはできますか？

**nobodyさん** · 2006/11/16(木) 01:54:54

>831
main.plからFoo.pmを呼んでいるとして、
@Foo::EXPORTと@Foo::EXPORT_OKを確認したらいいんじゃないかと思う。
存在するとは限らないけど。オブジェクト指向なモジュールとかだとなにもエクスポートしないしね。
そうでなかったら直接シンボルテーブルを覗くとか。

>832
つttp://search.cpan.org/

**nobodyさん** · 2006/11/16(木) 01:59:33

>>833
それ自分で書いて、実行してみた？
use strict 'refs' してなければそれでいけるよ。
文字列をデリファレンスすると、自動的にシンボルテーブルからひっぱってくる。

**nobodyさん** · 2006/11/16(木) 02:04:27

>>833
$name = ¥&test; # use strict 'refs' OK
$name->();

$name = 'test'; # use strict 'refs' NG
$name->();

$name = 'test';
eval "$name()";

$name = 'test()';
eval $name;

**nobodyさん** · 2006/11/16(木) 02:11:57

>>835 ありがとうございます！！ちなみに3件ともわたくしでした。

833はuse strictしてる場合、エラーになりました。
'refs'はよくわからないので調べてみます。
そこだけno strictするのは素人ですか？

**nobodyさん** · 2006/11/16(木) 02:12:25

>>832
オレの書いたソース。

悪い例としてな。

**nobodyさん** · 2006/11/16(木) 02:19:01

いっそ無名で
my $name = sub {
print "test";
};
$name->();

**nobodyさん** · 2006/11/16(木) 02:20:04

ああ、意味わかんないや。837=831=832=833で834=835と決め付けてました。
834さんと836さんありがとう！！

**nobodyさん** · 2006/11/16(木) 02:22:36

>>837
'refs' を付けると、シンボリックリファレンス（文字列をデリファレンス）だけを制限できる。
この辺は perldoc strict 参照。

ちゃんと理解してて no strict するなら問題ないと思うよ。むしろ常套手段。

**nobodyさん** · 2006/11/16(木) 02:40:44

>>841 詳しいご説明、ありがとうございます！

外部ファイルからプラグイン的なものを自動取得する方法を考えてたんですが、
できそうな気がしてきました。サブルーチンを全部飲み込もうかと。
後から間違いだったと気づくかも知れませんが。

**nobodyさん** · 2006/11/16(木) 03:59:26

プラグイン使うようなコードかくんなら、Module::Plugableとか検討してもいいかもね。

**nobodyさん** · 2006/11/16(木) 11:46:04

プラグインで思い出した。
perl で作られた FreeStyle Wiki(ttp://fswiki.poi.jp/wiki.cgi)にもプラグインの機能が
あるけど、もしかしたら参考になるかも。

**nobodyさん** · 2006/11/16(木) 14:35:02

Plaggerもプラグイン使えるから参考になるかもね

**nobodyさん** · 2006/11/17(金) 01:51:27

わぉ、たくさん情報ありがとうございます！
今回たくさんWIKI系を参考にしてたんですが、FreeStyleはコメントが日本語なのもあって
見やすいですね。そしてざっと見ただけでも参考なるコーディングがすでに沢山見つかってます。

**nobodyさん** · 2006/11/17(金) 11:32:42

質問なのですが、>>827 の
(.*?) はどういう意味でしょうか？

「perl ".*?"」で5個以上の検索エンジンで検索したのに、全部記号部分が無視されましたorz

. = 任意の文字
* = 直前の文字を0回以上にマッチ
? = 直前の文字を0又は1回にマッチ

ですが、「.*?」にする意味が分からないです。

**847** · 2006/11/17(金) 11:46:48

ついでに "m#" "#g" と囲ってあるのも意味が分からない…。

m は改行無視、gは繰り返しマッチ、だと思うんですが /mg をかっこよく左右に分離させて
バランス良く美しく書いている感じでしょうか？

何かいい解説サイトがありましたら教えていただけたら幸いです。

**nobodyさん** · 2006/11/17(金) 11:52:51

さんこーしょに普通に載ってるでしょ、、正規表現のとこ
ネットでも「Perl 正規表現」で複合検索かければｲﾊﾟｰｲあるでし

**nobodyさん** · 2006/11/17(金) 12:45:57

>>848
$get=($html=~ m#<td>(.*?)</td>#g)[$n];
$get=($html=~ /<td>(.*?)<\/td>/g)[$n];
同じ。
セパレータが違うのと、m演算子はセパレータが/の時だけ省略できる
(.*?)は任意の文字列
検索しても、読まないと意味が無いぞ！！

**nobodyさん** · 2006/11/17(金) 13:00:08

ふぅ…

**nobodyさん** · 2006/11/17(金) 13:08:37

任意の文字列なら .* でいいんじゃないの？

**852** · 2006/11/17(金) 13:09:29

あ、量指定子での最短マッチか。
そまそ。

**nobodyさん** · 2006/11/17(金) 19:14:27

最短マッチってそうやるんだ・・・
([^<]+)<とかやってたよ

**nobodyさん** · 2006/11/17(金) 20:02:23

my と local　の違いをおしえてください

**nobodyさん** · 2006/11/17(金) 20:46:15

localのつかいかた
$hoge = 'ぺにす';
{
local $hoge; # ちょっとどいてね
$hoge = 'わぎな';
}
print $hoge;

myのつかいかた
{
my $hoge = 'ちんぽ'; # ぶろっくの中だけ使えるね
}
print $hoge;

**nobodyさん** · 2006/11/18(土) 00:00:27

卑猥だな

**nobodyさん** · 2006/11/18(土) 01:14:14

SQLの話になってしまうのですが、SQL総合やSQL初心者的なスレッドがなかったので、
ややスレ違いかもしれませんが質問させてもらいます。

Perl+MySQLでプログラムを書いていまして、IDとしてオートインクリメントされる
フィールドを設けているのですが、INSERTでレコードを挿入したあとに、
オートインクリメントされた値を知りたい（変数に格納したい）のですが、何か簡単
な方法はありますか？

**858** · 2006/11/18(土) 02:19:05

自己解決しました。

**nobodyさん** · 2006/11/18(土) 14:01:48

>>856
わかりやすくてサンキュー

**nobodyさん** · 2006/11/18(土) 18:58:43

LWPを使ったリンクチェッカーを作りたいのですが、どの関数を使ったらいいか迷っています。
404だけでなく、ファイルが無ければ特定URLに転送される場合にも対応したいと思っています。

LWP::Simpleを使ってgetとheadで実験してみたところ、
共にリンク先が無い場合、転送先のページに飛んでそれを取得してきました。

head関数では($content_type, $document_length, $modified_time, $expires, $server)の配列が
返されるとのことですが、
$document_length→body部分の文字数
$modified_time→取得にかかった時間
という理解でよいのでしょうか？(質問１)

現在$document_lengthでリンク先の状態を判別しようと思っていますが、さらに精度のよい判別が
できる関数がありましたらご教授願いたいです。(質問２)

**nobodyさん** · 2006/11/18(土) 19:34:29

document_length ヘッダ除く本文の長さ
modified_time 最終更新時間

$response -> status_line;

**861** · 2006/11/19(日) 02:39:50

LWP::UserAgentを使ってみました。
こんな感じのソースです。

#!/usr/local/bin/perl

# モジュールを保存した場所を指定
use lib qw(../../../perl/lib/perl5/site_perl/5.8.4);

# モジュールを使う
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$req = HTTP::Request->new('GET', 'http://yahoo.co.jp/');
$res = $ua->request($req);

$res->content;

print "Content-type: text/html\n\n";
print "<html><head><title></title></head><body>";
print "$res";
print "</body></html>";

すると、画面に「HTTP::Response=HASH(0x8309728)」とだけ表示されました。
16進数で何かしらのデータが受信して表示されていると思うのですが、$resが何なのか分かるように
表示するにはどうしたらいいのでしょうか？

**nobodyさん** · 2006/11/19(日) 02:44:49

perlのオブジェクト指向に慣れてないね。$resはオブジェクト。
だからrequestでgetしたデータは「$res->content」で返される。
つまりこうすれば良い↓

print "Content-type: text/html\n\n";
print "<html><head><title></title></head><body>";
print $res->content;
print "</body></html>";

**861** · 2006/11/19(日) 03:35:42

なるほど、できました。
ご丁寧にありがとうございます。

$ua = LWP::UserAgent->new;
$req = HTTP::Request->new('GET', 'http://yahoo.co.jp/');
$res = $ua->request($req);

この場合だと、ここのスレッドが完了した時点で$res(物理的にはメモリ)に
「http://yahoo.co.jp/」からのソースが保持されていて、
$res->contentその中からbody部分のデータを持った変数。

という理解でいいでしょうか？

**nobodyさん** · 2006/11/19(日) 04:01:31

オブジェクトと変数はだいぶ違うが、まぁ流れはそんな感じ。ただ、

＞$res->contentその中からbody部分のデータを持った変数。

これは「$resの"content"に入ってるデータを引っ張り出す」と考えたほうが良い。
あとbody部分だけじゃなくて、head含めて全部だから。

**nobodyさん** · 2006/11/19(日) 11:27:48

オンメモリじゃなくて、LWPはファイルにも書き出せたはずだよ

**nobodyさん** · 2006/11/19(日) 15:38:26

質問させて下さい。

package Hoge;
use IO::File;
sub load {
my $fh = IO::File->new('test.txt','r');
my @tmp = $fh->getlines();
$fh->close();
}
1;

#!/usr/bin/perl
use IO::File;
my $fh = IO::File->new('test.txt','r');
my @tmp = $fh->getlines();
$fh->close();

パッケージだと $fh->getlines(); でエラーになります。
パッケージにする時って何か特殊な事をしないと駄目ですか？

**nobodyさん** · 2006/11/19(日) 17:06:20

>>868
どんなエラーですか?
Hogeパッケージの方はload()というサブルーチンのようですが、呼び出している部分がないので
どう使っているかわかりません。

Can't call method "getlines" on an undefined value

というエラーなら、newに失敗しているということでしょう。$fhをチェックすべきです。

**nobodyさん** · 2006/11/19(日) 17:19:22

Template-ToolKitで、一つのhtmlテンプレートの中で
FOREACHによるループ部分とそれ以外の差し替え部分を
同時にprocessするにはどうしたらいいんでしょうか？

**868** · 2006/11/19(日) 17:53:17

>>869
＞Can't call method "getlines" on an undefined value
このエラーです。

呼び出しは
#!/usr/bin/perl
use Hoge;
Hoge->load();
です。

**nobodyさん** · 2006/11/19(日) 21:19:45

>>871
私のところで動作させてみたら、エラーは出ずに動きましたよ。
IO::File->new の返り値を確かめましたか?

Hoge.pm
--------
package Hoge;
use IO::File;

sub load {
my $fh = IO::File->new('test.txt','r') or die $!;
my @tmp = $fh->getlines();
$fh->close();
return @tmp;
}
1;
--------

hoge.pl
--------
use Hoge;
print Hoge->load();
--------

**nobodyさん** · 2006/11/19(日) 21:59:36

>>872
らくだ本を買いに行ってました...
もう一度よく確認してみます。
ありがとうございました。

**nobodyさん** · 2006/11/20(月) 15:06:26

質問ですCarpでCGIのデバッグを行っているのですが
local $method = @_;
のように宣言する行で
Global symbol "$method" requires explicit package name at test.cgi line 74.
とエラーが出てしまいます
これはどういった原因が考えられるのでしょうか
分かるかたいましたらお願いいたします。

**nobodyさん** · 2006/11/20(月) 15:24:14

スカラ変数の中身が数値かそれ以外かを判断するにはどうしたらいいんでしょうか？

**nobodyさん** · 2006/11/20(月) 15:34:53

>>875
Scalar::Utilのlooks_like_number

**nobodyさん** · 2006/11/20(月) 15:50:27

>>874
エラーメッセージ読めばだいたいわかると思うが、さらに詳しくしりたければ
perldiag(1)を読め。

Global symbol "%s" requires explicit package name
(F) You've said "use strict vars", which indicates that all vari-
ables must either be lexically scoped (using "my"), declared
beforehand using "our", or explicitly qualified to say which pack-
age the global variable is in (using "::").

'use strict vars'が指定されているので、すべての変数は("my"を用いた)
レキシカルスコープの変数か、事前に"our"で宣言されるか、("::"を用いて)
明示的に修飾することでどのパッケージに所属するかを示したグローバル
変数でなければなりません。

**875** · 2006/11/20(月) 15:51:17

>>876
ありがとう。

**nobodyさん** · 2006/11/20(月) 20:27:04

>874
ｻﾌﾞﾙｰﾁﾝ呼び出してるときに、値が入っていないのでは？

shiftしれば、その結果でわかるかと思う

**nobodyさん** · 2006/11/20(月) 20:51:34

>>879
use strict 下で宣言されてない変数を使おうとした時のエラーだって >>877 で書いてあるじゃない。
local は既に宣言されてる変数の値の変化を局所化するだけで、変数の宣言にはならないんだってば。
my か our で宣言しないとダメ。あやふやな回答は質問者を混乱させるだけだよ（´・ω・）

**TORA** · 2006/11/20(月) 22:44:57

はじめまして
　
最近Perlを勉強しはじめたものなんですが
「数列を配列に入れ、偶数だけ表示させてください」
配列とかわかるのですが偶数だけ表示とかっていうのがわかりません。
周りの人に聞いても知らない人が多いので助けてください＞＜

**nobodyさん** · 2006/11/20(月) 22:50:09

>>881
宿題は自分でやりなさい。

ヒント
1 % 2 = 1
4 % 2 = 0

**nobodyさん** · 2006/11/20(月) 22:51:03

>>881
考えるんだ
偶数と奇数の違いを考えるんだ

**nobodyさん** · 2006/11/20(月) 23:04:46

算数からか・・・

**nobodyさん** · 2006/11/20(月) 23:12:06

こうですか！？わかりません！
use strict;
use Math::BigInt;
use Tie::LazyList;
tie my @seq, 'Tie::LazyList', [ 1 ], sub { my($array_ref, $n) = @_; $n };
for my $n (1..20) {
my $x = Math::BigInt->new($seq[$n]);
print "$x\n" if $x->is_even;
}

**nobodyさん** · 2006/11/20(月) 23:15:17

% 2 より & 1 の方がいいと思うんだけど、何か問題あったりする？

**nobodyさん** · 2006/11/20(月) 23:17:56

どっちでもいい
ただ、4 % 2 = 0 じゃなくて 4 % 2 == 0

**nobodyさん** · 2006/11/20(月) 23:20:46

>>886
問題はないね。ただそれではたぶん >>881 がロジックを理解できない気がする。

**nobodyさん** · 2006/11/20(月) 23:24:26

>>887
トラップ入れといたつもりなのにぃ

**nobodyさん** · 2006/11/20(月) 23:29:40

>>886
$ perl -e 'print 1000000000000 & 1'
1

**nobodyさん** · 2006/11/20(月) 23:32:48

2.0とかでも大丈夫？

◆TWARamEjuA · 2006/11/20(月) 23:47:51

あっちで使った技を取り入れつつ♪

my @Array = ( 1.. 1000 );
my %number;
@number{@Array} = (1) x @Array;

printf qq|%d\n|, $_ for grep not( $_ % 2), keys %number;

# 乱数っぽく♪

**nobodyさん** · 2006/11/20(月) 23:50:32

foreach(@rndnums){
print $_ if !($_ % 2);
}

**nobodyさん** · 2006/11/21(火) 00:03:52

田村清姫さんと空英彦さんが結婚しました。さてお嫁さんのなまえは何でしょう

**TORA** · 2006/11/21(火) 00:11:22

みなさん迷惑かけてすいませんでした。
みなさんの出してくれているソースがまったく理解できずにいます。
まだ勉強して無いところが多かったみたいです。
本当に迷惑かけてすいません。

**nobodyさん** · 2006/11/21(火) 00:11:36

井上順太郎

**nobodyさん** · 2006/11/21(火) 00:12:35

本当にどれも理解できないの？
だったら０から勉強しなおしなよ

**nobodyさん** · 2006/11/21(火) 00:19:46

だから初心者スレ来てるんじゃ

**TORA** · 2006/11/21(火) 00:20:49

０から始めたばかりなんですがmy@Array my%numberまだとか見たことないので

**nobodyさん** · 2006/11/21(火) 00:21:52

正規表現でHTMLタグを簡易的に表すことについて質問です！

1. <a href=~>
2. </a>

上記の二つを簡潔に表すのに、</?a\s*.*?>としてみたものの<a>というのにもマッチしてしまいます。
/があったら属性なし、/がなければ属性必須にするような後方参照は可能でしょうか。
よろしくお願いします！

# <a>がHTMLの文法として正しいのかどうかは知りません

**nobodyさん** · 2006/11/21(火) 00:25:44

>989
そんなんググるか、リファレンスとか持ってれば必ず載ってるべ？
理解しようとしない・調べようとしないでは、ここで聞くだけ無駄では？

>990
</?a\s*.+?>
はどう？

**nobodyさん** · 2006/11/21(火) 00:27:05

\s*←空白が無くてもマッチ
.*?←文字が無くてもマッチ

**900** · 2006/11/21(火) 00:32:26

</?a\s*.+?>だと</a>がマッチしないんですよ。
/の有無で分岐するみたいな巧妙な文法ってないでしょうかね。

**nobodyさん** · 2006/11/21(火) 00:34:33

普通に|使えよ

**nobodyさん** · 2006/11/21(火) 00:39:43

あぁそっか+じゃだめだな
テキトーすぎですまそ

**nobodyさん** · 2006/11/21(火) 00:40:40

=~ #<a\s+.*?>|</a>#i

**900** · 2006/11/21(火) 00:51:46

やっぱそれしかないですかね。正規表現はまだしらない機能がいっぱいなので、
ひょっとしてと思ったんですが。ありがとうございます。

**nobodyさん** · 2006/11/21(火) 00:53:27

>>900
実直に書いてみた。
my @str = ('<a href=...>', '</a>' , '<a>', '</a hoge>' ) ;

for my $str ( @str ){
　my $flag = 0 ;
　if ( $str =~ m{＼<
　　　　　　 (/(?{ $flag = 1 })|(?{ $flag = 0 }))
　　　　　　a
　　　　　　(??{ $flag == 0 ? '＼s+＼S+.*?' : '' })
　　　　　　＼>}x ){
　　 print $str . "＼n" ;
　}
}

アホす。

**nobodyさん** · 2006/11/21(火) 00:59:54

>>908
> (/(?{ $flag = 1 })|(?{ $flag = 0 }))
なるほど、|を使ってマッチしなかったときはフラグを上書きすりゃいいのか。勉強になった

**nobodyさん** · 2006/11/21(火) 01:13:46

m{</?(?(?<=/)a|a\s+.+?)>} # で実現できるけど、でも読める? ^^;

**900** · 2006/11/21(火) 01:14:10

>>908　
すごいっす！今のところ全然意味が分からないですが、いずれ役に立ちそうな予感がします。

**900** · 2006/11/21(火) 01:28:08

>>910
これだ！2つ目の?がif文になってるんですね。勉強になりました。
aを何とか一回に収めたいところですが、自分で考えてみます。

**nobodyさん** · 2006/11/21(火) 02:08:28

コーディングとはちょっと違うんですが、質問です。

CPANでモジュールをインストールしたいのですが、File::Copyというモジュールがインストールできません。
エラーコードは以下の通りでした。

cpan > install File::Copy
CPAN: Storable loaded ok
Going to read /home/account/.cpan/Metadata
Database was generated on Mon, 20 Nov 2006 05:24:36 GMT
Running install for module File::Copy
Running make for N/NW/NWCLARK/perl-5.8.8.tar.gz

The most recent version "2.09" of the module "File::Copy"
comes with the current version of perl (5.8.8).
I'll build that only if you ask for something like
force install File::Copy
or
isntall N/NW/NWCLARK/perl-5.8.8.tar.gz
Running make test
Make had some probrem, maybe interrupted?Won't test
Has no own directory
Running make install
Has no own directory
Make had some probrem, maybe interrupted?Won't install

サーバはさくらサーバです。
LWPモジュールはインストールできました。そのモジュールは5.8.4というフォルダ以下に入っています。

ご回答お願い致します。