#!/usr/local/bin/perl -w use strict; my @dat; while (<DATA>) { chomp; if (/(0x[a-zA-Z0-9]+)\s ([a-zA-Z0-9 ]+)\s (0x[a-zA-Z0-9]+)\s ([0-9\.]+)/x) { print "1. $1 \n"; print "2. $2 \n"; print "3. $3 \n"; print "4. $4 \n"; @dat = ($1,$2,$3,$4); } } __DATA__ 0x4300004 Universe Collects 0x4300021 1.2.13.44
In reply to Re: RegEx needed
by Chief of Chaos
in thread RegEx needed
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |