#!/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;
In reply to Re: Extracting numbers from a text file
by tybalt89
in thread Extracting numbers from a text file
by PetreAdi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |