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

VirtualBox 5.1.30 - x86 virtualization s...
VirtualBox is a family of powerful x86 virtualization products for enterprise as well as home use. Not only is VirtualBox an extremely feature rich, high performance product for enterprise customers... Read more
ScreenFlow 7.1.1 - Create screen recordi...
ScreenFlow is powerful, easy-to-use screencasting software for the Mac. With ScreenFlow you can record the contents of your entire monitor while also capturing your video camera, microphone and your... Read more
Adobe Flash Player 27.0.0.170 - Plug-in...
Adobe Flash Player is a cross-platform, browser-based application runtime that provides uncompromised viewing of expressive applications, content, and videos across browsers and operating systems.... Read more
Xcode 9.0.1 - Integrated development env...
Xcode includes everything developers need to create great applications for Mac, iPhone, iPad, and Apple Watch. Xcode provides developers a unified workflow for user interface design, coding, testing... Read more
TotalFinder 1.10.2 - Adds tabs, hotkeys,...
TotalFinder is a universally acclaimed navigational companion for your Mac. Enhance your Mac's Finder with features so smart and convenient, you won't believe you ever lived without them. Features... Read more
Backblaze 5.1.0.134 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
Postbox 5.0.20 - Powerful and flexible e...
Postbox is a new email application that helps you organize your work life and get stuff done. It has all the elegance and simplicity of Apple Mail, but with more power and flexibility to manage even... Read more
Corel Painter 18.1.0.651 - Digital art s...
Corel Painter lets you advance your digital art style with painted textures, subtle glazing brushwork, interactive gradients, and realistic Natural-Media. Easily transition from traditional to... Read more
QuarkXPress 13.1.0.0 - Desktop publishin...
QuarkXPress 2017 is the new version that raises the bar for design and productivity. With non-destructive graphics and image editing directly within your layout, you no longer have to choose between... Read more
Backblaze 5.1.0.134 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more

Home Street guide - how to make friends...
From the creators of Food Street comes Home Street, a new simulation game that tasks you with building a social network and designing a beautiful home. It's a bit like The Sims, but you won't have to worry about the daily chores involved (feeding,... | Read more »
Color Ballz guide - how to bounce to the...
Color Ballz is an addictive new arcade title from Ketchapp Studios. It takes old school mechanics from games like Brickles and puts a fun twist on it. Your job? To catch balls with a paddle and send them back into a chute to be carried back to... | Read more »
Q&A: A-33 Studio explains why Combat...
When it comes to mobile FPS, it’s often tricky to get the fundamentals right on a platform lacking a physical controller, large display and hefty RAM. With Combat Squad: Project Wednesday, A-33 Studio bravely took on the challenge of making a... | Read more »
Taichi Panda 3: Dragon Hunter guide - ti...
Taichi Panda 3: Dragon Hunter launched this week to players all over the world. It's a beautiful mobile MMORPG that blends elements of Eastern and Western fantasy. It reminds us of a mix between World of Warcraft and Jade Empire. MMO's can have a... | Read more »
The best new games we played this week -...
Phew. It has been a week, but now it's time to relax, put your feet up, and enjoy some brand new mobile games. It was a bit of slow week, but there's still plenty of new titles to add to your collection. Here are four of our favorites. [Read... | Read more »
Yoink - Improved Drag and Drop (Product...
Yoink - Improved Drag and Drop 1.0 Device: iOS Universal Category: Productivity Price: $2.99, Version: 1.0 (iTunes) Description: Yoink for iPad and iPhone lets you easily and quickly store items you drag, copy or share, for later use... | Read more »
Cottage Garden (Games)
Cottage Garden 1.11 Device: iOS Universal Category: Games Price: $4.99, Version: 1.11 (iTunes) Description: | Read more »
Into the Dead 2 guide - how to survive t...
Into the Dead 2 is an endless gunner, of sorts, with a lot of grit and satisfying gunplay behind it. The game looks amazing, and tells an effective story to boot. Plus, it has some quality voice acting behind it to really bring the story to life... | Read more »
Smash Up - The Card Game (Games)
Smash Up - The Card Game 1.0.7 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.7 (iTunes) Description: ***“It’s a goofy theme with fun art and high replayability, but beneath that veneer of casual play is a great... | Read more »
Dive in to Combat Squad if you’re lookin...
Earlier this year, A-33 Studio made the leap from developing Counter Strike Online to launching its very own FPS for the mobile. Combat Squad: Project Wednesday pits your team of mercs against the world in multiplayer death matches, so if you’re on... | Read more »

Price Scanner via MacPrices.net

Sale! 10″ Apple WiFi iPad Pros for up to $100...
B&H Photo has 10.5″ WiFi iPad Pros in stock today and on sale for $50-$100 off MSRP. Each iPad includes free shipping, and B&H charges sales tax in NY & NJ only: – 10.5″ 64GB iPad Pro: $... Read more
Apple iMacs on sale for up to $130 off MSRP w...
B&H Photo has 21-inch and 27-inch iMacs in stock and on sale for up to $130 off MSRP including free shipping. B&H charges sales tax in NY & NJ only: – 27″ 3.8GHz iMac (MNED2LL/A): $2179 $... Read more
2017 3.5GHz 6-Core Mac Pro on sale for $2799,...
B&H Photo has the 2017 3.5GHz 6-Core Mac Pro (MD878LL/A) on sale today for $2799 including free shipping plus NY & NJ sales tax only . Their price is $200 off MSRP. Read more
12″ 1.2GHz Space Gray MacBook on sale for $11...
Amazon has the 2017 12″ 1.2GHz Space Gray Retina MacBook on sale for $100 off MSRP. Shipping is free: 12″ 1.2GHz Space Gray MacBook: $1199.99 $100 off MSRP Read more
Bare Bones Software Releases macOS High Sierr...
Bare Bones Software has announced the release and immediate availability of BBEdit 12.0, a significant upgrade to its professional strength text and code editor. BBEdit 12 introduces a new foundation... Read more
Yale Announces Availability of Apple HomeKit-...
Yale Locks & Hardware has announced that Apple HomeKit support for its Assure Lock family is available this month. The new Yale iM1 Network Module, which provides support for the Apple Home app... Read more
Clearance 2016 13″ MacBook Pros, refurbished,...
Apple has Certified Refurbished 2016 13″ MacBook Pros available starting at $1189. An Apple one-year warranty is included with each model, and shipping is free: – 13″ 2.9GHz/512GB Touch Bar Gray... Read more
12-inch 64GB iPad Pro on sale for $749, save...
Adorama has 12″ 64GB iPad Pros on sale today for $749 including free shipping plus NY & NJ sales tax only. Their price is $50 off MSRP. Read more
13″ 3.1GHz/256GB Silver MacBook Pro on sale f...
Amazon has the Silver 13″ 3.1GHz/256GB MacBook Pro (MPXX2LL/A) on sale for $1699 including free shipping. Their price is $100 off MSRP. Read more
12″ MacBook available for $1099 with Apple re...
Apple has Certified Refurbished 2017 12″ Retina MacBooks available for $200-$240 off the cost of new models. Apple will include a standard one-year warranty with each MacBook, and shipping is free.... Read more

Jobs Board

*Apple* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions - Farmin...
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
*Apple* Retail - Multiple Positions - Apple...
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
*Apple* Retail - Multiple Positions - Apple...
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
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.