diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-10-26 16:10:06 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-10-26 16:10:06 -0700 |
commit | fb38e33d89caaa9ecbe08063ab04054caf1f98bd (patch) | |
tree | e3df2f73f42c39cc26f9d0613208de0617aaff10 /scripts | |
parent | 68fa8ad73e4c6312f99081e7c44f42c7115c8eba (diff) | |
download | dotfiles-fb38e33d89caaa9ecbe08063ab04054caf1f98bd.tar.gz |
update script to use .org
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/arizona/mmg/lsumm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/arizona/mmg/lsumm b/scripts/arizona/mmg/lsumm index 3dee0ee6..eaeca9e1 100755 --- a/scripts/arizona/mmg/lsumm +++ b/scripts/arizona/mmg/lsumm @@ -1,11 +1,11 @@ #!/usr/bin/perl -wl -open my $fh, '<', '../Lecture summary.txt'; +open my $fh, '<', '../First paper final.org'; chomp(my @summary = <$fh>); for (glob "*") { /^(.+)\.([a-z]+)$/; - next if $2 eq 'txt'; - my $txt = "$1.txt"; + next if $2 eq 'org'; + my $txt = "$1.org"; open my $fh, '>', $txt; print $fh $1; print $fh ""; |