Programming

[root@u perl]# cat array.pl
#!/usr/bin/perl

print "enter the total no of numbers you want to enter";

chop($no=<STDIN>);

my @array=($no);
print "enter the numbers to array with one space gap";

@array=<STDIN>;

print "@array";

[root@u perl]#

#!/usr/bin/perl -w
foreach (@ARGV) {
print "Args are: $_\n";
}

perl try.pl Num1 Num2 Num3

Args are: Num1
Args are: Num2
Args are: Num 3

perl try.pl "Num1 Num2 Num3"

Args are: Num1 Num2 Num3

Please enter number of nos in the series .
5

Enter the numbers :

1 
2
4
5

1
2
3
4
5

#!/usr/bin/perl -w

my ($i,@a,@b);

print "Enter the number of numbers:\n";
chomp(my $tot=<STDIN>);

print "Enter the numbers:";

foreach (<STDIN>) {
chomp($_);
#if (! $_ =~ /^[0-9]$/ ) {
#print "Give number only as a input\n";
#exit;
#}
push @a,$_;
}

for ($i=1; $i<=$tot; $i++) {
push @a,$i if not $i ~~ @a;
}

@b=sort { $a <=> $b } @a;
print "output is:\n";
foreach (@b) {
print "$_\n";
}

Enter the number of numbers:
4
Enter the numbers:
1
2
4

1
2
3
4