Pytanie : Z cgi i Perl

I używać kilka cgi pismo i używać perl dla the cgi strona, W jeden sekcja che tworzyć użytkownik konto, I mieć sekcja który sprawdzać że the nowy rejestr zawierać kraj (c), poczta adres (poczta) i kierownik (kierownik). Jeżeli jeden te pole wchodzić do wtedy ono drukować strona the użytkownik the info stawiać in.

What I mieć do tej pory pracować świetnie, pracować być jeżeli tylko opuszczać jeden the 3 pole pusty, the problem I mieć być dlaczego ono druk dlaczego the rzecz jeżeli opuszczać 2 lub 3 the pole blank.

If zdarzać się wszystkie trzy pole pusty I potrzebować ono pusty "pocisk lista" the trzy items.

Currently jeżeli opuszczać jeden the pole puste miejsce ono drukować jeden this.

Example jeden być drukowy teraz jeżeli opuszczać the poczta śródpolny blank.


It pojawiać się że niektóre informacja mieć wchodzić do correctly.

The rzecz uwaga być:

  • Need ważny email address




  • $missing

    • $Footer BŁĄD wyjście; } 

    (1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

    if (($in {c} eq '') || ($in {poczta} eq '') || ($in {kierownik} eq '')) {
  $err1 = "Ono pojawiać się że niektóre informacja wchodzić do prawidłowo. ";
  $err2 = "The rzecz uwaga być: ";

 jeżeli ($in {poczta} eq '') {$missing = "Potrzeba ważny \ "adres emaila \ "";}
 jeżeli ($in {kierownik} eq '') {$missing = "Potrzeba ważny \ "Kierownik \" (kierownik) ";}
 jeżeli ($in {c} eq '') {$missing = "Potrzeba ważny \ "Kraj \" (c) i \ "Miasto \" (l) ";}

druk << " BŁĄD ";

Account tworzenie Error

$Header

    

    Account tworzenie Error
    		$err1 $err2

    Odpowiedź : Z cgi i Perl

    Cześć bt707,
    Najpierw wszystko, I sugerować że ty przeszkadzać z the HTML oznaczać ale zamiast używać the prawdziwy standard CGI.pm (http://perldoc.perl.org/CGI.html). Ono gwarantować że ty zawsze produkować zawsze HTML.

    Ponowny: twój "" błąd, szyk ty potrzebować być zbierać wszystkie the błąd w jeden szyk:
    jeżeli ($in {poczta} eq '') {pchnięcie (@missing, "Potrzeba ważny \ "adres emaila \ "")}
     jeżeli ($in {kierownik} eq '') {pchnięcie (@missing, "Potrzeba ważny \ "Kierownik \" (kierownik) ")}
     jeżeli ($in {c} eq '') {pchnięcie (@missing, "Potrzeba ważny \ "Kraj \" (c) i \ "Miasto \" (l) ")}
    I wtedy drukować i using i jak i:

    mój $errorHtml = łączyć ("", mapa {"
  • $_
    • "} @missing);

    i zamieniać twój
  • $missing

    • z $errorHtml

    Szczęście!
    Inne rozwiązania  
     
    programming4us programming4us