Difference between revisions of "PERL/C2/Arrays/English"

From Script | Spoken-Tutorial
Jump to: navigation, search
Line 25: Line 25:
 
* '''Sequential Array'''
 
* '''Sequential Array'''
 
* '''Array Slicing'''
 
* '''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: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'''
 
| 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.
 
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'''.
 
* 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.
 
* '''Array '''length expands/shrinks as and when '''elements''' are added/removed from it.
 
  
  
Line 98: Line 94:
  
 
'''$#myArray\n”;'''
 
'''$#myArray\n”;'''
 
  
  
Line 104: Line 99:
  
 
<nowiki><<pause>></nowiki>
 
<nowiki><<pause>></nowiki>
 
 
  
  
Line 132: Line 125:
  
 
'''perl arrayIndex.pl'''
 
'''perl arrayIndex.pl'''
 
  
  
Line 152: Line 144:
  
 
'''Last index of myArray is: 4'''
 
'''Last index of myArray is: 4'''
 
 
 
  
 
|-
 
|-
Line 170: Line 159:
 
# Using '''PERL '''inbuilt '''scalar function; scalar(@array)'''
 
# Using '''PERL '''inbuilt '''scalar function; scalar(@array)'''
 
# Assign '''array '''to a '''scalar variable;''' '''$arrayLength = @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.'''
 
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
 
| 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
 
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: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
 
| 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
 
# Last Position
 
# Any position
 
# Any position
 
  
  
Line 297: Line 278:
  
 
This will open '''perlArray dot pl''' script in '''gedit'''.
 
This will open '''perlArray dot pl''' script in '''gedit'''.
 
 
  
  
Line 330: Line 309:
  
 
'''$myArray[$#myArray], "\n";</nowiki>'''
 
'''$myArray[$#myArray], "\n";</nowiki>'''
 
  
  
Line 382: Line 360:
 
# Using '''for loop'''
 
# Using '''for loop'''
 
# Using '''foreach loop'''
 
# Using '''foreach loop'''
 
  
  
Line 465: Line 442:
 
* please go through the relevant tutorials
 
* please go through the relevant tutorials
 
* on the spoken tutorial website.  
 
* on the spoken tutorial website.  
 
  
  
Line 477: Line 453:
  
 
'''perl scalars.pl'''
 
'''perl scalars.pl'''
 
  
  
Line 509: Line 484:
  
 
''<nowiki><< Will just highlight the output and will not read it while recording >></nowiki>''
 
''<nowiki><< Will just highlight the output and will not read it while recording >></nowiki>''
 
 
  
  
Line 521: Line 494:
 
* Similarly  
 
* Similarly  
 
* '''@numericArray = (1..5);''' is same as '''@numericArray = (1, 2, ,3, 4, 5);'''
 
* '''@numericArray = (1..5);''' is same as '''@numericArray = (1, 2, ,3, 4, 5);'''
 
  
  

Revision as of 10:46, 3 September 2013

Title Of Script: Arrays in Perl

Author: Amol Brahmankar

Keywords: Array in perl video tutorial.


Visual Cue
Narration
Slide Welcome to the spoken tutorial on Arrays in Perl.
Slide: Learning Objectives 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
Slide: System Requirements 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.

Slide: Prerequisites 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.

Slide * 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.


Slide The syntax for declaring an array is -

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

Slide The last index of an array can be found with this command -

$#myArray

Let us understand this using a sample program.
Terminal

gedit arrayIndex.pl & >> Enter

Open the terminal and type

gedit arrayIndex dot pl space ampersand

and press Enter.


This will open arrayIndex dot pl file in geditor.

gedit


#!/usr/bin/perl


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

print “Last index of myArray is:

$#myArray\n”;


Type the piece of code that is displayed on screen

<<pause>>


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


$#myArray

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.

Press Ctrl+S to save the file.
Switch to terminal


Type

perl arrayIndex.pl


Now, switch to the terminal and execute the Perl script. Type -


perl arrayIndex dot pl


and press Enter.

Highlight the output on the terminal


Last index of myArray is: 4

The output shown on terminal is <<pause>>


Last index of myArray is: 4

Now, let us see how to get length of an array in perl.
Slide There are many ways by which we can find the length of an array.


These are as follows-

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


Terminal


gedit arrayLength.pl & >> Enter

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.

Gedit


#!/usr/bin/perl


@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";

Type the following piece of code, as shown on the screen-


<<pause>>

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.


Highlight comma in print statement Please note,

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

Press Ctrl + S to save the file.
Terminal


Now let us execute the script.

Switch to terminal and type-


perl arrayLength dot pl and press Enter.

Length of an array using index: 5

Length of an array using scalar variable: 5

Length of an array using scalar function: 5

The output is as shown on the terminal.


Next, let us understand how to access individual elements in an array.
Slide Indexing is used to access elements of an array.
Slide


Let us look at an example for accessing elements of an array at -
  1. First Position
  2. Last Position
  3. Any position


Terminal Switch to the terminal and type -


gedit perlArray dot pl space ampersand

and press Enter.


This will open perlArray dot pl script in gedit.


Gedit


#!/usr/bin/perl


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


# Access the first element of an array

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


# Access 3rd element of an array

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


# Access last element of an array

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


Type the following piece of code as shown.


<<pause>>

Highlight


$myArray[0]


print "First element of myArray is: ",

$myArray[0], "\n";


print "Last element of myArray is: ",

$myArray[$#myArray], "\n";

Please note-
  1. myArray is declared with @ (at the rate) sign.
  2. But, to access an array element we need to use $ (dollar) sign.
  3. 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.

Now, let us understand, how to loop over each element of an array.
Slide There are two ways of looping over an array-
  1. Using for loop
  2. Using foreach loop


Let's learn how to use these loops to iterate over an array using a sample program.
Terminal For this, switch to the terminal and type

gedit loopingOverArray dot pl space ampersand


Press Enter

Gedit


#!/usr/bin/perl


@myArray = (1, 2, 3);


# Iterate over an array using for loop

for ($i = 0; $i <= $#myArray; $i++) {

# Do the operation on individual element

print "Printing element using for loop: ",

$myArray[$i], "\n";

}


# Used to separate the output on terminal

print "=======================

==========================\n";


# Iterate over an array using foreach loop

foreach $element (@myArray) {

# Do the operation on individual element

print "Printing element using foreach loop:

$element\n";

}

This will open loopingOverArray Perl script in gedit.


Type the piece of code as shown on the screen

<<pause>>


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.

Slide Please Note:
  • If you are not aware of for and foreach loops,
  • please go through the relevant tutorials
  • on the spoken tutorial website.


Press ctrl + s Press Ctrl + S to save the file.
Switch to terminal


perl scalars.pl


Then switch to the terminal and execute the Perl script as -


perl loopingOverArray dot pl


and press Enter.

Highlight the output on the terminal


Printing element using for loop: 1

Printing element using for loop: 2

Printing element using for loop: 3

==========================

Printing element using foreach loop: 1

Printing element using foreach loop: 2

Printing element using foreach loop: 3

The following output is displayed on the terminal. <pause>


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


Slide 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);


Slide 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);

@mynewArray = @myarray[1, 4];


After slicing, mynewArray will look like this -

@mynewArray = (23, 87);

Slide: Summary 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.

Slide: Assignment Here is assignment for you -
  1. Declare an array of rainbow colors
  2. Print 4th element of this array
  3. Print Length and last index of this array
  4. Loop over each element of the array using for & foreach loops
About the Project 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

Spoken Tutorial Workshops 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

Acknowledgment


http://spoken-tutorial.org\NMEICT-Intro

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

Hope you enjoyed this Perl tutorial.

This is Amol Brahmankar signing off.


Thanks for joining

Contributors and Content Editors

AmolBrahmankar, Nancyvarkey