Skip to main content

Sample perl programs

1.biggest of two numbers
print "Enter two numbers\n";
$a = <STDIN> ;
$b = <STDIN> ;

if($a>$b)
{$big=$a;}
else
{$big=$b;}

print "biggest=$big";
2.Biggest of 3 numbers
print "Enter three numbers\n";
$a = <STDIN> ;
$b = <STDIN> ;
$c = <STDIN> ;
if ($a >$b and $a > $c)
 {print "biggest is=",$a;}
elsif ($b >$a and $b > $c)
 {print "biggest is=",$b;}
else
 {print  "biggest is=",$c;}
3.printing 1-100 ( for and while)
#print 1-100

for($i=1;$i<=100;$i++)
{
print "$i\n";
}
$i=1
while($i<=100)
{
print "$i\n";
$i=$i+1;
}

4. Creating a 10 elemnt array and sorting it in ascending and descending order
# @a   IS THE ARRAY
print "enter 10 numbers\n";
for($i=0;$i<10;$i++)
{
$x=<STDIN>;
push(@a,$x);
}
@aso=sort { $a <=> $b } @a;
@dso=sort { $b <=> $a } @a;
print "Array is ascending order \n";
print "@aso";
print "Array in descending order \n";
print "@dso";

5.Reading list of 10 names and sorting it

print "enter 10 names\n";
for($i=0;$i<10;$i++)
{
$x=<STDIN>;
push(@a,$x);
}
@aso=sort  @a;
@dso=reverse sort  @a;
print "Names in sorted order \n";
print "@aso";
print "Names in reverse order \n";
print "@dso";


6.Read 5 numbers and find the sum and average
# @a IS THE ARRAY
print "enter 5 numbers\n";

for($i=0;$i<5;$i++)
{
$x=<STDIN>;
push(@a,$x);
}

foreach $x (@a)
{
 $s=$s+$x;
}
$n=@a;
$avg=$s/$n;

print "sum=$s Average= $avg\n";


7. Display all the files in /tmp directory.

$dir = "/tmp/*";
@files = glob( $dir );

foreach (@files )
{
   print $_ . "\n";
}

8.opening a file stud and displaying its contents
open(DATA, "<stud") ;

while(<DATA>)
{
  
  print $_;
}

9.opening a file stud and displaying  rno name only.
open(DATA, "<stud") ;

while(<DATA>)
{
  @a=split('\Q|',$_); # split each line and store it into an array a.
  print "$a[0]   $a[1]\n";
}
10.Read and string and remove all the occurrence of the word 'is'.
print "Enter the string\n";
$str=<STDIN>;
@words=split(' ',$str);
$nw=@words;
print "Number of words=$nw\n";
$ns="";
foreach $w  (@words)  # will take each word from the words array
{
if( $w ne "is")
{
$ns=$ns." ".$w; #creating a new string after removing word is
}
}
print "New String After Removing is.\n";
print "$ns\n";

Labels

Labels:

Popular posts from this blog

Writing a Bash Shell Script

Bash shell scripts in Linux are text files that contain a series of commands that can be executed by the Bash shell. Bash (Bourne Again Shell) is a popular shell in Linux and UNIX systems, and shell scripts are used to automate tasks, configure systems, or perform a sequence of operations. How to Write a Bash Shell Script Create a New File: You can create a new script using any text editor like nano , vim , or gedit . gedit myscript.sh Write the Script: A basic shell script begins with a "shebang" ( #!/bin/bash ) to specify the interpreter that will be used to execute the script. The rest of the file contains the commands to be run. Example of a simple script: #!/bin/bash # This is a comment echo "Hello, World!" # Print "Hello, World!" #!/bin/bash : Specifies that the script will be executed using the Bash shell. echo "Hello, World!" : A command that prints the string "Hello, World!" to the terminal. Comments: Any line starting ...
Post a Comment
Read more

Different syntax for writing arithmetic expressions in bash shell

#!/bin/bash echo "Enter two numbers" read a b s=`expr $a + $b` echo "Sum1=$s" s=$[$a+$b] echo "sum2=$s" ((s=$a+$b)) echo "sum3=$s" ((s=a+b)) echo "sum3=$s" let s=$a+$b echo "sum4=$s" let s=a+b echo "sum4=$s" Note:bash shell support only integer arithmetic.zsh support operations on real numbers.We can use bc in bash shell to do real arithmetic. Eg: echo "$a*$b"|bc # where a and b are real Mathematical Operators With Integers Operator Description Example Evaluates To + Addition echo $(( 20 + 5 )) 25 - Subtraction echo $(( 20 - 5 )) 15 / Division echo $(( 20 / 5 )) 4 * Multiplication echo $(( 20 * 5 )) 100  % Modulus echo $(( 20 % 3 )) 2 ++ post-increment (add variable value by 1) x=5 echo $(( x++ )) echo $(( x++ )) 5 6 -- post-decrement (subtract variable value by 1) x=5 echo $(( x-- )) 4 ** Exponentiation x=2 y=3 echo $(( x ** y )) 8
Post a Comment
Read more

Basic Linux Commands For Beginner's

Basic Linux Commands for Beginners Linux is an Operating System’s Kernel. You might have heard of UNIX. Well, Linux is a UNIX clone. But it was actually created by Linus Torvalds from Scratch. Linux is free and open-source, that means that you can simply change anything in Linux and redistribute it in your own name! There are several Linux Distributions, commonly called “distros”. A few of them are: Mint Ubuntu Linux Red Hat Enterprise Linux Debian Fedora Kali Linux is Mainly used in Servers. About 90% of the Internet is powered by Linux Servers. This is because Linux is fast, secure, and free! The main problem of using Windows Servers are their cost. This is solved by using Linux Servers. Forgot to mention, the OS that runs in about 80% of the Smartphones in the World, Android, is also made from the Linux Kernel. Yes, Linux is amazing! A simple example of its security is that most of the viruses in the world run on Windows, but not on Linux...
4 comments
Read more