perl 为什么模式匹配失灵perl 程序 my $time_h='2010-09-30 00:00:00';if($time_he=~/(\d+)\-(\d+)\-(\d+)\s+(\d+)\:\d+\:\d+/){print "OK!\n";my $y=$1;my $m=$2;my $d=$3;my $h=$4;my $time=preDateStr($y,$m,$d,$h,0,0);print "$time\n";}OK可以打印
来源：学生作业帮助网 编辑：作业帮 时间：2024/10/19 05:29:25
xTKO@+.8 ^zW
64
U < U
/(I]$H"ڒןY4=Vf 3;oq8> &IamfqWXk: \o`ج$'bWjw@+ʳ")CS{ZQu3 Xf: _xbj:)u<
AfU71UMD|3ʃv"j<}1L&zY"Lj !$Qj冮(TeeV O$|VgXA _yx'wx'wz?zP9.;A~ĸ
M܃'rA"J5+U例i w8ۦ,"b}[`Y(tajh:{G9ftmU6N`]"?mvnWpZR'pQD'>!klЬiw>%aK- 6V`sT' R[vmɮn!Ďe!V4ˡj`nʮ,Svn8 gECeqя>u^z,K1
v lH 5