Processing data columns with Perl

Question

i want to split the columns and get the data using the regex. looking for a simpler solution using backreferences.

previous balance payments adjustments charges payment without fine payment with fine

20,251.97 - 0.00 - 0.00 + 53,391.67 = 73,643.64 74,393.64

Here is the code

#!/usr/bin/perl
use strict;

my $regex = qr/^(\d|-)?(\d|,)*\.?\d*$/;
my $data = "20,251.97                   -          0.00              -           0.00              +         53,391.67            =         73,643.64                74,393.64"

Matt K · Accepted Answer · 2011-07-25 14:13:02Z

8

Why don't you just use the split function?

my @fields = split(/ +/, $data);

answered Jul 25, 2011 at 14:13

Matt K

14k3 gold badges36 silver badges54 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

dave Over a year ago

And if you want, for some reason, exclude operators -, + and = you could use the pattern /[ +\-=]+/.

Narveson · Accepted Answer · 2011-07-25 17:58:27Z

0

All your numbers seem to have a common format. You can write just one regex that works to capture any of your numbers. Then compose a longer regex that matches your records.

The benefit of this over the split method is that you can ask for a warning if your data doesn't match the format you expect.

my $num = qr{
    \s*          # skip whitespace
    (            # begin capture
        [\d,.]+  # comma, period, digits
    )            # end capture
    \s*          # skip whitespace
}x;

my (
    $prev_bal, $pmts_received, $adjustments, $charges, 
    $pmt_without_fine, $pmt_with_fine
) = $data =~ /$num \- $num \- $num \+ $num = $num $num/x
    or warn "Unexpected format: $data\n";

answered Jul 25, 2011 at 17:58

Narveson

1,1111 gold badge9 silver badges15 bronze badges

Collectives™ on Stack Overflow

Processing data columns with Perl

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related