> $VAR1 = {
> 'LastScreen' => [
> '/MR-@0,324,',
> '/MR-@0,324,'
> ],
> 'Subject' => [
> 'Blah blah blah',
> 'Blah blah blah'
> ],
> 'Message' => [
> '‘blah blah’ blah blah ‘blah blah’ blah.',
> '<91>blah blah<92> blah blah <91>blah blah<92>blah.'
> ]
> }
If you know the fields that are supposed to have select
lists on them (e.g., @select_list{qw(field field field)} = 1)
then you can walk down the list and compare ref $contents with
$select_list{$name}. If both are true then it's a list, else
it's 8 bit junk in two fields; both false gives you a normal
field.
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
