use warnings;
use File::Compare;
use File::Copy;

sub loop {
	$pid= system("start gvim $script");
	print "$pid\n";
	$exists=kill 0, $pid;
	print "PID existe\n" if ($exists);
#	system("cls");
	$compare=compare("$script","$script_bkp" );
	print "$compare\n";
	while(1){
#   		system("cls");
    		system("$comando $script $archivo" );
	    	sleep 3;
	    	$x=1;
	    #	print "$compare\n";
	    	$compare=compare("$script","$script_bkp" );
	    	while($compare==0){
    			sleep 1;
    			print "$x segundos dentro del loop...\n";
	    		$x++;
    			$compare=compare("$script","$script_bkp" );
			print "$exists todavia existe.." if($exloop;ists);
		}
#		unless ($exists) {last}
       		copy($script,$script_bkp)
    }
}

print "#### TIPO DE ARCHIVO PARA EDITAR ####\n";
print "\n";
print "Nombre del Script: ";
$input=<STDIN>;
chomp($input);

print "Nombre del archivo a filtrar: ";
$archivo=<STDIN>;
print "\n";


print "Tipo de script?\n";
print "Opciones: AWK,SED o PERL :";

while(<>){
	if(m/^(sed)$/i){
		$comando="sed -f";
		$ext_1=".sed";
		$ext_2="_bkp.sed";
		last;
	}
	elsif(m/^(awk)$/i){
		$comando="awk -f";
		$ext_1=".awk";
		$ext_2="_bkp.awk";
		last;
	}
	elsif(m/^(perl)$/i){
		$comando="perl -f";
		$ext_1=".pl";
		$ext_2="_bkp.pl";
		last;
	}
	else{
		exit;
	}
}
$script="$input$ext_1";
$script_bkp="$input$ext_2";
print "$script\n";
if ( -e $script){
	print "archivo existe, desa editarlo?\nSi/No\n";
	while (<>){
		if(m/^(si)$/i){
			loop;last;
       		}
		elsif(m/^(no)$/i){
			last;
		}
		else{
		print "Debe escojer si o no\n";
		sleep 1;
		}
	}
}else{
	print "no existe\n";
	open(FILE, ">$script");
	print FILE 'print "hola\n";';
	close(FILE);

	unless ( -e $script_bkp ){
		copy($script,$script_bkp);

	}
	loop;last;
}
exit;