fork download
copy 
  1. my $xml = join (/\n/, <main::DATA>);
  2. my ($fee1, $fee2, $fee3, $fee4) = (1, 2, 3, 4);
  3.  
  4. $xml =~ s/(<Status Fees=")\${(.*?)}("\/>)/{$1 . eval('$'.$2) . $3}/ige;
  5.  
  6. print "$xml";
  7.  
  8. __DATA__
  9. <Principal ID="122" > 
  10. <Status Fees="${fee1}"/> 
  11. </Principal> 
  12. <Principal ID="123" > 
  13. <Status Fees="${fee2}"/> 
  14. </Principal> 
  15. <Principal ID="124" > 
  16. <Status Fees="${fee3}"/> 
  17. </Principal> 
  18. <Principal ID="125" > 
  19. <Status Fees="${fee4}"/> 
  20. </Principal>
  21.  
Success #stdin #stdout 0s 4596KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
<Principal ID="122" > 
<Status Fees="1"/> 
</Principal> 
<Principal ID="123" > 
<Status Fees="2"/> 
</Principal> 
<Principal ID="124" > 
<Status Fees="3"/> 
</Principal> 
<Principal ID="125" > 
<Status Fees="4"/> 
</Principal>
https://ideone.com/1WtKS
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!