Perl コーディング初心者質問コーナー Part36
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/07/14 13:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0666nobodyさん
04/08/13 17:47ID:???お前はまずオブジェクトを何に見立てるかができてないんだろ？
例えばメインパッケージを注文を電話で聞くお姉さん。
モジュールの方を、お姉さんが使うパソコン。
とかな。まあお姉さんが注文が来るたびにパソコンを買う（new）なんてのはおかしな話だがなｗ
0667nobodyさん
04/08/13 18:17ID:???$hoge="hoge=1&data=a-a-a&test=23456";
この$valueの中からdata=a-a-aだけを取り出したいです。
data=a-a-aのある位置は毎回違うのでsubstrではできません。
data=に続く文字列も毎回違います。
splitとforeachを使って%formなどを作るのは禁止で、実現したいです。
$hoge =~ s/(data=.*?)&//;
$value = $1;
で一応data=...の後に&がある時は取り出しに成功できますが、
$hoge="hoge=1&data=a-a-a";
などの場合もあるのです。それと
$hoge="hoge=1&data=a-a-a&test=23456&tete=ussgf";
みたいな場合もあります。
どうにかどんなときでもdata=文字列だけを一発で取り出せないでしょうか？
0668nobodyさん
04/08/13 18:20ID:???if ($hoge =~ /data=.*&/){
$hoge =~ s/(data=.*?)&//;
$value = $1;
}else{
$hoge =~ s/(data=.*)//;
$value = $1;
}
ちと長いな。
0669nobodyさん
04/08/13 18:31ID:???0670nobodyさん
04/08/13 18:32ID:???0671667
04/08/13 18:42ID:???ありがとうございます
/(data=.*?)&?$/
これ不思議なコードですね；どうしてこれでうまくいくのかな。
$は&?にかかってるけど、&がないときは(data=.*?)にかかるって言う便利なコードですか？
・・・すごいですね>>669さんは。本当にすごいです。
0673667
04/08/13 18:48ID:???($value) = $hoge =~ s/(data=.*?)&?$//;
としたいんですが、置換にすると置換数？真偽？が帰ってくるので
$hoge =~ s/(data=.*?)&?$//;
$value = $1;
とするしかありませんか？一行でバチッとできるとカッコイイんですが。
ものすごく>>669さんからの返事が楽しみです＾＾（頼り切ってすみません；）
0675nobodyさん
04/08/13 19:02ID:???for my $hoge (qw(
hoge=1&data=a-a-a&test=23456
hoge=2&data=a-a-a
data=a-a-a&test=12345
)) {
my($value) = $hoge =~ /(?:^|&)(data=[^&]*)(?:&|$)/;
print "$value\n";
}
0677669※
04/08/13 19:03ID:???そして、ハシュを拒否する事由は？
my $hoge="hoge=1&data=a-a-a&test=23456&tete=ussgf";
my %hash = map +(split /=/), split /&/, $hoge;
printf qq|%s = %s\n|, $_, $hash{$_} foreach keys %hash;
env.:
$ perl5.8.5 -v
This is perl, v5.8.5 built for i686-linux
0680667
04/08/13 19:16ID:???/(?:^|&)(data=[^&]*)(?:&|$)/;
これは>>669さんのやつの変形ですか？でも>>669さんのコードで試したらちゃんと表示されましたよ？
テストが足りないんですかね？もう一度やってみます。
>>677
フォームで送られてくるデータを一度変数に入れて、その後
dataの部分だけをAルーチンに渡して、
それ以外をBルーチンに渡したかったのです。（ルーチンは外部ファイルに作ってあるます）
今はAルーチンとBルーチンの方で、ハッシュにする流れです。先にこちらでハッシュにしてわたしてもいいのですが、
こういうのもできたらカッコイイなと思って質問いたしました。
0682667
04/08/13 19:23ID:???hoge=1&data=a-a-a&test=23456
hoge=2&data=a-a-a
data=a-a-a&test=12345
)) {
($value) = $hoge =~ /(data=.*?)&?$/;
print "$value<br>";
}
>data=a-a-a&test=23456
>data=a-a-a
>data=a-a-a&test=12345
>>676
さっきはうまくいったと思いましたが、↑のソースでやってみたらうまくいきませんでした；
ちゃんとテストしたつもりが勘違いでした；
>>皆様
もの凄く勉強になりました！本当にありがとうございました！それでは失礼します。
0684nobodyさん
04/08/13 19:37ID:???オブジェクト指向で書く場合は俺はサニタイジングモードを作ってるよ。
sub new {
my $self = shift;
my $buffer = shift;
my %harmless_mode = (
normal => 1,
html => 0,
sql => 0,
csv => 0,
);
みたいなね。（1=on,0=of）
んで状態移行のメソッドを作っておけば一応問題ないかな。まあ俺は小規模プログラムしかやったことないから
大丈夫なだけかもねｗ
0685nobodyさん
04/08/13 20:13ID:???確かに >>667 のは \b で充分だね。分かって言ってるんだろうけど一応。
for my $hoge (
"hoge=1&data=a-a-a&test=23456",
"hoge=2&a-data=a-a-a&test=12345",
"data=a-a-a\n",
) {
my($value1) = $hoge =~ /\b(data=[^&]*)/;
my($value2) = $hoge =~ /(?:^|&)(data=[^&]*?)(?:&|$)/;
print "1[$value1] 2[$value2]\n";
}
0688nobodyさん
04/08/13 20:55ID:???sub new{
my $this = shift;
my $propety = {
color => shift,
weight => shift,
};
bless $propety,$this;
}
ていうコンストラクタだったとして、あとから他のメソッドで
sub change{
my $this = shift;
$this->{color} = "red";
$this->{changed} = "1";
}
みたいにコンストラクタではなかったchangedっていうプロパティをいきなり作っちゃっていいんですか？
それとも、コンストラクタを
$propety = {
color => shift,
weight => shift,
changed => 0,
};
みたいにするべきでしょうか？そうしてしまうと新しいプロパティがほしくなった時に
わざわざコンストラクタをいじらなければいけなくて、不便かなと思うんですが・・・
0689683
04/08/13 21:00ID:???ウソ！？って思って試してみた。
for my $hoge (qw(
hoge=1&data=a-a-a&test=23456
hoge=2&data=a-a-a
data=a-a-a&test=12345
)) {
$str = ($hoge =~ s/\b(data=[^&]*)//, $1);
print "$str\n";
}
PCに入ってるPerlでも動かなかったｗ
0690nobodyさん
04/08/13 21:25ID:???そのコードの$hogeはReadOnlyな文字列への別名だから、
置換できるわけなかろう。
$hogeをループ先頭でmy $hoge=$_;とすりゃ動いたぞ。（Perl5.8）
#つか、foreachであるべきところをケチってforにすんな、紛らわしい。
ちなみに>>685の問題も回避したい場合、
置換では>>675でもうまくいかんので、
$str = ($hoge =~ s/(?:^|(?<=&))(data=[^&]*)//, $1);
とするといい。
#後ろの(?:&|$)はいらんべ？
0691nobodyさん
04/08/13 21:57ID:???作法として行儀がいいかどうかは別として、blessされてる以外は
ただのハッシュだからキーの追加だろうが削除だろうが自由にでき
ます。
use fields使ってりゃ別だけどな〜
0692688
04/08/13 22:39ID:vpkCloyFできるのは知ってるのですが、どうするのが一番「十分に拡張的なプログラム」なのかで悩んでます。
0693nobodyさん
04/08/13 23:27ID:???一番かどうかはともかく一つのやり方として。
コンストラクタでは何もせず、プロパティは全てアクセサ経由で触り、
初期値はアクセサで設定する。
#--- Foo.pm ---
package Foo;
sub new {
my $class = shift;
bless { @_ }, $class;
}
sub color {
my $self = shift;
@_ or return $self->{'-color'} ||= 'red';
$self->{'-color'} = shift;
$self;
}
1;
#--- script ---
use Foo;
my @obj = (Foo->new, Foo->new(-color => 'green'), Foo->new);
$obj[2]->color('blue');
print $_->color, "\n" for @obj;
0694nobodyさん
04/08/13 23:34ID:Dbtrqa9I喧嘩を売っています
0695nobodyさん
04/08/14 03:15ID:HZTk9WgD普通にファイルオープンの open(AAA,"<BBB.txt") のように開いて
データを取得することが出切るのでしょうか？
検索で、解説ページなどを探したのですが良いサイトが見つかりません。
（探し方が悪いだけかもしれませんが・・・・）
どこか良いサイトなどがありましたら、教えてください。
0696nobodyさん
04/08/14 03:19ID:???0697688
04/08/14 10:22ID:???例まで書いていただいてありがとうございます。
買う時には必要でなかったプロパティが、買ってから途中でほしくなった場合のために
プロパティを後から追加できるオブジェクトメソッドを作っておいたらオブジェクト指向の利点がどこかで
失われてしまいますか？
sub additional_propety {
my $class = shift;
$class->{shift} = shift;
}
第2、第3引数に新規に追加するプロパティとその値を期待します。
0698nobodyさん
04/08/14 10:39ID:???そもそもコンストラクタ（new）を「買う」ことだと思ってる時点で、間違ってるな。
まあよくある解説だけどｗ
人に置き換えて考えてみ？例えば友達に「ジュース買ってきて」って頼むだろ。
そんでその友達がジュースをｋって来るのは友達にはそういう振る舞いができるってこと
で、お前はその友達のインターフェースさえ知っていれば何度でもジュースを買ってきてもらえるんだ（買ってこない友達の状態もあるけどな）。
んでこんな時に new=買う ではおかしいだろ？だから new=自分と同一世界にいると認識する
なわけよ。だから認識さえすれば、人の家のテレビだって使えるわけだ。これが自然。
0699nobodyさん
04/08/14 11:03ID:???0702nobodyさん
04/08/14 15:31ID:???$sub
$exit{for}
ここらへんがPerlのいいところですか？（Perlとmysqlしか知らないのでよくわかりませんが、すくなくともSQLでは予約語はdb_name,tbl_name,columns_nameには使えなかった気がしたので）
0703nobodyさん
04/08/14 15:35ID:???0704nobodyさん
04/08/14 15:52ID:???a => 1,
b => 2,
c => 3,
};
このハッシュのキーと値を「=」でjoinして、さらにそれを「&」でjoinしたいんです。
my @a;
foreach (keys %$test)
{ @a = $_."=".$test->{$_} }
$ok = join '*',@a;
undef @a;
わざわざ@aに一度入れるのが、冗長な気がするんですがいれない方法はありますでしょうか？
0706704
04/08/14 16:03ID:???$a = join "&",map{$_."=".$test->{$_}} keys %$test;
0707nobodyさん
04/08/14 16:24ID:???と
$a == undefined && $a =1;
と
if($a == undefined){ $a == 1 }
これってどれが一般的に可読性がよいのですか？僕は結構真ん中の書き方がすきなのですが
みんなでプログラムを組む時などにはどれを使うと喜ばれますか？
0708nobodyさん
04/08/14 16:27ID:???0711nobodyさん
04/08/14 16:55ID:???0712695
04/08/14 17:13ID:HZTk9WgD見つかりはするんですが、内容が難しかったり、関係無いものだったり・・・
わかりやすいページを見つけるにはどういった単語で検索すれば良いのでしょう？
0713nobodyさん
04/08/14 17:20ID:???undefinedじゃなくてundefだろ。
そういうミスを use strict が警告してくれるんだよ。
ちなみに普通はundefは使わず、それぞれ
$a = 1 if ! defined $a;
defined $a or $a = 1;
if (! defined $a) { $a = 1 }
のようにdefinedを使って書く。
また、if ! の代わりにunlessを使って
$a = 1 unless defined $a;
unless (defined $a) { $a = 1 }
のようにも書けるが、一般的にunlessやuntilなどの否定条件文は理解の
妨げになることが多いので使われない。
if ! より字数が多いのもネック。
で、or（または||）やand（または&&）を利用した「式１ or 式２」のような
記述は、副作用を持つ式１の結果如何で式２を評価するというものなので、
副作用のないただの条件式を式１に使うことはない。
#openがよい例
やるなら後付けif文か通常のif文かだが、今は$a=1しかすることが
なくても、後々他の処理も追加する可能性が少しでもあるなら
通常のif文を使うべき。
長文スマソ
0715nobodyさん
04/08/14 17:27ID:???>見つかりはするんですが、内容が難しかったり、
難しいんじゃなくてそれが普通なんだよ。
藻前には無理ってことだからあきらめろ。
0716nobodyさん
04/08/14 17:45ID:???undefined間違えてすみません。
でも聞く限りではuse strictはやっぱり無駄なモジュールなんですね。
一応文法チェックかけるんでそれで十分だと思います。というか何故に毎回そんなモジュールを読み込む必要が
あるのか？です。なんかアフォぽです。
0719nobodyさん
04/08/14 17:55ID:???はstrict.pmとかvars.pmとか色々読み込むので確かに遅くはなりますが、
$a == undefinedとか書いちゃうようなバカにはちょっと遅いくらいが
ちょうどいいと思いますよ。ほんと。
0721nobodyさん
04/08/14 18:07ID:???use strict; に厳しい添削をしてもらって完成したコードが
エラーや警告出なくなったらお引取り願えばいいことも
わからないバカは（ｒｙ
0724711
04/08/14 18:15ID:???@a = qw/1 2 3 4/;
$a = "absnd";
%a = (a => 1);
(%a , $a , @a) = undef;
print "$a\n",%a,"\n@a";
これだけできました。でも一応
(%a , $a , @a) = (undef) x 3;
とかしたほうがいいですか？
0725nobodyさん
04/08/14 18:17ID:???0729nobodyさん
04/08/14 18:36ID:???0730nobodyさん
04/08/14 18:44ID:???0734nobodyさん
04/08/14 19:25ID:???0735nobodyさん
04/08/14 19:33ID:???0736724
04/08/14 19:33ID:???それでもできるんですね。
>>733
代入できても、やってはいけないことなのでしょうか？
(%a , $a , @a) = (undef x 3);
これが一番ですか？
0737nobodyさん
04/08/14 20:37ID:???コンマ演算子の優先順位が代入演算子より低いから括弧で括る必要が
あるのであって、代入する要素が一つの場合はわざわざリストにする
必要はない。つまり @a = 'a'; は @a = ('a'); と等価。
>>736
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldata.html#List_value_constructors
(%a, $a, @a) = undef; は %a = (undef), ($a, @a) = (); と等価。
(%a, $a, @a) = (undef x 3); は構文エラー。
(%a, $a, @a) = (undef() x 3); は %a = (undef), ($a, @a) = (); と等価。
(%a, $a, @a) = ((undef) x 3); は %a = (undef, undef, undef), ($a, @a) = (); と等価。
0738nobodyさん
04/08/14 20:43ID:???もまえは何がやりたいんだ？
(%a , $a , @a) = (undef x 3);
には少なくとも2つの大きな間違いが存在している。
まず、第1にundef x 3は文法エラーとなる。内容は実際に実行してから読め。
そして第2に、
(%a , $a , @a) = (1 => 2, 3, 4);
がどうなるのか考えろ。
0739nobodyさん
04/08/14 20:46ID:???use strictの有用性を説明されても聞かないくせに、
自分の質問にだけは答えてもらおうとする。
さ す が 夏 休 み
0741nobodyさん
04/08/14 21:41ID:???まったく動かない事くらい察してやれよ。
0742nobodyさん
04/08/14 21:49ID:EgOE5Yt9最初は釣りかと思ったが真性包茎みたいだねｗ
0743nobodyさん
04/08/14 21:58ID:???簡易デバッガみたいな使い方だろ、use strictって
0744nobodyさん
04/08/14 22:01ID:???っていうか、人間の感覚じゃまずわからんだろ。
strictは結構効率良いみたいだ。
Benchmark測ればわかる。
そんなことより、速度が遅いとか、無駄とかアフォとか言う前に、基本を勉強するべ
きで、しかもuse strict;の必要性についても、もっと勉強したりここの上級者の言
うことを信用したりしろっての。
0745黒死犬 ◆EgxBlf8nvc
04/08/14 22:38ID:???従わなかったところで、挙動が変わるわけでは無いし
http://perldoc.jp/docs/perl/5.8.1/strict.pod
0746nobodyさん
04/08/14 22:55ID:???0747nobodyさん
04/08/14 23:00ID:???完結してるんじゃないの？
まあuse strictと書きたくないなら
$^H |= 2|0x200|0x400;
とでも書きなさいっと。
0748nobodyさん
04/08/14 23:01ID:???0750黒死犬 ◆EgxBlf8nvc
04/08/14 23:11ID:???ああ、my変数の typo を教えてくれるという重要な機能がありましたね・・・
sub unko {
my $unko = shift;
$$unchi = $$**$$; # $$unko (ry のつもり
}
0751nobodyさん
04/08/15 00:17ID:ThpZR4YaC-BOARDで、投稿画面に追加したセレクトボックスの
投稿データチェック（未選択不可）を行いたいのですが、
どうすればいいのですか？
下記のところに、新しく追加したら大丈夫だと思うのですが..
チェックの仕方がわかりません。
#── メールアドレスをチェック
length($::FORM{'email'})
&& ($::FORM{'email'} !~ /^[!-?A-~]+@[!-?A-~]+\.[!-?A-~]+$/)
&& push(@error, 'メールアドレスが不正です。');
#── パスワードをチェック
($::FORM{'key'} =~ /[<>&"]/)
&& &::error(\('パスワードに「<, >, &, "」は'
. '使えません。'));
0752nobodyさん
04/08/15 00:33ID:???めんどいから use strict つけたままだけど
俺んとこは mod_perl だから実行時の速度は変わんないし
しかし珍しく本当に「コーディング」の話題だなあ
0753nobodyさん
04/08/15 00:49ID:???■ 自分で改造するアドバイスが欲しい場合には
★三 【 スクリプト改造工房 PART 8 】 ★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/79（テンプレ）
0754nobodyさん
04/08/15 00:57ID:3zveFoKh読み出した文字列が文字化けしたままなのです。
&jcode'convertで文字コードが変換出来ていないようなのですが・・・
どこが原因なのか、良くわからないのです。
お手数ですが、教えてくださいまし。
require "jcode.pl";
open(FI,"aaa.csv") || return 0;
while(<FI>){
$_ = nkf("-ed",$_);
chomp();
split(",");
if($_[0] eq $bbb){
$ccc = $_[1];
&jcode'convert(*ccc, "sjis");
}
}
close(FI)
0756754
04/08/15 06:40ID:3zveFoKh0757724
04/08/15 11:33ID:???とりあえず一回で10個くらいの変数（スカラ、アレイ、ハッシュ入り乱れてます）をundefして
メモリを開放したいんです。
($a,@a,%a) = ();
これで完全に未定義の時と同じメモリ状況になるんですか？一応消えるのは確認しましたが。
0758nobodyさん
04/08/15 12:03ID:???ならんて。
$aは未定義になるがメモリとは関係なし。
@aと%aは要素がない状態になるだけで、それまでに確保したメモリはそのまま。
ちなみにPerlは最初にある程度のメモリを確保して変数領域に使ってるので
undef @aするとその分の変数領域は解放されるが、システムリソースとしては
喰われたままでPerlが終了するまで解放されない。
過去ログ嫁
0759724
04/08/15 13:05ID:???>$aは未定義になるがメモリとは関係なし。
>@aと%aは要素がない状態になるだけで、それまでに確保したメモリはそのまま。
>ちなみにPerlは最初にある程度のメモリを確保して変数領域に使ってるので
Perlではundefしてもメモリの開放はできないから、メモリ開放を期待して
ちょこちょこundefする必要はないってことですね。
0760nobodyさん
04/08/15 14:37ID:???0761ぢおぢお
04/08/15 15:24ID:EbxomzZwファイルがあったらというのはどうやってすればいいんですか？
0762nobodyさん
04/08/15 15:28ID:???ファイル検査演算子を使う。
0763nobodyさん
04/08/15 15:31ID:???0764ぢおぢお
04/08/15 15:33ID:EbxomzZw0765nobodyさん
04/08/15 15:36ID:???何をやってダメだったか書いてみ。
winだからって全てのファイル検査演算子が使えないわけじゃない。
tu-ka,環境依存の話なら先にそれを言え。
■ このスレッドは過去ログ倉庫に格納されています