Public feed #726183

foxhackersucks

public text v1 · immutable
Raw Edit
·published 2007-10-04 23:00 UTC
rendered paste body
FVXX20 KNES 111213
VOLCANIC ASH ADVISORY
ISSUED: 20070611/1213Z   VAAC: WASHINGTON

VOLCANO: SOUFRIERE HILLS 1600-05
LOCATION: N1642 W06210   AREA: W_INDIES

SUMMIT ELEVATION: 3002 FT (915 M)

ADVISORY NUMBER: 2007/253

INFORMATION SOURCE: GOES-12. GFS WINDS. AFWA

ERUPTION DETAILS: ASH ERUPTION AROUND 11/0845Z

OBS ASH DATE/TIME: 11/1145Z

OBS ASH CLOUD: SFC/FL120 N1705 W06244 - N1702
W06227 - N1643 W06210 - N1641 W06211 - N1633
W06220 - N1648 W06241 - N1705 W06244 MOVING NW
5-10 KNOTS.

FCST ASH CLOUD +6H: 11/1800Z SFC/FL120 N1726
W06317 - N1714 W06239 - N1644 W06210 - N1641
W06210 - N1631 W06226 - N1647 W06240 - N1652
W06311 - N1726 W06317

FCST ASH CLOUD +12H: 12/0000Z SFC/FL120 N1740
W06346 - N1724 W06257 - N1705 W06246 - N1644
W06210 - N1641 W06210 - N1659 W06340 - N1740
W06346

FCST ASH CLOUD +18H: 12/0600Z SFC/FL120 N1748
W06413 - N1715 W06304 - N1644 W06210 - N1641
W06210 - N1707 W06410 - N1748 W06413

REMARKS: EARLY VISIBLE IMAGERY SHOWS A DARK CLOUD
OF ASH MOVING NW FROM SOUFRIERE HILLS SLOWLY FROM
5-10KTS.   COULD NOT CONFIM HEIGHT OF ASH...BUT
COMPARING TO WIND INFROMATION IN THE AREA WOULD
GUESS IT IS NO HIGHER THAN FL120. A HOTSPOT IN
SWIR IMAGERY IS A GOOD APPROXIMATION OF STARTING
TIME OF ERUPTION.   AN UPDATE MAY BE ISSUED WITH
CONFIRMATION OF HEIGHT INFO.  ...GALLINA

NEXT ADVISORY: WILL BE ISSUED BY 20070611/1815Z

Fox pwnage:
#!/usr/bin/env perl

use strict;
use warnings;

my @toks;
while(<>){
  if(/(\S+)\s+ASH\s+CLOUD/oi){
    push @toks, [ 'ASH CLOUD', $1 ];
  }
  map {
    if(/([NSEW]\d+)/){
      push @toks, [ 'COORD', $1 ];
    }
  } split(/\s+/, $_);
}

print "-= Tokens =-\n";
map {
  print "$_->[0]: $_->[1]\n";
} @toks;

print "-= OBS Coordinates =-\n";
my $print_coords = 0;
map {
  if($_->[0] eq 'ASH CLOUD'){
    if($_->[1] eq 'OBS'){
      $print_coords = 1;
    } else {
      $print_coords = 0;
    }
  }
  if($_->[0] eq 'COORD' and
     $print_coords){
     print "$_->[1]\n";
  }
} @toks;

exit 0;