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:

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

Flow Control in shell script - if and case statements

Shell script usually consist of sequence of commands that starts at the first line and continues line by line until it reaches the end. Most programs do much more than this. They make decisions and perform different actions depending on conditions. The shell provides several commands that we can use to control the flow of execution in our program. In this lesson, we will look at the following:  test if case exit   test The test command is used most often with the if command to perform true/false decisions. The command is unusual in that it has two different syntactic forms: # First form test expression # Second form [ expression ] The test command works simply. If the given expression is true, test exits with a status of zero; otherwise it exits with a status of 1. Common numerical test conditions -gt   Greater than -lt    Less than -ge  Greater than or equal to -le    Less than or equal to -eq   Equal to -ne...
Post a Comment
Read more