#!/use/perl/bin 
print " #create database: CREATE TABLE dbismi\n #create database with table: CREATE TABLE dbname tablename\n #veritabanı oluşturma ve table ekleme : CREATE TABLE dbname tablename colonname colonname int chartext #delete database : DELETE dbname \n #delete table: DELETE dbname tabloname \n #insert values : INSERT INTO dbname tablename colonname value colonname value colonname value \n #show database : FIND ALL_DATABASES \n #show all tables in databases : FIND dbismi \n #show values in table in database : SHOW dbname tablename \n #search value in table and show record: SEARCH dbname tablename key_word\n" ; 
use utf8; 
binmode(STDOUT,":utf8"); 
if((uc(@ARGV[0]) eq 'CREATE') && uc(@ARGV[1]) eq 'TABLE' ){ 
    chomp(my $dir = @ARGV[2]); 
    my $dir = "../Desktop/$dir"; 
    mkdir( $dir ,0755); 
    print "Directory created successfully\n"; 
    if(@ARGV[3]){ 
        my $d_p = @ARGV[2]; 
        my $file_name = @ARGV[3].".txt"; 
        my $file = "../Desktop/$d_p/$file_name"; 
        unless(open FILE, '>'.$file) { 
            die "\nUnable to create $file\n"; 
        } 
    } 
    my $numArgs = $#ARGV + 1; 
    foreach my $argnum (4 .. (4+($#ARGV-4)*1/2)) { 
        print FILE "$ARGV[$argnum]\t"; 
    } 
    print FILE "\n"; 
    close FILE; 
} 
if((uc(@ARGV[0]) eq 'DELETE') ){ 
    my $numArgs = @ARGV ; 
    if($numArgs == 2 ){ 
        my $del= @ARGV[1].'/*.txt'; 
        my $deleted = unlink glob $del; 
        print "$deleted files were removed\n"; 
        my $dir = '../Desktop/'.@ARGV[1].''; 
        rmdir( $dir ) or die "Couldn't remove $dir directory, $!"; 
        print "Directory removed successfully\n"; 
    } 
    if($numArgs eq 3 ){ 
        my $del= @ARGV[1].'/'.@ARGV[2].'.txt'; 
        my $deleted = unlink $del; 
    } 
} 
if((uc(@ARGV[0]) eq 'INSERT') and uc(@ARGV[1]) eq 'INTO' ){ 
    my $filename = @ARGV[2].'/'.@ARGV[3].'.txt'; 
    open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!"; 
    my $numArgs = $#ARGV + 1; 
    foreach my $argnum (5 .. $#ARGV) { 
        if($argnum%2 eq 0){ 
        } 
        else{ 
            print $fh "$ARGV[$argnum]\t"; 
        } 
    } 
    print $fh "\n"; 
    close $fh; 
    #print "done\n"; 
} 
if((uc(@ARGV[0]) eq 'FIND') ){ 
    if(uc(@ARGV[1]) eq 'ALL_DATABASES' ){ 
        my $path = '../Desktop'; 
        die "Please specify which directory to search" unless -d $path; 
        my $num =1; 
        opendir( my $DIR, $path ); 
        while ( my $entry = readdir $DIR ) { 
            next unless -d $path . '/' . $entry; 
            next if $entry eq '.' or $entry eq '..'; 
            print "$num ) $entry\n"; 
            $num++; 
        } 
        closedir $DIR; 
    } 
    if(uc(@ARGV[1]) ne 'ALL_DATABASES' ){ 
        my $dir = '../Desktop/'.@ARGV[1].''; 
        opendir DIR,$dir; 
        my @dir = readdir(DIR); 
        close DIR; 
        my $temp=1; 
        foreach(@dir){ 
            if (-f $dir . "/" . $_ ){ 
                print "$temp ) Table : ".$_."\n"; 
            } 
        } 
    }
} 
if(uc(@ARGV[0]) eq 'SHOW'){ 
    my $file =@ARGV[1].'/'.@ARGV[2].'.txt'; 
    open my $info, $file or die "Could not open $file: $!"; 
    while( my $line = <$info>) { 
        print $line; 
    } 
    close $info; 
} 
if((uc(@ARGV[0]) eq 'SEARCH') ){ 
my $file =@ARGV[1].'/'.@ARGV[2].'.txt'; 
my $str =@ARGV[3]; 
chomp($str); 
open(my $file, '<', $file) or die "Could not open file '$filen' $!"; 
while(my $line = <$file>){ 
    if($line=~/$str/){ 
        print $line; 
    } 
} 
close ($file); }