Quick scraper: Wegman's shopping app web page -> print to PDF-> pdftotext -> this thing -> shopping list as CSV

wegmans

#!/usr/bin/perl

print "##\n";
print "## Section, Price, Per, Description\n";
print "##\n";

while (<>) {
  chomp;
  s/\014//g;

  if(/(.*?\$.*?) - (.*)/) {
    printf "\"$category\", \"%s\",\"%s\",\"%s\"\n", $1, $2, $desc;
  }
  elsif ($desc and /^\d+/) {
    $category = $desc;
  }

  $desc = $_;
}