Help for this page

Select Code to Download


  1. or download this
    my $dbase_obj = tie (%dbase, 'DB_File', $dbase, O_CREAT|O_RDWR, 0644)
       || die "Died tying database\nReason: $!\n";
    ...
    
    $dbase{word} = $word;
    $dbase_obj->sync()
    
  2. or download this
      shift @words until $words[0] =~ m/$start/;
    
  3. or download this
      shift @words until $words[0] eq $start;