Select Code to Download

package PM::FixedWidthFile;

...
=head1 NAME

PM::FixedWidthFile - TODO (for Jake): module documentation in POD form
+at

use PM::FixedWidthFile qw{populate_file};
...
...
my $file_data = ...;
open my $fh, '>', $outfile;
populate_file($fh, $record_length, $file_data);

#!/usr/bin/env perl

...
    system qw{cat -vet}, $outfile;
    unlink $outfile; # my housekeeping
}

Populating: ./pm_fixed_width_file.out_0
          123       456         $
...
          123       456       78$
Populating: ./pm_fixed_width_file.out_2
Data [789] too large for field of length [2] at ./pm_fixed_width_file.
+pl line 32.