墨迹哥's

摘要： 今天因为做到系统里面的一个功能，需要用到终止的过程，所以用到Fork的使用。公司里一大牛被我问烦了，甩了一句：“你懂不懂写代码？你到底懂不懂啊！”一瞬间不知道怎么说话了，对进行这块研究的真心不深入，所以虚心问了下，换了这结果。心里挺不是滋味，后续上Q问了下其它哥们，用得也不多，所以知道的也很有限，所以我只能发帖了。感谢CU上的laputa73 童鞋给我解答该疑惑，终于搞明白了。对此MARK一下，方便以后使用。#!/usr/bin/perl -wmy $pid = fork();if (!defined($pid)) { print "Error in fork: $!"; 阅读全文

摘要： 原本的那个CONFIG模块不太好用，读取指定项目位置倒是还可以，但是如果一旦数量多了以后就不好使用了。在CPAN上找到了一个比较实用的模块，稍微摸索了一下就知道怎么实用了。给段示例代码，方便以后翻查学习。#!/usr/bin/perluse Config::Abstract::Ini;use strict;my $file = $ARGV[0];my $settings = new Config::Abstract::Ini($file);# 获取所有的项目my %allsettings = $settings->get_all_settings;# 获取指定类型项目my %entry 阅读全文

摘要： 下面的代码目前只实现了抓取首页，后面会改下，要求抓2级到3级页面。 #!/usr/bin/perluse HTML::LinkExtor;use LWP::Simple;sub sparit{ local($base_url)= shift; # 抓取URL $parser = HTML::LinkExtor->new(undef,$base_url); $parser->parse(get($base_url))->eof; @links = $parser->links; foreach $linkarray (@links){ my @element = @$li 阅读全文

摘要： 今天看了下当年云舒写的代码，发现一个很陌生的东西，基本上没见过。gg了一下，了解了该模块是一个大数据处理的模块，简单的来说，该模块的作用是，用于比较数据是否存在在已知列表中。对于我来说这模块甚至有点难以理解，对此搜索了下前人写的案例进行分析。把代码整理了下，写了下注释方便以后翻查。#!/usr/bin/perluse Bloom::Filter;# capacity:设置容器的大小# error_rate:容错的数量my $bf=Bloom::Filter->new(capacity => 10,error_rate => .001);# 被对比的列表my @keys=qw/ 阅读全文

摘要： 去除长行标志： 首选项--编辑器--显示--长行标志--去除启用去除信息窗口： 查看--去除信息窗口前的勾勾该编辑器能够写N多类型的代码，都带高亮，以及执行。F5 阅读全文