Different formats in Perl

Formats  are defined by using a keyword format and ended by a dot(.) and to write using that format we have to assign this value to system variable $~. Below are some examples of formats: Program Code: #! /Perl/bin/perl $~ ="MYFORMATHEADER"; write; format...

Read More

Format Headers in Perl

Program Code: #! /Perl/bin/perl print("Enter a sentence\n"); open(FILE,">abhi1.txt"); select(FILE); $~ = STDOUT1; $^=STDOUT1_TOP; $= =65; $line=<STDIN>; write; close(FILE); format STDOUT1_TOP= Page @<< $% ====================================================== . format...

Read More

File handling in Perl

1)Checking the file existence: Program Code: #! /Perl/bin/perl unless(open(IN, "abhi3.txt")) {   if(-e "abhi3.txt") { die ("file can't be opened"); } else { die("File doesn't exist"); } } print("File Exist!!!!!!!!!!!"); Output: 2)File...

Read More

List count in Perl

Method 1: Program Code: #! /Perl/bin/perl print ("Enter the start number:\n"); $start = <STDIN>; chop ($start); print ("Enter the end number:\n"); $end = <STDIN>; chop ($end); @list=($start..$end); $count=0; print("Here is the...

Read More

List all files in a directory using Perl

To read files from any directory first we have to access that directory. We have used opendir() to get that directory.Now to get all the files we have used readdir() so that all the files are listed in that directory.At last we have closed...

Read More

Pattern matching in Perl

Program Code: #!/Perl/bin/perl print("Enter the question you want to ask \n"); $input=<STDIN>; if($input =~ /please/) { print("You are good in nature.My name is Abhishek \n"); } else { print("First use word please"); } Output: Program...

Read More

Rand() function in Perl

rand() function is used to generate a random number. First it will generate a random number between 0 and 1 and then it will multiply it with the number which is passed as argument in rand() function.So whatever is the argument the number...

Read More

sleep in Perl

Sleep is used to stop Perl interpreter executing the next statement for the specified time In following example the next statement will be executed after 60 seconds. Program Code: # !/Perl/bin/perl print("This is a demo of sleep...

Read More

Various string operations in Perl

Program Code: #! /Perl/bin/perl $var=1234; $var="This is the number with value $var \n"; print($var); $var=12; print("This is a number with value $var \n"); # \L is used to convert the letters to lower case and \E is used to disable...

Read More

Subroutines in Perl

Subroutines are like functions in C language.We can define a subroutine by writing sub and then variable name. For example: sub read{ $line=<STDIN>; } Above is a subroutine which is used to read input from Standard Input Device (such...

Read More

Upper case to Lower Case In Perl

Program Code: #!/Perl/bin/perl print("Enter a sentence to convert into lower form\n"); while($input=<STDIN>) { $input=~ tr/A-Z/a-z/; print($input); } Output: ...

Read More

Variable Validation in Perl

Program Code: #!/Perl/bin/perl print("Enter the variable name \n"); $input=<STDIN>; chop($input); if($input =~ /^\$[A-Za-z][_0-9a-zA-Z]*/) { print("$input is a valid scalar variable name in perl \n"); } elsif($input =~ /^\@[A-Za-z][_0-9a-zA-Z]*/) { ...

Read More

Warn in Perl

Program Code: # !/Perl/bin/perl print ("Enter 0 or 1\n"); $input=<STDIN>; if($input==0){ warn("Hi This is a warning\n"); } else{ warn("Hi This is a warning with info about the program"); } print("\nActually i was just giving...

Read More

die in perl

When we want to abort the program then we can use die.If we will use "\n" at the end then it will not explain the line number where it has aborted and other info. If you will not use "\n" at end then it will give the info. Program Code: #...

Read More

Sub Routines in Perl

In this post i will explain some subroutine in Perl. 1)AUTOLOAD subroutine:  In perl , if this subroutine is defined in the package, then if any undefined subroutine in that package is called then then the statements of this AUTOLOAD...

Read More

Array Sorting in Perl

In this post i have written a code to sort an array. Program Code: #! /Perl/bin/perl print("Enter elemnets of array to be sorted\n Enter an empty line to quit\n"); $count=1; $inputline=<STDIN>; chop($inputline); while($inputline...

Read More

Array in perl

1)Length of Array: To find  the length of any given array just use a scalar variable and do the following: $len=@array; where len is a scalar variable and array is an array variable Program Code: #! /Perl/bin/perl @array=(1,2,3,4,5,6); $len=@array; print("Length of array is $len"); Output: Length of array is 6 2)Array Modification: We...

Read More

Array Functions in Perl

1)join(): This function is used to join the elements using some specific character which has been passed as argument in this function. So the first character is used to join the elements and then after that we can pass as many arguments as possible.These arguments can be either strings,numbers  or array. #! /Perl/bin/perl @array=(I,am,a,good,boy); $str=join(":",@array,1,2,"no","its"); print($str); Output:  ...

Read More

Array Functions in Perl:Chop()

chop(): The chop function is used to remove the last character of any element. I have taken the example of array and then applied the chop() function on it.  #! /Perl/bin/perl @array=(aa,bb,cc,dd,ee,fd,gf,hg,sd); print("Array before...

Read More

Array Functions in Perl:Sort()

In this post i will explain the functions that can be used with array in Perl. sort(): This function is used to sort the elements of an array. This function is specially used to sort elements of type string. #! /Perl/bin/perl print("Enter...

Read More

Array Alias in Perl

In this post i will explain about aliases in array In the program first we have defined one scalar variable and an array variable with same name, We printed the value of variable which is 100.After that we have called a subroutine with argument....

Read More

Arrays in Perl

In this post i will explain about the arrays in Perl. When we want to declare an array variable we will use @ symbol so that perl can know that it is an array variable. for ex            @array=(1,2,3); Suppose...

Read More

Arithmetic Operations in Perl

Program Code #!/Perl/bin/perl $var=2; print("The value assigned to variable initially is ".$var."\n After Multiplication "); $var=$var*2; print($var,"\n After Addition and subtraction "); $var=3+45-23; print($var); Output ...

Read More

Pagination using Bootstrap

<!DOCTYPE html> <html lang="en"> <head> <link href="css/style.css" rel="stylesheet"> <meta charset="utf-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width,initial-scale=1"> ...

Read More

Link Alerts using Bootstrap

<!DOCTYPE html> <html lang="en"> <head> <link href="css/style.css" rel="stylesheet"> <meta charset="utf-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width,initial-scale=1"> ...

Read More

Dismissable alert using Bootstrrap

<!DOCTYPE html> <html lang="en"> <head> <link href="css/style.css" rel="stylesheet"> <meta charset="utf-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width,initial-scale=1"> ...

Read More

Different types of Alerts in Bootstrap

<!DOCTYPE html> <html lang="en"> <head> <link href="css/style.css" rel="stylesheet"> <meta charset="utf-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width,initial-scale=1"> ...

Read More

Wells in Bootstrap

<!DOCTYPE html> <html lang="en"> <head> <link href="css/style.css" rel="stylesheet"> <meta charset="utf-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width,initial-scale=1"> ...

Read More

Thumbnail in Bootstrap

<!DOCTYPE html> <html lang="en"> <head> <link href="css/style.css" rel="stylesheet"> <meta charset="utf-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width,initial-scale=1"> ...

Read More

Tab links in Bootstrap

<!DOCTYPE html> <html lang="en"> <head> <link href="css/style.css" rel="stylesheet"> <meta charset="utf-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width,initial-scale=1"> ...

Read More