[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/splitfile.pl b/mcu/tools/splitfile.pl
new file mode 100644
index 0000000..15f94ee
--- /dev/null
+++ b/mcu/tools/splitfile.pl
@@ -0,0 +1,16 @@
+
+$afile=$ARGV[0];
+$ifile=$ARGV[1];
+#print "$afile\n";
+$str = `type $ifile`;
+#print "$str\n";
+#$str =~ s/ /\n/g;
+#print "$str\n";
+@outstr=split(/ /,$str);
+open NEWF,">$afile";
+foreach (@outstr) {
+ next if ($_!~ m/^\-[DI]/);
+ print NEWF "$_\n";
+}
+#print NEWF $str;
+close NEWF;