File Coverage

blib/lib/File/Searcher/Interactive.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package File::Searcher::Interactive;
use File::Searcher;
use Term::Prompt;
use Term::ANSIColor qw/:constants/;
$Term::ANSIColor::AUTORESET = 1;
use strict;
use vars qw($VERSION @ISA);
@ISA = qw(File::Searcher);
$VERSION = '0.9';


sub interactive{
	my $self = shift;
	$self->{_interactive} = 1;
	$self->start;
}

sub _process_file{
	my $self = shift;
	my ($file) = @_;
	my @expressions = @{$self->{_expressions}};

	my $contents='';
	$self->_backup($file) if $self->do_backup;
	$self->_archive($file) if $self->do_archive;
	$self->{_search}->add_files_matched($file);

	my $lock = new File::Flock $file;
	open(FILE, $file) || die "Cannot read file $file\n";
	my @contents = ;
	$contents = join("", @contents);
	foreach my $expression (@expressions)
	{
		next if $self->{_search}->expression($expression)->skip_expression;
		my ($match_cnt,$replace_cnt,$skip_next,$do_file,$do_all,$new_match_cnt,$re_do) = (0)x7;
		$self->{_search}->expression($expression)->add_files_matched($file);
		$do_all = $self->expression($expression)->do_all;
		my $preview = '';
		my $more = 1;
		my ($search, $replace, $options_search, $options_replace) = $self->_get_search($expression);
		$search = "(?$options_search)$search";
		while($contents =~ m/$search/g)
		{
			my $match = Match->new(match=>$&,pre=>$`,post=>$',last=>$+,start_offset=>@-,end_offset=>@+,contents=>$contents);

			my $return_status = 0;
			$return_status = $self->{_on_expression_match}->($match, $self->{_search}->expression($expression)) if $do_file != 1 && $do_all != 1 && $new_match_cnt < 1;
			$contents = $return_status and next if $return_status !~ /\d+/ && $return_status ne '';
			$self->expression($expression)->do_all(1) and $do_all = 1 if $return_status == 100;
			$do_file = 1 if $return_status == 10;
			$self->expression($expression)->skip_expression(1) and last if $return_status == -100;
			last if $return_status == -10;
			$skip_next = 1 if $return_status == -1;

			$skip_next = 1 if $match->match eq $replace;
			$skip_next = 1 if $new_match_cnt > 0;

			my $short_pre = substr($match->pre, (-25*$more), (25*$more));
			my $short_post = substr($match->post, 0, 25*$more);
			my $message = $short_pre; $message .= $re_do ? BOLD $preview : BOLD $match->match; $message .= $short_post;
			unless($do_file || $do_all || $skip_next)
			{
				my $out = BOLD $file ."\n";	$out.=$message; $out.="\n--------------\n"; $out .= BOLD $replace . "\n";
				print $out;
			}
			my $prompt = BOLD "[Y]"; $prompt .= "Replace ";	$prompt .= BOLD "[A]"; $prompt .= "All In File "; $prompt .= BOLD "[Z]"; $prompt .= "All Files\n "; $prompt .= BOLD "[P]"; $prompt .= "Preview "; $prompt .= BOLD "[M]"; $prompt .= "More\n";
			my $result = '';
			$result = "Y" if $do_file || $do_all;
			$result = "Next" if $skip_next;
			$result = &Term::Prompt::prompt("x", "$prompt", "", "Next") unless $result;
			$more = 1 if $result !~ /M/i && $skip_next != 1;
			$re_do = 0 unless $skip_next;

			if($result =~ /A/i){
				my $v_message = "Are you sure you want to replace "; $v_message .= BOLD "ALL "; $v_message .= "occurances of $search in "; $v_message .= BOLD "THIS "; $v_message .= "file";
				my $verify = &prompt("y", "$v_message", "", "n");
				$do_file = 1 if $verify == 1;
				$contents = $match->pre . $match->match . $match->post if $verify != 1;
			}
			elsif($result =~ /Z/i){
				my $v_message = "Are you sure you want to replace "; $v_message .= BOLD "ALL "; $v_message .= "occurances of $search in "; $v_message .= BOLD "ALL "; $v_message .= "remaining files";
				my $verify = &prompt("y", "$v_message", "", "No");
				$do_all = 1 if $verify == 1;
				$self->expression($expression)->do_all(1) if $verify == 1;
				$contents = $match->pre . $match->match . $match->post if $verify != 1;
			}
			elsif($result =~ /P/i){
				$re_do = 1;
				my $body = $match->match;
				eval ("\$body =~ s/$search/$replace/$options_replace");
				$contents = $match->pre . $match->match . $match->post;
				$new_match_cnt = $match_cnt+1;
				$preview = $body;
			}
			elsif($result =~ /m/i){
				$re_do = 1;
				$more = $more*2;
				$contents = $match->pre . $match->match . $match->post;
				$new_match_cnt = $match_cnt+1;
				$preview = $match->match;
			}

			$match_cnt++ unless $skip_next == 1 || $re_do == 1;
			if($result =~ /y/i || ($result =~ /Z/i && $do_all) || ($result =~ /A/i && $do_file))
			{
				my $body = $match->match;
				eval ("\$body =~ s/$search/$replace/$options_replace");
				$replace_cnt++;
				$contents = $match->pre . $body . $match->post;
				$new_match_cnt = $match_cnt+1;
			}
			$new_match_cnt--;
			$skip_next = 0;
		}
		$self->{_search}->expression($expression)->add_files_replaced($file) if $replace_cnt > 0;
		$self->{_search}->expression($expression)->replacements($file, $replace_cnt);
		$self->{_search}->expression($expression)->matches($file, $match_cnt);
	}
	close(FILE);
	if($self->{_search}->do_replace)
	{
		open(FILE, ">$file") || die "Cannot read file $file\n";
		print FILE $contents;
		close(FILE);
	}
}


1;
__END__