sbsv1_os/e32toolp/test/mmpscan.pl
branchRCL_3
changeset 73 22bdd8a90cc4
parent 18 99082257a271
equal deleted inserted replaced
62:7416fe50a180 73:22bdd8a90cc4
    13 # Description:
    13 # Description:
    14 # Perl script to scan tree looking for MMP files with particular keywords
    14 # Perl script to scan tree looking for MMP files with particular keywords
    15 # 
    15 # 
    16 #
    16 #
    17 
    17 
    18 use strict;
       
    19 use File::Find;			# for find()
    18 use File::Find;			# for find()
    20 use File::Basename;		# for fileparse()
    19 use File::Basename;		# for fileparse()
    21 use Cwd;				# for getcwd()
    20 use Cwd;				# for getcwd()
    22 
    21 
    23 use Getopt::Long;
    22 use Getopt::Long;