perl文件和hash,该如何解决

perl文件和hash
perl如何把打开文件取得后的部分内容放入hash表中

[解决办法]

Perl code

#!/usr/bin/env perluse strict;use warnings;my %no;open TST, 'test.txt' or die $!;while (<TST>) {    if (/^(\d+)$/) {        my $num = $1 + 0;        $no{$num}++;    }}close TST;open STD, 'student.txt' or die $!;while (<STD>) {    if (/^(\d+) (\S+) (\d+) (\d+) (\S+) (.*)$/) {        my $num = $1 + 0;        if ($no{$num}) {            print "no=$1, path=$2, grade=$3, cha=$4, fmi=$5, appears=$6\n";        }    }}close STD;
[解决办法]
你看看，如果你不再帖子的下方对你的题目解释，谁都不知道你要做什么。

这个问题，其实最主要的是你的文件格式是什么样的，也就是我一楼比喻中的，我都买了什么东西，之后，才能知道你的数据该如何处理。

之所以说文件格式是最主要的，因为我猜，不管你是刚学多久的程序员，你肯定知道要打开文件读取数据，所以，这应该不是你的问题，所以，文件的处理才是你的问题。不同的文件格式，处理代码肯定不一样，所以，大家都无法回答你。

你觉得这是一个刚学编程的人技术的问题，还是一个人的表达能力问题？


不是讽刺你，希望你别介意我这么直接指出你的问题（虽然一楼比较含蓄，我这样认为）。有人指出你的问题，对你来说是件好事儿。