in reply to if $bard...

love($Caesar) < love($Rome);

[download]
Julius Caesar - 1599 - Act III. - Scene 2. - Rows: 22

$Rose = $Rose ? name($Rose) : Smell($Sweet); Romeo and Juliet - 1595 - Act II. - Scene 2. - Rows: 47-48

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

Replies are listed 'Best First'.
Re: Re: if $bard...
by ChemBoy (Priest) on Apr 18, 2001 at 19:24 UTC
    Or alternatively 
    $rose{smell} = $rose{name} eq "rose" ? "sweet" : "as sweet";

    [download]
    Update: string comparison... oops

    If God had meant us to fly, he would *never* have give us the railroads.
        --Michael Flanders

[reply]
[d/l]

      Educational interlude ... let's do it with typeglobs! 

      #!/usr/bin/perl

$rose = "smells sweet to degree n";
*other_name = *rose;
print "$other_name\n";

      [download]
[reply]
[d/l]
      I actually doubted on that one... I considered this as well...

      $Rose = name($Rose) ? $Rose : Smell($Sweet);

      Since it would match "that which we call a rose By any other name would smell as sweet" better...

      Greetz
      Beatnik
      ... Quidquid perl dictum sit, altum viditur.
[reply]
[d/l]

In Section Perl Poetry