Re: UBB find user id code

Select or download this

my %cookies; 
#lots more code
if (%cookies = fetch CGI::Cookie) {

Select or download this

if ( my %cookies = fetch CGI::Cookie ) {
}

Select or download this

if (CONDITION1) { 
  if (CONDITION2) { 
  }
}

Select or download this

if (CONDITION1 && CONDITION2) {
}

Select or download this

while( my($login, $junkfile) = split /\|!!\|, <FH>) {
 if ($login eq $id) {
...
     last;
 }
}

Select 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"'

Select Code to Download