For meget i en variabel....??? eller hvad ?

[Lennart Hansen <sslug@sslug>]

print("\nHello sslug\n");


Det drejer sig om at jeg for formeget input in i en variablel, jeg
bruger en <STDIN> til at modtage input, og hvis der blever tastet fejl 1
gang bliver der til føjet 2 i output hvis jeg skriver rigtigt gangen
efter... Når jeg siger output mener jeg den sidste print.

#kode#

$ny_domain = "sslug.dk" # Ikke en variabel i den virkelige source kode #
$user_found = "0";
&post;
sub post { 
print("
################################################################\n");
print(" #                                                             
#\n");
print(" #                    Indtast Postmaster                       
#\n");
print(" #                                                             
#\n");
print("
################################################################\n");
print(" Indtast her (postmaster): ");
$postmaster = <STDIN>;
chop ($postmaster);
 
    if ($postmaster eq "") { $postmaster = "postmaster" }
 
    if (open(passwd_file, "/etc/passwd")) {
        $find_user = <passwd_file>;
        while ($find_user ne "") {
            $_user = $find_user;
            $find_user = <passwd_file>;
                for ($_user) {
                s/([a-z]+)\:/
                /ex;
                $exist_user = $1;
                }
                    if ($exist_user eq $postmaster) {
                        print(" Postmaster er fundet.....OK \n");
                        $user_found = "1";
                        $find_user = "";
                    }
        }
    if ($user_found eq "0") { &post; }
    }
    close(passwd_file);

    open(opret_i_visual, ">>/var/qmail/control/visualdomains");
        $split = $ny_domain;
        for ($split) {
        s/([a-z]+)\./;
        /ex;
        $strip_dom = $1;
        }
    print ("$ny_domain:$postmaster-$strip_dom\n"); ## HUSK !!
opret_i_visual
    close(opret_i_visual);
}                                                                               

#kode#

Ja, dette program skal kunne oprette visual domains i qmail....*lang
historie*..

Jeg håber dette er til at forstå, men jeg tror det drejer sig om at jeg
skal have flush'ed min variabel, kan dette lade sig gøre i perl ??? Hvis
ja hvordan... 

--

	MVH
		Lennart Hansen