Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]13142[/thread]

Datum korrekt und nicht in der Vergangenheit?

Leser: 3


<< >> 3 Einträge, 1 Seite
Gast Gast
 2009-02-15 22:36
#118890 #118890
Hallo Zusammen,

eines muss ich vorab gestehen, ich bin ein absoluter Neuling in Sachen Perl. Folgendes Szenario gibt es bei mir. Ich habe ein Formular, in dem ich diverse Dinge per &#8222;cgi&#8220; prüfen möchte &#8211; z.B. ob ein ein Name eingetragen ist, ob eine richtig formulierte E-Mail-Adresse eingegeben ist und ob 3 verschiedene Werte von Auswahlboxen ein gültiges Datum ergeben, um es per Mail zu versenden. Die entsprechenden Auswahlboxen lauten wie folgt:
Code: (dl )
1
2
3
4
<select class="select" name="tag">
<option selected="selected">Tag</option>
<option>01 ... bis ... 31 </option>
</select>


Code: (dl )
1
2
3
4
<select class="select" name="monat">
<option value="0" selected="selected">Monat</option>
<option value="01">Januar ... bis ... Dezember</option>
</select>


Code: (dl )
1
2
3
4
<select class="select" name="jahr" size="1">
<option selected="selected">Jahr</option>
<option>2009 ... bis ... 2013</option>
</select>


Das Script lautet in den entsprechenden zu prüfenden Zeilen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if (($INPUT{Name}                   eq "") ||
    ($INPUT{tag}     !~ /^[0-9]*$/) ||
    ($INPUT{monat}   !~ /^[0-9]*$/) ||
    ($INPUT{jahr}    !~ /^[0-9]*$/) ||
    ($INPUT{Email}                  eq "") )
{
	print "Location: $msg_errmiss\n\n";
	exit;
}

if (($INPUT{Email} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/) ||
    ($INPUT{Email} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/))
{
	print "Location: $msg_badmail\n\n";
	exit;
}

Per Mail wird dann folglicherweise versendet:

Code: (dl )
1
2
3
print MAIL "Name:            $INPUT{Name}\n";
print MAIL "Datum:      $INPUT{tag}.$INPUT{monat}.$INPUT{jahr}\n";
print MAIL "E-Mail-Adresse:  $INPUT{Email}\n";


Leider weiss ich absolut nicht, wie ich prüfen kann, ob es sich um ein gültiges Datum handelt (also kein 30.02.2009 oder 31.04.2009) und ob sich das Datum auch nicht in der Vergangenheit befindet. Sicherlich ist es für Euch nur eine Kleinigkeit. Bitte helft mir weiter.

Gruß Ulli


---
//Modedit Gwendragon: Code lesbarer gestaltet; Bitte HTML- und Perl-Code in CODE-Tags
---
Linuxer
 2009-02-16 00:11
#118892 #118892
User since
2006-01-27
3870 Artikel
HausmeisterIn

user image
Hi,

die Gültigkeit kannst Du mit CPAN:Date::Calc::check_date prüfen.

Code (perl): (dl )
1
2
3
4
5
6
7
8

use Date::Calc qw( check_date );

if ( check_date( $jahr, $monat, $tag ) { 
  # korrektes Datum
}
else {
  # inkorrektes Datum, hau dem User was um die Ohren
}


Das gleiche Modul enthält eine Funktion DeltaDays, mit der Du die Differenz zweier gegebenen Daten ermitteln kannst. An der Differenz solltest Du erkennen können, ob ein Datum in der Vergangenheit liegt.

Zum Ermitteln des heutigen Datums kannst Du die Funktion Today des gleichen Moduls verwenden.

Weitere Details bitte der Moduldokumentation (Link siehe oben) entnehmen.

Gruss,
Linuxer
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Gast Gast
 2009-02-20 20:05
#119050 #119050
Hallo,

recht vielen Dank für Deine Antwort.

Da ich ein absoluter Neuling bin verstehe ich nicht ganz genau, wie und wo ich den entsprechenden Code einfügen muss.

Zunächst muss ich die auszuwertenden Felder benennen. Da in meinem Fall 2 verschiedene Datumsangaben ausgewertet werden müssen (Ankunftsdatum und Abfahrtsdatum) und ein drittes Datum hinzugefügt werden muss (Serverdatum) habe ich schon mal 3 verschiedene Auswertungen vorzunehmen:

Ich würde es wie folgt machen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9

$day1 = $INPUT{antag}; 
$month1 = $INPUT{anmonat}; 
$year1 = $INPUT{anjahr}; 
 
$day2 = $INPUT{abtag}; 
$month2 = $INPUT{abmonat}; 
$year2 = $INPUT{abjahr}; 
 
($year,$month,$day) = System_Clock();




Anschliesend muss ich das check-date anwenden

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

use Date::Calc qw( check_date ); 
 
if ( check_date( $year1, $month1, $day1 )  
{  
        print "Location: $msg_ok\n\n"; 
        exit; 
} 
 else  
{ 
        print "Location: $msg_badmail\n\n"; 
        exit; 
} 
 
if ( check_date( $year2, $month2, $day2 )  
{  
        print "Location: $msg_ok\n\n"; 
        exit; 
} 
 else  
{ 
        print "Location: $msg_badmail\n\n"; 
        exit; 
}


und jetzt muss ich die drei Datumsangaben miteinander vergleichen (das Serverdaum kann kleiner oder gleich dem Ankunftsdatum sein und das Abfahrtsdatum muss größer als das Ankunftsdatum sein):

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

use Date::Calc qw( Date_to_Days ); 
 
if (Date_to_Days($year3,$month3,$day3)  <= 
    Date_to_Days($year1,$month1,$day1)) 
{  
        print "Location: $msg_ok\n\n"; 
        exit; 
} 
 else  
{ 
        print "Location: $msg_badmail\n\n"; 
        exit; 
} 
 
if (Date_to_Days($year1,$month1,$day1)  < 
    Date_to_Days($year2,$month2,$day2)) 
{  
        print "Location: $msg_ok\n\n"; 
        exit; 
} 
 else  
{ 
        print "Location: $msg_badmail\n\n"; 
        exit; 
}


So hatte ich es jedenfalls gedacht, aber aus irgendeinem Grund funktioniert es nicht.

Kannst Du mir sagen, wo der/die Fehler sind?

Gruß Ulli
<< >> 3 Einträge, 1 Seite



View all threads created 2009-02-15 22:36.