Help for this page

Select Code to Download


  1. or download this
    print join " " => map {sprintf "%-${max}s" => $_}
                  splice @array => 0, $cols;
  2. or download this
    print join " " , map {sprintf "%-${max}s", $_}
                 splice @array, 0, $cols;
  3. or download this
    print join(" ",map {sprintf "%-${max}s",$_}splice(@array,0,$cols));