Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
        <columnname>DATE1</columnname> 
        <columnname>DATE2</columnname>
</config>
  2. or download this
    $ perl xml.pl
$VAR1 = {
...
                        ]
        };
  3. or download this
    my @columnames = @{$ref->{columnname}};

or loop over it without assignment.

printf "%s\n", $_ for (@{$ref->{columnname}});