如何使用perl从中删除注释后逐行打印读取c文件

时间:2014-05-13 03:44:31

标签: regex perl

use Regexp::Common qw( comment );
local $/ = undef;
$_ = <DATA>;
s/$RE{comment}{C}//gs;

我已阅读完整的文件数据并从读取文件中删除了所有注释。 现在我想逐行打印而不是一次打印所有数据。

根据我的理解,完整的文件数据在字符串$_中。 如何将其转换为数组,以便我可以逐行打印。

如果文件数据在数组中,我可以像那样进行一些字符串匹配

2 个答案:

答案 0 :(得分:0)

尝试:

my @filecontents = split /\n/; # assuming the data is in $_
print "$_\n" foreach (@filecontents);

希望有所帮助

答案 1 :(得分:0)

您可以在换行符处拆分字符串,然后逐个输出结果列表。

foreach my $line (split /\n/) {
    print "$line\n";
}

或者

say for (split /\n/);

如果你的Perl支持say