Re: Increaing a field size for a record

A very simple way to insert spaces is:

my $record = <$fh>;                    # read the record
substr( $record, 15, 0, " " x 39 );    # insert 39 spaces
[download]

This will insert 39 spaces after the 15th character. If your counting starting at 1, test that it is going into the correct location :-)

Good Luck!

"Well done is better than well said." - Benjamin Franklin

Comment on Re: Increaing a field size for a record Download Code

Replies are listed 'Best First'.
Re^2: Increaing a field size for a record by Thomas Kennll (Acolyte) on Oct 16, 2012 at 19:27 UTC
Thanks!! But this doesn't seam to be working for me. :( #!/usr/bin/perl open FILE, rij1.dat"; my @lines = <FILE>; foreach my $lin (@lines) { my $btw = substr($lin, 15, 0, "1" x 39); print "$btw"; } close FILE;	[reply]
Re^3: Increaing a field size for a record by flexvault (Monsignor) on Oct 17, 2012 at 13:29 UTC
Thomas Kennll, That's not what I showed you, please note: `foreach my $lin (@lines) { substr($lin, 15, 0, "1" x 39); print "$lin\ +n"; }` [download] "Well done is better than well said." - Benjamin Franklin	[reply] [d/l]