Centralisation des mémos



[Perl] _stdin : récupérer une saisie de l'utilisateur

Ajouté par BoboTiG le 28/01/2011 à 16:50

# ---------------------------------------------------------------------- # 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 ----------------------------------------------------------

moc.liamg@gitobob - Accueil - Rechercher - Proposer un mémo - 192 mémos (1)