Re^2: Alternative to substr on unknown length of scalar

This never works for me. In the event that len($line) > 6, sprintf will print the entire string as follows: (Win32/ActiveState 5.6.1)

use strict;
use warnings;
use diagnostics;

my $line = 'a'x 8;

my $prnline = sprintf("len(line) > 6: [%-6s]\n",$line);

$line = 'b' x 6;
$prnline .= sprintf("len(line) = 6: [%-6s]\n",$line);

$line = 'c' x 3;
$prnline .=sprintf("len(line) n 6: [%-6s]\n",$line);
 
print $prnline;

__END__
len(line) > 6: [aaaaaaaa]
len(line) = 6: [bbbbbb]
len(line) n 6: [ccc   ]
[download]

I usually go with ikegami's option

PJ
use strict; use warnings; use diagnostics;

Comment on Re^2: Alternative to substr on unknown length of scalar Download Code

Replies are listed 'Best First'.
Re^3: Alternative to substr on unknown length of scalar by thospel (Hermit) on Oct 19, 2004 at 15:04 UTC
It's a . (maximum length) before the 6, not a - (justify left) And it should work everywhere, otherwise you found a bug.	[reply]
Re^4: Alternative to substr on unknown length of scalar by periapt (Hermit) on Oct 20, 2004 at 20:09 UTC
Well, what do you know. Learn something new everyday here at the monestary. I've always overlooked the maximal modifier for strings. Thanks :o) PJ use strict; use warnings; use diagnostics;	[reply]