Miscellany

#!/usr/local/bin/perl


use CGI::Carp qw( fatalsToBrowser );

#use strict;
use CGI;
use Data::Dumper;

use lib "/home/sclark/lib/perl5";
use WWW::Facebook::API;
use HTTP::Request::Common;

$q = new CGI;
print $q->header;	

our $min_cash_out = 2;
our $start_clicks = 8;
our $referred_cash = 1;

# Percentages
our $referred_click = .5;
our $referred_refer = 0;


our $time_buffer = 5; #Leniancy in click time

$min_cash_out = 5;
confirm_changes();

sub confirm_changes {
	open(DAT, "<test.pl") || die("Cannot Open File");
	@raw=<DAT>; 
	close(DAT);
	
	$file = join("",@raw);
	foreach my $var
			('$min_cash_out',
			 '$start_clicks',
			 '$referred_cash',
			 '$referred_click',
			 '$referred_refer',
			 '$time_buffer') {
		$amt = eval $var;
		print "$var = $amt<br>";
		print "match found: $1 $2<hr>" if ($file =~ m/(?{$var}) = ([^;]+);/g);
		#$file =~ s/($var) = ([^;]+);/$1 = 0;/;
		
		
	}
	#print "<hr>";
	#print $file;
	
	#open(DAT,">test.pl") || die("Cannot Open File");
	#print DAT $file; 
	#close(DAT);
}

1;
__END__

OUTPUT:

$min_cash_out = 5
match found: new CGI 

$start_clicks = 8
match found: 2 

$referred_cash = 1
match found: 8 

$referred_click = 0.5
match found: 1 

$referred_refer = 0
match found: .5 

$time_buffer = 5
match found: 0