Perl的触摸目录

我是新来perl.Below是我的代码用perl触摸目录Perl的触摸目录

#!/usr/bin/perl 

# Populate the hashMap 
# keys   --> directories to clean 
# attributes --> days to keep. 



print "<-------------------------------------------------------->"; 
print " Touching of folders Started "; 
touch `/tmp/dir1`; 
touch `/tmp/dir2`; 
print " Touching of folders Ended "; 
print "<-------------------------------------------------------->";

获取以下语法错误，当我运行该脚本。请帮忙。

$ ./FeedServerHscript.sh 
Backticks found where operator expected at /tmp/eCAS_Housekeep/Ecas_54.pl line 11, near "touch `/tmp/dir1`" 
     (Do you need to predeclare touch?) 
Backticks found where operator expected at /tmp/eCAS_Housekeep/Ecas_54.pl line 12, near "touch `/tmp/dir2`" 
     (Do you need to predeclare touch?) 
syntax error at /tmp/eCAS_Housekeep/Ecas_54.pl line 11, near "touch `/tmp/dir1`" 
Execution of /tmp/eCAS_Housekeep/Ecas_54.pl aborted due to compilation errors.

来源

2015-11-05 vidhya nair

http://perldoc.perl.org/perlfunc.html#utime- LIST – TLP

与[如何在一行中如何接触文件和mkdir]类似（http://stackoverflow.com/q/28296411/1824796）。为什么[touch a directory]（http://askubuntu.com/q/366780），只是创建它'perl -MFile :: Spec -e'mkdir File :: Spec-> catpath（undef，“/ tmp”， “dir001”）或死亡q（错误：不能这样做）''。 – Pavel

使用'use strict;使用警告;'在每个Perl脚本中。 – reinierpost

使用system命令而不是倒退，如果你不想在变量中返回值。

print "<-------------------------------------------------------->"; 
print " Touching of folders Started "; 
system("touch /tmp/dir1"); 
system("touch /tmp/dir2"); 
print " Touching of folders Ended "; 
print "<-------------------------------------------------------->";

使用反引号是这样的：

my $dir2 = `touch /tmp/dir1`; 
my $dir2 = `touch /tmp/dir2`;

更多的了解有关system和backtick看到这个： https://stackoverflow.com/a/800105/4248931

来源

2015-11-05 07:20:02 serenesat

Perl的触摸目录

回答

相关问题