diff options
| -rw-r--r-- | annex_discovery.pl | 14 | ||||
| -rwxr-xr-x | calendar/dayplan_revised.pl | 2 | ||||
| -rwxr-xr-x | calendar/modevent.pl | 2 |
3 files changed, 16 insertions, 2 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; + } +} diff --git a/calendar/dayplan_revised.pl b/calendar/dayplan_revised.pl index 43e74a7..bf72ea7 100755 --- a/calendar/dayplan_revised.pl +++ b/calendar/dayplan_revised.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Porting dayplan.ksh to Perl use strict; diff --git a/calendar/modevent.pl b/calendar/modevent.pl index 38f1e02..bffb972 100755 --- a/calendar/modevent.pl +++ b/calendar/modevent.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl use warnings; use strict; |