Perl的一个班轮+如何给Perl的线班轮

Question

标准输出，我有以下的Perl线衬线

 echo $line | perl -ne 'while(.....){print "$_";}' >> $FILE 

是可以给予$？上perl的线的输出

所以

$? = 0 in case $_ print some value 
$? = 1 in case $_ is empty (no value) 

例如：

echo $line | perl -ne 'while(.....){print "$_";}' >> $FILE 


    if [[ $? -eq 0 ]] 
    then 
    echo " new line in file " 
    else 
     echo " no new line in file" 
    fi 

完整的语法

/usr/local/bin/perl -ne '$exit = 1;while($_=~m/(?:^|\G:\K)(?:(?!.*old)[^:]+|[^:]*?(?:[a-z]old|\dold[a-z\d])[^:]*)/ig){print "$_";}' 

Answer 1

echo "$line" | perl -ne 'BEGIN {$exit = 1;} 
         if(/(?:^|\G:\K)(?:(?!.*old)[^:]+|[^:]*?(?:[a-z]old|\dold[a-z\d])[^:]*)/i) {$exit=0; print "$_"; } 
         END {exit($exit);}' >> "$FILE" 

传递给exit()的值将是在$?在壳里。

由于您使用-n自动创建一个输入回路，你需要把代码初始化和BEGIN和END块返回$exit。你也不应该在你的代码中放入while，因为这是自动循环的一部分。