moneyslow.com

Tag: perl

  • 只取出字符串长度大于某一长度的行（比如用于删除一些垃圾行的情况）

    只取出字符串长度大于某一长度的行（比如用于删除一些垃圾行的情况）

    —

    from

    moneyslow
    of

    awk命令取出要求长度的行

  • perl程序：判断ipv4或ipv6

    perl程序：判断ipv4或ipv6

    —

    from

    moneyslow
    of

    一个判断ipv4或ipv6的perl程序： more 1.pl #!/usr/bin/perluse Net::IP::Checker qw[:ALL]; my $ip = ‘172.16.0.216’;ip_is_ipv4( $ip ) and print “$ip is IPv4\n”; $ip = ‘dead:beef:89ab:cdef:0123:4567:89ab:cdef’;ip_is_ipv6( $ip ) and print “$ip is IPv6\n”; print ip_get_version( $ip ); 直接执行会报错，没有相关模块。 要先安装cpanm 这个利器：yum install perl-App-cpanminus.noarch 安装所需模块：cpanm Net/IP/Checker.pm 再次执行：[root@centos7 perl]# perl 1.pl 172.16.0.216 is IPv4dead:beef:89ab:cdef:0123:4567:89ab:cdef is IPv6  

  • Perl入门教程 备忘

    —

    from

    moneyslow
    of

    (1)数字 双精度浮点型 整数 浮点数 数字操作符 + – * / % **   (2)字符串 Unicode和utf-8 单引号和双引号内的字符串   (3)字符串操作符 连接操作符 重复操作符   (4)数字与字符串之间的转换 Print “123”*3; Print “123s”*3; Print “123s”.3;   (5)Perl 的警告信息 Use这个函数用来加载和引用Perl的模块,或者是子程序, Use warnings； Print “123s”*3; Print “123s”.3; Print –w test.pl   (6)标量变量 容器 变量名称不变，存储内容改变 美元符号：$   (7)变量的命名 字母、数字和下划线 全部小写   (8)变量的赋值 双目赋值操作符   (9)字符串中的标量变量内插 Print…