[已解决]输入和输出相对应的问题

Fjcyz

UID: 45559
帖子: 6
积分: 13
在线时间: 10 分钟

11^# Fjcyz 发表于 2008-09-26 10:01

呵呵,我也碰到类拟问题,通过搜索找到了此贴.

不过此贴的解决方法都是读取一个数值,而没法读取一个列表.

我已经解决了此题. 顺便发一下我写的程序吧.

#!perl

use warnings;
  @name = qw/ fred betty barney dino Wilma pebbles bamm-bamm /;
  chomp (@counte = <stdin>);  #读取所有行

  foreach $value(@counte){ #对数组@counte的值逐一赋值给于$value

    if ($value < 8 and $value > 0){  #对$value数值范围判断

    print "$name[$value-1]\t";
    }else{
    print "No this Value.\t"}
    }

redspider

UID: 15827
帖子: 146
积分: 335
在线时间: 1 天 5 小时

12^# redspider 发表于 2008-09-26 17:15

QUOTE:

原帖由 icecoldheart 于 2007-11-6 10:42 发表
没有人懂吗？

ms 现在新手都NB得很，喜欢这个调调