怎么取XML script 中的在两个tag之间的字母或数字？急！

lgjut

my $src = '<product>;wid100</product>;';

$src=~/^<product>;(.+)<\/product>;$/;

print "$1\n";

deathcult

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. foreach(`cat file`)
   
5. {
   
6.         print "$1\n" if(/<.+>;(.+)<\/.+>;/);
   
7. }
   

复制代码

apile

while(<FF>{
   if(/<(.*)>;(.*)<\/(.*)>;/){
#      $name=$1;
  #     $data=$2;
       ${$1} =$2;
   }
}
這樣子你就可以直接用
$product、與$quantity了..

deathcult

你把完整的xml文本帖出来吧。 ：）

apile

<?xml version="1.0"?>;
<order>;
<product>;wid100</product>;
<quantity>;10</quantity>;
<product>;giz375</product>;
<quantity>;30</quantity>;
<product>;wid100</product>;
<quantity>;30</quantity>;
<product>;giz375</product>;
<quantity>;30</quantity>;
</order>;
--------------------------

#!/usr/bin/perl
open(FF,"tt1";
while(<FF>{
  chomp;
  if(/<(.*)>;(.*)<\/(.*)>;/){
     if($1 eq "product" ){
        $old2 = $2;
        $product{$old2}+=0;
     }
     if($1 eq "quantity"{
        $product{$old2}+=$2;
     }
  }
}
for $key (keys %product){
  print "$key : $product{$key}\n";
}

this is what you want...