Discussion :

[sebbb59]

Bonjour, je voudrais savoir comment faire pour que mon utilisateur puisse saisir une chaine de caractère aussi longue qu'il le désire et qui puisse être interrompu par l'utilisateur à n'importe quel moment.

J'espère que les explications sont claires. D'autres part j'aimerais savoir comment protéger cette chaîne contre une saisie malveillante.

Les informations saisies seront utilisées pour traitement antérieur.

[djibril]

<STDIN> ne te suffit pas ?

D'autres part j'aimerais savoir comment protéger cette chaîne contre une saisie malveillante.

C'est à dire ?

[sebbb59]

STDIN va s'interrompre sur la saisie de "entrée" par l'utilisateur or j'aurai besoin du caractère '\n' dans ma saisie utilisateur pour séparer les "enregistrements".

Je pense qu'avec ces besoins le STDIN ne suffira pas.

Sinon pour la protection en fait je veux empêcher que l'utilisateur puisse faire autre chose que ce qu'il doit faire. C'est vagues comme explications en même temps ça correspond tout à fait à mon cahier des charges. Je suis pas très documenter sur l'aspect sécurité des scripts Perl mais le langage à l'air plutôt permissif donc je me méfie.

[djibril]

Bon, il existe ce module Text::LineEditor très simple d'utilisation qui te permet de faire une saisie multi ligne. Il est assez rudimentaire, mais te permettra de faire ce que tu veux.
Une fois que l'utilisateur à taper son texte, il tape ~. + entree pour sortir.

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use warnings;
use Text::LineEditor;
 
my $saisie = line_editor();
 
print "Voici la saisie : saisie\n";

ensuite, pour la sécurité, à toi de tester le contenu de la variable $saisie.

Teste ce module, je vais essayer de voir s'il y en a des récents plus puissant qui font du multiligne.

[sebbb59]

Pour le moment j'ai résolu mon problème de saisi de ligne.

Avec while et STDIN.

Je suis quand même preneur de fonction pour faire des saisies multiligne ça allégerai un peu le script et puis c'est toujours bon à savoir

Merci de ton aide djibril.

[djibril]

Sincèrement le plus propre est d'utiliser le module ci-dessus ou un GUI temporaire.
Je t'ai fait une procédure Tk.

Voici un exemple de script :

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
42
43
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
 
 
my $Saisie = SaisirTexteMultiligne("Saisissez un texte : ");
 
 
print "Voici le resultat de ma saisie :$Saisie\n";
 
 
sub SaisirTexteMultiligne {
  my ($Message) = @_;
 
 
 
  my $LaSaisie; 
  my $Fenetre = new MainWindow(-background => "#6699CC",);
  $Fenetre->title("Editeur de texte");
  $Fenetre->Label(
    -text => $Message,
    -background => "#6699CC",
  )->pack( qw/ -fill x -expand 0/ );
 
  my $Text = $Fenetre->Scrolled("Text",
    -scrollbars => "osoe",
    -height    => 20,
  )->pack( qw/ -fill  both -expand 1/ );
  $Fenetre->Button(
    -text => "OK",
    -width => 10,
    -command => sub {
      #$Fenetre->destroy;
      $LaSaisie = $Text->get("1.0", 'end');
      $Fenetre->destroy;
    }
  )->pack();
  $Text->focus;
  MainLoop;
 
  return $LaSaisie;
}