lsumm

1 files changed, 13 insertions, 0 deletions

diff --git a/lib/aid/arizona/mmg/lsumm b/lib/aid/arizona/mmg/lsumm
new file mode 100755
index 00000000..7fe7ab82
--- /dev/null
+++ b/lib/aid/arizona/mmg/lsumm
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -wl
+
+open my $fh, '<', '../Lecture summary.txt';
+chomp(my @summary = <$fh>);
+for (glob "*") {
+    /^(.+)\.([a-z]+)$/;
+    next if $2 eq 'txt';
+    my $txt = "$1.txt";
+    open my $fh, '>', $txt;
+    print $fh $1;
+    print $fh "";
+    print $fh $_ for @summary;
+}