位置: 编程技术 - 正文
1 line perl 今天来说说perl,只有一行的perl程序。 各种编程语言中perl是以变态的古灵精怪而闻名的,比如我,就经常写出自己都看不懂的perl程序来。 比如这篇文档中的程序,虽然短小,估计一个星期之后我看这就要头晕了。但这丝毫不影响perl作为 一个功能强大的系统管理工具和系统控制语言的存在和推广,而且灵活性恰恰是它最大的优势,你可以 这样写,也可以那样写,“或者,绝招同途异路。” 1. hello world! =========================================================== 还是从最经典的 hello,world! 开始...... ## # perl -e 'print "hello,world!n"' hello,world! ## 完全不出意料,他没有任何歧异的终于我们愿意的输出了"hello,world!",自然得就像我么用echo或 printf()一样。 这个程序按照传统形态展开的话是这样: == #!/usr/bin/perl print "hello,world!n"; == 我们在命令行上使用了perl 的-e参数,这将使perl把-e之后直接跟着的字符串当作perl的程序自动内置 展开执行,免去了我们用vi或cat重写文件之苦。 -e参数的功能,就是自动把之后的字符串作为程序主题执行,再之后的参数将作为perl脚本的命令行 参数($ARGC 和 @ARGV)传递给程序语句。 2. 我要cat。 =========================================================== hello,world!看似完全没有作用,其实我们可以丰富它,用它来完成任何工作--只要你的想象力够丰富。 perl世界里很有名的一个项目就是ppt( pOWER pERL tOOLS),用纯perl重新实现了所有unix常用命令。 我们来看一个最简单的cat。 ## # perl -pe 1 /etc/hosts .0.0.1 localhost.localdomain localhost ..0.3 vi ## 就如同cat一样,这行命令原样的输出了/etc/hosts文件。我们来看看它实际做了些什么: == #!/usr/bin/perl for(@ARGV){ open($F,$_); while(<>){ &调用执行-e参数指定的指令 &本例中为1 return 1; } } == 这里解释一下涉及到的第二个perl命令行参数-p,-p的过程实际就是自动为我们提供了一个如上面源代码 中所见的双层循环,第一层是依次读取命令行上指定的文件名,作为@ARGV ,打开文件并进行处理; 第二层循环则从open($ARGV[*])接收文件句柄,并执行一个perl的<>操作,一次读取文件的每一行, 并进行处理,处理的过程就是我们使用-e指定的程序语句。 如果没有指定程序语句,那么默认的情况 将是读取并回显每一行。 所以这个程序的流程如下: 1, 循环,依次读取@ARGV 中指定的若干文件; 2, 打开当前文件; 3, 循环,依次使用<>操作符读取每一行,并存储在临时变量$_ ; 4, 调用-e的程序语句进行处理; 在本例中,-e只有1一个参数,在perl中代表 retuen 1,直接返回真值 不作处理。 再写两条有用的命令: # perl -pe 'exit if $. > ' FILENAME 这条相当于unix命令head,打印指定文件的前行 -- 你可以把改成你想要的任何数字; # perl -e '@lines = <>; print @lines[$#lines- .. $#lines]' FILENAME 这条相当于unix命令tail,打印指定文件的最后行 -- 同样你也可以修改成你想要的。 3. kick sed。
推荐整理分享只有一行的Perl程序第1/3页(只有一行的矩阵的逆矩阵),希望有所帮助,仅作参考,欢迎阅读内容。
文章相关热门搜索词:只有一行的矩阵的逆矩阵怎么求,只有一行的行列式怎么求,只有一行的行列式怎么算,只有一行的基础解系怎么求,只有一行的矩阵的逆矩阵,只有一行的矩阵的逆矩阵怎么求,只有一行的矩阵的逆矩阵怎么求,只有一行的矩阵的逆矩阵怎么求,内容如对您有帮助,希望把文章链接给更多的朋友!
关于Perl里面正则表达式规范 1,定界符=~m/there/;=~s/there/here/;还有类型的定界符:=~/there/=~m#there#;=~s#there#here#;=~m(there);=~s(there)(here);=~m{there};=~s{there}{here};=~m[there];=~s[there][here];=~m,there,;=~
Perl 获取shell命令的执行结果 方法有很多:1.重定向shell的标准输出或标准错误输出到某临时文件,然后再从临时文件中读出执行结果。这个办法的好处是可以把标准输出和标准错误输
Perl ASCII 字符判断 主要还是看ASCII码的值,$str=~m/[^-]/$str=~m/[^x0-x7f]/要注意反斜线的作用,转义符,一定不要少!
标签: 只有一行的矩阵的逆矩阵
本文链接地址:https://www.jiuchutong.com/biancheng/372440.html 转载请保留说明!友情链接: 武汉网站建设