Merge branch 'master' of github.com:yulqen/perlscripts

1 files changed, 14 insertions, 0 deletions

diff --git a/annex_discovery.pl b/annex_discovery.pl
new file mode 100644
index 0000000..b645dc6
--- /dev/null
+++ b/annex_discovery.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature q(say);
+
+open my $fh, "<", "/home/lemon/Documents/find_these_paths.txt" or die "Cannot open file";
+while (<$fh>) {
+    if ($_ =~ q[^/home/lemon/annex/(.*) \(1 copy\)]) {
+        my $path = quotemeta($1);
+        my $out = `git annex whereis $path`;
+        say $out;
+    }
+}