Skip to Content
Wicked Cool Perl Scripts
book

Wicked Cool Perl Scripts

by Steve Oualline
February 2006
Intermediate to advanced
304 pages
6h 16m
English
No Starch Press
Content preview from Wicked Cool Perl Scripts

#45 Laying Out the Graph

You have the basic information about the regular expression. The next step is to lay things out. The size.pm module has two functions: it decides how big each element of the graph is and it decides where each element goes.

The Code

 1 use strict; 2 use warnings; 3 4 package size; 5 require Exporter; 6 7 use vars qw/@ISA @EXPORT format_re/; 8 9 @ISA = qw/Exporter/; 10 @EXPORT = qw/convert_re &BOX_FONT_SIZE 11 &X_CHAR_SIZE &X_MARGIN &Y_NODE_SIZE 12 &X_MARGIN &Y_MARGIN &MARGIN 13 &X_NODE_SIZE Y_NODE_SIZE 14 &X_BRANCH_MARGIN &Y_BRANCH_MARGIN 15 &X_TEXT_OFFSET &Y_TEXT_OFFSET 16 @format_re layout_array &BOX_MARGIN/; 17 18 # 19 # Constants that control the layout 20 # 21 # Margin around the graph 22 use constant MARGIN ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.

Read now

Unlock full access

More than 5,000 organizations count on O’Reilly

AirBnbBlueOriginElectronic ArtsHomeDepotNasdaqRakutenTata Consultancy Services

QuotationMarkO’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.
Julian F.
Head of Cybersecurity
QuotationMarkI wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.
Addison B.
Field Engineer
QuotationMarkI’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.
Amir M.
Data Platform Tech Lead
QuotationMarkI'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Mark W.
Embedded Software Engineer

You might also like

Higher-Order Perl

Higher-Order Perl

Mark Jason Dominus
Perl & LWP

Perl & LWP

Sean M. Burke
Pro Perl

Pro Perl

Peter Wainwright
Learning Perl 6

Learning Perl 6

brian d foy

Publisher Resources

ISBN: 1593270623Catalog PageErrata