#!/usr/bin/perl my $targetstr = "My,name;is,Gotou."; print "$targetstr \n"; my @strlist = split(/[,;]/, $targetstr); #, と; の複数の分割文字を指定した print "@strlist \n"; my $datetime="2014-12-25 13:56:21"; print "$datetime \n"; my @string = split /[:-\s\ ]/,$datetime; # print @string; print "\n"; print "@string \n"; print "@string\n"; print "@string[0] @string[1] \n"; foreach(@string) { print "$_\n"; } my ($y,$m,$d,$h,$min,$s) = split /[:-\s\ ]/,$datetime; print "$y $m $d $h $min $s \n"; ~ ------------------------------------- $ perl split.pl My,name;is,Gotou. My name is Gotou. 2014-12-25 13:56:21 20141225135621 2014 12 25 13 56 21 2014 12 25 13 56 21 2014 12 2014 12 25 13 56 21 2014 12 25 13 56 21