Help for this page

Select Code to Download


  1. or download this
    my %cookies; 
    #lots more code
    if (%cookies = fetch CGI::Cookie) {
    
  2. or download this
    if ( my %cookies = fetch CGI::Cookie ) {
    }
    
  3. or download this
    if (CONDITION1) { 
      if (CONDITION2) { 
      }
    }
    
  4. or download this
    if (CONDITION1 && CONDITION2) {
    }
    
  5. or download this
    while( my($login, $junkfile) = split /\|!!\|, <FH>) {
     if ($login eq $id) {
    ...
         last;
     }
    }
    
  6. or download this
    perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
    +$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
    +er_name\n"'