Perl Noob?! Fragen!?

#!/usr/bin/perl -w




#wegschreiben in Datei Test
#open(DATEI,">>/Test/test");    # oeffne Datei zum Anhaengen
#print DATEI "$text";           # in die Datei schreiben
#close(DATEI);


#20
my $alt;
opendir(DIR,"/video0/film/mp3");
my @alt = readdir (DIR);
closedir(DIR);
print "@alt\n";


my $neu;
open (DATEI,"test") || die "Kann Datei nicht finden!";
read (DATEI, $neu, 5);
#30
print "$neu\n";
chdir("/video0/film/mp3");
foreach $alt (@alt) {
 if ($alt =~ /^Test/) {
 rename ($alt,$neu.".mp3");
 }
}


my $umbennant;
#40
opendir(DIR,"/video0/film/mp3");
my @umbennant = readdir (DIR);
closedir(DIR);
print "@umbennant\n";


#File::Copy


chdir("/video0/film/mp3");
mkdir "fertig",0777;
#50
#opendir (DIR,"/video0/film/mp3");
#my @fertige = readdir (DIR);#if (my $fertige =~ /mp3$/);
#copy ("$fertige", "/fertig");




#rename ($alt,$neu);
#print "Datei $alt in $neu umbennant\n";
#60
#closedir(DIR);

#


#Datenbank:
my $DB = Datenbank;
#Logdatei:
my $Log = Log;




use strict;     #or die("a horrible death while debugging this shit");
my @LogFileContent;    # ich weiss, aber alle meine vars sehn so aus
my @DBFileContent;
my %seen;
my $lineCounter = 0;


# "Log" und "DB" file öffnen
open (Log,$Log);
open (DB,$DB);


# den inhalt der files in ein array pumpen, arbeite lieber mit variablen statt mit geöffneten datein
# diamond operator kennst du?
while(<Log>)
{
        chomp();        #newline am zeilenende entfernen
        push @LogFileContent, $_;      #die aktulle zeile an das array @LogFileContent anhängen
} #while(<Log>)


while(<DB>)
{
        chomp();
        push @DBFileContent, $_;
} #while(<DB>)


foreach my $LogFileContentLine (@LogFileContent)
{
        my $found = 0;
        $lineCounter++;
        print "Inhalt LogFile: $LogFileContentLine\n";
        if ($seen{$LogFileContentLine})
        {
                print "duplicate: line number $lineCounter!!!\n";


                #das löschen usw dann auch hier
        } #if ($seen{$LogFileContentLine})




        $seen{$LogFileContentLine} = 1;


        foreach (@DBFileContent)
        {
                $found = 1 if (/$LogFileContentLine/);
        } #foreach (@DBFileContent)


# wenn die zeile nicht in der Datenbank vorkommt
        if (!$found)
        {
                print "\nNicht vorhanden in DB: \nZeile: $lineCounter \nInterpret und Titel: $LogFil
                #$lineCounter--;
                #Klappt noch nicht weil die Datei mit _0 anfangen aber es immer min Zeile 1 ist
                #und Leider Bekomme ich nicht hin das ich Die Datei "xxx_$lineCounter -1.mp3" umbenn
                #rename ("Test.mp3",$LogFileContentLine.".mp3")
                print "Datei Test.mp3 umbennant in $LogFileContentLine.mp3\n";#DEBUG Dateien umbenan
                #Einbauen das nur Weggeschrieben wird wenn Datei umbennant ist
                #close (DB);
                #open (DB,">>$DB");    # oeffne Datei zum Anhaengen
                #print DB "$LogFileContentLine\n";           # in die Datei schreiben


# umbennen und so weiter hier machen
        } #if (!$found)




} #foreach my $LogFileContentLine (@LogFileContent)

sub decodeVTXPageToASCII
{
        my $filename = "111_00.vtx";
        #$filename = $_[0];
        $buf = "";
        if ( !-f $filename )
        {
                print "Could not find file $filename \n";
                return "";
        } else
        {
        open( VTXFILE, $filename );
        while (<VTXFILE>)
        {
        $buf .= $_;
        }
        close(VTXFILE);
        my ($newbuf) = "";
        for ( $i = 13 ; $i <= length($buf) ; $i++ )
        {
                $cchar = ord( substr( $buf, $i, $i + 1 ) ) & 0x7F;
                if ( $cchar <= 0x1f )
                {
                        $newbuf .= " ";
                } else
                {
                        $newbuf .= chr($cchar);
                }
                if ( ( $i - 12 ) % 40 == 0 ) { $newbuf .= "\n"; }
        }
        $newbuf =~ tr/[\x5b,\x5c,\x5d,\x7e,\x7b,\x7c,\x7d]/[Ä,Ö,Ü,ß,ä,ö,,ü]/;
        undef($buf);
        return $newbuf;


     }
}


sub main
{
        $argument = $_[0];
        print decodeVTXPageToASCII($argument);
}
main ($ARGV[0] );