Petite question en PERL
safir
-
safir -
safir -
Bonjour,
Que signifie ceci en perl SVP :
$var_name =~ s/^\s*([^\s]+)\s*$/$1/;
voilà le bout du programme :
for ( $ivar = 1; $ivar <= $NB_VAR; $ivar++ )
{
$var_name = <STDIN>;
chop $var_name;
$var_name =~ s/^\s*([^\s]+)\s*$/$1/;
.....
}
Merci beaucoup
Que signifie ceci en perl SVP :
$var_name =~ s/^\s*([^\s]+)\s*$/$1/;
voilà le bout du programme :
for ( $ivar = 1; $ivar <= $NB_VAR; $ivar++ )
{
$var_name = <STDIN>;
chop $var_name;
$var_name =~ s/^\s*([^\s]+)\s*$/$1/;
.....
}
Merci beaucoup
