[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/check_repeated.pl b/mcu/tools/check_repeated.pl
new file mode 100644
index 0000000..03676dd
--- /dev/null
+++ b/mcu/tools/check_repeated.pl
@@ -0,0 +1,42 @@
+#!/usr/local/bin/perl
+
+
+my $count;
+my $repeated=0;
+
+
+my @in_var = @ARGV;
+
+my @new_var;
+
+ foreach $a (@in_var)
+ {
+ $count =0;
+ #print "var_a=$a \n";
+
+ foreach $b (@in_var)
+ {
+ if ( "$a" eq "$b" )
+ {
+ $count++;
+
+ }
+ }
+
+ if ($count==0)
+ {
+
+ } elsif ( $count > 1)
+ {
+ print "$a repeated $count times ! \n";
+
+ $repeated++;
+ }
+
+ }
+
+exit $repeated;
+
+
+
+