Perl length($var) 获得字符串长度

例：

my $var='\\';  # 此处' '与 ""括着的意思一样
my $var1="\\";
my $len=length($var);
my $len1=length($var1);
print $len."\t".$len1."\n";
# 输出1\t1\n

$var='\n';  # 此处' '与 ""括着的意思不一样
$var1="\n";
$len=length($var);
$len1=length($var1);
print $len."\t".$len1."\n";
#输出2\t1\n

$var='\'';   # 此处' '与 ""括着的意思一样
$var1="\'";
$len=length($var);
$len1=length($var1);
print $len."\t".$len1."\n";
#输出1\t1\n

$var='\"';   # 此处' '与 ""括着的意思不一样
$var1="\"";
$len=length($var);
$len1=length($var1);
print $len."\t".$len1."\n";
#输出2\t1\n

$var='\;';   # 此处' '与 ""括着的意思不一样
$var1="\;";
$len=length($var);
$len1=length($var1);
print $len."\t".$len1."\n";
#输出2\t1\n