#!/usr/bin/perl

use strict;
use warnings;

use PDF::FDF::Simple;
use Data::Dumper;

my $fdf = new PDF::FDF::Simple ();

$fdf->filename('13969.fdf');
$fdf->load();

my $values = {
	'form1[0].Page1[0].Adhesion[0]' => 'Fédération des ...',
	'form1[0].Page1[0].Comp_Init[0]' => 1,
#	'form1[0].Page1[0].Comp_Modif[0]' => 0,
	'form1[0].Page1[0].Date_declaration[0]' => '25 juin 2011',
	'form1[0].Page1[0].Lieu_declaration[0]' => 'Paris',
	'form1[0].Page1[0].Nbre_Init[0]' => '7',
#	'form1[0].Page1[0].Nbre_Modif[0]' => '7',
	'form1[0].Page1[0].Nom_declarant[0]' => 'Benjamin BAYART, président',
	'form1[0].Page1[0].Num_Waldec[0]' => ,
	'form1[0].Page1[0].Titre_Long[0]' => 'Ceci est le titre en long !'
};
print Dumper(sort keys %{$fdf->content});


