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

**nobodyさん** · 2011/09/09(金) 18:11:49.71

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

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

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

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

お勧めサイトは >>2 以降

前スレ　http://hibari.2ch.net/test/read.cgi/php/1295170172/

**nobodyさん** · 2011/09/09(金) 18:12:10.08

[プログラミング自体の経験が無い奴はまずココを読め]
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/
perldoc きまぐれ訳: ttp://fleur.hio.jp/perldoc/
perldoc.jp: ttp://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/

[Perl5.8Unicodeメモ]
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

**nobodyさん** · 2011/09/09(金) 19:26:14.96

>>1 乙

**nobodyさん** · 2011/09/12(月) 12:01:09.82

[
{
key1 => 123,
key2 => 456,
},
{
key1 => 324,
key2 => 135,
},
{
key1 => 123,
key2 => 135,
},
続く...
]
こんな感じの配列をソートするにはどういう方法が最適でしょうか？
key1で昇順にソートして、key1が同じ場合はkey2で降順にソートします。
key2も同じ場合はどちらが先になってもかまいません。

**nobodyさん** · 2011/09/12(月) 12:40:13.04

sort { $a->{key1} <=> $b->{key1} || $b->{key2} <=> $a->{key2} } @$aref

**nobodyさん** · 2011/09/12(月) 12:51:03.86

ありがとうございます。||こんなのつかえたんですね。

**Perl忍者** · 2011/09/12(月) 18:53:28.33

>>5
こいつは上忍級

**nobodyさん** · 2011/09/12(月) 19:06:55.08

どあほ、perldoc -f sort に書いてある程度の
基礎の基礎じゃねーか。

**nobodyさん** · 2011/09/12(月) 21:12:13.88

全スレでファイルのロックの質問があったけど
読み込んで表示のみ＝ロックの必要はない

読み込んだデータを加工して書き込む場合＝

ファイルロック１
ファイル読み込み
データ加工
ファイル書き込み
ファイルロック１の解除

というようにするが正解だろ

読み込んで表示のみにロックする必要あったら
普通のＨＴＭＬファイルだってロックしなきゃならんだろ

**nobodyさん** · 2011/09/12(月) 21:20:12.75

読み込んでる途中にファイルが書き換えられても困らないんならする必要はないよ

flockとはなんだったのか

**nobodyさん** · 2011/09/12(月) 21:28:34.15

>>9-10
>>1
【総合】 Webprog板質問雑談スレッド 1
http://hibari.2ch.net/test/read.cgi/php/1131016915/

**nobodyさん** · 2011/09/12(月) 21:37:37.12

余りに遅レスって批判は出来るにせよ、質問に答えてるじゃん

**nobodyさん** · 2011/09/15(木) 00:40:46.86

データベースやってれば
書き込みロックと読み込みロックが
あることぐらい知ってるだろ。

**nobodyさん** · 2011/09/15(木) 12:48:03.24

フォームのPOST情報を送ったあとのページを取得し、HTML::TreeBuilderあたりで
情報を取得しようとしています。
下記だと①はヘッダ？の情報が出てきますが、②は何も出てきません。
どこか間違えているのでしょうか？

my $url = 'http://example.com';

my $formdata = ['id' => '***', 'pass' => '***'];
my $request = POST($url, $formdata);
my $ua = LWP::UserAgent->new;
my $res = $ua->request($request);

print $res->as_string; #①
print $res->content; #②

#my $tree = HTML::TreeBuilder->new;
#$tree->parse($res->content);
#$tree->eof();

**nobodyさん** · 2011/09/15(木) 13:12:03.71

as_string()はHTTP::Responseの全文、つまりheader+body
content()はbodyを返す

example.comを見るならば、Content-Length: 0なんで当然content()は空になる

14 · 2011/09/15(木) 13:39:08.06

>>15
example.comは仮で書いただけなんですが、そのことを書いていませんでした。
失礼しました。

コード的には間違っていないようなので、別の要因を探ってみます。
ありがとうございました。

**nobodyさん** · 2011/09/18(日) 03:39:18.09

すいません、質問です

foreach $data (@isbn){
if(length($data) != 13){
$error_message = "length error";
break;
}
if($data =~ /[^0-9]/){
$error_message = "charactor error";
break;
}
}

$dataに入っている数字が13文字以外の時と、0-9の数字以外の時に
#error_messageにエラーを書き込んでforeachループを抜けるようにしたいのですが、なぜか13文字＆数字だけの時にも両ifともtrueになってしまいます。

先に述べている動作をさせたい時の条件の書き方を教えていただけないでしょうか？

**nobodyさん** · 2011/09/18(日) 03:40:47.27

foreach $data (@isbn){
　　　　if(length($data) != 13){
　　　　　　　　$error_message = "length error";
　　　　　　　　break;
　　　　}
　　　　if($data =~ /[^0-9]/){
　　　　　　　　$error_message = "charactor error";
　　　　　　　　break;
　　　　}
}

見づらいだろうので修正

**nobodyさん** · 2011/09/18(日) 04:16:55.44

例えばどんな@isbn？

**nobodyさん** · 2011/09/18(日) 04:18:05.84

ほんとにすいません、フォームから送ったデータに改行コードが入ってたせいでおかしくなってたようです
失礼しました・・・。

**nobodyさん** · 2011/09/18(日) 04:20:28.78

my $error_message;
for my $data (@isbn){
if (length $data != 13){
$error_message = "length error";
last;
}
if ($data !~ /^\d+$/){
$error_message = "charactor error";
last;
}
}

次から >>1 には「use strict; use warnings; を必ず使う事」とでも書いとけ。

**nobodyさん** · 2011/09/18(日) 06:57:46.48

break は last の誤用だと思われるのだが・・・

ってことで break が自作の関数だったりしなくて、ループから抜けることを意図としてるなら
last としませう。

**nobodyさん** · 2011/09/18(日) 07:08:32.40

% perldoc -f break

break Break out of a "given()" block.

This keyword is enabled by the "switch" feature: see feature
for more information. Alternately, include a "use v5.10" or
later to the current scope.

**nobodyさん** · 2011/09/18(日) 08:49:12.63

>>22
Perl以外のほとんどの言語はcontinueやbreakだから
他の言語を先に知っててPerlにあまり馴染みがないと
最初のうちは間違っちゃったりするよね

Perl / C,JavaScript,PHP,Ruby,Python,etc.
next / continue
last / break

**デフォルトの名無しさん** · 2011/09/18(日) 09:43:41.96

単語の意味を考えると、Perl で採用した next, last の
よさがじわじわと分かる。continue, break だとあいまい
な感じがして、(単語からは)何をしてくれるのか想像しに
くい。

**nobodyさん** · 2011/09/18(日) 10:47:25.20

printlnとか書いてて発狂しないのかな、あっちの言語圏は。

**nobodyさん** · 2011/09/18(日) 12:27:04.36

printlnってperlでいえばsayだよな。

**nobodyさん** · 2011/09/18(日) 12:29:59.21

あっちの言語圏は変数名と被ると駄目なんだっけ？

**nobodyさん** · 2011/09/18(日) 12:36:42.87

>>28
関数名は動詞、変数名は名詞にしましょうねｗ

**nobodyさん** · 2011/09/18(日) 12:47:06.08

形容詞は？

**nobodyさん** · 2011/09/18(日) 15:24:44.69

引数

**nobodyさん** · 2011/09/18(日) 18:47:48.04

はじめまして
現在SQLを勉強するためにPERLを使いMYSQLにつなぐ練習をしています

DBIを使用してデータベースへの接続およびテーブルを作成することはできました。
このデータを更新する為にユーザーから　ユーザーIDおよびパスワードデータを新規ユーザー登録フォームなどから受け取るにはどうしたらいいのか、
またデータベースから受け取ったデータから全体のソートをかけたい全表示したい場合　どうしたらいいのかわからず困っています

かってですがURLのところに?userid=foo&password=fooのようにはできるだけ表示しない方向でよろしくお願いします