我有一个简单的问题。我一直在使用 zoidberg perl shell 以交互方式熟悉 perl。我喜欢在充实脚本之前能够即时测试我的东西。 (我是初学者。)

我的问题是，在 shell 中我可以执行以下操作:

@a = `df -h | grep /dev/mapper | cut -c 48-` 
 
for $i (@a) { @b=`ls $i` } 
print @b; 

但是，当我把它放在 linux 的脚本中时:

#!/bin/perl 

我在运行脚本时看到以下错误:

syntax error at perl_diskstats.perl line 5, near "$i ( " 
Execution of perl_diskstats.perl aborted due to compilation errors. 

我在这里做的事情很明显吗？我到底做错了什么？我以为格式是..

foreach $var (@array) { codeblock } 

……对吧？

请您参考如下方法:

您在第一行末尾缺少一个分号。