在使用perl程序读取文件时,如何识别文件的开头和结尾

在使用perl程序读取文件时,如何识别文件的开头和结尾,第1张

问题提问的不很明确。关于常用的文件头,文件尾的 *** 作如下:

跳到文件头。 seek FH, 0, 0;

跳到文件尾: seek FH,0, 2;

判断是否到达文件尾部: if(eof(FH))

1、基本格式:perl -参数命令' 输入文件

2、 perl -e 为必须要写的参数

3、 perl -pe 可用于读取文件每行,并按照给定的命令进行处理,最后输出;如将文件1txt中的aaa替换为AAA: perl -pe 's/aaa/AAA/g' 1txt

4、 perl -l 参数几乎可以跟n搭配代替perl经常用的 while(<>){chomp;} 语法

5、如果需要处理tab/空分割的文件的每一行内容,那么 perl -alne 参数几乎可以说是必备的,例如 while(<>){chomp;@F=split /\s+/,$_;print "$F[0]\n"} 相当于: perl -alne 'print $F[0]'

6、perl单行命令脚本里的变量都不需要预先声明,如想打印出每空行,并且每行以行数开头: perl -``ne 'print ++$a" $_" if //'

7、perl单行命令有时优于sed/grep等shell命令是由于其优秀的正则匹配,通常简单的匹配可以如:匹配上的行号,模仿grep -c的功能: perl -lne '$a++ if /regex/; END {print $a+0}'

8、perl单行命令可以使用perl的模块,如使用sum函数的模块: perl -MList::Util=``sum -alne 'print sum @F'

9、perl也可以像awk一样使用END命令,如打印出文件中总单词个数

perl -alne '$t += @F; END { print $t}'

10、perl也可以使用 map{} 等函数,如打印出匹配上的单词的总个数: perl -alne 'map { /regex/ && $t++ } @F; END { print $t }'

11、perl单行命令可以说是将perl的简洁用到了极致,如打印出匹配上的行: perl -``ne '/regex/ && print'

12、perl单行命令能像perl一样灵活的使用则正表达式: perl -``ne 'print if /^\d+$/'

使用perl来处理数据的我们,会一点Perl one line可以有效的减少编写重复命令的时间,尤其是那些就用1-2次就不会用的脚本,尤其在window系统下不方便使用shell命令的时候。

PS 当然在windows系统下也可以借用git模拟Unix命令环境~~~~

>

二维数组

把每个文件的每一行split成两个元素,然后把第二个元素(也就是第二列的数据)加到二维数组中,并且保证不同文件中行数相同的列在同一个子数组中(说的有点绕,希望你懂)。输出的时候直接用换行符join

以上就是关于在使用perl程序读取文件时,如何识别文件的开头和结尾全部的内容,包括:在使用perl程序读取文件时,如何识别文件的开头和结尾、perl oneline的参数解释、如何用perl读取一个文件夹下的大量首列相同的txt文件,要进行列合并。等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9446418.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-28
下一篇 2023-04-28

发表评论

登录后才能评论

评论列表(0条)

保存