source: subversion/sites/other/trapi/trgarb.pl @ 31161

Last change on this file since 31161 was 14253, checked in by blarson, 11 years ago

Fix grep arg problem in trgarb

File size: 954 bytes
Line 
1#!/usr/bin/perl
2# Copyright 2008, 2009 Blars Blarson.
3# Distributed under GPL version 2, see GPL-2
4
5use strict;
6use warnings;
7
8use constant VERBOSE => 10;
9use trapi;
10
11chdir TRAPIDIR or die "could not chdir ".TRAPIDIR.": $!";
12
13ptdbinit("+<");
14
15my ($startz, $startx, $starty) = (0) x 3;
16if (scalar(@ARGV)) {
17    die "Either no arguments or z x y" unless (scalar(@ARGV) == 3);
18    ($startz, $startx, $starty) = @ARGV;
19}
20
21trapi: for (my $z = $startz; $z <= MAXZOOM; $z++) {
22    my $zdir;
23    next unless(opendir $zdir, "z$z");
24    my @x = sort {$a <=> $b} grep((/^\d+$/ && ($_ >= $startx)), readdir $zdir);
25    closedir $zdir;
26    foreach my $x (@x) {
27        my $xdir;
28        opendir $xdir,"z$z/$x" or die "Could not opendir $z/$x; $!";
29        my @y = sort {$a <=> $b} grep((/^\d+$/ && ($_ >= $starty)), readdir $xdir);
30        closedir $xdir;
31        foreach my $y (@y) {
32            last trapi if (-f "stopfile.txt");
33            my $ptn = toptn($z, $x, $y);
34            gcptn($ptn);
35        }
36    }
37}
38
39exit 0;
40   
Note: See TracBrowser for help on using the repository browser.