Vicki writes:

>              if (...) {
>                 my @item_parts = split(/\n/, $item);
>                 printf ORDER ("\n%4d   %-50s   %3.2f      %3.2f\n",
>                            $quantity, $item_parts[0], $price, $ext);
>              } else {
>                  printf ORDER ("\n%4d   %-50s   %3.2f     %3.2f\n",
>              }                 $quantity, $item, $price, $ext);

Another reason to use Emacs :)

--Ala

Reply via email to