一
22
1

perl_File::Find


自定义路径查找以.xxx为结尾的文件..xp跟debian测试通过

  1. #!perl
  2. use warnings;
  3. use File::Find;
  4. find(\&a,'D:/test');
  5. sub a{
  6.        my $b = $File::Find::name;
  7.            print "$b\n" if ($b =~ /\.xxx?$/i);
  8. }
一
21
3

入手几款飞利浦产品


飞利浦 SFL4101 LED感应灯
飞利浦 SPN2351WA/93 双核卫士 移动插座
飞利浦 SPN2263WA/93 单核
飞利浦 SCB3055NB/93 自带5号充电电池2节 7号充电电池2节
欧司朗 LED蜡烛灯

LED感应灯放大门的侧边，很好用，进出大门就会自动亮起。
LED蜡烛灯也不错，晚上就通宵开着，挺漂亮的。
飞利浦的移动插座果然很棒，美感也很强，推荐购买！

飞利浦

欧司朗
欧司朗

飞利浦
飞利浦
飞利浦
飞利浦
飞利浦
飞利浦

一
16
2

fuck


it’s luckless,my blog has been off-line 1-3 hours in the afternoon due to some idiot wanna take it down by personal reason,that’s enough already.

一
08
2

perl抓取网页LWP::Simple


perl简易抓取页面程序

  1. #!/usr/bin/perl
  2. use strict;
  3. use LWP::Simple;
  4. my $url = 'http://www.baidu.com';
  5. my $go = get($url);
  6. print "$go\n";
一
07
2

perl的for与foreach 还有map


perl的for循环,foreach循环..纯笔记
C语言风格的for

  1. #!/usr/bin/perl
  2. for ($a=1;$a<=5;$a++){
  3.    print "$a\n"
  4. }

perl风格的for

  1. #!/usr/bin/perl
  2. @a = (1..5);
  3. for (@a) {
  4.    print "$_\n"
  5. }

perl的foreach

  1. #!/usr/bin/perl
  2. @a = (1..5);
  3. foreach  (@a) {
  4.    print "$_\n";
  5. }

perl的map,值得深入研究

  1. #!/usr/bin/perl
  2. @a = (1..5);
  3. print map{"$_\n"}@a;
52 «12345»...52