OLD | NEW |
---|---|
(Empty) | |
1 #!/usr/bin/perl -w | |
2 # Copyright 2013 The Chromium Authors. All rights reserved. | |
mkosiba (inactive)
2014/09/23 15:53:52
2014?
mnaganov (inactive)
2014/09/23 16:13:03
I will be removing both of the files soon (definit
| |
3 # Use of this source code is governed by a BSD-style license that can be | |
4 # found in the LICENSE file. | |
5 | |
6 # Use: find_files.pl <start-from> [exclude-dir ...] | |
7 | |
8 use strict; | |
9 use warnings; | |
10 use File::Basename; | |
11 | |
12 my $progname = basename($0); | |
13 | |
14 my $root_dir = shift @ARGV; | |
15 my @find_args = (); | |
16 while (@ARGV) { | |
17 my $path = shift @ARGV; | |
18 push @find_args, qw'-not ( -path', "*/$path/*", qw'-prune )' | |
19 } | |
20 push @find_args, qw(-follow -type f -print); | |
21 | |
22 open FIND, '-|', 'find', $root_dir, @find_args | |
23 or die "$progname: Couldn't exec find: $!\n"; | |
24 my $check_regex = '\.(asm|c(c|pp|xx)?|h(h|pp|xx)?|p(l|m)|xs|sh|php|py(|x)' . | |
25 '|rb|idl|java|el|sc(i|e)|cs|pas|inc|js|pac|html|dtd|xsl|mod|mm?' . | |
26 '|tex|mli?)$'; | |
27 my @files = (); | |
28 while (<FIND>) { | |
29 chomp; | |
30 print "$_\n" unless (-z $_ || !m%$check_regex%); | |
31 } | |
32 close FIND; | |
OLD | NEW |