How to retrieve element in hash?

[MadDogSailor]

Hi, I am relatively new to perl and now I am struggling with a very nasty and persistant problem, which already took me more than a day without any progress. No experienced Perl programmers in sight...... My problem: Given this piece of code:

my $recref = $dbh->
    selectall_hashref("SELECT * FROM DSA_RECORD 
       WHERE file_name = '$file_name'", 'RECORD_NAME');
die unless $recref;

and the following content of $recref:

.-> HASH(0x110916be8)
   'DATA' => HASH(0x110916a98)
      'FIELD_DELIMITER' => '<-->'
      'FILE_NAME' => 'SCRAMBLETEST2.CSV'
      'RECORD_NAME' => 'DATA'
      'RECORD_SELECTOR' => '^1'
      'SECTION_NAME' => undef

How can I put the contents of FIELD_DELIMITER in a scalar? So in the end I need a scalar ($fieldsep) with '<-->' as contents. My impression was :

$recname='DATA';
$fieldsep = $recref->{$recname}->{'FIELD_DELIMITER'};

but this results in error :

Use of uninitialized value in print .....

Please can someone help me, I am getting frustrated. Thanks in advance

[choroba]

Works for me:

#!/usr/bin/perl
use warnings;
use strict;

my $recref = { DATA =>
               {
                FIELD_DELIMITER => '<-->',
                FILE_NAME       => 'SCRAMBLETEST2.CSV',
                RECORD_NAME     => 'DATA',
                RECORD_SELECTOR => '^1',
                SECTION_NAME    => undef,
               }};
my $recname = 'DATA';
print $recref->{$recname}{FIELD_DELIMITER};

Output:

<-->

Use Data::Dumper to check that your structures really contain what you think.

[bitingduck]

It could be a scoping issue--post the continuous chunk of code that encloses the my $recref=... through the assignment and print.

[t_rex_joe]

MD, You may going about using the "field delimiter" in the wrong context. I prefer using "bind columns", this will keep the returned records (fields) more organized. I know you mentioned a "CSV file" however the tables/databases will change your mind with scale.

use DBI;

  #### MY SQL
  $dbhost = "10.1.1.15";
  $dbh = undef;
  $db = "ip_track";
  $user = "mysql";
  $pass = "mysql_admin";
  $connect = "DBI:mysql:database=$db;$dbhost:3306";
  #### EO MYSQL
  $dbh = undef; $query = undef; $sth = undef; $ect = 0; @row = (); $db
+ok = 1;
  $dbh = DBI->connect($connect,$user,$pass, { PrintError => 1, RaiseEr
+ror => 0, AutoCommit => 1 }) or warn "DBERR: $DBI::errstr \"" . __LIN
+E__ . "\n";
  $query = "SELECT cllseen FROM tblipdec where clipdec = ?";
  if($debug == 1) { print "QUERY: \"$query\"\n"; }
  $sth = $dbh->prepare($query); $sth->execute($ipdec);
  my $mts = undef;
  $sth->bind_columns(undef, \$mts);
  while(@row = $sth->fetchrow_array()) { $ect++; } $sth->finish; $dbh-
+>disconnect;
  if($debug == 1) { print "ECT: \"$ect\"\n"; }
  if($debug == 1) { print "MTS: \"$mts\"\n"; }

this snippet of "clipdec = ?" is VERY important, this is how you can pass variables directly to the DB. This will help with mitigating sql injection. The book "MySQL and perl for the web" was my intro into programming with DBs. "http://www.kitebird.com/mysql-perl/" Joe.

[NetWallah]

The command-line perl debugger is wonderful for exploring data structures - allows you to experiment without causing damage.

use "perl -d <program>" to start, and it has a 'h' command for help.

Use CTRL-C freely to kill output, if excessive at any time.