这是我的perl脚本代码。在这段代码中,我得到了类似于“在$cmd期望操作符的地方找到了”这样的错误。
my $path = $folder."/".$host."_".$database_name.".bak";
$cmd .= "-U $user_name -P $password -S $host -d master -Q "BACKUP DATABASE [$database_name] TO DISK = N'$path'" ";有谁能帮我吗?
发布于 2012-10-22 15:39:06
当字符串中有双引号时,您需要使用\对其进行转义。
$cmd .= "-U $user_name -P $password -S $host -d master -Q \"BACKUP DATABASE [$database_name] TO DISK = N'$path'\" ";此外,Perl允许您使用其他字符作为引号分隔符。qq后跟几乎任何字符都与双引号相同。因此,您可以这样做,以避免需要反斜杠:
$cmd .= qq(-U $user_name -P $password -S $host -d master -Q "BACKUP DATABASE [$database_name] TO DISK = N'$path'" );
$cmd .= qq|-U $user_name -P $password -S $host -d master -Q "BACKUP DATABASE [$database_name] TO DISK = N'$path'" |;以此类推。
Perl:如何在中执行系统命令。有三种基本方法:
system($cmd); #Goes through the shell if shell metacharacters are detected.
system(@command_and_args); #first element is the command, the rest are argumentssystem执行一个命令并等待它返回。返回值是程序的退出状态。
my @results = `$cmd`; #Always goes through shell.Backticks执行命令并返回其输出。只有在实际需要输出时才应该使用它;否则,最好使用system。
exec $cmd;
exec @command_and_args;exec和system完全一样,只是它永远不会返回。它通过调用另一个程序来有效地结束你的程序。
使用最适合您的情况的方法。或者,在本例中,由于您正在执行SQL,因此可以考虑使用DBI模块。对于任何比几个简单命令更好的方法,这绝对是一种更好的方法。
发布于 2012-10-22 15:25:15
看起来你把"字符放错了地方。我不确定他们应该在哪里。
在第二行中,字符串文字:
"-U $user_name -P $password -S $host -d master -Q "紧跟在后面的是赤裸裸的
BACKUPhttps://stackoverflow.com/questions/13006624
复制相似问题