J
john swilting
I would wish to store the result of the loop while in a list. I must make
how?
#!/usr/bin/perl -w
use strict;
use warnings;
my %Conf;
$Conf{XferMethod} = 'rsync';
$Conf{XferLogLevel} = 1;
$Conf{RSyncShareName} = '___1___';
$Conf{ClientNameAlias} = '___2___';
while(my($clef, $valeur) = each (%Conf)) {
print "$clef => $valeur","\n";
}
how?
#!/usr/bin/perl -w
use strict;
use warnings;
my %Conf;
$Conf{XferMethod} = 'rsync';
$Conf{XferLogLevel} = 1;
$Conf{RSyncShareName} = '___1___';
$Conf{ClientNameAlias} = '___2___';
while(my($clef, $valeur) = each (%Conf)) {
print "$clef => $valeur","\n";
}