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

Kodi 15.0.beta1 - Powerful media center...
Kodi (was XBMC) is an award-winning free and open-source (GPL) software media player and entertainment hub that can be installed on Linux, OS X, Windows, iOS, and Android, featuring a 10-foot user... Read more
DiskCatalogMaker 6.4.12 - Catalog your d...
DiskCatalogMaker is a simple disk management tool which catalogs disks. Simple, light-weight, and fast. Finder-like intuitive look and feel. Super-fast search algorithm. Can compress catalog data... Read more
Macs Fan Control 1.3.0.0 - Monitor and c...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more
Lyn 1.5.11 - Lightweight image browser a...
Lyn is a lightweight and fast image browser and viewer designed for photographers, graphic artists and Web designers. Featuring an extremely versatile and aesthetically pleasing interface, it... Read more
NeoOffice 2014.11 - Mac-tailored, OpenOf...
NeoOffice is a complete office suite for OS X. With NeoOffice, users can view, edit, and save OpenOffice documents, PDF files, and most Microsoft Word, Excel, and PowerPoint documents. NeoOffice 3.x... Read more
LaunchBar 6.4 - Powerful file/URL/email...
LaunchBar is an award-winning productivity utility that offers an amazingly intuitive and efficient way to search and access any kind of information stored on your computer or on the Web. It provides... Read more
Remotix 3.1.4 - Access all your computer...
Remotix is a fast and powerful application to easily access multiple Macs (and PCs) from your own Mac. Features Complete Apple Screen Sharing support - including Mac OS X login, clipboard... Read more
DesktopLyrics 2.6.6 - Displays current i...
DesktopLyrics is an application that displays the lyrics of the song currently playing in "iTunes" right on your desktop. The lyrics for the song have to be set in iTunes; DesktopLyrics does nothing... Read more
VOX 2.5.1 - Music player that supports m...
VOX is a beautiful music player that supports many filetypes. The beauty is in its simplicity, yet behind the minimal exterior lies a powerful music player with a ton of features and support for all... Read more
NetNewsWire 4.0.0 - RSS and Atom news re...
NetNewsWire is the best way to keep up with the sites and authors you read most regularly. Let NetNewsWire pull down the latest articles, and read them in a distraction-free and Mac-like way. Native... Read more

Biz Builder Delux (Games)
Biz Builder Delux 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Ah, there's nothing like the rhythmic bustle of a burgeoning business burg... especially when you're the one building it... | Read more »
Auroch Digital is Bringing Back Games Wo...
| Read more »
Carbo - Handwriting in the Digital Age...
Carbo - Handwriting in the Digital Age 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Draggy Dead (Games)
Draggy Dead 1.1 Device: iOS Universal Category: Games Price: $.99, Version: 1.1 (iTunes) Description: Ditch your dead end job and take up a rewarding career in Grave Robbing today!Guide the recently deceased to a fun filled life of... | Read more »
Bad Dinos (Games)
Bad Dinos 1.0.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.0 (iTunes) Description: | Read more »
The Apple Watch isn't Great as a Fi...
| Read more »
Show the World What You See With Stre.am...
Live broadcasting is getting popular on mobile devices, which is why you can now get Stre.am, by Infinite Takes. [Read more] | Read more »
PhotoTime's 2.1 Update Adds Apple W...
The latest PhotoTime update is adding even more functionality to the handy photo organizing app. Yep, including Apple Watch support. [Read more] | Read more »
Oh My Glob! Adventure Time Puzzle Quest...
Finn and Jake are taking over D3 Go!'s popular puzzle game series in the upcoming Adventure Time Puzzle Quest. [Read more] | Read more »
Earthcore: Shattered Elements - Tips, Tr...
At first glance, Earthcore: Shattered Elements seems like a rather simple card-battling game. Once you’re introduced to skills that will change quite a bit. Even more so once you start to acquire hero cards. But it’s not so complicated that we... | Read more »

Price Scanner via MacPrices.net

Memorial Day Weekend Sale: New 27-inch 3.3GHz...
Best Buy has the new 27″ 3.3GHz 5K iMac on sale for $1899.99 this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary... Read more
OtterBox Maximizes Portability, Productivity...
From the kitchen recipe book to the boarsroom presentation, the OtterBox Agility Tablet System turns tablets into one of the most versatile pieces of handheld technology available. Available now, the... Read more
Launch of New Car App Gallery and Open Develo...
Automatic, a company on a mission to bring the power of the Internet into every car, has announced the launch of the Automatic App Gallery, an app store for nearly every car or truck on the road... Read more
Memorial Day Weekend Sale: 13-inch 1.6GHz Mac...
Best Buy has the new 13″ 1.6GHz/128GB MacBook Air on sale for $849 on their online store this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders... Read more
Memorial Day Weekend Sale: 27-inch 3.5GHz 5K...
Best Buy has the 27″ 3.5GHz 5K iMac on sale for $2099.99 this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary.... Read more
Sale! 16GB iPad mini 3 for $349, save $50
B&H Photo has the 16GB iPad mini 3 WiFi on sale for $349 including free shipping plus NY sales tax only. Their price is $50 off MSRP, and it’s the lowest price available for this model. Read more
Price drop on 2014 15-inch Retina MacBook Pro...
B&H Photo has dropped prices on 2014 15″ Retina MacBook Pros by $200. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799.99 save $200 - 15″ 2.5GHz... Read more
With a Mission to Make Mobile Free, Scratch W...
Scratch Wireless, claiming to be the world’s first truly free mobile service, has announced the availability of a new Scratch-enabled Android smartphone, the Coolpad Arise. The smartphone is equipped... Read more
First-Ever Titanium Alloy Curved iPhone 6 Scr...
One of the most common problems with mobile phones is damage to the screens. The slightest drop can cause a dreaded spider web of gashes and cracks in the glass panel surface that can cost $hundreds... Read more
Preorder new 12-inch MacBook, $10 off, save o...
Adorama has new 12″ Retina MacBooks available for preorder for $10 off MSRP including free shipping plus NY & NJ sales tax only. For a limited time, Adorama will include a free Apple USB-C to USB... Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Architect / Senior Software Engineer, *Apple...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
*Apple* Pay Support Readiness Project Manage...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.