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/