Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

printf "%-16s%7d%12d%11d%22s\n", $1, $2, $3, $4, "($2-$3+$4)"
  while /^(\S+)\s+(\d+)\s+(\d+)(?=.*^\1\s+(\d+))/gms;
  2. or download this
    Item            Availability   Broken    Newly_order     Total_Stock
Laptop_Monitor       10           2         15             (10-2+15)
Laptop_Bag           25           1         20             (25-1+20)
Office_Chair         20           1         10             (20-1+10)