Guest User

Untitled

a guest
Feb 19th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.65 KB | None | 0 0
  1. #======script
  2.  
  3.     if($t =~ m/(\d+.00)/) {
  4.         my $val = $1;
  5.         if ($val lt 250 ){
  6.         $t =~ s/Raised: .*</<div id=\"red\">Hasn't raised enough @ only \$$val<\/div></;
  7.     }
  8.     } else {
  9.         $t =~ s/(Raised: .*<)/<div id=\"black\">$1<\/div></;
  10.     }
  11.  
  12.  
  13. #=====Data
  14.  
  15. <h1>Michael Keogh&nbsp;Raised: $25.00</h1>
  16. <h1>CHRISTOPHER MAHER&nbsp;Raised: $155.00</h1>
  17. <h1>Chris Greaves&nbsp;Raised: $50.00</h1>
  18. <h1>Naomi Greaves&nbsp;Raised: $265.00</h1>
  19. <h1>ANDREW FONG&nbsp;Raised: $225.00</h1>
  20. <h1>Tristan Brown&nbsp;Raised: $30.00</h1>
  21. <h1>Michael Keogh&nbsp;Raised: $25.00</h1>
  22. <h1>Robert Manalo&nbsp;Raised: $127.00</h1>
  23. <h1>Daniel Fernandez&nbsp;Raised: $145.00</h1>
Add Comment
Please, Sign In to add comment