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

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2010/06/05(土) 21:11:10ID:???
Perlのコーディングで困ってる人のスレです。

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

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

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

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1251989472/
0002nobodyさん2010/06/05(土) 21:11:34ID:???
[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: ttp://www.site-cooler.com/kwl/perl/

[本]
リャマ: ttp://www.oreilly.co.jp/books/4873111269/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://ascii.asciimw.jp/books/books/detail/4-7561-3057-7.shtml
クックブック: ttp://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/4873113008/
Perl Hacks: ttp://www.oreilly.co.jp/books/9784873113142/

[オンラインマニュアル]
最新のドキュメント: ttp://perldoc.perl.org/
perl5.8.xのドキュメント(一部): ttp://www.kt.rim.or.jp/~kbk/perl-5.8/
perldoc きまぐれ訳: ttp://fleur.hio.jp/perldoc/
perldoc.jp: ttp://www.perldoc.jp/

[モジュール]
CPAN: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perlの小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html
0003nobodyさん2010/06/05(土) 22:24:44ID:???
>>1乙
と、前スレ993
>&send_item2() の第１引数で $m を渡してるのに、第３引数で $m の中身の一部分を送ること自体が無駄。
$m と、 %m は別物だ。
第三引数 $m{wea} とかは明かに、ハッシュの値だ。$m と混同すんな。
0004nobodyさん2010/06/05(土) 22:44:10ID:BPQlnKOc
レファレンスがわからなくて疲れてるｵｲﾗにどなたか応援の一声をﾉﾀﾑ。（；´Д｀）
0005nobodyさん2010/06/05(土) 22:53:46ID:???
つ[ユンケル]
0006nobodyさん2010/06/05(土) 23:37:59ID:WMYKbA0D
>>4
わからないのは何がわからないの？
0007nobodyさん2010/06/05(土) 23:43:44ID:???
リファレンス＝オブジェクトの理解で乗り切った

あとデリファレンスって言葉がこの先頻出してくると思うが、
これがメンバ変数にアクセスする行為そのもの

実際、この先出てくるであろう、オブジェクトでもリファレンスを使って
実装されてる
0008nobodyさん2010/06/05(土) 23:48:40ID:???
（；＞＜）
0009nobodyさん2010/06/06(日) 00:26:23ID:???
リファレンスとか文字で言われると分からないが、説明を読むと多用してることに気が付いた。
でも改めて説明されても分からないｗｗｗ


$cnofig = {
　　'array' => [0, 1, 2, 3, 4, 5],
　　'hash' => {'first' => 0, 'third' => 3},
　　'scalar' => 'monyumonyu',
};

print $config->{'array'}->[1];
1

print $config->{'hash'}->{'third'};
3

print $config->{scalar};
monyumonyu

基本こんな感じでしか使ってない。

初期化してない段階では

$config->{'array'} = [0, 1, 2, 3];

みたいな代入でいいのかな？
わっかんないやｗ
0010nobodyさん2010/06/06(日) 08:13:05ID:???
リファンレス＝ポインタもどきだろ……
0011nobodyさん2010/06/06(日) 10:59:04ID:???
もどきっつかそのものじゃね
0012nobodyさん2010/06/06(日) 11:11:23ID:???
>>11
もどきだろｊｋ
0013nobodyさん2010/06/06(日) 11:37:51ID:???
女子高生だろ常識的に考えて
0014nobodyさん2010/06/06(日) 11:48:13ID:???
ところで前スレからなんですがNet::DNSが使えないと
やっぱりホスト名の逆引きはできませんか
0015nobodyさん2010/06/06(日) 13:40:08ID:???
なかったら入れればいいじゃん
0016前スレ9212010/06/06(日) 16:41:21ID:+nevgJE6
sub hokan {
my $target = shift;

if ($m{is_full_g}) {
$mes = "$max_depot_g個までしか保管することはできません";
return;
}

if ($weas[$m{wea}][1] eq $target) {
$npc_com = "$items[$m{ite}][1]を倉庫にいれました\n";
my $send_id = unpack('H*', $m{guild});
if (-f "$guilddir/$send_id/depot_g.cgi") {
open (OUT,">> $guilddir/$send_id/depot_g.cgi");
print(OUT "1<>$m{ite}<>\n");
close(OUT);
$m{ite} = 0;
}
}
elsif ($arms[$m{arm}][1] eq $target) {
$npc_com = "$items[$m{arm}][1]を倉庫にいれました\n";
my $send_id = unpack('H*', $m{guild});
if (-f "$guilddir/$send_id/depot_g.cgi") {
open (OUT,">> $guilddir/$send_id/depot_g.cgi");
print(OUT "2<>$m{ite}<>\n");
close(OUT);
$m{arm} = 0;
}
}
0017162010/06/06(日) 16:48:18ID:+nevgJE6
elsif ($ites[$m{ite}][1] eq $target) {
$npc_com = "$items[$m{ite}][1]を倉庫にいれました\n";
my $send_id = unpack('H*', $m{guild});
if (-f "$guilddir/$send_id/depot_g.cgi") {
open (OUT,">> $guilddir/$send_id/depot_g.cgi");
print(OUT "3<>$m{ite}<>\n");
close(OUT);
$m{ite} = 0;
}
}

if ($npc_com) {
&get_depot_cg;
return;
}

$mes = qq|どれを倉庫にいれますか？<br />|;
$mes .= qq|<span onclick="text_set('＠ほかん>$weas[$m{wea}][1] ')">$weas[$m{wea}][1]</span> / | if $m{wea};
$mes .= qq|<span onclick="text_set('＠ほかん>$arms[$m{arm}][1] ')">$arms[$m{arm}][1]</span> / | if $m{arm};
$mes .= qq|<span onclick="text_set('＠ほかん>$ites[$m{ite}][1] ')">$ites[$m{ite}][1]</span> / | if $m{ite};
$act_time = 0;
}

&send_item2を無くして自分で分かるように直に書いてみたのですが
結果は変わらずエラーのままでした。
$guilddir/$send_id/depot_g.cgiには書き込まれましたが
$m{ite} = 0;が実行できないみたいです。どうすればいいんだろ・・・orz
0018142010/06/06(日) 18:04:21ID:???
レンタルサーバなんだけどどうにかなるかな
0019nobodyさん2010/06/06(日) 18:33:08ID:???
local::lib使えば入る
0020nobodyさん2010/06/06(日) 18:42:10ID:???
>>17
@itesと、@itemsどっちかがtypoだ。
これ↓、前のバージョン用に整理した奴。
sub hokan {
my $target = shift;
if ($m{is_full_g}) { $mes = "$max_depot_g個までしか保管することはできません"; return; }
# 構造が同じ二次元配列を、別名で三つ作る必要あんの？
# $items[$m{ite}][1]とどっちが正しいの？
my @keys = qw( wea arm ite );
my %hash = ( wea => $weas[$m{wea}][1], arm => $arms[$m{arm}][1], ite => $ites[$m{ite}][1], ) ;
# if ~ elsif は、やることが同じなら
# for( next if 条件 ; 処理 ; last ) に纏められる
# typo も減らせるからそちらお勧め
for my $i ( 0 .. $#keys ){
next if $hash{$keys[$i]} ne $target ;
$npc_com = "$hash{$keys[$i]}を倉庫にいれました\n";
# $m{$keys[$i]}はsend_item2内で使ってないよ？渡すの？それでも
&send_item2($m, $i + 1, $m{$keys[$i]});
$m{$keys[$i]} = 0;
last ;
}
if ($npc_com) { &get_depot_cg; return; }
$mes = qq|どれを倉庫にいれますか？<br />|;
for my $key ( @keys ){
next if ! $m{$key} ;
$mes .= qq|<span onclick="text_set('＠ほかん>$hash{$key} ')">$hash{$key}</span> / | ;
}
$act_time = 0;
}
0021nobodyさん2010/06/06(日) 20:19:37ID:???
エラー内容もさらしてごらん
さすがにソースだけでは辛い
0022nobodyさん2010/06/06(日) 20:28:17ID:???
前スレ含め、これ以上汚されるの勘弁。
（今回の明かに）typoが原因のエラーとか、そんなん自分で解決すべきだ。
0023nobodyさん2010/06/06(日) 20:31:29ID:???
こんな短い部分さらすだけで、スパゲッティーソースなことが分かるなぁ・・・
0024nobodyさん2010/06/06(日) 20:58:46ID:???
スパゲッティでも芸術的なぐらい短ければ神コードに昇華するのにね
0025nobodyさん2010/06/06(日) 21:05:19ID:???
それはスパゲッティとは言わん。
0026nobodyさん2010/06/06(日) 21:09:11ID:???
じゃあ可読性が著しく低いコードと言い換えようか
0027nobodyさん2010/06/06(日) 22:58:20ID:???
それゴルフ
0028nobodyさん2010/06/06(日) 23:18:35ID:???
>>22
つか、お前なんでこのスレ見にきてんの？
0029nobodyさん2010/06/07(月) 06:28:10ID:???
定数を定義することはできます？

constとかdefineみたいな。
0030nobodyさん2010/06/07(月) 06:50:44ID:???
>>28
勉強と回答しにだが？

普通は「エラーコードを晒せ」ってのに賛成だが、
これ以上、この人の質問が増えて何かメリットあるか？
リライトしてる様なもんだぞ？
ちなみに前スレ985、このスレ>>3、>>20は俺だ。
大嘘（perl的に間違った物）答えられるのにも辟易すんだよ、
この手の質問には。

>>29
core module の "CONSTANT"
CPAN module の "Readonly"
を使う。
0031nobodyさん2010/06/07(月) 09:00:06ID:???
サブルーチン呼び出しに&をつける人が今も生き残っているって
すごいな。

&ありとなしは同じじゃないので良い子は真似しないようにね。
0032nobodyさん2010/06/07(月) 09:12:11ID:7ToGpYbm
>>6
『概念』かな。
どうしてこういう概念が必要なの？Perl独特みたいだけど。
リファレンスに代入せずとも今まで通り、変数に代入するんじゃダメなの？
0033nobodyさん2010/06/07(月) 09:12:52ID:???
>>16
weaを扱ってるはずなのにiteを操作してたり、コードが混乱してるように見える。
まず、このサブルーチンで何をやりたいのか文章にしてくれ。

> 1： 自分はこういう事がしたい。
0034nobodyさん2010/06/07(月) 09:31:22ID:???
へ〜、＆呼び出しには弊害があったんだね
0035nobodyさん2010/06/07(月) 10:17:21ID:???
へぇ？　サブルーチンはsub 名前{ 処理 }で作って、
&名前; で呼ぶものだと思ってたけど、今は違うのですか？
ネットで拾ってきたプログラムをちょこっと改造するぐらいのことしかしてないんですが
KENT Webとかに代表される一般に出回っているものって、殆んど古いものばっかりなんですかね。
使っている鯖の仕様みたらperl5.8.9なので、そんなに古いほうじゃないみたいですが。
0036nobodyさん2010/06/07(月) 10:19:23ID:???
動けば何でも良いよ
perlなんて道具に過ぎないんだからさ
0037nobodyさん2010/06/07(月) 10:33:31ID:???
あと、jcode.plが古いとか前スレにあったけど、
今もあちこちの掲示板とかで、使っているcgiはかなり多い。
むしろ最新の書き方のほうが、使えない鯖もあるので少数派。
ここではバカにする人がいるけど、事実だから。
0038nobodyさん2010/06/07(月) 10:46:01ID:???
Basic認証でのログアウトの仕方
http://shorindo.com/tech/tech0002.html

#!/usr/bin/perl
print <<EOF;
HTTP/1.0 401 Unauthorized
WWW-Authenticate: Basic Realm="valid users only"
Content-Type: text/html

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD><TITLE>401 Authorization Required</TITLE></HEAD>
<BODY>
<H1>Authorization Required</H1>
</BODY>
</HTML>

を試したんだが、
malformed header from script. Bad header=HTTP/1.0 401 Unauthorized
で動かない（Internal Server Errorになる）
これ、使えないスクリプトを堂々と載せてるの？ぐぐるとここへリンク張ってるとこもいくつかあるんだけど。
0039nobodyさん2010/06/07(月) 11:27:42ID:???
そりゃそれじゃあ動きませんてば
ちゃんと最後のEOFまでコピペってくださいねー
0040nobodyさん2010/06/07(月) 11:36:32ID:???
EOFのあとの改行までね
0041nobodyさん2010/06/07(月) 11:45:47ID:???
>>39
いやそれだとそのエラーメッセージにはならないと思うよ。
nphスクリプトになってないんじゃないか? ファイル名間違えたとか?
0042nobodyさん2010/06/07(月) 12:34:10ID:???
すまんEOFがないのはコピペミスだ。実際はちゃんと入ってます。
ファイル名もあってます。
さっぱりわからんが、ApacheのVerによってエラーになったりするのだろうか。2.2.15だけど。
0043nobodyさん2010/06/07(月) 12:45:35ID:???
何故かもっかいやったらできた
わけわからんが解決
0044nobodyさん2010/06/07(月) 14:01:12ID:???
>>9
俺もリファレンスﾜｶﾗﾝ部類なんだけど、それ二次ハッシュとどう違うの？

>>31
ソースくれ。
&の有無関係なくmod_perlだと動かん事しか知らん。
0045nobodyさん2010/06/07(月) 14:14:32ID:???
>>44
&については perlsub 参照。

ttp://perldoc.jp/docs/perl/5.10.0/perlsub.pod の 「サブルーチンは、
明示的な & というプリフィックスを付けて呼び出すことができます。 」
あたりから読んでくれ。

動作の違いは抜きにしてもいまはつけない方が普通だな。
0046nobodyさん2010/06/07(月) 14:38:19ID:e5tZsgVK
>>45
要するに、省略できるようになってるってことかな？
0047nobodyさん2010/06/07(月) 15:04:03ID:???
ちゃんと読めよ...
0048nobodyさん2010/06/07(月) 15:04:19ID:???
配列、スカラ、ハッシュと記号が付いてるし
＆付けててもいいじゃんｗ

とは思うが、配布元が奨めてないなら外しておく方がいいのかねん
0049nobodyさん2010/06/07(月) 15:22:01ID:e5tZsgVK
perlを学ぶ良い書籍ってありますか？
現在、リファレンスとモジュールのところで壁にあたっています。
ネットショップのショッピングカートを作った実績はありますが、これからクレジットカード機能を付加したいと思っていまして、
クレカ代理店への接続をしようと試みています。
0050nobodyさん2010/06/07(月) 15:24:33ID:???
&を付けてサブルーチンを呼ぶコードを書いてると、
鼻で笑われるとか、ロートルとか言われるぐらいのものだろう。
たまに実害が出るかも知れないが、そのときは気合でなんとかすれば問題なし。
自分の生き様を示して行けばいいよ。

私は実害が出たときに面倒だから付けないけどね。
0051nobodyさん2010/06/07(月) 15:27:08ID:???
実害って？
0052nobodyさん2010/06/07(月) 15:34:41ID:???
>>49
リファレンスとモジュールなら「続・初めてのPerl 改訂版」だな。

あと「Perlベストプラクティス」も読んどけ。
0053nobodyさん2010/06/07(月) 15:35:46ID:???
>>49
【Perl,CGI】参考書籍 第四版
http://pc11.2ch.net/test/read.cgi/php/1250989562/

>>51
fooは元々引数を1つ取るサブルーチンだけど、忘れて呼び出すとどうなるか。
use strict;
use warnings;
sub bar{ &foo }
sub foo{ print shift }
bar("Hello, World!");
と
use strict;
use warnings;
sub bar{ foo() }
sub foo{ print shift }
bar("Hello, World!");
を比べるといいよ。
0054nobodyさん2010/06/07(月) 15:48:32ID:6I7S3VUo
>>52
＞続・初めてのPerl　改訂版」
これか。
http://www.amazon.co.jp/gp/reader/4873113059/ref=sib_dp_pt#reader-link
この本は難しいんだよなあ。（；´Д｀）

＞Perlベストプラクティス
これも。
http://www.amazon.co.jp/gp/reader/4873113008/ref=sib_dp_pt#reader-link

これらのシリーズは難しくて・・・（；´Д｀）
0055nobodyさん2010/06/07(月) 16:16:24ID:U/buYqwE
今、ちょっと思い当たることがありました。
リファレンスってひょっとして二次元配列などの縦横座標のあるデータを扱う為の概念ですかね？
こんな感じ。

　 　　　　商品コード | 商品名 | 価格 | 内容
商品A
商品B
商品C

これを座標指定で呼び出す為の概念ですかね？
そうだとしたらかなり理解が進んだ気がします。
今、そこのところ勉強中です。
0056nobodyさん2010/06/07(月) 16:23:10ID:???
リファンレスはポインタもどきだと何度行ったらわかるんだよ
0057nobodyさん2010/06/07(月) 17:44:27ID:???
ここはレガシーな環境を無視するスレですか？
0058nobodyさん2010/06/07(月) 17:45:09ID:???
>>57
サブルーチンを&つけて呼ぶのは普通だよ。だまされないようにね。
0059nobodyさん2010/06/07(月) 18:02:35ID:ne0ODycT
>>56
ここでのポインタに意味がわからない。

>>57
レガシーってどういう意味？
英和辞書に載っていない。
0060nobodyさん2010/06/07(月) 18:12:18ID:???
>>57
質問するときにPerl4以前の環境であることを明言すればいいんじゃないの？
0061nobodyさん2010/06/07(月) 18:15:09ID:???
しかしいまどきperl4使ってる奴なんているのか?
0062nobodyさん2010/06/07(月) 18:22:17ID:yJ6kU2rx
バージョンなんて気にしてる？
私などはバージョンのことなんかまず考えていない。
いつのまにか変わってるみたいな。
バージョンの特徴を生かせないけどさ。
0063nobodyさん2010/06/07(月) 18:32:22ID:yJ6kU2rx
リファレンスの件、うっすらとわかってきました。
つまり、スカラーや配列やハッシュの指定方法では指定できない場合に使うのがその使用法の一つなのかな？と。
0064nobodyさん2010/06/07(月) 18:32:40ID:???
リファレンスをポインタといわれると、めんどくせーもんとしか思えなくなる
オブジェクトと思え
0065nobodyさん2010/06/07(月) 19:14:43ID:???
リファレンスはリファレンス。
オブジェクトでもないしポインタでもない。
このスレにJAVAとかCに精通してる人が質問しに来るとは
思えんし。

自分の中で理解するのは構わんが、勝手に「~の様なもん」とか
「~と思え」ってーのは無しにしないか？
誰もが貴方達のバックグラウンドを持ってる訳では無い。
0066nobodyさん2010/06/07(月) 19:17:10ID:???
だいたい、perlのオブジェクトはblessされたリファレンス
0067nobodyさん2010/06/07(月) 19:27:14ID:ejsF48jq
プログラマーって個人差すごくありそうだね。
もし仮に一ヶ所に集まって会議したらまとまるんだろうか？
0068nobodyさん2010/06/07(月) 19:31:25ID:???
いちいち上げんなよ。
0069nobodyさん2010/06/07(月) 19:49:00ID:???
age-sageとかどうでもよすぎワロタ
0070nobodyさん2010/06/07(月) 20:01:08ID:???
ttp://amazon.jp/dp/4774135046
リファレンスとかオブジェクト指向とか、これがすごく分かりやすかった
0071nobodyさん2010/06/07(月) 21:03:08ID:fBML121+
オブジェクト指向ってどういう意味なんですかね？
まだ悟れないでいます。
0072nobodyさん2010/06/07(月) 21:17:16ID:???
そうやって、耳慣れない単語が出たら全て質問するつもりか？

素直に参考書の一冊でも読め。
お勧めは既に出てる。
0073nobodyさん2010/06/07(月) 21:19:37ID:fBML121+
翔泳社の１０日でおぼえるPerl CGI入門が私の入門書です。
0074162010/06/07(月) 21:35:33ID:Ha23rV7v
ごめんなさい
もうコードが馬鹿な自分でもわかるくらい滅茶苦茶になってるので
もう一回デフォルトのを最初から改造したら解決しましたｍ（＿＿）ｍ
せっかくレスしてくれた人に申し訳ないです

とりあえず
出直してきます。
「は？何て言ってんのコレ？」っていうのが多すぎました。すみません。
0075nobodyさん2010/06/08(火) 18:08:50ID:e74okk0C
リファレンスとはC言語のポインターのようなもんだって話があるけど、
この言い方はC言語を知らないと理解できない言い方だよね。
0076nobodyさん2010/06/08(火) 18:11:03ID:???
Ｃもやれってことじゃないかな
0077nobodyさん2010/06/08(火) 18:20:33ID:e74okk0C
このスレってどの時間帯でも誰かいそうですねｗ
ネット事業者だから常にネットができる環境下にあるからと思うけど、
何人くらいいるのかな？いや、心強いなとおもって。
0078nobodyさん2010/06/08(火) 18:38:27ID:???
変数や配列、ハッシュ、関数への参照を示した文字列と言ってもわけわからんだろ
0079nobodyさん2010/06/08(火) 20:17:58ID:???
前スレからリファレンスなんちゃら言ってる人は
多次元配列もどきのことだけなんとなくわかればいいんでないの？

このへん。
http://perldoc.perl.org/perllol.html
http://perldoc.perl.org/perldsc.html
0080nobodyさん2010/06/10(木) 22:50:37ID:e7/5TejE
perlでメール送信プログラムを作ってます。

Net::SMTPを採用。
どこのサイトもエラーを拾ったりせずに、
$smtp->data();
$smtp->datasend("");
・・
$smtp->dataend();

と、コーディングしていますが。
これって普通はエラーを拾ったりしてやる必要があるんですよね？
メール送信がうまくいかず、各行にor dieを付与してチェックしてみました。

すると$smtp->data()の部分でdieしていました。

・・・が、具体的なエラー内容がわからず。
こういう場合どうしたらいいんでしょうか？

アドバイスをばお願いいたします。
■ このスレッドは過去ログ倉庫に格納されています