Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
sub print_long_line {
    print join "\n" => map { sprintf "%-55s" => $_ } shift =~ /(.{1,52
+})\b\s*/g;
}

Select or download this

$ pm_format_long_line_output.pl
Mapping a drive to build machine 10.211.32.254         done
...

Copying TestHarness_LUA-distribution.zip from mapped   
V drive                                                done