Community  »  Perl: Allgemeines Forum

Fehlerbehebung	Seitenanfang
Hi, weiss jemand warum das ProgramTeilchen hier nicht funktioniert?wäre net von euch !! und zwar der fehler taucht genau ab if($bla==1){}..else{}.Das andere funktioniert schon gut. if(...) {... } elsif(uc($arr[0][1]) eq 'HALLO') { my $key = $ENV{$arr[0][2]}; my $lesenusr; $Registry->Delimiter("/"); $key = $Registry->{"/CUser/Environment/"}; $lesenusr = $key->{"/PITEST"}; print "$lesenusr\n"; if($lesenusr ne '' ) { if ( $lesenusr eq $arr[0][3]) { my $bla=0; $tl = $mw->Toplevel(-title => "Warning"); my $label = $tl->Label(-text => ("$arr[0][3] already exist!\nOverwrite it?"))->pack(); my $yes =$tl->Button(-text =>"Yes",-command =>sub { $tl->destroy; $bla=1})->pack(-side => 'left'); ######## my $no =$tl->Button(-text =>"No",-command =>sub { $tl->destroy; })->pack(-side => 'right'); $tl->waitWindow; print"Alredy exists -> overright?\n" if($bla==1) { $Registry->Delimiter("/"); $key = $Registry->{"CUser/"}; $key->{"Environment/"} = { "/PITEST" => "$lesenusr\;$arr[0][3]",}; } else { } } else { ........ } } else { ........ } } Datum: 30.03.2007-16:26
re: Fehlerbehebung	Seitenanfang
Danke !!! schon gefunden ;) Datum: 30.03.2007-16:35