Help for this page

Select Code to Download

Select or download this

#!/opt/local/bin/perl -w
######################################################################
+#############
...
  for (@_ ? @_ : $_) { s/^\s+//, s/\s+$// }
  return wantarray ? @_ : $_[0] if defined wantarray;
}

Select or download this

#% is the modulo operator so it's switching back and forth between eve
+n and odd numbers
$|++;
...
   if ($i % 2){ print STDERR $i; }
   else {print $i;}
 }