perl - 使用ssh在远程服务器上执行内联脚本时保护管道字符

Question

我需要通过ssh在远程服务器上执行脚本，我无法在远程服务器上将脚本作为文件找到，也无法在脚本过程中创建文件。

该脚本检查不存在或零字节的文件，如果存在，则检查是否过时。

我关注了a thread here on SO并尝试了以下操作:

myvar=$(ssh user@server <<EOF
myfile=/mnt/file.csv
if [ -s $myfile ]; then
   filedate=$(stat -c %x $myfile|grep '[0-9\-]*' --max-count=1 -o);
   yesterday=$(date --date 'now -1 day' --iso-8601);
   if [ $filedate < $yesterday ]; then
     echo '1 '$yesterday;
   else
     echo '0 ok';
   fi
else
   echo $(date --iso-8601);
fi
EOF
)

可悲的是，管道似乎正在截断字符串或​​其他内容，因为脚本返回

stat: too few arguments

也许只是不能使用“myfile” var声明。有什么建议么？

提前致谢。

----编辑:澄清答案:

keber-laptop:~ keberflores$ echo $myvar

keber-laptop:~ keberflores$ myvar=$(ssh user@server <<EOF
> myfile=/mnt/file.csv
> if [ -s \$myfile ]; then
>    filedate=\$(stat -c %x \$myfile|grep '[0-9\-]*' --max-count=1 -o);
>    yesterday=\$(date --date 'now -1 day' --iso-8601);
>    if [ \$filedate < \$yesterday ]; then
>      echo '1 '\$yesterday;
>    else
>      echo '0 ok';
>    fi
> else
>    echo '1 '\$(date --iso-8601);
> fi
> EOF
> )
Pseudo-terminal will not be allocated because stdin is not a terminal.
user@server's password: 
keber-laptop:~ keberflores$ echo $?
0
keber-laptop:~ keberflores$ echo $myvar
1 2011-10-22

----编辑:在perl内部调用:

my $myvar = qx'ssh user@server <<\'EOF\'
myfile=/mnt/file.csv
if [ -s $myfile ]; then
   filedate=$(stat -c %x $myfile|grep \'[0-9\-]*\' --max-count=1 -o);
   yesterday=$(date --date \'now -1 day\' --iso-8601);
   if [ $filedate < $yesterday ]; then
     echo \'1 \'$yesterday;
   else
     echo \'0 ok\';
   fi
else
   echo \'1 \'$(date --iso-8601);
fi
EOF
';
print $myvar;

Answer 1

您需要进行更多的转义才能使其正常工作。 bash将在本地评估here文件中的变量等，然后将在远程服务器上评估其结果。

特别是，在对here文件进行评估时，您的$myfile可能评估为空字符串，从而导致stat没有文件参数。