TweetFollow Us on Twitter

A Bit More Perl

Volume Number: 18 (2002)
Issue Number: 9
Column Tag: Section 7

A Bit More Perl

control flow, data structure, resources...

by Rich Morin

As promised last month, this column will go a bit deeper into Perl, looking at its data structures and control flow operators, closing out with a discussion of Perl resources.

Perl only has a few data types, but their versatility allows them to serve in a large number of roles. In several years of Perl programming, I've never found myself reaching for a data type (or anything else, really :-) that Perl didn't have.

Scalars

The "scalar" is Perl's basic data element. A scalar can be an integer, a floating-point number, a text string (usually ASCII, but other encodings are allowed), or a "reference" to some other type of entity. With a bit of work, scalars can be mapped onto bit strings or even used to represent sets of alternative quantum states. As Perl's slogan says: There's More Than One Way To Do It.

Because strings are "first-class citizens" in Perl, they are used in most situations where a C programmer might use an array of characters. In fact, if I see an array of characters being used in a Perl program, my first assumption is that a C programmer has been unable or unwilling to learn about Perl's string manipulation facilities! Here are some examples of Perl scalars:

% cat x0
#!/usr/bin/env perl
$num_1 = 123;
$num_2 = 123.45;
$n1_r1 = \$num_1;
$n1_r2 = "num_1";
printf("num_1=%d, num_2=%f\n", $num_1, $num_2);
printf("n1_r1=%d, n1_r2=%f\n", $$n1_r1, $$n1_r2);
$str_1 = '123';
$str_2 = "The value of \$num_1 is $num_1.";
print "The value of \$str_1 is |$str_2|.\n";
% x0
num_1=123, num_2=123.450000
n1_r1=123, n1_r2=123.000000
The value of $str_1 is |The value of $num_1 is 123.|.

Note that Perl allows both "hard" and "symbolic" references. $n1_r1 (a hard reference) will run a bit faster than $n1_r2 (a symbolic reference). The naming and behavior are taken from "hard" and "symbolic" links, as used in BSD file systems.

Aggregates

Perl has only two aggregate data structures: arrays and hashes. As indicated above, however, they are quite powerful. Perl arrays can be subscripted (from either end!), used as queues, stacks, or deques (double-ended queues), and more. If you're looking for a way to store an ordered collection, an array will probably serve your needs.

Perl's hashes handle unordered collections of data, storing each value under a unique (scalar) key. They are quite similar to the tables one finds in relational database systems; in fact, hashes can be "tied" to database table to provide persistent storage.

% cat x1
#!/usr/bin/env perl
@A = (1, 'deux', 'III', 4);
print "$A[0], $A[1], $A[-2], $A[-1]\n";
%H = (uno => 1, dos => 2);
printf("sum = %d\n", $H{uno} + $H{dos});
% x1
1, deux, III, 4
sum = 3

Although Perl's arrays and hashes can only contain scalars, multi-level data structures (as well as trees, graphs, etc.) can be formed by using references. For convenience, Perl supports abbreviated ways to use these complex forms. Here are some multi-level structures:

$AAA[1][2][3] = 1;      # 3-dimensional array
$HHH{a}{b}{c} = 2;      # 3-dimensional hash
$AH[0]{a}     = 3;      # array of hashes
$HA{b}[1]     = 4;      # hash of arrays
$AHA[2]{c}[3] = 5;      # array of ...
$HAHA{d}[4]{e}[5]++;    # hash of ...

Control Flow

Although Perl supports the traditional C-style "for" loop, it isn't used much in practice. Instead, Perl programmers tend to use list-based looping, as:

foreach $item (@A) { ...
foreach $key (sort(keys(%H})) { ...

Explicit references can be useful in dealing with multi-level data structures:

% cat x2
#!/usr/bin/env perl
$HH{a}{b} = 'ab';
$HH{c}{d} = 'cd';
foreach $k1 (sort(keys(%HH))) {
    $r1 = $HH{$k1};
    foreach $k2 (sort(keys(%{$r1}))) {
        $tmp = $r1->{$k2};
        print "\$HH{$k1}{$k2}=$tmp\n";
    }
}
% x2
$HH{a}{b}=ab
$HH{c}{d}=cd

Perl also provides the until and while looping operators, along with a plethora of ways to do conditional execution:

% cat x3
#!/usr/bin/env perl
$foo = 'bar';
if     ($foo eq 'bar') { print '0 '; };
unless ($foo ne 'bar') { print '1 '; };
print '2 ' if     ($foo eq 'bar');
print "3 " unless ($foo ne bar);
$foo eq 'bar' and print '4 ';
$foo ne 'bar' or  print '5 ';
print "\n";
% x3
0 1 2 3 4 5 

Perl also provides GOTOs and loop modifiers, subroutines (anonymous and/or recursive, if need be), exception handling, and some even trickier facilities. It also has tightly integrated regular expressions, allowing (parts of) strings to be matched, extracted, and/or modified. In short, Perl is a powerful language, suited for everything from short one-offs to substantial applications.

Resources

Perl has a very active user community, providing a variety of forums for communication. Whether you prefer conferences, IRC channels, local user group meetings, mailing lists, newsletters, usenet newsgroups, or weblogs, Perl has it. To find these resources, start at www.perl.{org,com}, the primary sources of Perl information.

Perl has enormous amounts of online documentation, Typing man perl will yield a list of several dozen subsidiary man pages, along with some advice on how to approach them. Typing perldoc will lead you into a function index and an online FAQ. Spend some time scanning through these; it will pay off handsomely later on...

Finally, of course, there are literally dozens of books on Perl, ranging from introductory and overview texts to detailed coverage of specialized subtopics. The majority of Perl books are published by O'Reilly and Associates (www.oreilly.com), who also operates www.perl.com. O'Reilly's Perl books tend to be authoritative, diverse, readable, and practical; if you had to pick a single publisher of Perl books, you could stick to O'Reilly and survive quite nicely. And, if you could only buy one book on Perl, their Programming Perl would be the clear winner.

Fortunately, you don't have to restrict yourself to a single publisher, let alone a single book. My Perl collection, for instance, includes fine volumes by Addison-Wesley, Manning, and Wiley. So, look around a bit! That said, here is a "reading list" of Perl books for the typical MacTech reader. Be warned; the books get significantly more chewy as the list goes on:

  • Elements of Programming with Perl - Johnson (Manning)

  • Learning Perl - Schwartz & Christiansen (O'Reilly)

  • Programming Perl - Wall, et al (O'Reilly)

  • Effective Perl Programming - Hall (Addison-Wesley)

  • Object-Oriented Perl - Conway (Manning)

  • Mastering Algorithms with Perl - Orwant, et al (O'Reilly)

  • Advanced Perl Programming - Srinivasan (O'Reilly)

  • Mastering Regular Expressions - Friedl (O'Reilly)

Here are some reference books that you might want to add in:

  • Perl in a Nutshell - Siever, et al (O'Reilly)

  • Perl Cookbook - Christiansen & Torkington (O'Reilly)

If you're doing web programming in Perl, consider getting:

  • CGI Programming with Perl - Guelich, et al (O'Reilly)

  • Network Programming with Perl - Stein (Addison-Wesley)

  • Official Guide to Programming with CGI.pm - Stein (Wiley)

  • Perl & LWP - Burke (O'Reilly)

  • Programming Web Graphics with Perl & GNU Software - Wallace (O'Reilly)

  • Web Client Programming with Perl - Wong (O'Reilly)

  • Writing Apache Modules with Perl and C - Stein & MacEachern (O'Reilly)

Finally, if you're using any Perl add-ons, you should consider books such as:

  • Learning Perl/Tk - Walsh (O'Reilly)

  • Mastering Perl/Tk - Lidie & Walsh (O'Reilly)

  • Perl & XML - Ray & McIntosh (O'Reilly)

  • Programming the Perl DBI - Descartes and Bunce (O'Reilly)


Rich Morin has been using computers since 1970, Unix since 1983, and Mac-based Unix since 1986 (when he helped Apple create A/UX 1.0). When he isn't writing this column, Rich runs Prime Time Freeware (www.ptf.com), a publisher of books and CD-ROMs for the Free and Open Source software community. Feel free to write to Rich at rdm@ptf.com.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

BusyContacts 1.6.4 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more
Steam 4.0 - Multiplayer and communicatio...
Steam is a digital distribution, digital rights management, multiplayer and communications platform developed by Valve Corporation. It is used to distribute a large number of games and related media... Read more
OmniGraffle Pro 7.19.3 - Create diagrams...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
OmniGraffle 7.19.3 - Create diagrams, fl...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
Hopper Disassembler 5.3.3- - Binary disa...
Hopper Disassembler is a binary disassembler, decompiler, and debugger for 32- and 64-bit executables. It will let you disassemble any binary you want, and provide you all the information about its... Read more
calibre 5.35.0 - Complete e-book library...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
Sound Studio 4.10.0 - Robust audio recor...
Sound Studio lets you easily record and professionally edit audio on your Mac. Easily rip vinyls and digitize cassette tapes, or record lectures and voice memos. Prepare for live shows with live... Read more
Sparkle Pro 4.0 - Visual website creator...
Sparkle Pro will change your mind if you thought building websites wasn't for you. Sparkle is the intuitive site builder that lets you create sites for your online portfolio, team or band pages, or... Read more
Dropbox 140.4.1951 - Cloud backup and sy...
Dropbox for Mac is a file hosting service that provides cloud storage, file synchronization, personal cloud, and client software. It is a modern workspace that allows you to get to all of your files... Read more
FotoMagico 6.0.5 - Powerful slideshow cr...
FotoMagico lets you create professional slideshows from your photos and music with just a few, simple mouse clicks. It sports a very clean and intuitive yet powerful user interface. High image... Read more

Latest Forum Discussions

See All

Best iPhone Game Updates: ‘Garena Free F...
Hello everyone, and welcome to the week! It’s time once again for our look back at the noteworthy updates of the last seven days. I got busted last week for not including the obligatory free-to-play matching puzzle game update of the week, and my... | Read more »
‘Horizon Chase’ China Spirit DLC Release...
Following the release of the excellent reveal of the Horizon Chase Senna Forever expansion, the game will be getting a new DLC on mobile platforms today. Today, the Horizon Chase China Spirit DLC pack will release on iOS and Android bringing in 9... | Read more »
‘PUZZLED’ from SNK and Hamster Is Out No...
Following ZED BLADE ACA NeoGeo earlier this month, SNK has brought over another game in the ACA NeoGeo series to both iOS and Android in the form of PUZZLED. SNK and Hamster originally brought the series to mobile with Samurai Shodown IV, Alpha... | Read more »
A House Full of Covid – The TouchArcade...
It’s been a rough week as both of our young children tested positive for Covid, and since recording this early on Friday my wife has tested positive now too. Thankfully the kids seemed to recover fairly quickly and are mostly back to normal, and I... | Read more »
TouchArcade Game of the Week: ‘Krispee S...
Krispee Street is a new hidden object game from Frosty Pop that is based on their popular and almost painfully sweet webcomic Krispee. This is one of the latest titles to be added to the Netflix Games catalog, which means you’ll need to log into... | Read more »
SwitchArcade Round-Up: ‘Escape Lala’, ‘B...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for January 21st, 2022. In today’s article, we’ve got a lot of new releases. A lot. There were eight on the schedule when I went to bed last night. There were twenty-four when I woke up... | Read more »
Beta Testers Needed for Huge Version 2.0...
Ya’ll remember Dungeon Raid, right? The phenomenal matching RPG hybrid that launched on mobile more than a decade ago, but was more or less abandoned by its developer only to die a slow death on the App Store before the 32-bit Appocalypse finally... | Read more »
‘Ark Legends’ Gives Players a Chance to...
It’s Airpods and Amazon gift cards galore as Melting Games opens pre-registration for Ark Legends. The upcoming mobile RPG is giving away tons of in-game goodies such as gold, energy, iron core, hero summon chest and rare iron core to players who... | Read more »
‘Nickelodeon Extreme Tennis’ Out Now on...
Nickelodeon Extreme Tennis () from Old Skull Games and Nickelodeon is this week’s new Apple Arcade release. Nickelodeon Extreme Tennis features characters from old and new Nickelodeon shows including SpongeBob, TMNT, and many more. The tennis game... | Read more »
SwitchArcade Round-Up: ‘RPGolf Legends’,...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for January 20th, 2022. In today’s article, we’ve got a massive amount of new releases to check out. We’ve got summaries of all of them, from heaven to hell. We also have the lists of... | Read more »

Price Scanner via MacPrices.net

Verizon’s 2022 iPad promo: $100-$310 off any...
Verizon has cellular-capable iPads on sale for $100-$310 off MSRP when purchased with an Unlimited service plan. Sale price is applied to your account monthly over a 24 or 30 month period, depending... Read more
Sunday Sale: Apple AirPods are on sale for up...
Amazon has Apple AirPods on sale for $10-$100 off MSRP today, depending on the model. All are in stock today with free delivery: – AirPods Max headphones (Blue): $449 $100 off MSRP – AirPods Max... Read more
These Apple resellers are offering 13″ M1 Mac...
Apple resellers are offering discounts on 13″ MacBook Pros with M1 Apple Silicon processors ranging up to $150 off MSRP. Here’s where to get one today: (1): Apple’s 13″ MacBook Pros with M1 Apple... Read more
Amazon lowers prices on select 13″ M1 MacBook...
Amazon has select Apple 13″ M1 MacBook Airs on sale for $150 off MSRP this weekend, starting at only $849. Their prices are the lowest available for new MacBook Airs today. Stock may come and go, so... Read more
Apple has 13″ M1 MacBook Airs back in stock s...
Apple has restocked a full line of 13″ M1 MacBook Airs, Certified Refurbished, starting at only $849 and up to $190 off original MSRP. These are the cheapest M1-powered MacBooks for sale today at... Read more
In stock and on sale! 16″ 10-Core M1 Pro MacB...
Amazon has new 16″ 10-Core/512GB M1 Pro MacBook Pros in stock today and on sale for $50 off MSRP including free shipping. Their prices are the lowest available for new M1 Pro 16″ MacBook Pro from any... Read more
Deal Alert!: 14″ M1 Pro with 10-Core CPU in s...
Amazon has the new 14″ M1 Pro MacBook Pro with a 10-Core CPU and 16-Core GPU in stock today and on sale for $2299.99 including free shipping. Their price is $200 off Apple’s standard MSRP, and it’s... Read more
Apple has 24-inch M1 iMacs (8-Core CPU/8-Core...
Apple has restocked a wide array of 24-inch M1 iMacs with 8-Core CPUs and 8-Core GPUs in their Certified Refurbished store. Models are available starting at only $1269 and range up to $260 off... Read more
Select 24″ M1 iMacs are on sale for $100 off...
Sales of Apple’s new 24″ M1 iMacs have been rare since its introduction, perhaps due to global supply issues. However, B&H is offering a $100 discount on select 24″ iMacs, and they’re in stock... Read more
M1 Mac minis are back in stock today at Apple...
Apple has M1-powered Mac minis available in their Certified Refurbished section starting at only $589 and up to $140 off MSRP. Each mini comes with Apple’s one-year warranty, and shipping is free: –... Read more

Jobs Board

Registered Nurse (RN) Employee Health PSJH -...
…is calling for a Registered Nurse (RN) Employee Health PSJH to our location in Apple Valley, CA.** We are seeking a Registered Nurse (RN) Employee Health PSJH to be Read more
Systems Administrator - Pearson (United State...
…and troubleshoot Windows operating systems (workstation and server), laptop computers, Apple iPads, Chromebooks and printers** + **Administer and troubleshoot all Read more
IT Assistant Level 1- IT Desktop Support Anal...
…providing tier-1 or better IT help desk support in a large Windows and Apple environment * Experience using IT Service Desk Management Software * Knowledge of IT Read more
Human Resources Business Partner PSJH - Provi...
…**is calling a** **Human Resources Business Partner, PSJH** **to our location in Apple Valley, CA.** **Applicants that meet qualifications will receive a text with Read more
Manager Community Health Investment Programs...
…is calling a Manager Community Health Investment Programs PSJH to our location in Apple Valley, CA.** **Qualified candidates will be invited to do a self-paced video Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.