in reply to Arrays & Output printing?
#!/usr/bin/perl # http://perlmonks.org/?node_id=1186032 use strict; use warnings; $/ = "END\n"; while(<DATA>) { chomp; print s/\s+/ /gr =~ s/ ?START //r, "\n" } __DATA__ START TIME: 3 ALT: 3.1 TEMP: 4.3 END START TIME: 2.6 ALT: 8 TEMP: 1 END START TIME: 6.1 ALT: 7.2 COLOR: 43 STRENGTH: 7 TEMP: 9.3 END
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Arrays & Output printing?
by coding1227 (Novice) on Mar 28, 2017 at 05:47 UTC |