Help for this page

Select Code to Download


  1. or download this
    $buffer = 'x' x 10000000;
# memory used 12,200kb
...

print substr $x, 0, 30;
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  2. or download this
    sub test : lvalue { $buffer };

...
print length test;
10000000
  3. or download this
     
print substr obj->test, 20_000, 5;
substr( obj->test, 20_000, 5 ) = 'hello';