PL脚本中'和"的使用

$dir_win='C:\work\PSRC\SRC\*';              # '' keep \ is \
$dir_win2="C:\\work\\PSRC\\SRC\\*";          # "" \\ translate to \
$dir_unix=join('/',split(/\\/,$dir_win));
print $dir_unix . "\n";

$dir_unix2=join('/',split(/\\/,$dir_win2));

print $dir_unix2;

$dir_win =~ s/\\/\//g;

print("\n\n dir_win=$dir_win\n");

my @fs=glob($dir);
foreach (@fs) {
#print $_."\n";
}