On Tue, Sep 13, 2011 at 10:00 AM, pradeep <epradeep.kumar1...@gmail.com> wrote:
> Can anyone help me in this????
Of course we can!
#/usr/bin/perl
use strict;
use warnings;
my $input = <>;
chomp $input;
if($input eq '1,2,3,4,5,6')
{
print <<'EOF';
1-2,3-4,5-6
1-2,3-5,4-6
1-2,3-6,4-5
1-3,2-4,5-6
1-3,2-5,4-6
1-3,2-6,4-5
1-4,2-3,5-6
1-4,2-5,3-6
1-4,2-6,3-5
1-5,2-3,4-6
1-5,2-4,3-6
1-5,2-6,3-4
1-6,2-3,4-5
1-6,2-4,3-5
1-6,2-5,3-4
EOF
}
__END__
You're welcome. <_<
Regards,
--
Brandon McCaig <http://www.bamccaig.com/> <bamcc...@gmail.com>
V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
Castopulence Software <http://www.castopulence.org/> <bamcc...@castopulence.org>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
