Help for this page

Select Code to Download


  1. or download this
    $ perl -e 'print sprintf( "%s%s",
> "header" . "\n",
...
> '
header
CODE(0x6000684c8)
  2. or download this
    $  perl -e 'print sprintf( "%s%s", "header"  . "\n", ,sub { return 3}-
+>())'
header
3
  3. or download this
    $ perl -e 'sub concat { my $str; for ($_[0]..$_[1]) { $str .= $_;} $st
+r;}
> print  sprintf "%s\n%s\n",  "foo", concat('a', 'e');
> '
foo
abcde