diff options
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 ""; |