in reply to
Re: Alternative to substr on unknown length of scalar
in thread 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 ]
I usually go with
ikegami's option
PJ
use strict; use warnings; use diagnostics;