in reply to Printing based on values?

If you store your data in a hash, you could loop throught the keys and only print if each value is not 0: 
use warnings;
use strict;

my %age = (
    years  => 5,
    months => 0,
    weeks  => 2,
    days   => 0,
);

for (sort keys %age) {
    print "$_ = $age{$_}\n" if $age{$_};
}

__END__

weeks = 2
years = 5

[download]

Replies are listed 'Best First'.
Re^2: Printing based on values?
by Douglas0028 (Novice) on Mar 26, 2011 at 23:46 UTC

    I think I sort of get what you mean, but I'm really new to Perl, and I'm not sure if I explained exactly what I wanted to do right, or if I'm just not understanding your code.

    In my head I think of a print statement that looks like...

    print "You are $years years $months months $weeks weeks $days days old.";

    So now if you were 28 years and 3 days old...it would only print "You are 28 years 3 days old."? Or if you were 28 years and 1 week old...it would only print "You are 28 years 1 week old." Does storing them in a hash allow me to do that?

[reply]
[d/l]
      You could still use a hash: 
      use warnings;
use strict;

my %age = (
    years  => 28,
    months => 0,
    weeks  => 0,
    days   => 3,
);

print 'You are ';
for (qw(years months weeks days)) {
    print "$age{$_} $_ " if $age{$_};
}
print "old.\n";

__END__

You are 28 years 3 days old.

      [download]

      But, an array may be simpler.

[reply]
[d/l]

        Ahh, wonderful, thank you! That works just as you said. I do have two questions about your code though...

        What does the "qw" do in the statement

        for (qw(years months weeks days))

        [download]

        When I read that entire statement to myself...I read it as "For (qw?(Every key in the hash)...print "The value of the key followed by the key" if "That key value is true."

        Does that sound right to you? I'm not trying to be a pain, I just want to understand everything in that code.

[reply]
[d/l]

In Section Seekers of Perl Wisdom