#!/usr/bin/perl

use strict;
use LWP::Simple;
use DateTime;

while(1) {

my $dupont = 'http://www.wmata.com/metrorail/Stations/showpid/showpid_refresh.cfm?station=6';

my $content = get($dupont);

my (@signs) = ($content =~ /^.*class="sign".*$/gm);
foreach my $sign (@signs) {
  $sign =~ s{.*</span><br />}{};
  $sign =~ s{</p><br />}{};
  my @entries = split m{<br />}, $sign;
  foreach my $entry (@entries) {
    my ($line, $size, $dest, $when) = ($entry =~ m{^(\w+) (\w+)\s+(.*) (\w+)$});
    if($line) {
      $when =~ s/ARR|BRD/0/;
      print DateTime->now . ",";
      print "$line,$size,$dest,$when\n";
    }
  }
  #print "  " . (join ',', @entries) . "\n";
}

sleep 30;
}

#print "Signs: " . (join "\n", @signs) . "\n";