Re: Alignment of text using regex


Perl-Sensitive Sunglasses
	PerlMonks

Re: Alignment of text using regex

by imp (Priest)

on Jan 16, 2007 at 18:13 UTC ( [id://594947]=note: print w/replies, xml )

Need Help??

in reply to Alignment of text using regex

While you can do this with a regex it wouldn't be as easy to maintain as an unrolled version using split and printf.

Contrast this:

use strict;
use warnings;
$/ = undef;

my $data = <DATA>;
$data =~ s{^(.*?)\|}{sprintf '%-45s', $1}meg;
print $data;

__DATA__
ABCDEFGHIJKLMNOPQRST|1234
ABCDEFGHI|12345
ABCDE|1234
ABCDEFGHIJKL|123
ABCDEFG|123456
ABCDEFGHIJKLMNO|12
[download]

With:

use strict;
use warnings;

while (my $line = <DATA>) {
    my ($lhs,$rhs) = split /\|/, $line, 2;
    printf "%-45s%s", $lhs,$rhs;
}

__DATA__
ABCDEFGHIJKLMNOPQRST|1234
ABCDEFGHI|12345
ABCDE|1234
ABCDEFGHIJKL|123
ABCDEFG|123456
ABCDEFGHIJKLMNO|12
[download]

Comment on Re: Alignment of text using regex Select or Download Code

Replies are listed 'Best First'.
Re^2: Alignment of text using regex by jdporter (Paladin) on Jan 16, 2007 at 18:38 UTC
How about the best of both worlds? `while(<DATA>) { s(\\|){ ' ' x (45-pos) }e; print }` [download] A word spoken in Mind will reach its own level, in the objective world, by its own weight	[reply] [d/l]
Re^3: Alignment of text using regex by jettero (Monsignor) on Jan 16, 2007 at 20:07 UTC
Your dark arts frigten me. -Paul	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://594947]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others rifling through the Monastery: (None)

As of 2024-04-18 23:42 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found