正規表現
my $str = 'http://d.hatena.ne.jp/srkzhr/20080417/1208416359';こんな文字列があったとしてスラッシュ区切りで末尾から二つの数字続きの塊を別々にとろうとすると print "$1,$2\n" if $str =~ m{http://.+?/.+?/(\d+?)/(\d+?)}; print "$1,$2\n" if $str =…
my $str = 'http://d.hatena.ne.jp/srkzhr/20080417/1208416359';こんな文字列があったとしてスラッシュ区切りで末尾から二つの数字続きの塊を別々にとろうとすると print "$1,$2\n" if $str =~ m{http://.+?/.+?/(\d+?)/(\d+?)}; print "$1,$2\n" if $str =…