Help for this page

Select Code to Download


  1. or download this
    if (...) {
    ...
...
}

... # "else" stuff
  2. or download this
    while (<$channel>) {push @output, $_}
#becomes
...
#although
my @output = <$channel>;
#is even better
  3. or download this
        for my $i (@show_inventory) {
        my $inv_line1 = shift @show_inventory;
        my $inv_line2 = shift @show_inventory;
  4. or download this
        while (@show_inventory) {
        my $inv_line1 = shift @show_inventory;
        my $inv_line2 = shift @show_inventory;