Perl: iterate over an array

Most basic way to iterate (loop over) an array in Perl.

#!/usr/bin/perl

use strict;
use warnings;

# @doctors is the array, the list is the names inside the brackets 
my @doctors = qw(Baker Pertwee Hartnell Troughton Davison McCoy McGann Baker);

foreach my $doc ( @doctors ) {
    print( "Doctor: $doc\n" );
}

__END__

Note: you can use ‘for’ and ‘foreach’ interchangeably – they are synonyms.

Exercise 1: Rework this using a ‘C’ style ‘for’ loop construct.

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Blog at WordPress.com.

Up ↑

%d bloggers like this: