[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/get_gfh_files.pl b/mcu/tools/get_gfh_files.pl
new file mode 100644
index 0000000..ce7c7cd
--- /dev/null
+++ b/mcu/tools/get_gfh_files.pl
@@ -0,0 +1,28 @@
+my $folder_path = $ARGV[0];
+my $file_postfix = $ARGV[1];
+
+my $strFileList;
+if(-d $folder_path)
+{
+ print "[BIN FOLDER]\n";
+ opendir (DIR, $folder_path) or die "Error: cannot open folder: $folder_path";
+ @files = grep {/.+_GFH/i} readdir DIR;
+ close DIR;
+
+ foreach (@files)
+ {
+ $ori_name = $_;
+ $_ =~ s/_GFH//i;
+ rename("$folder_path/$ori_name", "$folder_path/$_") or die "Error: fail to rename $ori_name to $_\n";
+ $strFileList .= "$folder_path/$_\n";
+ }
+
+}
+else
+{
+ print "[BIN FILE]\n";
+ $strFileList .= "$folder_path\n";
+}
+
+print $strFileList;
+exit 0;