Variableninhalte miteinander vergleichen (Allgemeines zu Perl)

[thread]6448[/thread]

Variableninhalte miteinander vergleichen

Arasiel

2004-08-02 19:30

User since
2003-11-12
39 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich habe insgesamt 4 Variablen, bei denen ich jeweils 2 miteinander vergleichen möchte.
1. Variable:
$mod_date="2004-07-26"
2. Variable:
$mod_time="12:04:51"
3. Variable:
$current_date="2004-08-02"
4. Variable:
$current_time="16:41:33"

Die 1. und die 3. Variable sollen verglichen werden und falls sich diese nicht unterscheiden (also das gleiche Datum haben) , sollen noch die 2. und die 4. Variable verglichen werden und wenn sich $current_time und $mod_time um mehr als 10 Minuten unterscheiden, soll eine Warnung ausgegeben werden.

Wie kann ich das bewerkstelligen?

Vielen Dank im Voraus!

MfG,

Markus

sri

2004-08-02 19:36

User since
2004-01-29
828 Artikel
BenutzerIn

Code: (dl )

print "Unterschied" if $mod_date ne $current_date;

siehe: perldoc perlop

EDIT: Hab die 10 Minuten überlesen, also schön auf [E|B] hören :)\n\n

http://mojolicio.us/

[E|B]

2004-08-02 19:41

User since
2003-08-08
2561 Artikel
HausmeisterIn

Um die Zeiten miteinander zu vergleichen kannst du Date::Parse nehmen.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

esskar

2004-08-03 04:33

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Arasiel,02.08.2004, 17:30]wenn sich $current_time und $mod_time um mehr als 10 Minuten unterscheiden, soll eine Warnung ausgegeben werden.[/quote]
pass dann aber auf, dass du ggf. tagesgrenzen berücksichtigst!

Dubu

2004-08-03 11:12

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

@[E|B]: Gute Idee! :)

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Date::Parse;

my $mod_date="2004-07-26";
my $mod_time="12:04:51";
my $current_date="2004-08-02";
my $current_time="16:41:33";

my $d1 = str2time("$mod_date $mod_time");
my $d2 = str2time("$current_date $current_time");

print "Der Unterschied betraegt ", ($d2-$d1)/60, " Minuten.\n";

_ _END_ _

Der Unterschied betraegt 10356.7 Minuten.

@Arasiel: Ueberleg dir aber mal, ob es nicht sinnvoller ist, gleich Timestamps statt lesbarer Daten zu speichern. Mit denen laesst sich leichter rechnen und sie lassen sich leicht wieder in eine lesbare Form umwandeln.

Arasiel

2004-08-03 11:34

User since
2003-11-12
39 Artikel
BenutzerIn
[default_avatar]

Vielen dank für die schnelle Hilfe!

View all threads created 2004-08-02 19:30.