Help for this page
#!/usr/bin/env perl use 5.010; ... my $str = sprintf $pat, @$aref, $max_width, $long_string; print substr($str, 0, $max_width - 1), "|\n"; }
1.......10........20........30........40........50........60 79.30 2022/1/8 The quick brown fox jumps over the dog | 394571.00 22/10/81 The quick brown fox jumps over the dog | 123456.78 12345/123/1234 The quick brown fox jumps over th|