in reply to Counting to add space to a string

See length.

Replies are listed 'Best First'.
Re^2: Counting to add space to a string
by SuicideJunkie (Vicar) on Sep 22, 2011 at 14:14 UTC

    Also, for applying the extra padding, see Multiplicative Operators; specifically:

    print '-' x 80;        # print row of dashes
[reply]
[d/l]
Re^2: Counting to add space to a string
by Anonymous Monk on Sep 22, 2011 at 17:26 UTC
    Thats right! What about this?
    #!/usr/bin/perl
use strict;
use warnings;

my $account_1 = "CALI123456-09";
my $account_2 = "FLOR1234567-01";

my $total_count_1 = length($account_1);


print "Account 1 has $total_count_1 characters\n";

if($total_count_1 < 23) {
  substr($account_1, 4, 0) = ' ';
  print "\n^$account_1^\n";    

}

print "\n*$account_1*\n";
print "*$account_2*\n";

    [download]
    Thanks!
[reply]
[d/l]
      Sorry, 23 should be 14!
[reply]

In Section Seekers of Perl Wisdom