Re^2: Count and print in perl


Keep It Simple, Stupid
	PerlMonks

Re^2: Count and print in perl

by kanikas16 (Initiate)

on Apr 17, 2017 at 11:25 UTC ( [id://1188123]=note: print w/replies, xml )

Need Help??

in reply to Re: Count and print in perl
in thread Count and print in perl

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.

Comment on Re^2: Count and print in perl

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1188123]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others exploiting the Monastery: (4)

As of 2024-04-18 02:01 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found