In this program we are going to use the split function in perl to count the occurrences of a particular string in a given text.
#A perl program to count the occrrences of a particular string in a given text
print("Enter some text\n");
$text=" ".<stdin>." ";
print("Enter the string whose occurrences you want to count:");
print("\nThe number of occurrences of the string \"$string\" is ". ($count-1)."\n");
In line 5, if we don’t add the blank space before and after the text, we will not be able to count the occurrence of the string at the beginning and end.
In line 7 we are chopping the string to get rid of the new line character at the end, if we don’t do this we wont get the count we are expecting.
In line 8 we are using the split function. Split is a library function, it splits the string when ever it see the sub string between //.
for example @array=split(/the/, “this is a test string to, this string to split when ever there is an occurrence of the word this”);
now the array will have the following elements
$array=” is a test string to, ”
$array=”string to split when ever there is an occurrence of the word “
What Is Perl?
Perl is an acronym, short for Practical Extraction and Report Language. It was designed by Larry Wall as a tool for writing programs in the UNIX environment and is continually being updated and maintained by him. For its many fans,
- Perl provides the best of several worlds. For instance: Perl has the power and flexibility of a high-level programming language such as C. In fact, as you will see, many of the features of the language are borrowed from C.
- Like shell script languages, Perl does not require a special compiler and linker to turn the programs you write into working code. Instead, all you have to do is write the program and tell Perl to run it. This means that Perl is ideal for producing quick solutions to small programming problems, or for creating prototypes to test potential solutions to larger problems.
- Perl provides all the features of the script languages sed and awk, plus features not found in either of these two languages. Perl also supports a sed-to-Perl translator and an awk-to-Perl translator.
In short, Perl is as powerful as C but as convenient as awk, sed, and shell scripts.
How to install Perl on Ubuntu
Perl is located in the ubuntu repositories, you can install it by the following command.
sudo apt-get install perl
perl is installed in usr/bin/
Writing your first perl program
# A simple perl program to print the user input
print ("Hello, type in something\n");
Lets split up the code and see what each line does..
# Says this line is a comment and there are no executable instructions on this line
! Says this is a perl script
/usr/bin/perl give the location of the perl interpreter, many programing books mention the location as usr/local/bin/perl, but this is not correct in ubuntu. In ubuntu Perl interpreter is located at usr/bin/perl.
print “Hello, type in something\n”;
This line just prompts to user to type something, similar to printf statement in C.
Here we are setting a variable named inputline, and storing the input from the keyboard into that variable. <stdin> takes the input from the keyboard.
This line echoes the typed in message.
Running your first Perl program
Copy the above above program in to your favorite text editor and save it as myFirstPerlProgram.pl and then change it to a executable, you can do that by typing the following in the terminal
chmod +x myFirstPerlProgram.pl
now you can run this code by typing myFirstPerlProgram.pl in the terminal
Output of the above perl program