Help for this page

Select Code to Download


  1. or download this
      
my $files_like = time;
my @existing   = map {m/tmp_(\d+)$/} glob('./tmp_*');
...
open TEMP,">./tmp_$next_file" or die;
#    do something
close TEMP;
  2. or download this
     my $tables_like  = 'test001';
 my $tables       =  [$dbh->tables()];

...
 $sth->execute;              
#    do something
 $dbh->do("DROP TABLE $test_table");
  3. or download this
    sub nextuniq{
  my ($test_item,$item_list) = @_;
...
  $new_item = $test_item;
  $new_item;
}