Help for this page

Select Code to Download


  1. or download this
    my $recref = $dbh->
    selectall_hashref("SELECT * FROM DSA_RECORD 
       WHERE file_name = '$file_name'", 'RECORD_NAME');
die unless $recref;
  2. or download this
    .-> HASH(0x110916be8)
   'DATA' => HASH(0x110916a98)
...
      'RECORD_NAME' => 'DATA'
      'RECORD_SELECTOR' => '^1'
      'SECTION_NAME' => undef
  3. or download this
    $recname='DATA';
$fieldsep = $recref->{$recname}->{'FIELD_DELIMITER'};
  4. or download this
    Use of uninitialized value in print .....