one layer CNN get

MIT-BIT/mitdbdir/src/makelinks.pl

@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+# file: makelinks.pl		G. Moody	30 October 1996
+#
+# This program rewrites an HTML file of MIMIC database clinical data, adding
+# links to wavescript .xws files (also generated here) to any flagged date/time
+# stamps found in the input file.  The `@' character should be placed before
+# and after each date/time stamp in order to flag it for processing.  The
+# rewritten HTML appears on the standard output.
+#
+# Note: date/time stamps in the input should be in hh:mm:ss dd/mm/yyyy format.
+
+while (<>) {
+    if (/\d{3} /) {
+	chop();
+	@fields = split(/ /, $_);
+	$record = shift(@fields);
+	$tstamp = shift(@fields);
+	if (! $tstamp =~ /\d/) {
+	    $tstamp = shift(@fields);
+	}
+	@tparts = split(/:/, $tstamp);
+	$minute = shift(@tparts);
+	$second = shift(@tparts);
+	$xws = sprintf("samples/%3d%02d%02d.xws", $record, $minute, $second);
+	print "<a href=\"$xws\">$tstamp</a>";
+	while ($word = shift(@fields)) {
+	    print " $word";
+	}
+	print "<br>\n";
+	open(XWS, ">$xws");
+	print XWS "-r $record\n";
+	print XWS "-a atr\n";
+	print XWS "-f $minute:$second\n";
+	close(XWS);
+    } else {
+	print;
+    }
+}