Help for this page

Select Code to Download


  1. or download this
    $\ = "\n";
    
    ...
    
    print $dn =~ /\w/ ?1:0;   # 0
    print $up =~ /\w/ ?1:0;   # 1