/[cvs.andrew.net.au]/disruptive/allhomes/simplify
ViewVC logotype

Contents of /disruptive/allhomes/simplify

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Mon Mar 14 10:38:05 2005 UTC (17 years, 5 months ago) by mikal
Branch: initial, MAIN
CVS Tags: mikal, HEAD
Changes since 1.1: +0 -0 lines
Mikal: Initial import

1 #!/usr/bin/perl
2
3 # Simplify one allhomes house dump into something easier to parse
4 # Copyright (C) Michael Still 2005
5 # Written 26 February 2005
6
7 use strict;
8 my($mode);
9
10 $mode = 0;
11 print $ARGV[0]."|";
12 while(<STDIN>){
13 if(/add to my property list/){ $mode = 1; }
14 if(/Listing first displayed/){ $mode = 2; }
15 if($mode == 0){
16 if(! /^[ \t]*$/){
17 s/^[ \t]*//g;
18 chomp;
19 print "$_|";
20 }
21 }
22 if($mode == 2){
23 if(! /^[ \t]*$/){
24 s/^[ \t]*//g;
25 chomp;
26 print "$_ ";
27 }
28 }
29 }
30 print "\n";

  ViewVC Help
Powered by ViewVC 1.1.22