Re: 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]