UNIX for Dummies Questions & Answers

sed s/'    '/:/g filename | awk -F: '{printf"%s\n%s\n%s\n\n",$1,$2,$4}'

sed s/'        '/:/ filename | sed s/'    '/:/ | awk -F: '{printf"%s\n%s\n%s\n\n",$1,$2,$3}'

awk -F" {4,}" '{printf("%s\n%s\n%s\n\n", $1, $2, $3)}' file

sed s/]/]:/ filename | sed s/]:\"/]\":/ | awk -F: '{printf"%s\n%s\n\n",$1,$2}'

#!/usr/bin/perl

# @(#) p1       Demonstrate 2-level split.

use warnings;
use strict;

my ($debug);
$debug = 1;
$debug = 0;

my ( @a, @b );
my ($lines) = 0;

while (<>) {
  $lines++;
  chomp;
  @b = split "        ";
  print "$b[0]\n" if $debug;
  print "$b[1]\n" if $debug;
  @a = split "    ", $b[0];
  print "$a[0]\n" if $debug;
  print "$a[1]\n" if $debug;

  print "$a[0]\n";
  print "$a[1]\n";
  print "$b[1]\n";
  print "\n";    # visual spacing, remove for production
}

print STDERR " ( Lines read: $lines )\n";

exit(0);

% ./p1 data1
Aberdeen Centre [Blks A-U  & CP]
Aberdeen
The Ming An Ins Co (HK) Ltd

Academic Terrace [Towers 1-3]
"101 Pokfulam Road, HK"
Zurich Insurance Co Ltd

Academic Terrace [Car Park Portion]
"102 Pokfulam Road, HK"
Concord Insurance Co Ltd

Admiralty Centre [Towers I & II]
MTRC Property
Zurich Insurance Co Ltd

   ...

Belvedere Garden (Phase 3) [PH03 Blks 1-7 & CP]
Tsuen Wan
The Ming An Ins Co (HK) Ltd

"Beneville [Blks 1-3, 5 & CP]"
"18 Tuen Kwai Road, Tuen Mun"
Sun Hung Kai Properites Ins Ltd

Beverly Garden  [Blks 1-10 & CP]
Tseung Kwan O
Allianz Insurance (HK) Ltd