新手求教：从文件中匹配字符串作为变量名，生成hash，表如何实现？

lillainpcy

实现的功能：
1. 从指定文件target.txt中得到需要的字符串A,B,C，字符串是以"[%A%]"为标记
2. 将A,B,C作为Hash表的key保存，同时赋值相应的Value，不能重复
3. hash的Value是变量名$a, $b, $c

目前只完成第一步，输出内容还是错的，请高手纠错，并能否提示一下第2，3怎么实现？！

#!/usr/bin/perl -w
      use strict;   
      my $file = "target.txt";
     
      if (-e $file) {
              open (FH, $file) or die "Can not open the file!$!\n";
                   while (<FH>) {
                      if (~/\[%(.*?)%\]/g) {
                              print "$1\n";
                              }                    
              }
             close(FH);
            }


target.txt的内容是（第一行是空行）：

a[%A%]tyrt,
a[%B%]245
a[%B%]111
31q35345234tergsrfg
<br>
<img src=SW-[%C%].jpeg>
<br>
<br>

输出内容：
Use of uninitialized value in concatenation (.) or string at D:\tmp.pl line 21, <FH> line 1.

A
A
B
B
3
>
C
C

实际上预期的结果应该是：
A
B
C

zhlong8

RE不是这么用的  if (~/\[%(.*?)%\]/g) {  不需要 ~， =~ 是一个操作符不许拆开

你要求的 hash Value 是什么没搞懂，$hash{$1} = sth 就可以了啊

lillainpcy

RE不是这么用的  if (~/\[%(.*?)%\]/g) {  不需要 ~， =~ 是一个操作符不许拆开

你要求的 hash Value 是 ...
zhlong8 发表于 2010-12-23 11:19

    多谢！
将"~"删除后，输出的结果是：
A
B
B
C

现在只要将重复的去掉就行。

另一个问题："sth"指什么？

zhlong8

回复 3# lillainpcy


    你想它是什么它就是什么，主要我不知道你想这个 key 对应的值是什么啊

lillainpcy

回复 4# zhlong8


    从文档中匹配出来的变量A=$a, B=$b, C=$c

%hash = (
                 A=>$a,
                 B=>$b,
                 C=>$c
                )

这是希望得到的结果。


另外，如果原文档中一行中有多个匹配，该如何处理？
如果有重复的变量名，又该如何匹配，避免重复呢？

请指教。

zhlong8

回复 5# lillainpcy


    不明白 $a, $b, $c 从哪里来的啊，一行多个你用 while (//g) 这种，或者 @match = $s =~ //g 再循环 @math 都行。什么叫有重复变量名？hash 的 key 是无法重复的啊

langren868

变量名恰巧是要取得数据的小写，可以抓住这个巧合在循环内部一步完成，代码如下:
$ha{$1}=lc($1);

去重了又达到哈希的效果。

zhlong8

如果是小写的同名变量的话用下符号引用也不错

kurri

#!/usr/bin/perl
open TMP,"<123" or die "Cannot open 123:#!";
foreach(<TMP>){
    while(/\[%(.*?)%\]/g){$hash{$1} = '$'.lc($1)}
}
foreach (keys %hash){
    print "$_ => $hash{$_}\n"
}
你要的大概就是这样吧？