Black Mail Mail Black

小人家» pel Temps Blackmailedslave Szh Info Aspx N 20100315090043250508 Black Mail

Temps Blackmailedslave Szh Info Aspx N 20100315090043250508 Black Mail

{};
  •         die "Error sending email: $@" if $@;
  •         }
  • }
    • 八
    04
    0

    perl模块_List::Util


    1加2加3加4 … 加到100,试了一下还是perl最快
    需要用到perl的List::Util模块.

    1. [root@centos perl]# more plus.pl
    2. #!/usr/bin/perl -w
    3. use strict;
    4. use List::Util qw[sum];
    5. my $t = sum(1..100);
    6. print "$t\n";
    7. [root@centos perl]# perl plus.pl
    8. 5050

    shell取巧的方法也很简单,利用seq与sed和bc
    seq生成数字,sed将空格替换为加号,通过管道传递给bc进行加法运算.

    1. [root@centos perl]# seq -s " " 100|sed 's/ /+/g'|bc
    2. 5050
    六
    05
    0

    perl_pop_push_shift_unshift


    perl的pop跟push操作数组的最右边，shift跟unshift操作数组的最左边
    学习记录一下

    1. #!/usr/bin/perl -w
    2. use strict;
    3. print '@a @b @c @d 的值都为1 2 3',"\n";
    4. my @a = (1..3);
    5. pop(@a);
    6. print "\@a的值为@a,pop拿掉数组最右边的值\n";
    7. my @b h小人家» pel Temps Blackmailedslave Szh Info Aspx N 20100315090043250508 Black Mailc y Black k小人家» pel Temps Blackmailedslave Szh Info Aspx N 20100315090043250508 Black Mailw p Mail Black b Black Mail