#!/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
In reply to Re: Arrays & Output printing?
by tybalt89
in thread Arrays & Output printing?
by coding1227
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |