Help for this page

Select Code to Download


  1. or download this
    my @s = ( /([^(]+)(\([^)]+\))(.*)/ );
  2. or download this
    my @s{qw/table fields values/}) = ( /([^(]+)(\([^)]+\))(.*)/ );
  3. or download this
    @row{qw/name company title/} = $DBH->selectrow_array("...");