Re^2: Extract data from txt file


Do you know where your variables are?
	PerlMonks

Re^2: Extract data from txt file

by jdporter (Paladin)

on Dec 02, 2019 at 13:41 UTC ( [id://11109542]=note: print w/replies, xml )

Need Help??

in reply to Re: Extract data from txt file
in thread Extract data from txt file

$/ = '';
$\ = "\n";
$, = ", ";
while (1)
{
    local $_ = <> or last; s/\s+$//;
    my $y = <> or last; $y =~ s/\s+$//;
    if ( /(.+) (APT \d.*)/ )
    {
        print $1, $2, $y;
    }
    elsif ( /(.+) (APT) \(Range (\d+)([A-Z]+) - \3([A-Z]+)\)/ )
    {
        print $1, "$2 $3$_", $y
            for $4 .. $5;
    }
}
[download]

I reckon we are the only monastery ever to have a dungeon stuffed with 16,000 zombies.