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

datum und zeit bearbeiten und zu einem string zusa



<< |< 1 2 >| >> 11 Einträge, 2 Seiten
mr-sansibar
 2006-05-19 19:39
#7710 #7710
User since
2006-04-13
90 Artikel
BenutzerIn
[default_avatar]
Hallo!
Bin Anfänger in Perl-Programmierung.


Hallo!
Wie kann ich ein String= "Date: 10.04.2006" so darstellen --> "20060410"
der String "Date" soll auch eliminiert werden
und der zweite String= "Time: 05:09:31.192" --> "050931192"
auch hier soll vorher der String "Time: " eliminiert werden

darstellen und in einem string abspeichern, also so "200060410050931192"

vielen dank
[B]
dominicn
 2006-05-19 22:43
#7711 #7711
User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]
so könnte es gehen:

Code: (dl )
1
2
3
4
5
6
7
8
9
use strict;

my $date = "Date: 10.04.2006";
my $time = "Time: 05:09:31.192";

$time =~ s/\D//g;
my $dt = substr($date, 12, 4).substr($date, 9, 2).substr($date, 6, 2).$time;

print $dt;
renee
 2006-05-19 22:58
#7712 #7712
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
my $string_date = 'Date: 10.04.2006';
my $string_time = 'Time: 05:09:31.192';

my ($day,$month,$year) = $string_date =~ /(\d+)\.(\d+)\.(\d+)/;
$string_time =~ s/[^\d]//g;
my $result = $year.$month.$day.$string_time;
print $result;
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
mr-sansibar
 2006-05-20 00:06
#7713 #7713
User since
2006-04-13
90 Artikel
BenutzerIn
[default_avatar]
vielen Dank für die Lösung.

Kannst du mir noch sagen was das hier macht:
$time =~ s/\D//g;

grüße
mr-sansibar
 2006-05-20 00:07
#7714 #7714
User since
2006-04-13
90 Artikel
BenutzerIn
[default_avatar]
vielen dank

was macht dieser ausdrück:
$string_time =~ s/[^\d]//g;

grüße
dominicn
 2006-05-20 00:19
#7715 #7715
User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]
Die beiden Ausdrücke machen - soweit ich weiß - das gleiche. Hier werd aus dem Skalar $time (bzw. $string_time) alle Zeichen, die keine Ziffern (0-9) sind, rausgeschmissen. \d steht für alle Ziffern, das ^ ist die Verneinung. \D ist das gleiche.
lichtkind
 2006-05-20 01:43
#7716 #7716
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
>$time =~ s/\D//g;

das löscht alles was keine zahl ist. D steht für digit also ziffer grosses D ist das gegenteil. das s steht für substitude also ersetzen also er ersetzt immer wenn er etwas findet was keine ziffer ist mit nichts(zw. slash 2 u 3 ist ja nichts) und das g am ende sagt das er es immer wieger machen soll (global)

>$string_time =~ s/[^\d]//g;

das löscht ziffern die am anfang stehen.\n\n

<!--EDIT|lichtkind|1148075082-->
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
dominicn
 2006-05-20 09:37
#7717 #7717
User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]
[quote=lichtkind,19.05.2006, 23:43]>$string_time =~ s/[^\d]//g;

das löscht ziffern die am anfang stehen.[/quote]
Das stimmt nicht. ^ ist das Verneinungszeichen, also ist [^\d] das gleiche wie \D.

Du meinst eher sowas wie ^\d ...\n\n

<!--EDIT|dominicn|1148120347-->
lichtkind
 2006-05-20 11:08
#7718 #7718
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
stimmt hab ich jetzt mit regex syntax von anderem program verwechselt.
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
renee
 2006-05-20 13:53
#7719 #7719
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Man muss immer aufpassen, wo das ^ steht!

Am Anfang des Regulären Ausdrucks ( z.B. /^Regex/), bedeutet es "Anfang des Strings", wenn es am Anfang einer Zeichenklasse (z.B. /[^\d]/) steht, dann ist es die Verneinung der Zeichenklasse.

perlretut
perlrequick
perlre
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 >| >> 11 Einträge, 2 Seiten



View all threads created 2006-05-19 19:39.