Help for this page

Select Code to Download


  1. or download this
    if ( $function eq 'load' ) {
  # this
...
else {
  # any other stuff or something unexpected?
}
  2. or download this
    my $junk;
($junk,my $headsent,my $headword) =  split(/[sw]/,$h);
  3. or download this
    # no $junk anymore and no doubled 'my' !
my ( $headsent, $headword ) = ( split /[sw]/, $h )[1,2];