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. }

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";

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;

perl的标准输入STDIN

perl的标准输入stdin

  1. #!/usr/bin/perl
  2. print "wait stdin:";
  3. $sr = <STDIN>;
  4. if ( $sr eq "\n" ){
  5.    print "just a blank line \n"
  6. }else{
  7.    print "the data of input is $sr"
  8. }

相比shell比较奇怪的是输入为空,perl的判断却是”\n” 换行符!

  1. #!/bin/bash
  2. read a
  3. if [ -z $a ];then
  4. echo "blank line!"
  5.  else
  6.  echo a
  7. fi

perl的while循环及循环跳出

perl的while循环输出1-3

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

输出控制,遇到2就跳过,输出1,3

  1. #!/usr/bin/perl
  2. $a = 1;
  3. while ($a<=3) {
  4.    if ($a==2){
  5.       next;
  6.    }
  7.    print "$a\n";
  8. }
  9. continue{
  10.    $a++;
  11. }