首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → Perl脚本请教！ 多谢

Perl脚本请教！ 多谢

时间：2010-08-14

来源：互联网

各位大侠

下面一部分文本，其实有3个pool,分别是"test pool" "ypepivsdb1 pool" 和"ypfpivsdb2 pool"
这三个pool里面的磁带分别是2个,3个和4个。
我想写一个Perl 程序能够得到这3个pool分别有几个磁带？ 请各位大侠不吝赐教

多谢了！

test pool

001784  HCART3   ACS      3       -      -       15     91488   ACTIVE
001812  HCART3   ACS      3       -      -       15     94912   ACTIVE

ypepivsdb1 pool

000045  HCART3   TLD      1       46     -       3     844233440        ACTIVE
000745  HCART3   TLD      1       455    -       3     3668000  ACTIVE
000823  HCART3   TLD      1       533    -       3     46102304 ACTIVE

ypfpivsdb2 pool

000914  HCART3   TLD      1       624    -       3     73076448 ACTIVE
001004  HCART3   TLD      1       126    -       3     19219968 ACTIVE
0117L3  HCART3   TLD      2       118    -       3     101234816        ACTIVE
0121L3  HCART3   TLD      2       122    -       3     164481920        ACTIVE

作者: 中国龙老张   发布时间: 2010-08-14

按照内容的格式试着这样写：
  1. #!/usr/bin/perl

  3. while (<DATA>)
  4. {
  5. my $line = $_;
  6. chomp($line);

  8. if ($line eq 'test pool')  { $i = 0; }
  9. if ($line eq 'ypepivsdb1 pool')  { print "test pool:$i\n"; $i=0; }
  10. if ($line eq 'ypfpivsdb2 pool')  { print "ypepivsdb1 pool:$i\n"; $i=0; }

  12. if ($line=~/HCART3/) { $i++; }
  13. }
  14. print "ypepivsdb2 pool:$i \n";



  18. __DATA__

  20. test pool

  22. 001784  HCART3   ACS      3       -      -       15     91488   ACTIVE
  23. 001812  HCART3   ACS      3       -      -       15     94912   ACTIVE

  25. ypepivsdb1 pool

  27. 000045  HCART3   TLD      1       46     -       3     844233440        ACTIVE
  28. 000745  HCART3   TLD      1       455    -       3     3668000  ACTIVE
  29. 000823  HCART3   TLD      1       533    -       3     46102304 ACTIVE

  31. ypfpivsdb2 pool

  33. 000914  HCART3   TLD      1       624    -       3     73076448 ACTIVE
  34. 001004  HCART3   TLD      1       126    -       3     19219968 ACTIVE
  35. 0117L3  HCART3   TLD      2       118    -       3     101234816        ACTIVE
  36. 0121L3  HCART3   TLD      2       122    -       3     164481920        ACTIVE
复制代码
  1. test pool:2
  2. ypepivsdb1 pool:3
  3. ypepivsdb2 pool:4
复制代码

作者: unix666   发布时间: 2010-08-15

本帖最后由 黑色阳光_cu 于 2010-08-15 01:09 编辑
  1. #!/bin/env perl

  3. use strict;
  4. use warnings;

  6. my ($pool, %hash);
  7. while (<DATA>)
  8. {
  9.         if (/^\s*(.+pool)\s*$/)
  10.         {
  11.                 $pool = $1;
  12.         }
  13.         elsif (not /^\s*$/)
  14.         {
  15.                 ++$hash{$pool};
  16.         }
  17.         else
  18.         {
  19.                 ;
  20.         }
  21. }

  23. foreach my $pool (keys(%hash))
  24. {
  25.         print "$pool: $hash{$pool}\n";
  26. }

  28. __DATA__
  29. test pool

  31. 001784  HCART3   ACS      3       -      -       15     91488   ACTIVE
  32. 001812  HCART3   ACS      3       -      -       15     94912   ACTIVE

  34. ypepivsdb1 pool

  36. 000045  HCART3   TLD      1       46     -       3     844233440        ACTIVE
  37. 000745  HCART3   TLD      1       455    -       3     3668000  ACTIVE
  38. 000823  HCART3   TLD      1       533    -       3     46102304 ACTIVE

  40. ypfpivsdb2 pool

  42. 000914  HCART3   TLD      1       624    -       3     73076448 ACTIVE
  43. 001004  HCART3   TLD      1       126    -       3     19219968 ACTIVE
  44. 0117L3  HCART3   TLD      2       118    -       3     101234816        ACTIVE
  45. 0121L3  HCART3   TLD      2       122    -       3     164481920        ACTIVE
复制代码

作者: 黑色阳光_cu   发布时间: 2010-08-15

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net