in reply to File parsing question
#!/usr/bin/env perl use strict; use warnings; use English; $INPUT_RECORD_SEPARATOR = "\n\n"; while (<DATA>){ s/\n/ /g; print $_, "\n" } __DATA__ Start: afadffdafadf stuff stuff stuff stuff Close: xzy Start: afadffdafadf stuff stuff stuff stuff Close: xzy Start: afadffdafadf stuff stuff stuff stuff Close: xzy
|
|---|