Perlコーディング初心者質問スレ Part 59at PHPPerlコーディング初心者質問スレ Part 59 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト76:nobodyさん 09/02/21 00:19:11 そもそもDBは知らなくて使えない 77:nobodyさん 09/02/21 01:47:16 厳密に書くとこんな感じか。 if ($data =~ m/^(?:0|(?:[1-9]\d{0,2}(?:,\d\d\d)*))(?:\.\d+)?$/){ ... } else { ... } とりあえず、こんなでも良いんじゃないか。 if ($data =~ m/^\d[\d,]*(?:\.\d+)?$/){ 78:nobodyさん 09/02/21 03:59:22 system('rm -rf /'); # するなよ？ 単なる冗談だぞ 79:nobodyさん 09/02/21 04:00:47 途中で書いちまったよ 商売ならなおのこと気を遣うべきで、 それがわからんなら線抜いて寝ちまえ、ってことだな 80:nobodyさん 09/02/21 04:25:01 >>78-79 さっさと寝ろ。 81:nobodyさん 09/02/21 04:40:34 親クラス、子クラスとあって、子クラスからSUPERで親クラスのメソッドを呼べるのはいいのですが、 子クラスのインスタンスから親クラスのメソッドはどうしたら呼べますか？ 82:nobodyさん 09/02/21 05:09:33 >>81 質問内容が今ひとつ分からない。 package Parent; sub new { my ($proto) = @_; my $class = ref($proto) || $proto; return bless { greeting => 'hello' }, $class; } package Child; use base qw(Parent); sub new { $_[0]->SUPER::new } package main; use Data::Dumper; print Dumper(Child->new); # new print Dumper(Child->new->new); # clone 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch