• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    只有一行的Perl程序第1/3页

    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
    127.0.0.1 localhost.localdomain localhost
    192.168.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 $. > 10' FILENAME
    这条相当于unix命令head,打印指定文件的前10行 -- 你可以把10改成你想要的任何数字;
    # perl -e '@lines = >; print @lines[$#lines-10 .. $#lines]' FILENAME
    这条相当于unix命令tail,打印指定文件的最后10行 -- 同样你也可以修改成你想要的。
    3. kick sed。

    123下一页阅读全文
    上一篇:perl 学习资料整理篇第1/4页
    下一篇:关于Perl里面正则表达式规范
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    只有一行的Perl程序第1/3页 只有,一,行的,Perl,程序,