关于用system(gzip xxx)的问题

milq

我在我的perl脚本里面写有这么一行：

1. 
   
2. $system_cmd = qq (cd $PATH{"backup"};gzip $table_name);
   
3. $rc = system($system_cmd);
   

复制代码

总是报

1. 
   
2. gzip: /usr/bin/gzip is not a directory or a regular file - ignored
   

复制代码

的错误。。。

进入$PATH{"backup"}查看，发现$table_name已经成功压缩。
给我的感觉就是，gzip在压缩完$table_name之后，又尝试压缩/usr/bin/gzip自己本身。。。

这个是为什么？想不明白ing:em12:

li-jiahuan

system("command arguments")
命令 参数 参数 。。。
后面的都会被当参数看待

milq

谢谢li-jiahuan~

我改了一下，把gzip的部分分开写

1. 
   
2. eval {
   
3.         $system_cmd = qq (cp -f $table_name $PATH{"backup"});
   
4.         system($system_cmd);
   
5.        
   
6.         $system_cmd = qq (gzip -f $PATH{"backup"}/$table_name);
   
7.         system($system_cmd);
   
8. };
   
9. 
   
10. if($@) {
    
11.         print "NG\n";
    
12. }
    

复制代码

现在是这个错误：

1. 
   
2. /usr/bin/gzip.gz: Permission denied
   

复制代码

不过文件还是能正常压缩。。。