#!/usr/bin/perl -w

$gocount=$charcount=0;
$numcount=$floatcount=$realcount=0;
$datecount=$timestampcount=0;
$clobcount=$blobcount=0;
$longrawcount=$total=0;

print "\nWhat file would you like to open: ";
$file = <STDIN>;
$file =~ s/[\r\n]+//g;

print "\nAttempting to open $file\n";

open(FILE, "< $file") || die "FILE ERROR: Unable to open file: $!\n";
open(OUT, "> new-files/$file") || die"NEW FILE ERROR: Unable to create new file: $!\n";

while (<FILE>)
{
	if (s/^\s*go\s*$/\/\n/gi)
	{
		$gocount++;
		print OUT "TABLESPACE ARSAMS\n";
		#print "$file:  found a match\n";

	}elsif (s/\bchar\b/VARCHAR2/gi || s/\bvarchar\b/VARCHAR2/gi)
		{
			$charcount++;
		}elsif(s/\bdecimal\b/NUMBER/gi || s/\binteger\b/NUMBER/gi || s/\bbigint\b/NUMBER/gi || s/\bbit\b/NUMBER/gi || s/\btinyint\b/NUMBER/gi || s/\bsmallint\b/NUMBER/gi || s/\bnumeric\b/NUMBER/gi || s/\bmoney\b/NUMBER/gi)
			{
				$numcount++;
			}elsif(s/\bfloat\b/FLOAT/gi)
				{
					$floatcount++;
				}elsif(s/\breal\b/REAL/gi)
					{
						$realcount++;
					}elsif(s/\bdate\b/DATE/gi || s/\btime\b/DATE/gi || s/\bsmalldatetime\b/DATE/gi || s/\bdatetime\b/DATE/gi)
						{
							$datecount++;
						}elsif(s/\btimestamp\b/TIMESTAMP/gi)
							{
								$timestampcount++;
							}elsif(s/\blongchar\b/CLOB/gi)
								{
									$clobcount++;
								}elsif(s/\bbinary\b/BLOB/gi || s/\bvarbinary\b/BLOB/gi)
									{
										$blobcount++;
									}elsif(s/\blongbinary\b/LONG RAW/gi)
										{
											$longrawcount++;
										}
				

	$count++;
	print OUT;
	
}

#$gocount+$charcount+$numcount+$floatcount+$realcount+$datecount+$timestampcount+$clobcount+$blobcount+$longrawcount=$total;

print "\nThere are $count LINES in the file\n";
print "Changed $gocount GO in this file\n";
print "Changed $charcount CHAR in this file\n";
print "Changed $numcount NUMBER in this file\n";
print "Changed $floatcount FLOATS in this file\n";
print "Changed $realcount REAL in this file\n";
print "Changed $datecount DATE in this file\n";
print "Changed $timestampcount TIMESTAMP in this file\n";
print "Changed $clobcount CLOB in this file\n";
print "Changed $blobcount BLOB in this file\n";
print "Changed $longrawcount LONG RAW in this file\n";
#print "\nTotal number of changes: $total\n";

close(OUT) || die "Unable to close OUT file: $!\n";
close(FILE) || die "Unable to close file: $!\n";