Vraag : Druk met CGI en Perl

Ik gebruik verscheidene CGImanuscripten en gebruikend perl voor de CGI- pagina's, in één sectie die tot een gebruikersrekening leidt, heb ik een sectie die controleert om ervoor te zorgen dat het nieuwe verslag een land (c), postadres (post) en een manager (manager) bevat. Als één van deze gebieden niet toen was ingegaan drukt het een pagina die de gebruiker info geeft zij geen in.

What zetten ik tot dusver de werkenboete heb, is dat als zij slechts één van de 3 gebiedenspatie verlieten, het probleem dat ik ben hoe te het te maken de punten heb gehad uitprinten als zij 2 verlieten of 3 van de gebieden blank.

If zij gebeuren om alle drie gebieden de lege behoefte van I te verlaten het om een „kogellijst“ van drie items.

Currently uit te printen als zij één van de gebiedenspatie verlaten het this.

Example zal uitprinten van wat nu drukt als zij het postgebied blank.


It verlaten verschijnt dat wat informatie geen ingegane punten correctly.

The aandacht vergen is is geweest:

  • Need om een geldige e-mail address

 in te gaan
" codeBody "



  • $missing

    • $Footer FOUT uitgang; } 

    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 {post} eq '') || ($in {manager} eq '')) {
  $err1 = „het blijkt dat wat informatie niet correct is ingegaan. “;
  $err2 = de „Punten die aandacht vergen zijn: “;

 als ($in {post} eq '') {$missing = „Behoefte om een geldige \ „e-mail adres \ "" in te gaan;}
 als ($in {manager} eq '') {$missing = „Behoefte om een geldige \ „Manager \“ in te gaan (manager) „;}
 als ($in {c} eq '') {$missing = „Behoefte om een geldige \ Stad \ „\“ (l) „„van het Land \ de“ in te gaan (c) en;}

druk << " FOUT ";

Account verwezenlijking Error

$Header

    

    Account verwezenlijking Error
    		$err1 $err2

    Antwoord : Druk met CGI en Perl

    Hallo bt707,
    Eerst en vooral, zou ik voorstellen dat u niet met het creëren van HTML zich etiketteert in plaats daarvan maar gebruikt zeer standaardCGI.pm hindert (http://perldoc.perl.org/CGI.html). Het zal waarborgen dat u altijd goed gevormd HTML veroorzaakt.

    Re: uw „ontbrekende“ fouten, wat u nodig hebt is verzamelen alle fouten in één serie:
    als ($in {post} eq '') {duw die (, „moet een geldige \ „e-mail adres \ "" ingaan @missing)}
     als ($in {manager} eq '') {duw die (, „moet een geldige \ „Manager \“ ingaan (manager @missing) „)}
     als ($in {c} eq '') {duw die (, „moet een geldige \ Stad \ „\“ (l) „„van het Land \ de“ ingaan (c) en @missing)}
    En druk hen dan allen gebruikend iets in die aard:

    mijn $errorHtml = treed toe ("", kaart {„
  • $_
    • „} @missing);

    en vervang uw
  • $missing

    • met $errorHtml

    Goed geluk!
    Andere oplossingen  
     
    programming4us programming4us