Select Code to Download

#!/usr/bin/env perl

...

use Data::Dump;
dd $result;

$ ./pm_11142528_parse_file.pl
Usage: ./pm_11142528_parse_file.pl input_file

$ ./pm_11142528_parse_file.pl not_a_file
Can't open 'not_a_file' for reading: 'No such file or directory' at ./
+pm_11142528_parse_file.pl line 17

$ cat pm_11142528_parse_file.txt
objet => debut
...
...
z => "aurai-je le dernier mot ?"
objet => fin

$ ./pm_11142528_parse_file.pl pm_11142528_parse_file.txt
[
  { a => "premiere valeur", index => 1, z => "dernier mot" },
  { a => "autre valeur", index => 77, z => "aurai-je le dernier mot ?"
+ },
]