Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my %hash = do{local $/; <$fh>} =~ /^TG:\s(VIN:\d+)\ntype:\s(.*)/gm;

print Dumper \%hash;

Select or download this

$VAR1 = {
          'VIN:1000001' => 'a very special type of car',
          'VIN:1000002' => 'a very special type of boat',
          'VIN:1000000' => 'a very special type of plane'
        };