Help for this page

Select Code to Download


  1. or download this
    #! c:/perl/bin -w
use strict;
...
    &out;
    exit(58);
        }
  2. or download this
    # sub splBRK -- breaks a line of undefined length by    replacing each
+ $splBRK with a \n\t
#
...
$new= join "\n\t", @sect;
&shortenlines;
}
  3. or download this
    # SUB shortenlines -- breaks a line of undefined length by replacing  
+  
# a space with a \n at least every $max chars
...
exit(121);
}