#! /usr/bin/perl -w

use Getopt::Long;
use strict;

#================================================================
# cde
# ttg2line.pl -file lesdiabetiques.ttg > lesdiabetiques.line
#================================================================
sub usage {
    warn "Usage :
   -file      #
   \n"
}

#================================================================
# traitement des options

my $file = "";

#================================================================
unless (&GetOptions(
	     "file=s", \$file,
	)) 
{
    warn "Problème d'options\n";
    &usage;
    die;
}

#================================================================
# variables globales

#================================================================

# une fonction
sub ReadFile {
    # récupérer le nom du fichier
    my $f = $_[0];
    # déclaration du tableau contenant la phrase
    my @sent = ();
    # créer un handle qui permet d'ouvrir le fichier
    open (FILE, $f) || die "no such file '$f'\n";
    # ouverture du fichier avec le handle
    while (<FILE>) {
	# dans ce contexte, la variable par defaut $_ 
	# contient la ligne courante du fichier
	# on crée une variable dédiée $l qui contient une ligne
	my $l = $_;
	# on enleve le dernier caractère (saut à la ligne)
	chop($l);
	if ($l =~ /passer\/[^ ]+ [^\/]+\/([^\/]+)\/PRP/) {
	    print "passer $1 : $l\n";
	}
    }
}

sub main {
    # appel de la fonction
    &ReadFile($file);
}

# appel de la fonction principale
&main;
