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