Help for this page

Select Code to Download


  1. or download this
    $ perl -le'print "x" x ($ARGV[0]-1)' 100 | perl -le'print length <>'
100
...

$ perl -le'print "x" x ($ARGV[0]-1)' 1000000 | perl -le'print length <
+>'
1000000
  2. or download this
    >perl -le"print 'x' x ($ARGV[0]-1)" 100 | perl -le"print length <>"
100
...

>perl -le"print 'x' x ($ARGV[0]-1)" 1000000 | perl -le"print length <>
+"
1000000