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

**nobodyさん** · 2007/05/30(水) 11:34:01

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

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

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

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

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

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

**785** · 2007/08/20(月) 11:52:52

※訂正※真ん中の段
×文字列としては読み込めますが
○文字列としては書き出せますが

**765** · 2007/08/20(月) 18:34:36

>>767-768
ありがとうございます。また、すみません。
useが使えないというのは勘違いで、@INCに何も入っていないだけでした；

けれど、BEGIN { unshift(@INC, 'hogehoge'); }してもコンパイル時の
モジュール見つかりませんエラーに表示される
@INCの中にはhogehogeは入りませんでした。
スクリプトの中で@INCを(printなどして)参照すると確かにhogehogeは@INCに入っているのですが。。
どうにかしてモジュールを使う方法は無いでしょうか？

**785** · 2007/08/21(火) 10:37:32

>>787
案外ちょっとしたコーディングのミスだったりしない？
例えばModule名と中のPackage名が違ってて、use Package名にしてるとか・・・

あとは指定したパスが地味に間違ってるとか。
use FindBin qw($Bin);
use lib "$Bin";
とすると@INCの先頭にカレントディレクトリのパスが入るから確認してみては。
例えばuse lib "$Bin/../hogehoge"とすると、相対パスでひとつ上にあるhogehogeが指定される。

>>785で質問させてもらったんですが、解決しました。
Storableでファイルへの保存、呼び出しをしてたのですが、
表示する際にData::Dumperで整形してたのです。(バカな話だけど）
それで当然、もとのオブジェクトとしては扱えなくて。
Storableで戻した配列に対してそのままアクセスしたら復元できましたm(_ _)m

ファイルから呼び出したオブジェクトの配列リファレンス($result)に対して
for my $i (0..$#{$$result}) { printf "%s : %s\n", $$result[$i]->name, $$result[$i]->score; }
みたいな感じで。
というか質問自体がわかりにくかったですね。スマソ

**nobodyさん** · 2007/08/22(水) 02:37:38

次のページにrefreshを使わずに瞬時にリンクしたいのですが
どうすればいいのでしょうか？

**nobodyさん** · 2007/08/22(水) 02:39:50

>>789
何故ここで聞く…スレ違いじゃね？
CGIならLocationでおｋ

**７８９** · 2007/08/22(水) 02:44:24

質問の内容が漠然としてるみたいなので変えます
次のページに瞬時でリンクした時、次のページに
データを渡したいのですがどうすればいいのでしょうか。

**７８９** · 2007/08/22(水) 02:45:28

>>790
即レスありがとうございます
Locationを検索してみます

**nobodyさん** · 2007/08/22(水) 10:48:13

リンクしなきゃいいんじゃね？

**nobodyさん** · 2007/08/22(水) 10:50:22

二行目を詳しく

**nobodyさん** · 2007/08/22(水) 12:11:37

>>794
まさかLocationがわからないとか…ないよな？

**nobodyさん** · 2007/08/22(水) 12:16:22

>>795
>>791の2行目の事じゃね？

>>791
「次のページ」が2つ出てきているが、それらは何なのか。またリンク元から見てどこに位置するのか。
「瞬時でリンク」とは何か。
これがわからないと答えようが無い。

**７８９** · 2007/08/22(水) 12:19:59

自分が探してたのLocationみたいだったので解決しました
レスありがとうございました

**nobodyさん** · 2007/08/22(水) 22:14:48

ユニコードだとlength($x)で日本語も一文字扱いになるけど、
日本語のバイト数拾うのはどうすると良い？

**nobodyさん** · 2007/08/22(水) 23:19:26

どの文字コードにするかでバイト数は異なるから、
お望みのコードにencodeしてlengthとるのが正攻法。

perlの内部表現(utf8)のバイト数でよければbytes::length

**nobodyさん** · 2007/08/23(木) 00:35:43

>731

**nobodyさん** · 2007/08/23(木) 07:54:48

>>799
なるほど。ありがとうございました。

**nobodyさん** · 2007/08/23(木) 18:57:09

>>800
うほ！

**nobodyさん** · 2007/08/24(金) 18:26:53

質問させてください
移動平均原価法で原価計算をしたいと思ってます
@COST=(
'2000','3','6000',
'3000','4','12000',
'1000','5','5000',
'4000','3','12000'
);
左から単価、個数、合計という@COSTの配列を作りました
ここからがわかりません。。foreachでまわしてはみたものの、
最初は2行で区切り計算をしてその結果を次の行と計算・・・という流れが作れません
どなたかヒントくださいますでしょうかｍ(＿　＿)ｍ

**nobodyさん** · 2007/08/24(金) 18:34:52

>>803
移動平均原価法じゃ何も分からん。スレ違い。
せめてもっとソースを示して、こうやりたいと書くべき。

**nobodyさん** · 2007/08/24(金) 18:47:18

すみません、ソースを晒したいのは山々なのですがforeach内が全てわからなく、、。
上の例から行くと
1| (6000+12000)/7=2572
2| 2572*7=18004
3| 1000*5=5000
4| (18004+5000)/12=1917
5| 1917*12=23004
6| 4000*3=12000
7| (23004+12000)/15=2334
という順番に計算していき結果的に2334と出したい状況です。

**nobodyさん** · 2007/08/24(金) 19:04:13

汎用的に書いて

**nobodyさん** · 2007/08/24(金) 19:09:19

> 移動平均原価法じゃ何も分からん。スレ違い。
> せめてもっとソースを示して、こうやりたいと書くべき。

坊やはつまんないKENT CGIでも改造してオレすごいぜーとか思いつつ引きこもっておけばいいじゃん。ｗｗｗ
人様に迷惑かけんなよ。ｗｗｗｗ

**nobodyさん** · 2007/08/24(金) 19:18:28

よくわからん計算法だな。全部足して割り算したほうが

(2000*3+3000*4+1000*5+4000*3)/(3+4+5+3)

わかりやすいような気がするのだが。

各ステップで小数点以下を丸めてわざと誤差を余計に
蓄積させるのが肝??

**nobodyさん** · 2007/08/24(金) 19:20:09

#!/usr/bin/perl
use strict;

my @COST = (
['2000','3','6000'],
['3000','4','12000'],
['1000','5','5000'],
['4000','3','12000'],
);

use Data::Dumper;
my ($avarage_cost, $total_pieces, $total_price);
for my $param (@COST) {
my ($unit_cost, $pieces, $price) = @$param;
$total_pieces += $pieces;
$total_price += $price;
$avarage_cost = $total_price / $total_pieces;
print "$avarage_cost\n";
}

**nobodyさん** · 2007/08/24(金) 19:20:53

>>808
移動平均法と簿記知らない人は黙っててください。

**nobodyさん** · 2007/08/24(金) 19:26:14

#!/usr/bin/perl
use strict;
use POSIX;

my @COST = (
['2000','3','6000'],
['3000','4','12000'],
['1000','5','5000'],
['4000','3','12000'],
);

my ($avarage_cost, $total_pieces, $total_price);
for my $param (@COST) {
　my ($unit_cost, $pieces, $price) = @$param;
　$total_pieces += $pieces;
　$total_price += $price;
　$avarage_cost = $total_price / $total_pieces;
　$avarage_cost = ceil($avarage_cost);
　$total_price = $total_pieces * $avarage_cost;
　print "$avarage_cost\n";
}

**nobodyさん** · 2007/08/24(金) 19:35:19

Moving Average Method perl pm
でぐぐれ

**nobodyさん** · 2007/08/24(金) 19:38:00

>>812
どのページ？

**nobodyさん** · 2007/08/24(金) 19:44:36

それは探せよｗｗｗ

**nobodyさん** · 2007/08/24(金) 19:52:53

それって、結局何も示してないのと同じだよね。

**nobodyさん** · 2007/08/24(金) 20:47:14

質問者回答者共々に
馬鹿なのは珍しいな
見物させて貰うよ

**nobodyさん** · 2007/08/24(金) 20:50:44

> 質問者回答者共々に
> 馬鹿なのは珍しいな
> 見物させて貰うよ

馬鹿であると認識しつつ見物するというのは何らかの精神障害でもお持ちですか？

**nobodyさん** · 2007/08/24(金) 21:55:07

簿記も移動平均法もよく分からんが書いて見る。

use POSIX qw(ceil);

my @cost = ([2000,3],[3000,4],[1000,5],[4000,3]);

my ($avg, $num) = @{$cost[0]};
foreach(1..$#cost){
$avg = ceil(($avg*$num+$cost[$_]->[0]*$cost[$_]->[1])/($num+$cost[$_]->[1]));
$num += $cost[$_]->[1];
}
print $avg, "\n";

**nobodyさん** · 2007/08/24(金) 22:07:07

動物園で猿を眺める感覚なんじゃない?

**nobodyさん** · 2007/08/25(土) 00:34:26

どうして猿？

**nobodyさん** · 2007/08/25(土) 10:30:06

>>809 >>811 >>818
ヒントというかコピペで使える答えを有難う御座います！！
全て試しましたところ３つとも希望通りの動きをしてくれました。
すごくわかりやすくて綺麗なソースです。感謝です

**nobodyさん** · 2007/08/26(日) 13:21:03

$obj = new Pkg();

はエラーになるけれど、

$obj = Pkg->new();

または

$obj = Pkg::new('Pkg');

はエラーにならない原因は何が考えられるでしょうか。

**nobodyさん** · 2007/08/26(日) 14:14:37

カレントパッケージにnewやPkgというサブルーチンがある場合いくない時がある

package main;
sub new { print "main::new\n" }

Pkg->new();
new Pkg();

package Pkg;
sub new { print "Pkg::new\n" }

**822** · 2007/08/26(日) 16:43:34

>>823
ビンゴでした！
ほんとありがとうございます！

**nobodyさん** · 2007/08/27(月) 01:16:35

一般的な質問になりますが、
掲示板をPerlで作るとき、データは皆さんどのようにして保存しますか？

私が考えたのは

・連番テキストファイル
・連番XMLファイル
・一つのXMLファイル

ぐらいですが、他にもいい方法などありますか？

**nobodyさん** · 2007/08/27(月) 01:17:26

**nobodyさん** · 2007/08/27(月) 01:35:16

**nobodyさん** · 2007/08/27(月) 01:43:22

あ、スミマセン。
外部からも、元データを簡単に参照できるようにしたいので、SQLなどは除外して考えています

**nobodyさん** · 2007/08/27(月) 01:51:46

データベース

**nobodyさん** · 2007/08/27(月) 01:57:04

**nobodyさん** · 2007/08/27(月) 01:57:55

db
外部からの参照時は1枚被せる

**nobodyさん** · 2007/08/27(月) 02:10:27

やっぱり、データベースが良いですか
では、これを機にSQlite+Perlでも勉強してみます

**nobodyさん** · 2007/08/27(月) 03:13:28

別に無理して RDBMS 使わなくてもいいんじゃない？
どうせいっぱいいっぱいになって途中で投げ出すよｗ

**nobodyさん** · 2007/08/27(月) 07:19:52

テキスト保存だろうが何だろうが、DBを名乗っても別に問題は……。

まあ、冗談は別として。
なんで連番ファイルにしようと思ったん？

**nobodyさん** · 2007/08/27(月) 12:21:06

フォームからCSVファイルのPOSTで、処理の機能ごとにsubでまとめ、
DB入力だけ別鯖へ投げようと思ってます。
（そのDB鯖は外部からのDB接続は許可してない）

それでLWP::UserAgentで外部鯖へPOSTさせた場合の動作で、
CSVが100行あった場合、ループ内で100回のPOSTになりますが
その時に外部鯖の処理速度もループに影響しますよね？

**nobodyさん** · 2007/08/27(月) 12:25:46

ファイルごと投げないのは何故？

**nobodyさん** · 2007/08/27(月) 12:54:31

ファイルをアップロードしてそのままインポートさせりゃいいのでは？

**835** · 2007/08/27(月) 12:57:01

DB鯖はFTPアカウント貰えないのですよ･･･

ループ内に処理は書いてなく、LWP::UserAgentでPOSTしてるだけですが、
結局DB鯖での処理が終わってreturn受けてから次のループ　というフローでOKでしょうか？

**nobodyさん** · 2007/08/27(月) 13:31:30

そう思うならそうしろよ
フォームでどうやって投げてると思ってんだろうね

**nobodyさん** · 2007/08/27(月) 13:50:36

外部のHTMLソースを表示するってことperlで可能でしょうか？

**nobodyさん** · 2007/08/27(月) 13:51:18

LWP

**nobodyさん** · 2007/08/27(月) 14:09:38

そんな糞スクリプトでやるんじゃなくて、ふつーに外注すればいいのに。

**nobodyさん** · 2007/08/27(月) 14:23:42

>>838
HTTPでファイルをアップロードすれば？

**835** · 2007/08/27(月) 15:03:22

いくつもレス頂きありがとうございます。

ただDB鯖の方は全く操作できない（させてもらえない）環境なので、
CSV処理のCGIを1つかまして、そこから個別に1件ずつPOSTするフローにしました。

こういった場合、何かこうしろみたいな方法はありましたら御教示よろしくお願いします。
※外部DB鯖の管理元に解決のお願いをするのは無しの方向でｗ

**nobodyさん** · 2007/08/27(月) 15:23:24

全部いっぺんに送ればよくない？

**835** · 2007/08/27(月) 15:55:05

>>845
未熟すぎで申し訳ないです。全部いっぺんにというのはLWP::UserAgentの処理方法でしょうか？
それとも全く別の方法でしょうか？今現在はこういった感じになってます。

# リクエスト生成
my $url = 'http://example.com/index.cgi';
my %formdata = ('Name'=>$Name[0], 'Age'=>$Age[0]);
my $request = POST($url, [%formdata]);
# UserAgent生成処理
my $ua = LWP::UserAgent->new;
my $res = $ua->request($request);
print $res->as_string;

**nobodyさん** · 2007/08/27(月) 16:00:44

フォームからCSVアップロードしてるのにそれをなぜ１行ずつ転送するんだ

**ミューズイングリッシュ** · 2007/08/27(月) 16:21:52

みなさんこんにちは
小さな英会話教室をしていて、ホームページを作っています。
そこでスケジュールカレンダーをphpで、できるとのことだったので、
友人からもらったプログラムをリンクさせましたが、
ログインすると、
Parse error: parse error, unexpected T_STRING in /www/a-mail/muse-eng.jp/public_html/schedule/Calendar.class.php on line 85

と、このようにでます。
ド素人なのでプログラムの書き換えもわかりません。
デザインは出来ていています。
phpプログラムを見て適正に修正して頂ける方探しています。
もちろん謝礼贈呈します。予算がないので10,000円で考えていますが、
お力添えいただける方、宜しくお願いいたします。
対象のホームページ　www.muse-eng.jp
ご連絡先メールアドレス aimaniajp@yahoo.co.jp
宜しくお願いいたします。

**nobodyさん** · 2007/08/27(月) 16:52:11

ここに田代しろっていうフリだよね？

**840** · 2007/08/27(月) 16:55:57

LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $url = 'http://yyyyyy';
my %formdata = ('uuu' => 'uuuuuuuu', 'iiiii' => 'iiiiiii');
my $request = POST($url, [%formdata]);

my $ua = LWP::UserAgent->new;
my $res = $ua->request($request);
print $res->as_string;

my $ua = LWP::UserAgent->new;の記述でscriptエラーでるのですが
これはサーバーの不備でしょうか？

**nobodyさん** · 2007/08/27(月) 17:02:57

>>835
もしかして、そのDB鯖って、インターフェイスがフォームしかない(笑)とか？

**835** · 2007/08/27(月) 17:21:20

>>851
通常の入力フォームはありますが、1件ずつが大変だしデータフォーマットを合わせるために、
CSVのデータからCGIで各値の変換（英数字を半角など）をしてからPOSTする予定です。

**nobodyさん** · 2007/08/27(月) 17:32:31

こういうのを社畜って言うのか。
上から言われたら反抗もせずに無駄な労力を費やすと。ｗｗｗ

**nobodyさん** · 2007/08/27(月) 17:35:01

なんで一々POSTでおくらなきゃいけないのかと
普通にDBに接続しろってｗ

**nobodyさん** · 2007/08/27(月) 17:35:48

>>850
use してなければいろいろエラーは出ると思う。

**840** · 2007/08/27(月) 18:50:06

エラーは出なくなりましたが
目的の外部HTMLはいろいろ処理(タイトルが変化や色が変わる)していて
表示処理が完全に終わったソースを
perl側から見ることはできないでしょうか？

**nobodyさん** · 2007/08/27(月) 18:51:22

もう少しHTMLの勉強をした方がいいと思うな、うん

**nobodyさん** · 2007/08/27(月) 20:37:22

背伸びする必要ないと思うなぁ。うん。
それにしても、未だに CGI なんか作ってる人たちっているのかぁ。

**nobodyさん** · 2007/08/27(月) 21:09:29

単体なら需要あるしね

**nobodyさん** · 2007/08/27(月) 22:15:58

それどんなひねくれた需要？

**nobodyさん** · 2007/08/27(月) 22:56:41

本当にわからないならただの無知だな
あとスレ違いだからこの辺にしとこうぜ

**nobodyさん** · 2007/08/28(火) 03:36:17

> 本当にわからないならただの無知だな
> あとスレ違いだからこの辺にしとこうぜ

答えれなくなるとそうやって逃げるんだよな。ｗｗｗ

**nobodyさん** · 2007/08/28(火) 08:26:21

webprog板の55まであるcgi(&初心者)スレで858みたいな事書くのが
信じられん、、、

**nobodyさん** · 2007/08/28(火) 11:02:31

Web2.0（笑）

**nobodyさん** · 2007/08/28(火) 11:45:37

>>856
もしかしてPOSTじゃなくGETしたいんじゃないの？

**nobodyさん** · 2007/08/28(火) 12:13:31

（；＾ω＾）・・・？

**nobodyさん** · 2007/08/28(火) 13:59:00

うおっ! このスレレベル高っ!

**nobodyさん** · 2007/08/28(火) 17:03:57

perlコーディングに関する質問が来ない罠。

**nobodyさん** · 2007/08/29(水) 01:05:13

Perlでさ、ブラウザからサーバーのファイルを管理できるソフトを作ってる途中なんだけど、こんなCGI作ってる人って他にもいるかな？

**nobodyさん** · 2007/08/29(水) 01:11:29

いますね。そういうのは既にあります

**nobodyさん** · 2007/08/29(水) 06:39:40

質問です。

コマンドプロンプトからActivePerlを使っていますが、
perldoc Jcode::Nihongo
とした時に文字化けします。
どうしたら正常に表示されますか？

それから、CygwinからもPerlを使ってますが、
$ perldoc
Segmentation fault (core dumped)
$ perl -V
Segmentation fault (core dumped)
$ cpan
Segmentation fault (core dumped)

といった表示が多発しています。
これはどうしたら直りますか？

**nobodyさん** · 2007/08/29(水) 10:44:32

perlコーディングに関する質問が来ない罠。

**nobodyさん** · 2007/08/29(水) 12:32:27

>>871
perldoc -T Jcode::Nihongo | perl -MJcode -p -e "$_ = Jcode->new($_, q(euc))->sjis"

Cygwinは使ったことないが、
それだけでは、誰にも分からないだろう。

**nobodyさん** · 2007/08/29(水) 13:27:36

EncodeじゃなくてJcodeなの？

**nobodyさん** · 2007/08/29(水) 13:53:19

どっちでもいいだろｗ

**nobodyさん** · 2007/08/29(水) 14:01:41

Jcodeはラッパーなので微妙ながらタイムラグが出来ます

**nobodyさん** · 2007/08/29(水) 16:47:36

Encode使う時点で重いから、どうでもいい。

**nobodyさん** · 2007/08/29(水) 21:19:54

> Encode使う時点で重いから、どうでもいい。

どうでもいいなら、どうしてここに反応を書き込むの？
キモい２次元絵見ながら黙ってチンコでもいじってればいいだろ。

**871** · 2007/08/29(水) 21:44:47

>>873

回答ありがとうです。
勉強なります。

>>876

Encodeのほうが最近向きなんですね。
ちょっと調べてみました。

もう1つの質問は自己買い付けしました。
我ながらとちくるった質問の仕方でした。w

**nobodyさん** · 2007/08/30(木) 13:15:57

フォームから送られて来たデータを
jcode'convert(*name, 'euc');
これでＥＵＣに変換してるんですが、
半角カタカナを入れると文字化けしてしまします。
どうすればいいのでしょうか。

**nobodyさん** · 2007/08/30(木) 13:29:38

送られてくるデータの文字コードを指定しましょう。

**880** · 2007/08/30(木) 15:10:33

>>881
ありがとうございます
うまくいきました。

**nobodyさん** · 2007/08/31(金) 18:10:59

俺も　jcode::convert(\$name, 'euc');　いまだに使ってる

**nobodyさん** · 2007/09/01(土) 09:16:04

POE::Component::IRCに同梱されているexamples内のdicebot.plを使ってみたら、

＞Use of POE::Component::IRC->new() is deprecated, please use spawn().
＞Called from main /home/xxxx/perl-lib/dicebot.pl 100

と怒られてしまいました。
これは、
POE::Component::IRC->new( 'dicebot' ) と書いてある部分を
そのまま POE::Compenent::IRC->spawn( 'dicebot' ) に書き直せばOKという意味なのでしょうか？

**nobodyさん** · 2007/09/01(土) 12:15:25

エラーで親切に教えてくれているというのに・・・