Help for this page

Select Code to Download


  1. or download this
    perl -Mstrict -Mwarnings -E '
my @x = qw/ 123 1234567890 12345678901 /;
say sprintf("%-11s length %s", $_, length $_) for @x;
'
  2. or download this
    123         length 3
1234567890  length 10
12345678901 length 11