两年前为了更好验证正确性，刚摸PERL，写的一个数据包分析脚本，整体还是比较弱的，缺少了perl的任性 这个脚本优点有： 1：基本能将wireshark的命令行程序tshark的所有用法都揽括在内了，再也不用担心不会命令了 ...

在验证正确性的时候，时常要统计指定端口的流量，也就是frame length，这里是一个简单的PERL程序，将打印所有的端口流量，以及流量所占比例，可以在Linux系统下安装有tshark的环境下运行#!/usr/bin/perl ########...

理论上能正常运行ifconfig的Linux操作系统都可适用这个脚本（当然一般默认会安装perl），打印实时网卡流量和丢包数，好久前当时为了验证输出流量随手写的，多次想改得漂亮点，一直没动手，就这样吧，以免用的时候...

PERL我觉得写得让人抓狂，让人崩溃才是真正领悟到精髓，显然我没这水平，比如快速排序的实现，一如既往地赏心悦目： sub qsort {    return () unless @_;    (qsort(grep { $_ &l...

写完前面那篇，感觉十分有价值，突然也想起公司里咋们平时开玩笑的有关架构的评论 分配表是数据，而不是代码，所以它可以在运行时改变，你可以在你想的任何时候插入新的指示到表里；也就是消除了if-else树，更大...

假如有一个需要读取的配置文件，格式如下： CORES        12 LOGFILE      /var/log/lihui.log WWWDIR    /home/wwwroot …… &...

下面是随手写了一个简单的列子，看上去比较分离而且绕的调用方式 #!/usr/bin/perl -w sub foo {    my ($a, $b, $out) = @_;    if ($a > $b){     &...

perl和python相比最大的差别除了文化宗旨外，应该就是有没有奇形怪状的符号了，有时候完全不知道到底是要当作什么类型来处理，不过只要把变量的含义和用法弄清楚，再难也比不上C语言里直接来三个指针符号坑爹 $符...

一般来说，perl比python性能要好，不过这句话只针对同等水平的程序而言，像我等新手而言，再怎么写也是脚本语言，今天就随手在cygwin里写两个小例子，看看他们的执行速率 要求就分别读一个文件，每读一行，为了表...

在Perl程序当中，任何变量都是全局，除非用my来声明 sub fun {     $a = shift;     return 1 if $a == 0;     return fun($a – 1) * $a; } 这里的$a就是一个全局...

靠Perl熟悉脚本语言，甚至是熟悉编程语言的我，好久没用perl了，好久没见到各种符号 @%$!$_<>@_$=$”$#$$$($)$*$,$.$/$?$\@INC 看着看着也有点醉了，念下作者Larry Wall的著名诗歌，看能不能睡前挖掘点好东...

要把n个盘子从开始的柱子移动到最后的柱子： （1）如果实际上只有一个盘子，那就直接移动 （2）否则用这个方法把除了盘子n（最大的盘子）之外的所有盘子从开始的柱子移动到辅助柱子 （3）把盘子n从开始...

在多核体系结构上，cpu affinity的合理运用对并行程序运行性能的影响举足轻重，为了避免资源竞争，会将不同的进程或者线程绑在不同的核上执行，充分发挥多核并行的性能优势 在linux操作系统里，可以通过shell...