File Formatting - Help required

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi perlmonks,

I would like to create a file and write the information in a proper position in a file. The below code is working fine, but I am looking for a good code.

The iput data is under __DATA__ section
my requirement is to write first value starting from position 1 to 10, second value should start from 11th position to 17th and third should start from 18th to 25th position.

Can anyone please help to write a good code in perl.

open(A,">Result.txt");
while(<DATA>) {
my($one,$two,$three)= split(/\s+/,$_);
my $delim=' ';
my $one1=length($one);
my $two1=length($two);
my $three1=length($three);

my($one2,$two2,$three2);

if($one1 < 10) {
my $one11= (10-$one1);
my $fdelim=$delim x $one11;
$one2=$one.$fdelim;
}
if($two1 < 7) {
my $two11= (7-$two1);
my $fdelim=$delim x $two11;
$two2=$two.$fdelim;
}
if($three1 < 8) {
my $three11= (8-$three1);
my $fdelim=$delim x $three11;
$three2=$three.$fdelim;
}

print A "${one2}${two2}${three2}\n";
}

close(A)
__DATA__
The Early Year
Five New Swine
[download]

Thanks

Comment on File Formatting - Help required Download Code

Replies are listed 'Best First'.
Re: File Formatting - Help required by cdarke (Prior) on Jun 26, 2009 at 08:28 UTC
`use strict; use warnings; open(A,">Result.txt") or die "$!"; while(<DATA>) { printf A "%-10s%-7s%-8s\n",split } close(A) __DATA__ The Early Year Five New Swine` [download] Update: The default arguments to split are sufficient: split $_ around whitespace. The format string (first argument) to printf is as follows: % indicates the start of a format specifier, a value which follows the format string will be "plugged-in" and formatted into this position. - means left justify the field 10 (or 7 or 8) is the minimum field width. Shorter fields will be padded with spaces, longer will be displayed intact (data will not be lost). s indicates the field is a string	[reply] [d/l]
Re: File Formatting - Help required by citromatik (Curate) on Jun 26, 2009 at 08:22 UTC
You can use pack: `use strict; use warnings; open(A,">Result.txt"); while (<DATA>){ chomp; my ($one,$two,$three) = split /\s+/; print A pack ("A10",$one); print A pack ("A7",$two); print A pack ("A8",$three); print A "\n"; } close(A); __DATA__ The Early Year Five New Swine` [download] citromatik	[reply] [d/l]
Re^2: File Formatting - Help required by Anonymous Monk on Jun 26, 2009 at 09:59 UTC
You forgot `use autodie;` :)	[reply] [d/l]
Re^2: File Formatting - Help required by Anonymous Monk on Jun 26, 2009 at 08:53 UTC
Thanks a lot for your help.	[reply]


Perl Monk, Perl Meditation
	PerlMonks