========= 比配次数计算 (字符重复出现次数)================
@matches = "balata" =~ /.a/g; # now @matches = ("ba", "la", "ta") 用数组存下比配到的信息；
$count = scalar @matches # now $count = 4; scalar 取出数据长度，就是比配到的次数；
========= 单行命令模式下，找出信息出现的次数；============
ps -ef | perl -0ne 'print s/a//gi."/n"' # 参数-0 零，表示把所有行都看成一行; /g全比配，i忽略大小写
========= 单行命令模式 只打指定列 ============
echo 'hello:the:world:!:i:love:you:!' | perl -F: -lane 'print "@F[0..1] $F[-1]"'
# -F: 指定分隔符为:
# @F[0..1] 表示分隔域 0~1
# $F[-1] 特指倒数 第一个 域
========= 单行命令模式 打印指定行 =================
ps -ef | perl -lane 'print if $. == 1..10' # $. This means that it's current line
========= 单行命令模式 打印指定行 与 列 =================
ps -ef | perl -lane 'print "@F[0..1] $F[-1]" unless ($. == 1..10)' # $. This means that it's current line
========= 把每一行都当作 perl 的表达式 如 =================
echo "8*8" | perl -lane 'print eval($_)' # result is 64
========= 文件按行反转 =================
ps -ef | perl -e 'print reverse <>'
--转自
当前位置：
论坛首页 »
自由讨论区 »
VMware, Unix及操作系统讨论区
»
发起投票
技术讨论
加好友
发消息
2015-7-30 17:16:55 |
赞(
操作
