PERL/C2/Arrays/English - Revision history

Nancyvarkey at 12:01, 12 November 2013

2013-11-12T12:01:46Z

Nancyvarkey at 11:18, 12 November 2013

2013-11-12T11:18:50Z

Show changes

AmolBrahmankar at 11:59, 5 October 2013

2013-10-05T11:59:45Z

Show changes

Nancyvarkey at 05:16, 3 September 2013

2013-09-03T05:16:35Z

Nancyvarkey at 05:14, 3 September 2013

2013-09-03T05:14:29Z

AmolBrahmankar: Created page with ''''Title Of Script: Arrays in Perl''' '''Author:''' Amol Brahmankar '''Keywords: '''Array in perl video tutorial. {| style="border-spacing:0;" | style="border-top:0.05pt sol…'

2013-08-27T11:07:25Z

Created page with ''''Title Of Script: Arrays in Perl''' '''Author:''' Amol Brahmankar '''Keywords: '''Array in perl video tutorial. {| style="border-spacing:0;" | style="border-top:0.05pt sol…'

New page

'''Title Of Script: Arrays in Perl'''

'''Author:''' Amol Brahmankar

'''Keywords: '''Array in perl video tutorial.

{| style="border-spacing:0;"
| style="border-top:0.05pt solid #000000;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| <center>'''Visual Clue'''</center>
| style="border:0.05pt solid #000000;padding:0.097cm;"| <center>'''Narration'''</center>

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Welcome to the spoken tutorial on '''Arrays''' in '''Perl.'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide: Learning Objectives
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| In this tutorial, we will learn about;

* '''Index''' of an '''array'''
* Length of an''' array'''
* Accessing '''elements''' of an '''array'''
* Looping over an '''array'''
* '''Sequential Array'''
* '''Array Slicing'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide: System Requirements
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Here I am using '''Ubuntu Linux12.04''' operating system and '''Perl 5.14.2'''

I will also be using the '''gedit '''Text Editor.

You can use any text editor of your choice.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide: Prerequisites
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| You should have basic knowledge of '''Variables & Data Structures '''in''' Perl'''

Knowledge of''' Comments, loops and conditional statements''' will be an added advantage'''.'''

Please go through the relevant spoken tutorials on the '''spoken tutorial '''website.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| * '''Array''' is a simple '''data structure''' which contains '''elements''' of any '''data type'''.
* '''Array index''' starts from zero always.
* In '''Perl''', it is not necessary to declare the length of an '''array'''.
* '''Array '''length expands/shrinks as and when '''elements''' are added/removed from it.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| The syntax for declaring an array is -

'''@myArray = (1, 2, 3, 'abc', 10.3);'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| The last '''index''' of an '''array''' can be found with this command -

'''$#myArray '''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"|
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Let us understand this using a sample '''program'''.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Terminal

gedit arrayIndex.pl & >> Enter
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Open the terminal and type

'''gedit arrayIndex dot pl space ampersand '''

and press '''Enter.'''

This will open '''arrayIndex dot pl '''file in '''geditor'''.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| gedit

'''<nowiki>#!/usr/bin/perl</nowiki>'''

'''@myArray = (1, 2, 3, 'abc', 10.3);'''

'''print “Last index of myArray is: $#myArray\n”;'''

| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Type the piece of code that is displayed on screen

<nowiki><<pause>></nowiki>

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| '''@myArray = (1, 2, 3, 'abc', 10.3);'''

'''$#myArray'''
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Here we have declared & defined an '''array''' which contains '''5 elements'''.

As '''array index '''starts from zero, the last '''index''' value will be '''4'''

i.e number of elements, which is 5, minus 1.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"|
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Press '''Ctrl+S '''to save the file.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Switch to terminal

Type

'''perl arrayIndex.pl'''

| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Now, switch to the '''terminal '''and '''execute '''the '''Perl''' script. Type -''' '''

'''perl arrayIndex dot pl'''

and press''' Enter.'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Highlight the output on the terminal

Last index of myArray is: 4
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| <nowiki>The output shown on terminal is <<pause>></nowiki>

'''Last index of myArray is: 4'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"|
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Now, let us '''see how to get length of an array '''in perl.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| There are many ways by which we can find the length of an '''array. '''

These are as follows-

# Index of an '''array''' + 1; '''$#array + 1'''
# Using '''PERL '''inbuilt '''scalar function; scalar(@array)'''
# Assign '''array '''to a '''scalar variable;''' '''$arrayLength = @array'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Terminal

gedit arrayLength.pl & >> Enter
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Let us look at an illustration of '''array''' length using a sample program.

Switch to the '''terminal''' and type -

'''gedit arrayLength dot pl space ampersand'''

Press '''Enter.'''

This will open '''arrayLength Perl '''script in '''gedit'''.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Gedit

'''<nowiki>#!/usr/bin/perl </nowiki>'''

'''@myArray = (1, 2, 3, 'abc', 10.3); '''

'''$length = @myArray; '''

'''print "Length of an array using index: ", $#myArray + 1, "\n"; '''

'''print "Length of an array using scalar variable: $length\n"; '''

'''print "Length of an array using scalar function: ", scalar(@myArray), "\n";'''
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Type the following piece of code, as shown on the screen-

<nowiki><<pause>></nowiki>

Here we have declared & defined an '''array''' which contains '''5 elements'''.

So, output will display '''5'''.

Highlighted here are various ways to find the length of an '''array '''in '''Perl.'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Highlight comma in print statement
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| '''Please note,'''

We have '''concatenated''' the output in the '''print''' '''statement''' using '''comma.'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"|
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Press '''Ctrl + S''' to save the file.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Terminal

| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Now let us execute the script.

Switch to '''terminal''' and type-

'''perl arrayLength dot pl '''and press '''Enter.'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Length of an array using index: 5

Length of an array using scalar variable: 5

Length of an array using scalar function: 5
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| The output is as shown on the '''terminal.'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"|
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Next, let us understand''' '''how to access''' '''individual '''elements '''in an '''array'''.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| '''Indexing '''is used to access '''elements '''of an '''array'''.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide

| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Let us look at an example for accessing '''elements '''of an '''array '''at -

# First Position
# Last Position
# Any position

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Terminal
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Switch to the''' terminal '''and type -

'''gedit perlArray dot pl space ampersand '''

and press '''Enter.'''

This will open '''perlArray dot pl''' script in '''gedit'''.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Gedit

'''<nowiki>#!/usr/bin/perl </nowiki>'''

'''@myArray = (1, 2, 3, 'abc', 10.3); '''

'''<nowiki># Access the first element of an array </nowiki>'''

'''<nowiki>print "First element of myArray is: ", $myArray[0], "\n"; </nowiki>'''

'''<nowiki># Access 3rd element of an array </nowiki>'''

'''<nowiki>print "3rd Element of myArray is: ", $myArray[2], "\n"; </nowiki>'''

'''<nowiki># Access last element of an array </nowiki>'''

'''<nowiki>print "Last element of myArray is: ", $myArray[$#myArray], "\n";</nowiki>'''

| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Type the following piece of code as shown.

<nowiki><<pause>></nowiki>

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Highlight

'''<nowiki>$myArray[0]</nowiki>'''

'''<nowiki>print "First element of myArray is: ", $myArray[0], "\n"; </nowiki>'''

'''<nowiki>print "Last element of myArray is: ", $myArray[$#myArray], "\n";</nowiki>'''
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Please note-

# '''myArray''' is declared with '''@ (at the rate)''' sign.
# But, to access an '''array element '''we need to use '''$ (dollar) '''sign.
# To access the '''element '''at 3rd position, we need to pass '''index '''as 2

i.e position of '''element''' '''minus '''1.

Here, to access the first''' element '''of '''myArray '''

zero is passed as '''index.'''

To access the last element of '''myArray '''we have passed the last '''index '''to '''myArray.'''

Recall, we had learnt about this earlier.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"|
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Now, let us understand, how to '''loop over''' each''' element '''of an '''array.'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| There are two ways of '''looping over''' an '''array-'''

# Using '''for loop'''
# Using '''foreach loop'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"|
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Let's learn how to use these '''loops '''to iterate over an '''array '''using a sample program.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Terminal
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| For this, switch to the '''terminal''' and type

'''gedit loopingOverArray dot pl space ampersand'''

Press''' Enter'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Gedit

'''<nowiki>#!/usr/bin/perl </nowiki>'''

'''@myArray = (1, 2, 3); '''

'''<nowiki># Iterate over an array using for loop </nowiki>'''

'''<nowiki>for ($i = 0; $i <= $#myArray; $i++)</nowiki> { '''

'''<nowiki># Do the operation on individual element </nowiki>'''

'''<nowiki>print "Printing element using for loop: ", $myArray[$i], "\n"; </nowiki>'''

'''} '''

'''<nowiki># Used to separate the output on terminal </nowiki>'''

'''print "=================================================\n"; '''

'''<nowiki># Iterate over an array using foreach loop </nowiki>'''

'''foreach $element (@myArray) { '''

'''<nowiki># Do the operation on individual element </nowiki>'''

'''print "Printing element using foreach loop: $element\n"; '''

'''}'''
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| This will open '''loopingOverArray Perl script '''in '''gedit.'''

Type the piece of code as shown on the screen

<nowiki><<pause>></nowiki>

Here, we are printing each '''element''' of the '''array''' I have made this modification. Pls verify that this is correct.by iterating the '''index'''.

The '''for loop '''will execute till the value of '''i''' variable reaches the last '''index '''of the''' array'''.

Here, '''foreach loop '''will be executed for each '''element '''of the''' array.'''

Once the '''array '''reaches its last '''element''', it will exit the '''foreach loop'''.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| '''Please Note:'''

* If you are not aware of '''for''' and''' foreach loops''',
* please go through the relevant tutorials
* on the spoken tutorial website.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Press ctrl + s
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Press '''Ctrl + S''' to save the file.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Switch to terminal

'''perl scalars.pl'''

| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Then switch to the '''terminal '''and execute''' '''the '''Perl script''' as''' -'''

'''perl loopingOverArray dot pl'''

and press''' Enter.'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Highlight the output on the terminal

'''Printing element using for loop: 1 '''

'''Printing element using for loop: 2 '''

'''Printing element using for loop: 3 '''

'''<nowiki>==============================</nowiki>'''

'''Printing element using foreach loop: 1 '''

'''Printing element using foreach loop: 2 '''

'''Printing element using foreach loop: 3 '''
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| The following output is displayed on the '''terminal'''<nowiki>. <pause></nowiki>

''<nowiki><< Will just highlight the output and will not read it while recording >></nowiki>''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| In '''Perl''', we can declare a '''sequential array''' as-

* '''@alphaArray = (a..d); '''
* i.e '''alphaArray''' will contain '''elements''' 'a', 'b', 'c' and 'd'
* Similarly
* '''@numericArray = (1..5);''' is same as '''@numericArray = (1, 2, ,3, 4, 5);'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| '''Perl''' also provides '''array slicing. '''

This is nothing but extracting part of an '''array''' and dumping it into a new '''array'''.

'''@myarray = (19, 23, 56, 45, 87, 89); '''

'''<nowiki>@mynewArray = @myarray[1, 4];</nowiki>'''

After '''slicing''', '''mynewArray''' will look like this -

'''@mynewArray = (23, 87);'''

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide: Summary
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Let us summarize.

In this tutorial, we have learnt to-

* Find''' index '''of an '''array'''
* Find '''length '''of an '''array'''
* Access '''elements '''of an '''array'''
* '''Loop over '''an '''array'''
* '''Sequenial Array'''
* '''Array Slicing'''

using sample programs.

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide: Assignment
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Here is assignment for you -

# Declare an '''array''' of rainbow colors
# Print 4th '''element''' of this''' array '''
# Print '''Length '''and last '''index '''of this '''array'''
# '''Loop over''' each '''element''' of the '''array''' using '''for''' & '''foreach loops'''
# Give one point about slicing, too.xxxxxxxxxx

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| About the Project
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Watch the video available at the following link

It summaries the Spoken Tutorial project

If you do not have good bandwidth, you can

download and watch it

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Spoken Tutorial Workshops
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| The Spoken Tutorial Project Team

Conducts workshops using spoken tutorials

Gives certificates to those who pass an online

test

For more details, please write to

contact at spoken hyphen tutorial dot org

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Acknowledgment

http://spoken-tutorial.org\NMEICT-Intro
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Spoken Tutorial Project is a part of the Talk to a

Teacher project

It is supported by the National Mission on

Education through ICT, MHRD, Government of India.

More information on this Mission is available

spoken hypen tutorial dot org slash NMEICT hyphen Intro

|-
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"|
| style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Hope you enjoyed this '''Perl''' tutorial.

This is Amol Brahmankar signing off.

Thanks for joining

|}

@@ Line 93: / Line 93: @@
 '''@myArray = (1, 2, 3, 'abc', 10.3);'''
-'''print “Last index of myArray is: $#myArray\n”;'''
+'''print “Last index of myArray is:
@@ Line 192: / Line 193: @@
-'''print "Length of an array using scalar variable: $length\n"; '''
+'''print "Length of an array using
 '''print "Length of an array using scalar function: ", scalar(@myArray), "\n";'''
 | style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Type the following piece of code, as shown on the screen-
@@ Line 394: / Line 399: @@
 '''<nowiki># Used to separate the output on terminal </nowiki>'''
-'''print "============================================\n"; '''
+'''print "====================\n"; '''
@@ Line 455: / Line 460: @@
 '''Printing element using for loop: 3 '''
-'''<nowiki>==============================</nowiki>'''
+'''<nowiki>====================</nowiki>'''
 '''Printing element using foreach loop: 1 '''

@@ Line 25: / Line 25: @@
 * '''Sequential Array'''
 * '''Array Slicing'''
 |-
 | style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide: System Requirements
 | style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Here I am using '''Ubuntu Linux12.04''' operating system and '''Perl 5.14.2'''
 I will also be using the '''gedit '''Text Editor.
@@ Line 54: / Line 51: @@
 * In '''Perl''', it is not necessary to declare the length of an '''array'''.
 * '''Array '''length expands/shrinks as and when '''elements''' are added/removed from it.
@@ Line 98: / Line 94: @@
 '''$#myArray\n”;'''
@@ Line 104: / Line 99: @@
 <nowiki><<pause>></nowiki>
@@ Line 132: / Line 125: @@
 '''perl arrayIndex.pl'''
@@ Line 152: / Line 144: @@
 '''Last index of myArray is: 4'''
 |-
@@ Line 170: / Line 159: @@
 # Using '''PERL '''inbuilt '''scalar function; scalar(@array)'''
 # Assign '''array '''to a '''scalar variable;''' '''$arrayLength = @array'''
@@ Line 228: / Line 216: @@
 Highlighted here are various ways to find the length of an '''array '''in '''Perl.'''
@@ Line 244: / Line 230: @@
 |-
 | style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Terminal
@@ Line 261: / Line 246: @@
 Length of an array using scalar function: 5
 | style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| The output is as shown on the '''terminal.'''
@@ Line 275: / Line 258: @@
 |-
 | style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| Slide
@@ Line 283: / Line 265: @@
 # Last Position
 # Any position
@@ Line 297: / Line 278: @@
 This will open '''perlArray dot pl''' script in '''gedit'''.
@@ Line 330: / Line 309: @@
 '''$myArray[$#myArray], "\n";</nowiki>'''
@@ Line 382: / Line 360: @@
 # Using '''for loop'''
 # Using '''foreach loop'''
@@ Line 465: / Line 442: @@
 * please go through the relevant tutorials
 * on the spoken tutorial website.
@@ Line 477: / Line 453: @@
 '''perl scalars.pl'''
@@ Line 509: / Line 484: @@
 ''<nowiki><< Will just highlight the output and will not read it while recording >></nowiki>''
@@ Line 521: / Line 494: @@
 * Similarly
 * '''@numericArray = (1..5);''' is same as '''@numericArray = (1, 2, ,3, 4, 5);'''

@@ Line 8: / Line 8: @@
 {| style="border-spacing:0;"
-| style="border-top:0.05pt solid #000000;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| <center>'''Visual Clue'''</center>
+| style="border-top:0.05pt solid #000000;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:none;padding:0.097cm;"| <center>'''Visual Cue'''</center>
 | style="border:0.05pt solid #000000;padding:0.097cm;"| <center>'''Narration'''</center>
@@ Line 95: / Line 95: @@
 '''@myArray = (1, 2, 3, 'abc', 10.3);'''
-'''print “Last index of myArray is: $#myArray\n”;'''
+'''print “Last index of myArray is: '''
@@ Line 201: / Line 203: @@
-'''print "Length of an array using index: ", $#myArray + 1, "\n"; '''
+'''print "Length of an array using index: ", '''
-'''print "Length of an array using scalar function: ", scalar(@myArray), "\n";'''
+$length\n"; '''
 | style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Type the following piece of code, as shown on the screen-
@@ Line 305: / Line 313: @@
 '''<nowiki># Access the first element of an array </nowiki>'''
-'''<nowiki>print "First element of myArray is: ", $myArray[0], "\n"; </nowiki>'''
+'''<nowiki>print "First element of myArray is: ", '''
 '''<nowiki># Access 3rd element of an array </nowiki>'''
-'''<nowiki>print "3rd Element of myArray is: ", $myArray[2], "\n"; </nowiki>'''
+'''<nowiki>print "3rd Element of myArray is: ", '''
 '''<nowiki># Access last element of an array </nowiki>'''
-'''<nowiki>print "Last element of myArray is: ", $myArray[$#myArray], "\n";</nowiki>'''
+'''<nowiki>print "Last element of myArray is: ", '''
@@ Line 331: / Line 345: @@
-'''<nowiki>print "First element of myArray is: ", $myArray[0], "\n"; </nowiki>'''
+'''<nowiki>print "First element of myArray is: ", </nowiki>'''
 '''<nowiki>print "Last element of myArray is: ", $myArray[$#myArray], "\n";</nowiki>'''
 | style="border-top:none;border-bottom:0.05pt solid #000000;border-left:0.05pt solid #000000;border-right:0.05pt solid #000000;padding:0.097cm;"| Please note-
@@ Line 396: / Line 414: @@
 '''<nowiki># Do the operation on individual element </nowiki>'''
-'''<nowiki>print "Printing element using for loop: ", $myArray[$i], "\n"; </nowiki>'''
+'''<nowiki>print "Printing element using for loop: ",  </nowiki>'''
 '''} '''
@@ Line 403: / Line 423: @@
 '''<nowiki># Used to separate the output on terminal </nowiki>'''
-'''print "=================================================\n"; '''
+'''print "======================='''
@@ Line 412: / Line 434: @@
 '''<nowiki># Do the operation on individual element </nowiki>'''
-'''print "Printing element using foreach loop: $element\n"; '''
+'''print "Printing element using foreach loop: '''
 '''}'''
@@ Line 474: / Line 498: @@
 '''Printing element using for loop: 3 '''
-'''<nowiki>==============================</nowiki>'''
+'''<nowiki>==========================</nowiki>'''
 '''Printing element using foreach loop: 1 '''
@@ Line 541: / Line 565: @@
 # Print '''Length '''and last '''index '''of this '''array'''
 # '''Loop over''' each '''element''' of the '''array''' using '''for''' & '''foreach loops'''
 |-