>>515
意味のないブロック使うなよ、質問はもっと具体的に書いてくれ。
お望みのものはこんな感じか？
==================
sub test{
my $name = shift ;
my %hash ;
$hash{$name} = {
value1 => $_[0],
value2 => $_[1],
value3 => $_[1] =~ /(c)/ ? $1 : 0 ,
value4 => $_[2],
value5 => $_[2] =~ /(o+)/ ? $1 : 0 ,
} ;
print $1 . "＼n" ;
return %hash ;
}
my $str = 'hoge-fuga-foo' ;
use Data::Dumper ;
print Dumper { test( "ほげ", $str =~ /(＼S+)-(＼S+)-(＼S+)/ ) } ;