perl中正则表达式匹配规则失效的问题，求指导。

plabgh

各位好，我想匹配以下内容中的变量名和地址

.sdata section layout
  Starting                 Virtual     File
  address     Size      address   offset
  ---------------------------------
  UNUSED   000002  ........       ........           Gpt_ConfigPtr    main.o
  00000000 000004 40001998 00005658  4 Pll_ConfigPtr         main.o
  00000004 000004 4000199c 0000565c   4 Rti_ConfigPtr         main.o
  00000008 000008 400019a0 00005660  8 SpiBTransmitData         main.o
  00000010 000008 400019a8 00005668  8 SpiCTransmitData         main.o
  00000028 00000a 400019c0 00005680  1 .sdata         MSL_C.PPCEABI.bare.VS.UC.a ansi_fp.o
  00000028 000002 400019c0 00005680  4 @246         MSL_C.PPCEABI.bare.VS.UC.a ansi_fp.o
  0000002c 000002 400019c4 00005684  4 @247         MSL_C.PPCEABI.bare.VS.UC.a ansi_fp.o
  00000030 000002 400019c8 00005688  4 @248         MSL_C.PPCEABI.bare.VS.UC.a ansi_fp.o

我使用的匹配规则是：
   if ($line =~ /^\s+\w+\s+\w+\s+(\w+)\s+\w+\s+\d+\s+(\w+)\s+\w+\.o$/) {
      $address = $1;
      $name = $2;
      $MAPFileHash{$name} = $address;
   }

匹配上了以后，分别将$1(地址)和$2(变量名)之间的关系存入哈希表中，但是目前发现哈希表是空的.
会不会是因为$1是4字节，太大了？
应该不可能啊！
麻烦各位帮我看看我的匹配规则，我个人觉得这是很简单的匹配规则，应该不会出错啊，求解。

tc1989tc

1. if ($line =~ /^\s+\w+\s+\w+\s+(\w+)\s+\w+\s+\d+\s+(\w+)\s+\w+.*\.o$/) {
   
2.       $address = $1;
   
3.       $name = $2;
   
4.       $MAPFileHash{$name} = $address;
   
5.    }
   

复制代码

tc1989tc

试一试 看行不

plabgh

您好！
我刚刚试过了，还是不行，很奇怪！
我后面会用到这个哈希表来做替换的，现在的现象是替换失败，所以我认为是哈希表为空，根本就没匹配上规则。回复 3# tc1989tc


   

plabgh

我使用哈希表实现的功能是，将另一个文件中的字符串"@MemoryAddress@varName@"用哈希表中查到的地址代替。
@MemoryAddress@varName@ ==> $MAPFileHash{$varName}
我的替换命令是：
$Prefix = "@" . "MemoryAddress" . "@";
$Suffix = "@";
FileString =~ s/$Prefix(\S*)$Suffix/("0x".$MAPFileHash {$1} || ($Prefix . $1 . $Suffix))/egs;

现在替换后的结果是：@MemoryAddress@varName@ 替换后变成了 0x，少了真正保存在哈希表中的地址。
回复 4# plabgh


   

plabgh

我使用哈希表实现的功能是，将另一个文件中的字符串"@MemoryAddress@varName@"用哈希表中查到的地址代替。
@MemoryAddress@varName@ ==> $MAPFileHash{$varName}
我的替换命令是：
$Prefix = "@" . "MemoryAddress" . "@";
$Suffix = "@";
FileString =~ s/$Prefix(\S*)$Suffix/("0x".$MAPFileHash {$1} || ($Prefix . $1 . $Suffix))/egs;

现在替换后的结果是：@MemoryAddress@varName@ 替换后变成了 0x，少了真正保存在哈希表中的地址。

tc1989tc 发表于 2015-08-27 17:21

plabgh

谢谢，你的匹配规则是对的，错误出现在最后不应该定位到结尾.
改成：
$line =~ /^\s+\w+\s+\w+\s+(\w+)\s+\w+\s+\d+\s+(\w+)\s+\w+.*\.o/
就好了。
我刚刚看到了，确实，main.o后面还有空格，泥马，坑爹。
谢谢你了。大师。
回复 3# tc1989tc


   

MMMIX

回复 1# plabgh


    你这个其实用 split 更简单：

while (<>) {
    next unless m/^\s*[[:xdigit:]]+\s+/;
    my ($addr, $id) = (split)[2,5];
    next unless $id =~ m/^\w+$/;
    $MAPFileHash{$id} = $addr;
}

jason680

回复 1# plabgh

说说(依据什么条件) 你要什么资料？
或许反而会更简单,更容易...
   

plabgh

高手你好，我想问一下：把匹配规则里面"\w+\.o"改成"\w+.*\.o"的原因是什么？
我不明白为什么在这里需要通过.*捡一次垃圾？我发现"\w+"和"\.o"之间没有任何垃圾可捡。
既然没有垃圾为什么我之前的匹配规则不捡垃圾就匹配不上任何文本内容？
谢谢。
回复 2# tc1989tc