Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
}

MainLoop;
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
    $lb->insert( 'end', 1 .. 10000 );
}
  3. or download this
    #####################################
#!/usr/bin/perl
...
  @array = map{"$_.a"}(1..10000);
  $lb->update;
}