in reply to Regex Issue
#!/usr/bin/perl use warnings; use strict; { local $/ = "==========\n"; while (<DATA>) { print "$/$_" if /ID: 3$/m; } } __DATA__ ========== Name: blah ID: 2 ========== Name: blah ID: 2 ========== Name: here ID: 3 ========== Name: blah ID: 2 ==========
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Regex Issue
by bluesplay106 (Novice) on Aug 01, 2013 at 16:01 UTC | |
by CountZero (Bishop) on Aug 01, 2013 at 17:42 UTC | |
by 2teez (Vicar) on Aug 01, 2013 at 17:47 UTC |