Help for this page

Select Code to Download


  1. or download this
    sub ReadSource{
        my ($DataSource, $HashRef) = @_;
    ...
          push( @$item, $DataSource );
        }
    }
    
  2. or download this
    sub ReadSource{
        my ($DataSource, $HashRef) = @_;
    ...
        push( @{ $HashRef->{$_} ||= [] }, $DataSource )
         for @Data;
    }