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

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

レス数が900を超えています。1000を超えると表示できなくなるよ。
0001nobodyさん2007/05/30(水) 11:34:01ID:???
Perlのコーディングで困ってる人のスレです。

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

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

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

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

前スレ　http://pc11.2ch.net/test/read.cgi/php/1171102883/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
0819nobodyさん2007/08/24(金) 22:07:07ID:???
動物園で猿を眺める感覚なんじゃない?
0820nobodyさん2007/08/25(土) 00:34:26ID:???
どうして猿？
0821nobodyさん2007/08/25(土) 10:30:06ID:???
>>809 >>811 >>818
ヒントというかコピペで使える答えを有難う御座います！！
全て試しましたところ３つとも希望通りの動きをしてくれました。
すごくわかりやすくて綺麗なソースです。感謝です
0822nobodyさん2007/08/26(日) 13:21:03ID:???
$obj = new Pkg();

はエラーになるけれど、

$obj = Pkg->new();

または

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

はエラーにならない原因は何が考えられるでしょうか。
0823nobodyさん2007/08/26(日) 14:14:37ID:???
カレントパッケージにnewやPkgというサブルーチンがある場合いくない時がある

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

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

package Pkg;
sub new { print "Pkg::new\n" }
08248222007/08/26(日) 16:43:34ID:???
>>823
ビンゴでした！
ほんとありがとうございます！
0825nobodyさん2007/08/27(月) 01:16:35ID:/FKQmVjf
一般的な質問になりますが、
掲示板をPerlで作るとき、データは皆さんどのようにして保存しますか？

私が考えたのは

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

ぐらいですが、他にもいい方法などありますか？
0826nobodyさん2007/08/27(月) 01:17:26ID:???
db
0827nobodyさん2007/08/27(月) 01:35:16ID:???
DB
0828nobodyさん2007/08/27(月) 01:43:22ID:/FKQmVjf
あ、スミマセン。
外部からも、元データを簡単に参照できるようにしたいので、SQLなどは除外して考えています
0829nobodyさん2007/08/27(月) 01:51:46ID:???
データベース
0830nobodyさん2007/08/27(月) 01:57:04ID:???
db
0831nobodyさん2007/08/27(月) 01:57:55ID:???
db
外部からの参照時は1枚被せる
0832nobodyさん2007/08/27(月) 02:10:27ID:/FKQmVjf
やっぱり、データベースが良いですか
では、これを機にSQlite+Perlでも勉強してみます
0833nobodyさん2007/08/27(月) 03:13:28ID:???
別に無理して RDBMS 使わなくてもいいんじゃない？
どうせいっぱいいっぱいになって途中で投げ出すよｗ
0834nobodyさん2007/08/27(月) 07:19:52ID:???
テキスト保存だろうが何だろうが、DBを名乗っても別に問題は……。

まあ、冗談は別として。
なんで連番ファイルにしようと思ったん？
0835nobodyさん2007/08/27(月) 12:21:06ID:???
フォームからCSVファイルのPOSTで、処理の機能ごとにsubでまとめ、
DB入力だけ別鯖へ投げようと思ってます。
（そのDB鯖は外部からのDB接続は許可してない）

それでLWP::UserAgentで外部鯖へPOSTさせた場合の動作で、
CSVが100行あった場合、ループ内で100回のPOSTになりますが
その時に外部鯖の処理速度もループに影響しますよね？
0836nobodyさん2007/08/27(月) 12:25:46ID:???
ファイルごと投げないのは何故？
0837nobodyさん2007/08/27(月) 12:54:31ID:???
ファイルをアップロードしてそのままインポートさせりゃいいのでは？
08388352007/08/27(月) 12:57:01ID:???
DB鯖はFTPアカウント貰えないのですよ･･･

ループ内に処理は書いてなく、LWP::UserAgentでPOSTしてるだけですが、
結局DB鯖での処理が終わってreturn受けてから次のループ　というフローでOKでしょうか？
0839nobodyさん2007/08/27(月) 13:31:30ID:???
そう思うならそうしろよ
フォームでどうやって投げてると思ってんだろうね
0840nobodyさん2007/08/27(月) 13:50:36ID:/hovVpUg
外部のHTMLソースを表示するってことperlで可能でしょうか？
0841nobodyさん2007/08/27(月) 13:51:18ID:???
LWP
0842nobodyさん2007/08/27(月) 14:09:38ID:???
そんな糞スクリプトでやるんじゃなくて、ふつーに外注すればいいのに。
0843nobodyさん2007/08/27(月) 14:23:42ID:???
>>838
HTTPでファイルをアップロードすれば？
08448352007/08/27(月) 15:03:22ID:???
いくつもレス頂きありがとうございます。

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

こういった場合、何かこうしろみたいな方法はありましたら御教示よろしくお願いします。
※外部DB鯖の管理元に解決のお願いをするのは無しの方向でｗ
0845nobodyさん2007/08/27(月) 15:23:24ID:???
全部いっぺんに送ればよくない？
08468352007/08/27(月) 15:55:05ID:???
>>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;
0847nobodyさん2007/08/27(月) 16:00:44ID:???
フォームからCSVアップロードしてるのにそれをなぜ１行ずつ転送するんだ
0848ミューズイングリッシュ2007/08/27(月) 16:21:52ID:???
みなさんこんにちは
小さな英会話教室をしていて、ホームページを作っています。
そこでスケジュールカレンダーを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
宜しくお願いいたします。
0849nobodyさん2007/08/27(月) 16:52:11ID:???
ここに田代しろっていうフリだよね？
08508402007/08/27(月) 16:55:57ID:/hovVpUg
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エラーでるのですが
これはサーバーの不備でしょうか？
0851nobodyさん2007/08/27(月) 17:02:57ID:???
>>835
もしかして、そのDB鯖って、インターフェイスがフォームしかない(笑)とか？
08528352007/08/27(月) 17:21:20ID:???
>>851
通常の入力フォームはありますが、1件ずつが大変だしデータフォーマットを合わせるために、
CSVのデータからCGIで各値の変換（英数字を半角など）をしてからPOSTする予定です。
0853nobodyさん2007/08/27(月) 17:32:31ID:???
こういうのを社畜って言うのか。
上から言われたら反抗もせずに無駄な労力を費やすと。ｗｗｗ
0854nobodyさん2007/08/27(月) 17:35:01ID:???
なんで一々POSTでおくらなきゃいけないのかと
普通にDBに接続しろってｗ
0855nobodyさん2007/08/27(月) 17:35:48ID:???
>>850
use してなければいろいろエラーは出ると思う。
08568402007/08/27(月) 18:50:06ID:/hovVpUg
エラーは出なくなりましたが
目的の外部HTMLはいろいろ処理(タイトルが変化や色が変わる)していて
表示処理が完全に終わったソースを
perl側から見ることはできないでしょうか？
0857nobodyさん2007/08/27(月) 18:51:22ID:???
もう少しHTMLの勉強をした方がいいと思うな、うん
0858nobodyさん2007/08/27(月) 20:37:22ID:???
背伸びする必要ないと思うなぁ。うん。
それにしても、未だに CGI なんか作ってる人たちっているのかぁ。
0859nobodyさん2007/08/27(月) 21:09:29ID:???
単体なら需要あるしね
0860nobodyさん2007/08/27(月) 22:15:58ID:???
それどんなひねくれた需要？
0861nobodyさん2007/08/27(月) 22:56:41ID:???
本当にわからないならただの無知だな
あとスレ違いだからこの辺にしとこうぜ
0862nobodyさん2007/08/28(火) 03:36:17ID:???
> 本当にわからないならただの無知だな
> あとスレ違いだからこの辺にしとこうぜ

答えれなくなるとそうやって逃げるんだよな。ｗｗｗ
0863nobodyさん2007/08/28(火) 08:26:21ID:???
webprog板の55まであるcgi(&初心者)スレで858みたいな事書くのが
信じられん、、、
0864nobodyさん2007/08/28(火) 11:02:31ID:???
Web2.0（笑）
0865nobodyさん2007/08/28(火) 11:45:37ID:???
>>856
もしかしてPOSTじゃなくGETしたいんじゃないの？
0866nobodyさん2007/08/28(火) 12:13:31ID:???
（； ＾ω＾）・・・？
0867nobodyさん2007/08/28(火) 13:59:00ID:???
うおっ! このスレレベル高っ!
0868nobodyさん2007/08/28(火) 17:03:57ID:???
perlコーディングに関する質問が来ない罠。
0869nobodyさん2007/08/29(水) 01:05:13ID:???
Perlでさ、ブラウザからサーバーのファイルを管理できるソフトを作ってる途中なんだけど、こんなCGI作ってる人って他にもいるかな？
0870nobodyさん2007/08/29(水) 01:11:29ID:???
いますね。そういうのは既にあります
0871nobodyさん2007/08/29(水) 06:39:40ID:XYYl0jHZ
質問です。

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

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

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

0872nobodyさん2007/08/29(水) 10:44:32ID:???
perlコーディングに関する質問が来ない罠。
0873nobodyさん2007/08/29(水) 12:32:27ID:???
>>871
perldoc -T Jcode::Nihongo | perl -MJcode -p -e "$_ = Jcode->new($_, q(euc))->sjis"

Cygwinは使ったことないが、
それだけでは、誰にも分からないだろう。
0874nobodyさん2007/08/29(水) 13:27:36ID:???
EncodeじゃなくてJcodeなの？
0875nobodyさん2007/08/29(水) 13:53:19ID:???
どっちでもいいだろｗ
0876nobodyさん2007/08/29(水) 14:01:41ID:???
Jcodeはラッパーなので微妙ながらタイムラグが出来ます
0877nobodyさん2007/08/29(水) 16:47:36ID:???
Encode使う時点で重いから、どうでもいい。
0878nobodyさん2007/08/29(水) 21:19:54ID:???
> Encode使う時点で重いから、どうでもいい。

どうでもいいなら、どうしてここに反応を書き込むの？
キモい２次元絵見ながら黙ってチンコでもいじってればいいだろ。
08798712007/08/29(水) 21:44:47ID:P8i/jgkh
>>873

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

>>876

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


もう1つの質問は自己買い付けしました。
我ながらとちくるった質問の仕方でした。w
0880nobodyさん2007/08/30(木) 13:15:57ID:???
フォームから送られて来たデータを
jcode'convert(*name, 'euc');
これでＥＵＣに変換してるんですが、
半角カタカナを入れると文字化けしてしまします。
どうすればいいのでしょうか。
0881nobodyさん2007/08/30(木) 13:29:38ID:???
送られてくるデータの文字コードを指定しましょう。
08828802007/08/30(木) 15:10:33ID:???
>>881
ありがとうございます
うまくいきました。
0883nobodyさん2007/08/31(金) 18:10:59ID:???
俺も　jcode::convert(\$name, 'euc');　いまだに使ってる
0884nobodyさん2007/09/01(土) 09:16:04ID:???
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という意味なのでしょうか？
0885nobodyさん2007/09/01(土) 12:15:25ID:???
エラーで親切に教えてくれているというのに・・・
0886nobodyさん2007/09/02(日) 00:16:36ID:1H6hgBEM
携帯のIPを直接使ってキャリア判別したいんですけど、
どういうコード書けば良いんでしょうか？

例えば公開されてるIP帯域が127.0.0.0/24だとするなら
$ENV{'REMOTE_ADDR'} =~ /^127.0.0.[0-9]+$/
のように上位24ﾋﾞｯﾄだけマッチするなら真で良いんですか？

(例の帯域はあり得ないかも知れませんがｻﾌﾞﾈｯﾄﾏｽｸについて良くわからないんで勘弁してください)
0887nobodyさん2007/09/02(日) 00:17:53ID:1H6hgBEM
↑ドットのエスケープ忘れた
0888nobodyさん2007/09/02(日) 00:21:59ID:???
my @quadip = split(/\./, $IPADDRESS);
my $ipdec = 0; # 10進に変換された IP
my $basedec = 256 * 256 * 256 * 256; # ベースとなる値

for(my $i = 0; $i < 4; $i++){
　　$basedec = $basedec / 256;
　　$ipdec += $basedec * $quadip[$i];
}

これで $ipdec に１０進数にされた IP アドレスが入るので、同じように公開されてる IP アドレスの範囲も１０進数に変換して
その範囲内に収まってるかどうかで確認できる。

0889nobodyさん2007/09/02(日) 00:23:50ID:???
これも追記
## IP の範囲やサブネットから IP の最小値と最大値を10進数で返す
sub getipminmax{
　　my($ip) = $_[0] || "";
　　my(@retip) = (0, 0);

　　# $ip に数字、/、- 以外があればエラーリターンする
　　if($ip =~ /[^\d\.\-\/]/){ return @retip; }

　　# - か / で分割する
　　if($ip =~ /\-/){　# IP の範囲
　　　　my ($ipaddr1, $ipaddr2) = split(/\-/, $ip);
　　　　$retip[0] = &ip2dec($ipaddr1);
　　　　$retip[1] = &ip2dec($ipaddr2);
　　}elsif($ip =~ /\//){　# サブネット
　　　　my ($ipaddr, $subnet) = split(/\//, $ip);
　　　　my $subnetdec = (2 ** 32) - (2 ** (32 - $subnet));
　　　　my $ipaddrstart = &ip2dec($ipaddr) & $subnetdec;
　　　　$retip[0] = $ipaddrstart;
　　　　$retip[1] = $ipaddrstart + (2 ** (32 - $subnet)) - 1;
　　}else{　# 単一の IP
　　　　$retip[0] = &ip2dec($ip);
　　　　$retip[1] = 0;
　　}
　　return @retip;
}
08908862007/09/02(日) 00:45:58ID:???
>>888-889
凄い…。
ありがとうございます。

できれば>>888の2,3行目についてもう少し詳しく教えて貰えますか？
0891nobodyさん2007/09/02(日) 01:22:15ID:???

質問です。

ユニークな６〜８文字の英数字文字列があるのですが、この文字列を他の文字列（英数字10文字）にしたいんですが、
それもユニークにしたいんです。
ならべく元の文字列がわからないようにしたいんですが、何か方法はありますでしょうか？

ユニークな文字列は5万行ぐらいあります。
0892nobodyさん2007/09/02(日) 01:31:27ID:???
>>891
my $10moji = sprintf "%010d",$id;
0893nobodyさん2007/09/02(日) 01:33:55ID:???
何この初心者が書いた様な酷いコードは
0894nobodyさん2007/09/02(日) 01:38:33ID:???
>>890
２行目は初期化してるだけ
３行目は

111.222.333.444 という IP をループさせないで素直に書くと
(111 * 256 * 256 * 256) + (222 * 256 * 256) + (333 * 256) + 444
となります
これじゃ見た目がアレなのでループで回す関係上基準値というか初期値を定義してるのが３行目です
0895nobodyさん2007/09/02(日) 01:40:06ID:???
>>893
じゃぁ初心者じゃないあなたが書いてみてください
参考にしたいです m(_ _)m

>>890
ここまで書いておいてアレですが IP アドレスが指定する範囲に収まってるかどうかチェックするような
perl モジュールがあったはずです
0896nobodyさん2007/09/02(日) 01:44:27ID:???
>>895
unpack("N", pack("C4", split(/\./, $ip)))
0897nobodyさん2007/09/02(日) 01:54:25ID:???
>>891
既存のハッシュ関数を元に自分で作りなさい。
MD5とかSHA1も中身は乱数表でクルクルさせてるだけだから。
08988862007/09/02(日) 01:54:57ID:???
>>894
良くわかりました。ありがとうございます。


>>895
NetAddr::IP
こんなのありました。
0899nobodyさん2007/09/02(日) 02:10:43ID:???
やっぱり unpack か
それは知ってたけど、０から書いて１０進にする過程を勉強したかったからそういったコードを期待したのだが・・・
0900nobodyさん2007/09/02(日) 02:18:02ID:???
つ Net::CIDR::MobileJP
0901nobodyさん2007/09/02(日) 07:26:04ID:???
>>899
>>899
>>899
0902nobodyさん2007/09/02(日) 13:00:20ID:???
負け惜しみにしか聞こえなくて笑える
ここは初心者が初心者に答えるスレですね
0903nobodyさん2007/09/02(日) 15:05:41ID:???
これが負け犬の遠吠えってやつか
0904nobodyさん2007/09/02(日) 18:56:16ID:???
Perl ってなんでこんなに複雑なんだ？
PHPやRuby Java はすんなり理解できるのに Perl は納得いかないことばかりだ・・・
0905nobodyさん2007/09/02(日) 19:05:01ID:???
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

まずどういう部分が納得いかないでわからないでいるのかを書かないと教えてもらえないよ
0906nobodyさん2007/09/02(日) 19:35:56ID:???
>905
んー、>904に特に意図は無いんじゃねーのかな。
質問スレに書くべきことかどうかはともかく。

良し悪しは別として、Perlは怠慢・短気・傲慢の方向に進化した言語だから、
他言語から入って来たような人だと違和感があってもおかしくないっしょ。
0907nobodyさん2007/09/02(日) 19:39:57ID:???
>>904
>Perl ってなんでこんなに複雑なんだ？

これじゃなきゃ、CPANにあるような膨大なモジュールを作り出せないよ
0908nobodyさん2007/09/02(日) 20:30:52ID:???
perl++, cpan++
0909nobodyさん2007/09/02(日) 21:26:57ID:???
Perlのようなもの
0910nobodyさん2007/09/03(月) 16:56:41ID:EmlGMulI
関数呼び出ししたあとに$_がクリアされてしまうのですが
リファレンスも渡さずに呼び出し先が$_を変更する事はできますか？
0911nobodyさん2007/09/03(月) 17:11:15ID:???
>>910
やってみたら判るだろ？
perl -le '$_= 1 ;sub { $_=2}->(); print $_ '
0912nobodyさん2007/09/03(月) 17:20:12ID:???
>>911
ありがとうございます。
myっぽく確保されるものだと
勝手に思い込んでました。
0913nobodyさん2007/09/03(月) 17:29:35ID:???
そのために local つーものがある
perl -le '$_= 1 ;sub { local $_=2}->(); print $_ '
0914nobodyさん2007/09/04(火) 00:51:54ID:???
テストは、use strict; use warnings; した環境でやれよ馬鹿。
0915nobodyさん2007/09/04(火) 01:58:39ID:???
>>914
use strict;
use warnings;
でも捕まえられないと思うがどうか。
0916nobodyさん2007/09/04(火) 03:51:54ID:???
>>915
つけないよりマシじゃなかと思うがどうか。
0917nobodyさん2007/09/04(火) 06:15:03ID:???
Q:「こんどのデート、どこ行こう？」
A:「映画館でいいんじゃね？」
914:「コンドームも持たずに何やってんだボケ！！」

、、、くらいに>>914はズレてんなあ。QもAもコンドーム持ってっか
どうか会話内容からは分からんのに。それどころかmy知ってるし、
使ってる可能性の方が高いのに。
0918nobodyさん2007/09/04(火) 07:00:37ID:???
コンドームがどうかしたの？
レス数が900を超えています。1000を超えると表示できなくなるよ。