求救兵！！

[jjfjj]

有谁知道在PERL中如何将一个变量如$num加到字符串中如：'c:\dfdf\'(单应号不变)

[born_in70s]

#! /usr/local/bin/perl

$num=1234;
$str='c:\dfdf\\';

$newstr=join ("", $str, $num);
$quotenewstr=join ("", "'", $newstr, "'");

#
# $quotenewstr 包含了 $str$num 及单引号, 不知是否满足要求
#

# verbose output
print $quotenewstr, "\n";

[mjk]

#!/usr/bin/perl

$num=1234;
$str="'c:\\dfdf\\'";

$newstr=join ("", $str, $num);

#
# $quotenewstr 包含了 $str$num 及单引号, 不知是否满足要求
#

# verbose output
print $newstr, "\n";