note
choroba
Works for me:<c>
#!/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};
</c>
Output:<c>
<-->
</c>
Use [mod://Data::Dumper] to check that your structures really contain what you think.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1006440
1006440