随笔分类 - perl
摘要：#!/usr/bin/perlforeach ( qw(fred betty barney dino)){ if (/fred|barney/){ print "$_ matched\n"; }}
阅读全文
摘要：#!/usr/bin/perl$string="guoshun is a good shun a good";$string=~m/guoshun(.+?)good/;#默认的是贪心匹配 用？将贪心匹配变成非贪心匹配 所以输出的结果就是 is a print "$1\n";$string=~/guo
阅读全文
摘要：#!/usr/bin/perlopen (f,"D:\\file");while ($lines=<f>){if ($lines=~/TOTAL ELASTIC/){$line_number=$.;$line_control=1;}next if ($line_control==0);#next后面
阅读全文
摘要：#!/usr/bin/perl #用正则表达式匹配某一行，匹配上之后获取匹配行的后面几行 open (f,"D:\\file"); while (<f>){ if (/TOTAL ELASTIC/){ $a=1; $b=0; } if ($a){ print; $b=$b+1; $result=$r
阅读全文
摘要：#!/usr/bin/perl#!/usr/bin/perl %data = ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com'); @names = keys %data;#该函数返回所有哈希的所有key的
阅读全文
摘要：#!/usr/bin/perl#my 和 local的区别，my local都只能在一个block中使用，但是local可以在该block的子程序中调用 但是没有不可以#我们可以使用 local 为全局变量提供临时的值，在退出作用域后将原来的值还回去。#local 定义的变量不存在于主程序中，但存在
阅读全文
摘要：#!/usr/bin/perlsub g_print{print "$x\n";} #my local都叫做私有变量。 sub test_my{ my $x=11;#my定义的变量只能在该块体（两个{}之间）中使用，不能向内传递 print"call-my $x\n";#11，就近原则 g_prin
阅读全文
摘要：#!/usr/bin/perl@spam=("bat","cat","dath","datg");if (my $lines=grep {/dat/}@spam){#再标量上下文中，grep返回的是匹配到的个数 print "$lines\n";}@spam2=("bat","cat","dath"
阅读全文
摘要：#!/usr/bin/perl#define functionsub Hello(){ print "Hello,world\n"}#calling functionHello();#define G() functionsub G(){ print "Hello ,G\n"}#calling G(
阅读全文
摘要：#!/usr/bin/perlopen (file,"D:\\OUTCAR");$a=0;while ($lines=<file>){ if ($lines=~/TOTAL ELASTIC/){ $lines_number=$.; $a=1 } if ($a==1){ sub1() }}close(
阅读全文
摘要：#!/usr/bin/perlopen (f,"D:\\excel");while ($lines=<f>){if ($lines=~/TOTAL ELASTIC/){$line_number=$.;$line_control=1;}next if ($line_control==0);#next后
阅读全文
