Help for this page

Select Code to Download


  1. or download this
    $\="\n";$,="\t";
{
...
$SAS::last=2;
 
print &SAS::_1, &SAS::_2 , &SAS::_3;
  2. or download this
     
package SAS2;
...
$last=5;
  
print SAS2::_1(), SAS2::_2(), SAS2::_3();
  3. or download this
    print map {$_->()} grep {/::_/} values %SAS::;