summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBertrand Jacquin (Beber) <beber.mailing@gmail.com>2006-05-30 01:25:05 +0200
committerbeber <beber@meathook.melee>2006-05-30 01:25:05 +0200
commit9d16822211ab5155aca5e6dbd27fee02f10c231f (patch)
tree7c9df2c908c2f1ca1152ce7c7716fb410ec085f5
parentmove rb/ to ruby/ (diff)
downloadwmhuitrehuitre-9d16822211ab5155aca5e6dbd27fee02f10c231f.tar.gz
perl: be less verbose
And maybe it a bit beautiful, now show good things
'>Diffstat
--rwxr-xr-x'>perl/main.pl44
--rwxr-xr-xr-xperl/wmhuitrehuitre.pl22
2 files changed, 3 insertions, 3 deletions
diff --git a/perl/main.pl b/perl/main.pl
index 32735a7..881f1cd 100755
--- a/'>perl/main.pl
+++ b/perl/main.pl
@@ -94,8 +94,8 @@ foreach my $cle (keys (%hash))
my %infos = %$inf;
$time .= $hash{$cle}{'time'} . "\n";
- $msg .= $hash{$cle}{'message'} . "\n";
- $login .= $hash{$cle}{'login'} . "\n";
+ $msg .= $hash{$cle}{'message'} . "\n" if (defined $hash{$cle}{'message'});
+ $login .= $hash{$cle}{'login'} . "\n" if (defined $hash{$cle}{'login'});
#print $info . " = " . $hash{$cle}{$info} . "\n";
}
diff --git a/perl/wmhuitrehuitre.pl b/ b/perl/wmhuitrehuitre.pl
index 43da4a5..b5a7a5b 100755
--- a/perl/wmhuitrehuitre.pl
+++ b/perl/wmhuitrehuitre.pl
@@ -46,7 +46,7 @@ for (my $i = 0; $i < $paras->getLength; $i++)
{
foreach my $noeud2 ( $noeud->getChildNodes )
{
- print $id."\n";
+# print $id."\n";
$hash{$id}{$noeud->getNodeName} = $noeud2->getNodeValue;
}
}