Re: Count and print in perl

Maybe you can show us what code you have already written and where you are stuck?

It's hard to give good advice when we don't know where you are actually encountering problems.

Is your problem in reading the file?

Is your problem in splitting up the parts of the file?

Is your problem in printing out the parts of the file?

Comment on Re: Count and print in perl

Replies are listed 'Best First'.
Re^2: Count and print in perl by kanikas16 (Initiate) on Apr 17, 2017 at 11:25 UTC
my problem is how to split the file and how to print in defined format. I have tried this <$str_len = length($line1); if($str_len > 72){ my @split_line = unpack("(A32)*" , $line1); > But it is not solving my problem.because after 11 count one character is incrementing so not printing aligned format.	[reply]
Re^3: Count and print in perl by 1nickt (Canon) on Apr 17, 2017 at 11:35 UTC
... because after 11 count one character is incrementing so not printing aligned format ... See sprintf. `perl -Mstrict -Mwarnings -E ' my @x = qw/ 123 1234567890 12345678901 /; say sprintf("%-11s length %s", $_, length $_) for @x; '` [download] Output: `123 length 3 1234567890 length 10 12345678901 length 11` [download] Hope this helps! The way forward always starts with a minimal test.	[reply] [d/l] [select]