From 4543ca1cbdba348d99b1397148658edcb2f28754 Mon Sep 17 00:00:00 2001
From: Gabe <66077254+MrBrain295@users.noreply.github.com>
Date: Thu, 7 Dec 2023 16:18:57 -0600
Subject: [PATCH 1/2] Delete alexa

---
 alexa | 46 ----------------------------------------------
 1 file changed, 46 deletions(-)
 delete mode 100755 alexa

diff --git a/alexa b/alexa
deleted file mode 100755
index 06cb3cd..0000000
--- a/alexa
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl
-
-my $CSV = "/Users/samy/code/alexa/top-1m.csv";
-
-use strict;
-
-if (-t STDIN and !@ARGV)
-{
-	die "usage: $0 <site> [site ...] (or piped in)\n";
-}
-
-my %sites;
-open(F, "<$CSV") || die "Can't read $CSV: $!";
-
-my $sites = join("|", map { fix($_) } @ARGV);
-
-if (!-t STDIN)
-{
-	$sites .= "|" if $sites;
-	while (<STDIN>)
-	{
-		chomp;
-		$sites .= fix($_) . "|";
-	}
-	chop($sites);
-}
-
-#die $sites;
-while (<F>)
-{
-	chomp;
-	my ($i, $url) = split(/,/, $_, 2);
-	if ($url =~ /^($sites)$/)
-	{
-		print "$i\t$url\n";
-	}
-}
-close(F);
-	
-
-sub fix
-{
-	my $url = lc shift;
-	$url =~ s/^https?:\/\/(?:www\.)?//i;
-	return $url;
-}
\ No newline at end of file

From fc305868721d6744ca56b8448da70ec5c00303c8 Mon Sep 17 00:00:00 2001
From: Gabe <66077254+MrBrain295@users.noreply.github.com>
Date: Thu, 7 Dec 2023 16:20:10 -0600
Subject: [PATCH 2/2] Delete alexa

---
 README.md | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/README.md b/README.md
index 763d7f4..14f3d8d 100644
--- a/README.md
+++ b/README.md
@@ -20,9 +20,6 @@ This is a collection of simple but effective tools to use on the command line to
 **alert** - alert (play sound) when a command completes
 `alert dd if=file.iso of=disk`
 
-**alexa** - get Alexa.com ranking for a site
-`alexa cnn.com`
-
 **all** - loop a command over a list of files
 `all 'tar -zxvf FILE' *tgz`