Fehler beim Perlscript !: Das Script läuft nicht! (Allgemeines zu Perl)

[thread]8147[/thread]

Fehler beim Perlscript !: Das Script läuft nicht!

Gast Gast

2006-07-06 17:46

ich habe gerade mein 2tes script programmiert. leider funktioniert es nicht. kann mir jemand helfen.

Code: (dl )

#Der MySQL-Code:
#create database Mitarbeiter;
#use Mitarbeiter;
#create table Mitarbeiter(
#ID integer not null auto_increment,
#Nachname varchar(45),
#vorname varchar(45),
#Telefon integer,
#Kuerzel varchar(10),
#KST integer,
#Mail varchar(45),
#Buero varchar(10)
#primary key (ID));

################################################################################

#Initialisierung

print "Telefonliste\n\n";
use strict;
use DBI;
$option = 1;
$auswahl = 1;

################################################################################

#Hauptmenue

while ($option != 0){
    print "Bitte waehlen Sie eine Option: \n";
    print "1 Person eingeben \n";
    print "2 Person suchen \n";
    print "3 Person loeschen \n";
    print "0 Beenden \n";
    print "\nIhre Wahl: ";
    $option = <STDIN>;
    print "\n";

################################################################################

#Person eingeben

    if ($option == 1){
        print "\nBitte geben Sie den Nachnamen ein. \n";
        my $nachname = <STDIN>;
        print "\nBitte geben Sie den Vornamen ein. \n";
        my $vorname = <STDIN>;
        print "\nBitte geben Sie die interne Telefonnummer ein. \n";
        my $tel = <STDIN>;
        print "\nBitte geben Sie den Kuerzel ein. \n";
        my $kuerzel = <STDIN>;
        print "\nBitte geben Sie die Kostenstelle ein. \n";
        my $kst = <STDIN>;
        print "\nBitte geben Sie die E-Mail ein. \n";
        my $mail = <STDIN>;
        print "\nBitte geben Sie die Bueronummer ein. \n";
        my $buero = <STDIN>;
        print "\n\n";
        my $database = "Mitarbeiter";
        my $hostname = "localhost";
        my $dsn = "DBI:mysql:database=$database;host=$hostname;
        my $user = "root"; my $pass = "12345";
        my $insert = qq(insert into Mitarbeiter values(null, $nachname, $vorname, $tel, $kuerzel, $kst, $mail, $buero);
        my $dbh->disconnect;
    };

################################################################################

#Person auslesen

    if ($option == 2){

################################################################################

#Menue Suchen_nach

        while ($auswahl != 0){
            print "1 Suchen nach Nachname \n";
            print "2 Suchen nach Vorname \n";
            print "3 Suchen nach Telefonnummer \n";
            print "4 Suchen nach Kuerzel \n";
            print "5 Suchen nach Kostenstelle \n";
            print "6 Suchen nach E-Mail \n";
            print "7 Suchen nach Buero \n";
            print "0 Hauptmenue \n";
            print "\nIhre Wahl: ";
            $auswahl = <STDIN>;

################################################################################

#Nach Nachnamen suchen

            if ($auswahl == 1){
               
 print "\nBitte geben Sie den Nachnamen ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Nachname == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Vornamen suchen

            if ($auswahl == 2){
               
 print "\nBitte geben Sie den Vornamen ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Vorname == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Telefonnummer suchen

            if ($auswahl == 3){
               
 print "\nBitte geben Sie die Telefonnummer ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Telefon == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Kuerzel suchen

            if ($auswahl == 4){
               
 print "\nBitte geben Sie den Kuerzel ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Kuerzel == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Kostenstelle suchen

            if ($auswahl == 5){
               
 print "\nBitte geben Sie die Kostenstelle ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where KST == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach E-Mail suchen

            if ($auswahl == 6){
               
 print "\nBitte geben Sie die E-Mail ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Mail == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Buero suchen 

            if ($auswahl == 7){
               
 print "\nBitte geben Sie das Buero ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Buero == $search);
               
 my $dbh->disconnect;
            };
        };
    };

################################################################################

#Person loeschen

    if ($option == 3){
        print "\nBitte geben Sie die ID ein. \n";
        my $search = <STDIN>;
        my $database = "Mitarbeiter";
        my $hostname = "localhost";
        my $dsn = "DBI:mysql:database=$database;host=$hostname;
        my $user = "root"; my $pass = "12345";
        my $loesche = qq(delete * from Mitarbeiter where ID == $search);
        my $dbh->disconnect;
    };

################################################################################

#Abschluss

};

################################################################################

#Copyright

print "\n© by Rafael Pedrett  besitzer@betriebsdirektor.de";

\n\n

renee

2006-07-06 17:58

User since
2003-08-04
14371 Artikel
ModeratorIn

Was sagt denn die Fehlermeldung?? Wahrscheinlich etwas wie Global symbol "$option" requires explicit package name, oder?? Du hast das my vergessen... Am besten liest Du Dir mal Wiki:

den Wiki-Artikel durch.

Dann noch ein paar allgemeine Hinweise:

Am besten machst Du die Datenbankverbindung am Anfang auf. Dann hast den Code nicht an 10 verschiedenen Stellen im Skript.

Anstatt immer wieder ifs zu verwenden solltest Du elsif verwenden. Sonst wird jede einzelne Abfrage überprüft - ist aber unnötig, da die Auswahl nicht 2 und gleichzeitig 6 sein kann...

Du solltest Deinen Code zur besseren Lesbarkeit etwas anders einrücken. Also nicht

Code: (dl )

1
2
3

    if($bedingung){
$zeile = 1;
    }

sondern besser so:

Code: (dl )

1
2
3

if($bedingung){
     $zeile = 1;
}

Mir fällt gerade auf, dass Du nie die Verbindung zur Datenbank herstellst. Das solltest Du vielleicht mal machen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

nepos

2006-07-06 18:39

User since
2005-08-17
1420 Artikel
BenutzerIn

Fuers Formatieren von Code koenntest du dir auch mal perltidy angucken, das hilft einem da ein wenig...

Rafael

2006-07-26 10:11

User since
2006-07-26
22 Artikel
BenutzerIn
[default_avatar]

[quote=renee,06.07.2006, 15:58]1. Du solltest Deinen Code zur besseren Lesbarkeit etwas anders
einrücken.

2. Mir fällt gerade auf, dass Du nie die Verbindung zur Datenbank
herstellst. Das solltest Du vielleicht mal machen...[/quote]
1. Im Original ist is strukturiert.

2. Wie kann ich eine Verbindung herstellen?

Ich bin leider ein blutiger Anfänger

renee

2006-07-26 10:23