这篇文章主要给大家介绍了关于Perl学习教程之单行命令的相关资料,文中给出了详细的示例代码供大家参考学习,对大家学习或者使用perl具有一定的参考学习价值,需要的朋友可以参考借鉴,下面来一起看看吧。

前言

本文主要给大家介绍了关于Perl单行命令的相关内容,分享出来供大家参考学习,下面话不多说了,来一起看看详细的介绍吧。

与One-Liner相关的perl参数

  • -a 自动分隔模式,用空格分隔$并保存在@F中,也就是@F=split //, $
  • -F 指定-a的分隔符
  • -l 对输入的内容进行自动chomp,对输出的内容自动加换行符
  • -n 相当于while(<>)
  • -e 执行命令,也就是脚本
  • -p 自动循环+输出,也就是while(<>){命令(脚本); print;}

记住以上几点参数,几乎可以开始使用perl来编写one line命令了

以上为简介版,下面这张图可以算是完整版

根据下面的例子来理解下perl one line

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

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

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

perl -pe 's/aaa/AAA/g' 1.txt

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+$/'

以上例子均出自于http://www.catonmat.net/blog/perl-one-liners-explained-part-one/

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

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

总而言之,蛮适合学习下,多用用

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,如果有疑问大家可以留言交流,谢谢大家对爱安网的支持。

最新资讯
余承东:华为授权体验店已超10000家

余承东:华为授权体验店

2010年华为授权体验店为0,而2020年华为授权体验店已超
蚂蚁冻资1.3万亿历史第一 147万人认购超工行创纪录

蚂蚁冻资1.3万亿历史

截至今日上午11时,蚂蚁集团香港公开发售获147万人入飞,
金山云瞄准沉浸式视频云 是远见还是豪赌?

金山云瞄准沉浸式视频

云计算的未来会走向哪里?
腾讯股价创下新高,但无法帮助恒生指数走出低谷

腾讯股价创下新高,但无

据报道,虽然腾讯公司的股价本周出现了反弹,并且创下了历
苹果大中华区三季度销售大幅下滑 未来许多还仰仗5G

苹果大中华区三季度销

新冠疫情的爆发使苹果的供应链受到了破坏,因而导致新品
华为手机三季度全球份额居第二,供应链或逐步“减负”

华为手机三季度全球份

此前已经有近10家厂商表示已经向美方申请继续供货许可
最新文章
将Perl5代码迁移到Perl6上的解决方案

将Perl5代码迁移到Per

今天小编就为大家分享一篇关于将Perl5代码迁移到Perl6
Perl 批量添加Copyright版权信息

Perl 批量添加Copyrig

对所有输入文件,如果没有版权信息则加上版权信息,否则什
Perl字符串处理函数大全

Perl字符串处理函数大

本文重点讨论Perl字符串处理函数的用法,每种函数都有
Perl中常见符号与操作

Perl中常见符号与操作

这篇文章主要介绍了Perl中常见符号与操作,需要的朋友
Perl学习教程之单行命令详解

Perl学习教程之单行命

这篇文章主要给大家介绍了关于Perl学习教程之单行命令
使用Perl生成随机密码

使用Perl生成随机密码

本文给大家分享的是使用perl生成随机密码的方法示例,而