二
06
1

perl脚本计算IP


由于工作上的需要,要将IP段计算成IP,perl的Net::IP刚好用上.

  1. #!/usr/bin/perl -w
  2. use strict;
  3. use Net::IP;
  4. my $ip = new Net::IP ('192.168.0.0/24') or die;
  5. do {
  6.    print $ip -> ip(),"\n";
  7. } while(++$ip);

将文本文件的ip段计算成ip地址

  1. #!/usr/bin/perl -w
  2. use strict;
  3. use Net::IP;
  4. open (A, "<wait.txt");
  5. while (<A>) {
  6.    my($a) = $_;
  7.    my $ip = new Net::IP ("$_") or die $!;
  8.    do {
  9.       print $ip -> ip(), "\n";
  10.    }
  11.    while (++$ip);
  12.          }
一
29
0

perl进度条


收藏个perl的进度条

  1. #!/usr/bin/perl -w
  2. $n = 27;
  3. for($i=1;$i<=$n;$i++){
  4. proc_bar($i,$n);
  5. select(undef, undef, undef, 0.2);
  6. }
  7. print "\n";
  8.  
  9. sub proc_bar{
  10. local $| = 1;
  11. my $i = $_[0] || return 0;
  12. my $n = $_[1] || return 0;
  13. print "\r\033[36m[\033[33m".("|" x int(($i/$n)*50)).
  14. (" " x (50 - int(($i/$n)*50)))."\033[36m]";
  15. printf("%2.1f%%\033[0m",$i/$n*100);
  16. local $| = 0;
  17. }
一
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. }
一
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;
2 12»