[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/echoLongString4.pl b/mcu/tools/echoLongString4.pl
new file mode 100644
index 0000000..ba1061a
--- /dev/null
+++ b/mcu/tools/echoLongString4.pl
@@ -0,0 +1,23 @@
+#!/usr/local/bin/perl
+$OUTPUT = $ARGV[0];
+shift(@ARGV);
+
+@INPUT = @ARGV;
+
+@new_output = sort @INPUT;
+
+if(-e $OUTPUT) {
+ open(W,">>$OUTPUT") or die "Cannot open $OUTPUT";
+} else {
+ open(W,">$OUTPUT") or die "Cannot open $OUTPUT";
+}
+
+foreach (@new_output) {
+ print W "$_ ";
+}
+print W "\n";
+close(W);
+
+
+
+