日志

perl语言入门（小骆驼书）第八章习题小结

已有 602 次阅读| 2011-11-23 19:55

1、在做第八章第六小题时，题目中明确提出了换行符不算这样一个要求，为了满足这样的要求，我的程序代码如下：
#！ /usr/bin/perl -w
use strict;
while(<>) {
        chomp;#这一语句是我所忽略的。
        if(/.*(\f|\r|\t| $)/){#为了满足不匹配回车符的要，这样也就无法使用\s转义符，而是特地将\n这个空白字符去掉
                     print "$1###";#题目要求将行末加上标识符
        }
        else{
                    exit;
        }
}
在参考答案时，发现我自己忽略了“每一行只有一个回车符这一事实”，如果将这一事实考虑在内，就会发现其实chomp语句执行后，已经满足“换行符不算”这一条件。这样程序就可以获得简化！