Fråga : Utskrift med cgi och Perl

Förmiddag I using flera cgi skrivar, och genom att använda perl för cgi-sidorna, i en dela upp, som skapar ett användarekonto, mig har en dela upp som kontrollerar för att se till, att det nya rekordet innehåller ett land (c), postar tilltalar (posta) och en chef (chef). Om en av dessa sätter in inte skrevs in därefter det skrivar ut en sida som ger användaren info som de inte satte in.

What, jag har så avlägsna arbeten fint, det är, om de lämnade endast en av 3na sätter in tomt, problemet jag har, är hur man gör det trycket ut objekten, om de lämnade 2, eller 3 av sätter in blank.

If de händer att lämna alla trena sätter in tomt mig behöver det att skriva ut ut ”en kula listar” av de tre items.
Currently, om de lämnar en av sätter in tomt det ska trycket ut this.

Example av vad är printing nu, om de lämnar posta sätta in blank.


It verkar som om någon information har inte vart skrivna in objekt för correctly.

The behöver uppmärksamhet är: class= " kula " för

• Need för att skriva in en giltig e-post address

> för

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

" codeBody " if för class= " ((eq för $in {c} '') || {posta} (eq för $in '') || (eq för $in {chef} '')) { $err1 = ”det verkar som om någon information inte har skrivits in korrekt. ”; $err2 = ”objekten som behöver uppmärksamhet, är: ”; om (eq för $in {posta}, '') {$missing = ”behov att skriva in ett giltigt \ ”en e-post tilltalar \ "";}, om (eq för $in {chef} '') {$missing = ”behov att skriva in ett giltigt \ ”en chef \” (chefen) ”;} om (eq för $in {c} '') {$missing = ”behov att skriva in ett giltigt \ ”ett land \” (c) och \ ”staden \” (v) ”;} tryck << " FEL "; $Header

Account-skapelse Error

$missing

$Footer FEL gå ut; }

$err1

$err2

" klar "

Svar : Utskrift med cgi och Perl

Hi bt707,
Först allra, jag skulle föreslår, att du inte besvärar med att skapa HTMLEN märker sig yourself men, använder i stället den mycket standarda CGI.pmen (http://perldoc.perl.org/CGI.html). Den ska den garanti dig alltid well-formed HTML för jordbruksprodukter.

Beträffande: dina ”saknade” fel, vad du behöver, är mot efterkrav alla fel i en samling:
om (eq för $in {posta}, '') {pushen (som @missing, ”behov att skriva in ett giltigt \ ”en e-post, tilltalar \ "")},
 om (eq för $in {chef} '') {pushen (@missing, ”behov att skriva in ett giltigt \ ”en chef \” (chefen) ”)}
 om (eq för $in {c} '') {pushen (@missing, ”behov för att skriva in ett giltigt \ ”ett land \” (c) och \ ”staden \” (v) ”)}
Och skriv därefter ut alla dem using något något liknande detta:

mitt $errorHtml = sammanfogar ("", kartlägger {”,

$_

”} @missing);

och byt ut ditt

$missing

med $errorHtml

Bra lycka!