Lancer l'éditeur configuré par défaut

Voici un module fort pratique pour lancer l'éditeur par défaut de votre système : Term::CallEditor . Cet éditeur est configuré via la variable d'environnement globale EDITOR, bien souvent il s'agit de vi ou d'un éditeur de base similaire.

use Term::CallEditor;

my $fh = solicit('Ceci est le texte a remplacer');

unless($fh) {
        die $!;
}

while(my $line = <$fh>) {
        print $line;
}