Help for this page

Select Code to Download


  1. or download this
    while(<INPUT_FILE>)
{
...
  {
  push(@$outputRef, "$symbol,$side,$account,$shares") 
}
  2. or download this
       my (@sorted) = sort{
              $a->[0] cmp $b->[0]
...
              ||
              $a->[2] cmp $b->[2]
              } @$outputRef;
  3. or download this
    "Can't use string "IBM,BUY,K226110,2700" as an ARRAY ref while "strict
+ refs" in use...