2011-01-30から1日間の記事一覧
始めてのPerlより。たまーに使うことがありそうなので、忘れないようにメモがわり。 コード use Data::Dumper; my $text = "Barney Rubble Fred Flintstone Wilma Filntstone"; my ( $first, $second, $third ) = ( $text =~ /(\b\w+\b) \s \b\w+\b \s?/gx )…
始めてのPerlより。たまーに使うことがありそうなので、忘れないようにメモがわり。 コード use Data::Dumper; my $text = "Barney Rubble Fred Flintstone Wilma Filntstone"; my ( $first, $second, $third ) = ( $text =~ /(\b\w+\b) \s \b\w+\b \s?/gx )…