Discussion :

[morphemia]

Bonjour à tous, j'ai fini tous les scripts perl que je devais faire mais un collègue me demande de les modifier pour qu'ils fonctionnent non pas avec des noms de fichiers en dur mais sur l'entrée/sortie standard. Ce qui lui permettra d'executer les programmes à la suite dans un .ksh. Mais là ce qu'il me demande ça dépasse mon peu de capacités en perl. Pourriez-vous m'aider ?

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
#!/usr/bin/perl;
use warnings;
use strict;
 
my $fichier_en     = 'title-abs-en-brut-A61K.txt';
my $fichier_fr     = 'title-abs-fr-brut-A61K.txt';
my $fichier_unk    = 'title-abs-unk-brut-A61K.txt';
my $fichier_corpus = 'corpus-A61K.txt';
open my $fh_corpus, "<:utf8", $fichier_corpus or die "Impossible de lire $fichier_corpus\n";
open my $fh_fr,   ">:utf8",   $fichier_fr     or die "Impossible de lire $fichier_fr\n";
open my $fh_en,   ">:utf8",   $fichier_en     or die "Impossible de lire $fichier_en\n";
open my $fh_unk,  ">:utf8",   $fichier_unk    or die "Impossible de lire $fichier_unk\n";
my ( $CLASS, $TITLE, $ABS );
 
while ( my $ligne = <$fh_corpus> ) {
 
  if ( ( $CLASS, $TITLE, $ABS )#anglais
    = $ligne =~ /^<(.*\d+)>(?:.*)<ttp lng='eng'>(.*)<\/ttp>(?:.*)<reseng>(.*)<\/reseng>(?:.*)$/ )
  {
    print {$fh_en} $TITLE." ".$ABS." ".$CLASS."\n";
  }
  elsif ( ( $CLASS, $TITLE, $ABS )#anglais
    = $ligne =~ /^<(.*\d+)>(?:.*)<ttp lng='fre'>(.*)<\/ttp>(?:.*)<reseng>(.*)<\/reseng>(?:.*)$/ )
  {
    print {$fh_en} $ABS." ".$CLASS."\n";
  }
  elsif ( ( $CLASS, $TITLE, $ABS )#francais
    = $ligne =~ /^<(.*\d+)>(?:.*)<ttp lng='fre'>(.*)<\/ttp>(?:.*)<resfre>(.*)<\/resfre>(?:.*)$/ )
  {
    print {$fh_fr} $TITLE." ".$ABS." ".$CLASS."\n";
  }
  elsif ( ( $CLASS, $TITLE, $ABS )#francais
    = $ligne =~ /^<(.*\d+)>(?:.*)<ttp lng='eng'>(.*)<\/ttp>(?:.*)<resfre>(.*)<\/resfre>(?:.*)$/ )
  {
    print {$fh_fr} $ABS." ".$CLASS."\n";
  }
  else {
    print {$fh_unk} $ligne."\n";#pas de resume ni anglais ni francais
  }
}

Merci d'avance.

[djibril]

Tu as ta réponse ici : Comment récupérer proprement les arguments de la ligne de commande ?

Attention : Dans ton code ci-dessus, tu ne fermes pas tes fichiers. Penses-y !!

[morphemia]

Merci Djibril, je vais regarder ça.

[morphemia]

J'ai lu pas mal de documentation sur les entrées et sorties standards mais je ne comprends toujours pas comment je peux les intégrer dans mon programme, sachant que j'ai 1 input et 3 output.

[Philou67430]

Je ne comprends pas ta question sur les "entrées-sorties standards"... alors que j'ai plutôt l'impression que ton problème repose sur le passage d'argument à un script...

Soit tu réalises une solution minimaliste qui utilise la variable automatique @ARGV qui contiendrait la liste des fichiers d'entrée et de sorties fournis lors de l'appel du script, soit tu utilises un des modules de traitement de paramètre comme djibril te l'a indiqué.

Exemple minimaliste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my $usage = <<'USAGE';
  Usage : $0 fichier_corpus fichier_en fichier_fr fichier_unk
USAGE
 
my ($fichier_corpus, $fichier_en, $fichier_fr, $fichier_unk);
die $usage if (4 != (($fichier_corpus, $fichier_en, $fichier_fr, $fichier_unk) = @ARGV));

[morphemia]

On me demande de faire une version de mes programmes qui fonctionne avec des redirection d'entrée et sortie standards. Cette même personne doit gérer les input et output dans un fichier ksh, il souhaite exécuter les programmes à la suite en pipant les flux dans le programme ksh.

Je suis désolée si je m'explique mal mais je commence seulement à programmer en Perl et je n'y connais pas grand chose en informatique.

Concernant le bout de code que Philou m'a donné dois-je simplement le coller dans mon code ?

Merci d'avance de votre compréhension.