update mmd_merge

Author: Fletcher T. Penney

Utilities/mmd_merge.pl

@@ -16,10 +16,32 @@
 my $data = "";
 my $line = "";
 
-foreach(@ARGV) {
-	open(INPUT, "<$_");
+my $count = @ARGV;
+
+if ($count == 0) {
+	# We're in "stdin mode"
+
+	# process stdin
+	undef $/;
+	my $data .= <>;
+
+	mergeLines($data);
+} else {
+	foreach(@ARGV) {
+		open(INPUT, "<$_");
+		local $/;
+		my $data = <INPUT>;
+		close(INPUT);
+		mergeLines($data);
+	}
+}
+
 
-	while ($line = <INPUT>) {
+sub mergeLines {
+	my $file = shift;
+	
+	while ($file =~ /^(.*?)$/mg) {
+		$line = $1;
 		if (($line !~ /^\s*$/) && ($line !~ /^\#/)) {
 			$line =~ s/ {4}/\t/g;
 			$line =~ s/\s*$//;
@@ -39,12 +61,9 @@
 		}
 	}
 
-	close INPUT;
+	print $data;
 }
 
-print $data;
-
-
 =head1 NAME
 
 mmd_merge.pl - Combine text documents to create a MultiMarkdown structured