Re: Line truncation and validation of no of characters

have to validate each line of file A to check if it exceeds 70 characters, if yes then truncate from 70th character and put it in next line.
i.e. each line a file should not exceed 70 characters

You mean check if it has or exceeds 70 characters?
i.e. each line should not exceed 69 characters

my $smallchunk = substr($line,0,$maxlen-1);

Your $smallchunk will be 69 characters or less.

perl -lne 'chomp; print join "\n", unpack("(a69)*", $_)' textfile > tm
+pfile
[download]

FYI: Text::Wrap is a paragraph formatter, and may not break your lines at exactly after the 69th character, given $Text::Wrap::columns = 70.

Update: Applied change - thanks, jwkrahn!

Comment on Re: Line truncation and validation of no of characters Select or Download Code

Replies are listed 'Best First'.
Re^2: Line truncation and validation of no of characters by jwkrahn (Abbot) on Sep 24, 2008 at 09:54 UTC
The unpack template `"A69"` will remove trailing whitespace so the string returned may be less than 69 characters long. Better to use `"a69"` as that will not modify the return string.	[reply] [d/l] [select]
Re^2: Line truncation and validation of no of characters by harishnuti (Beadle) on Sep 24, 2008 at 06:36 UTC
Thanks for the oneliner , iam using it , really helpfull.. this is what i exactly needed..	[reply]