On Thu, May 28, 2009 at 23:49, sanket vaidya <sanket.vai...@patni.com> wrote:
snip
> Can anyone write few simple codes explaining the behavior that Chas
> mentioned, So that I can explore the codes for getting better picture?
snip

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @a = 1 ... 10;

print "normal flip flop behavior:\n",
        "the .. operator\n";
for my $n (@a) {
        if ($n == 3 .. $n == 6) {
                print "\t$n\n";
        }
}

print "\nthe ... operator\n";
for my $n (@a) {
        if ($n == 3 ... $n == 6) {
                print "\t$n\n";
        }
}

print "\nbehavior when the condition is true for both tests at the same time\n",
        "the .. operator\n";
for my $n (@a) {
        if ($n == 3 .. $n == 3) {
                print "\t$n\n";
        }
}

print "\nthe ... operator\n";
for my $n (@a) {
        if ($n == 3 ... $n == 3) {
                print "\t$n\n";
        }
}

-- 
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to