Help for this page

Select Code to Download


  1. or download this
    # 3. What is the value of "$portresults->{portfolio}->{riskgrade}"? 
print "port ", $portresults->{portfolio}->{riskgrade}, "\n";
...
# 4. What is the first element of "sort {lc($b) cmp lc($a)} keys %{$po
+rtresults}" ?     
@ary = sort {lc($b) cmp lc($a)} keys %{$portresults};
print "sort: $ary[0]\n";
  2. or download this
    s      # substitute
/      # begin search sequence
...
>      # a literal >
/x/    # replacement sequence is a literal 'x' char
g      # do all occurences
  3. or download this
    $HTML = <<THIS;
<html>
...

$HTML =~ s/<(?!\/*[bi]>).*?>/x/g;
print $HTML;