如何使用Perl对文本文件进行grep和排序？

概述我有一个简单的日志文件非常混乱,我需要它整洁.该文件包含日志标题,但它们都混杂在一起.因此,我需要根据日志标题对日志文件进行排序.没有静态行数 – 这意味着文本文件的每个标题没有固定数量的行.我正在使用perl grep来整理标题. 日志文件是这样的： Car LogFile Header<text><text><text>Car LogFile Header<text>Car Log 我有一个简单的日志文件非常混乱,我需要它整洁.该文件包含日志标题,但它们都混杂在一起.因此,我需要根据日志标题对日志文件进行排序.没有静态行数 – 这意味着文本文件的每个标题没有固定数量的行.我正在使用perl grep来整理标题.

日志文件是这样的：

Car Logfile header<text><text><text>Car Logfile header<text>Car Logfile header<and so forth>

我已经完成/搜索了一个简单的算法,但它似乎没有工作.有人可以指导我吗？谢谢！

#!/usr/bin/perl#use 5.010; # must be present to import the new 5.10 functions,notice #that it is 5.010 not 5.10my $srce = "./root/Desktop/logs/Default.log";my $string1 = "Car Logfile header";open(FH,$srce);my @buf = <FH>;close(FH);my @lines = grep (/$string1/,@buffer);

执行代码后,终端没有显示结果.有任何想法吗？

解决方法 我想你想要的东西：

my $srce = "./root/Desktop/logs/Default.log"; my $string1 = "Car Logfile header"; open my $fh,'<',$srce or dIE "Could not open $srce: $!"; my @lines = sort grep /\Q$string1/,<$fh>; print @lines;

确保您具有正确的文件路径,并且该文件具有与您的测试模式匹配的行.

看起来你缺少很多非常基本的概念,也许你可以在其他地方看到剪切和粘贴代码.如果您刚刚开始,请选择一个Perl教程,例如Learning Perl.还有其他书籍和参考文献列于perlfaq2.

总结

以上是内存溢出为你收集整理的如何使用Perl对文本文件进行grep和排序？全部内容，希望文章能够帮你解决如何使用Perl对文本文件进行grep和排序？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。