Difference between revisions of "PERL/C2/Arrays/English"
Nancyvarkey (Talk | contribs) |
Nancyvarkey (Talk | contribs) |
||
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.
|
|
Slide | Welcome to the spoken tutorial on Arrays in Perl. |
Slide: Learning Objectives | In this tutorial, we will learn about;
|
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.
|
Slide: Prerequisites | You should have basic knowledge of Variables & Data Structures in Perl
|
Slide | * Array is a simple data structure which contains elements of any data type.
|
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.
|
gedit
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);
|
Here we have declared & defined an array which contains 5 elements.
|
Press Ctrl+S to save the file. | |
Switch to terminal
perl arrayIndex.pl
|
Now, switch to the terminal and execute the Perl script. Type -
|
Highlight the output on the terminal
|
The output shown on terminal is <<pause>>
|
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.
|
Terminal
|
Let us look at an illustration of array length using a sample program.
gedit arrayLength dot pl space ampersand
|
Gedit
$length = @myArray;
$#myArray + 1, "\n";
$length\n";
scalar(@myArray), "\n"; |
Type the following piece of code, as shown on the screen-
Here we have declared & defined an array which contains 5 elements.
|
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-
|
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 -
|
Terminal | Switch to the terminal and type -
and press Enter.
|
Gedit
print "First element of myArray is: ", ''' '''$myArray[0], "\n";
print "3rd Element of myArray is: ", ''' '''$myArray[2], "\n";
print "Last element of myArray is: ", ''' '''$myArray[$#myArray], "\n";
|
Type the following piece of code as shown.
|
Highlight
$myArray[0], "\n";
$myArray[$#myArray], "\n"; |
Please note-
i.e position of element minus 1.
zero is passed as index.
|
Now, let us understand, how to loop over each element of an array. | |
Slide | There are two ways of looping over an array-
|
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
|
Gedit
for ($i = 0; $i <= $#myArray; $i++) { # Do the operation on individual element print "Printing element using for loop: ", $myArray[$i], "\n"; }
print "======================= ==========================\n";
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.
<<pause>>
|
Slide | Please Note:
|
Press ctrl + s | Press Ctrl + S to save the file. |
Switch to terminal
|
Then switch to the terminal and execute the Perl script as -
|
Highlight the output on the terminal
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>
|
Slide | In Perl, we can declare a sequential array as-
|
Slide | Perl also provides array slicing.
@mynewArray = @myarray[1, 4];
@mynewArray = (23, 87); |
Slide: Summary | Let us summarize.
using sample programs. |
Slide: Assignment | Here is assignment for you -
|
About the Project | Watch the video available at the following link
download and watch it |
Spoken Tutorial Workshops | The Spoken Tutorial Project Team
test
contact at spoken hyphen tutorial dot org |
Acknowledgment | Spoken Tutorial Project is a part of the Talk to a
Teacher project
Education through ICT, MHRD, Government of India.
spoken hypen tutorial dot org slash NMEICT hyphen Intro |
Hope you enjoyed this Perl tutorial.
This is Amol Brahmankar signing off.
|