archiver/bin/finder.pl

#!/usr/bin/perl

## ------------------------------------------------------------------------
##  $Id: Simple.pm,v 1.4 2002/12/28 07:55:26 joko Exp $
## ------------------------------------------------------------------------
##  $Log: Simple.pm,v $
## ------------------------------------------------------------------------


=pod

  finder.pl - find things (files) and print their names on STDOUT
  
    - finder.pl
        finds all files/directories in current path

    - finder.pl .
        finds all files/directories in current path (again)

    - finder.pl --regex=test
        finds all files/directories matching 'regex' in current path

    - finder.pl --regex=/CVS/Root$ /tmp/cvsroot
        finds all files/directories matching 'regex' in path '/tmp/cvsroot' and below (recursively)

=cut


use strict;
use warnings;

BEGIN {
  use FindBin qw($Bin);
  #require "$Bin/use_libs.pl";
}

use lib qw( ../../../libs ../libs ../etc );
#use org::netfrag::preambel;

use Data::Dumper;
use File::Find;
use Getopt::Easy;

# ----------------------------------------
#   main
# ----------------------------------------
package main;


my $settings;

sub wanted {
  my $pattern = $settings->{options}->{regex};
  #print "pattern: $pattern", "\n";
  if ($File::Find::name =~ m/$pattern/) {
    print $File::Find::name, "\n";
    #replaceInFile($File::Find::name);
    #exit;
  }
}

sub main {
  
  my $defaults = {
    options => {
      'recursive' => 0,
      'regex' => '.*',
    },
    args => [qw( . )],
  };

  my $optReader = Getopt::Easy->new();
  $optReader->merge_defaults($defaults);
  $optReader->merge_cli_arguments();
  $settings = $optReader->getOptions();

  #print Dumper($settings); exit;
  
  #find(\&wanted, $settings->{args}->[0]);
  my $where = $settings->{args}->[0];
  find(\&wanted, $where);
  
}

main();

1;
__END__
1	joko	1.1	#!/usr/bin/perl
2
3			## ------------------------------------------------------------------------
4			## $Id: Simple.pm,v 1.4 2002/12/28 07:55:26 joko Exp $
5			## ------------------------------------------------------------------------
6			## $Log: Simple.pm,v $
7			## ------------------------------------------------------------------------
8
9
10			=pod
11
12			finder.pl - find things (files) and print their names on STDOUT
13
14			- finder.pl
15			finds all files/directories in current path
16
17			- finder.pl .
18			finds all files/directories in current path (again)
19
20			- finder.pl --regex=test
21			finds all files/directories matching 'regex' in current path
22
23			- finder.pl --regex=/CVS/Root$ /tmp/cvsroot
24			finds all files/directories matching 'regex' in path '/tmp/cvsroot' and below (recursively)
25
26			=cut
27
28
29			use strict;
30			use warnings;
31
32			BEGIN {
33			use FindBin qw($Bin);
34			#require "$Bin/use_libs.pl";
35			}
36
37			use lib qw( ../../../libs ../libs ../etc );
38			#use org::netfrag::preambel;
39
40			use Data::Dumper;
41			use File::Find;
42			use Getopt::Easy;
43
44			# ----------------------------------------
45			# main
46			# ----------------------------------------
47			package main;
48
49
50			my $settings;
51
52			sub wanted {
53			my $pattern = $settings->{options}->{regex};
54			#print "pattern: $pattern", "\n";
55			if ($File::Find::name =~ m/$pattern/) {
56			print $File::Find::name, "\n";
57			#replaceInFile($File::Find::name);
58			#exit;
59			}
60			}
61
62			sub main {
63
64			my $defaults = {
65			options => {
66			'recursive' => 0,
67			'regex' => '.*',
68			},
69			args => [qw( . )],
70			};
71
72			my $optReader = Getopt::Easy->new();
73			$optReader->merge_defaults($defaults);
74			$optReader->merge_cli_arguments();
75			$settings = $optReader->getOptions();
76
77			#print Dumper($settings); exit;
78
79			#find(\&wanted, $settings->{args}->[0]);
80			my $where = $settings->{args}->[0];
81			find(\&wanted, $where);
82
83			}
84
85			main();
86
87			1;
88			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26