Mastering Modern Perl: Writing Efficient and Maintainable Code/

...

/

Solution Review: Format Data

Solution Review: Format Data

See the solution to the exercise on formatting data.

We'll cover the following...

Solution

Let’s look at the solution before jumping into the explanation:

Press + to interact
main.pl
File3.csv
File2.csv
File1.csv
open(my $fh, $file);

 

my $number = qr/\d+/;

my $string = qr/[a-zA-Z]+/;

 

while(<$fh>) {

   say "$1. Name: $3 $4. $2\t DOB: $7/$6/$5"  if $_ =~ qr/\A($number),($string),($string),($string),($number)\-($number)\-($number)/;

}

Explanation

...