perl字符串后两位?

作者: wu_lin_326   发布时间: 2010-11-11

#!/usr/bin/env perl
my $ww='sdfdgfdgdf';
my $str = substr($ww, -2);
print $str;

作者: Myth_cn   发布时间: 2010-11-11

$ww = 'sdfdgfdgdf';
$s1 = $1 if ($ww =~ /(..)$/);
$s2 = substr($ww, -2);
print "s1\ts2\n";

作者: feilniu   发布时间: 2010-11-11