Help for this page

Select Code to Download


  1. or download this
    package StringArray;
require Tie::Array;
...
sub STORESIZE { $$self = substr(${$_[0]}, 0, $_[1])  }
sub DELETE    { substr(${$_[0]}, $_[1], 1) = '' }
1;
  2. or download this
    #!perl -w
use StringArray;
...
print "after delete: test = $test\n";
push @testa, "C";
print "after push: test = $test\n";