Re: Extracting numbers from a text file

#!/usr/bin/perl

use strict;
use warnings;

my $content = <<'';
aaa111bbb
ab01ac  d ab02ac ab03ac
aaa222bbb
ab04acab05ac r ab06ac
aaa333bbb
ab01ac t cab06acab10ac

print "$1\n$2,$3,$4\n"
  while $content =~ /aaa(\d+)bbb\nab(\d+)ac.*?ab(\d+)ac.*?ab(\d+)ac/g;
[download]

Comment on Re: Extracting numbers from a text file Download Code

Replies are listed 'Best First'.
Re^2: Extracting numbers from a text file by PetreAdi (Sexton) on Nov 03, 2019 at 05:49 UTC
Thank you!	[reply]