Ajouté par BoboTiG le 28/01/2011 à 16:50
<![CDATA[# ----------------------------------------------------------------------
# Fonction : _stdin
# Objectif : good replacement for <STDIN> to avoid perlcritic warn :
# ' Use "<>" or "<ARGV>" or a prompting module instead of
# "<STDIN>" '
# Entries : none
# Returns : (string)user input
# Update : 20100729
#
sub _stdin {
my $io;
my $string = q{};
$io = IO::Handle->new();
if ( $io->fdopen(fileno(STDIN), 'r') ) {
$string = $io->getline();
$io->close();
}
chomp $string;
return $string;
} #end _stdin ----------------------------------------------------------]]>