Help for this page

Select Code to Download


  1. or download this
           chomp $readline;
       my ($key , $value) = (split /::/, $readline);
       defined $key and $data_ids{$key} = $value;
  2. or download this
           chomp $readline;
       my ($key , $value) = (split /::/, $readline);
       $data_ids{$key} = $value if $key;
  3. or download this
           chomp $readline;
       if ( my ($key , $value) = (split /::/, $readline) ) {
         $data_ids{$key} = $value;
       }