Chinaunix首页 | 论坛 | 博客
  • 博客访问: 247414
  • 博文数量: 44
  • 博客积分: 1795
  • 博客等级: 上尉
  • 技术积分: 465
  • 用 户 组: 普通用户
  • 注册时间: 2006-07-04 12:02
文章分类

全部博文(44)

文章存档

2015年(1)

2011年(1)

2009年(7)

2008年(2)

2007年(7)

2006年(26)

我的朋友

分类:

2006-12-26 16:24:12

#!/usr/bin/perl

my @devices = qw (
3
DHS_FCPort
DHS_DiskDrive
DHS_StorageVolume
);

sub arraytest
{
  my @devs;
  my $assName;
  $count = 0;
  $pCount = 0;
  my @params = @_;
  foreach my $para (@params)
  {
    if (0 == $count)
    {
      $pCount = $para;
    }
    else
    {
      if ($count <= $pCount)
      {
        push @devs, $para;
      }
      else
      {
        $assName = $para;
      }
    }

    $count++;
  }

  print("assName = ", $assName, "\n");
  print("count = ", $count, "\n");
  print("pCount = ", $pCount, "\n");
  foreach my $dev (@devs)
  {
    print("dev = ", $dev, "\n");
  }
}

sub main
{
  arraytest(@devices, "wdb test");
}

exit main;

main();

阅读(1851) | 评论(0) | 转发(0) |
0

上一篇:c socket client

下一篇:字节序的判断

给主人留下些什么吧!~~