in reply to File Formatting - Help required

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

citromatik

Replies are listed 'Best First'.
Re^2: File Formatting - Help required
by Anonymous Monk on Jun 26, 2009 at 09:59 UTC
    You forgot use autodie; :)
Re^2: File Formatting - Help required
by Anonymous Monk on Jun 26, 2009 at 08:53 UTC
    Thanks a lot for your help.