#!/usr/bin/perl -w use strict; use warnings; print "Enter first Number: "; my $ipa = <STDIN>; print "Enter last Number: "; my $ipb = <STDIN>; my $ipc = $ipa +1; while ($ipc <= $ipb) { $ipc; print $ipc; } # my @range = ($ipa, $ipb); if ($ipc < $ipb){ @range = ($ipa, $ipb); unshift(@range, $ipc); } else { print $ipc; } sub ascend { $ipa = $ipb; } my @rl = sort ascend @range; print join(",",@rl);
In reply to Adding Numbers by NastyPenguin
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |