Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 24
+10 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
Tool;breakpointTime;name1;02.02.2009 02:02:02;2;name1;03.08.2009 10:10:10;10;name1;03.03.2009 03:03:03;3;name1;01.01.2009 01:01:01;1;name1;16.06.2009 10:59:58;0;name2;02.02.2009 02:02:02;2;name2;03.08.2009 10:10:10;10;name2;03.03.2009 03:03:03;3;name2;01.01.2009 01:01:01;1;name2;16.06.2009 10:59:58;0;
1
2
3
|*Breakpoint name*|*01.01.2009 01:01:01*|*02.02.2009 02:02:02*|*03.03.2009 03:03:03*|*16.06.2009 10:59:58;0*|*03.08.2009 10:10:10*|
|name1|1|2|3|0|10|
|name2|1|2|3|0|10|
+6 replies
+5 replies
2009-08-26T12:50:19 GlemsHabe gerade mit einem Kommilitonen gesprochen und es gibt die Möglichkeit das ich direkt auf einen Hash zugreife und nicht einen langen String in einer Datei. Also ist die Frage hinfällig.
2009-08-26T12:50:19 GlemsKann das bitte jnd löschen der die Möglichkeit dazu hat (oder hab ich das nur nicht gefunden?)?
+3 replies![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
2009-08-26T13:03:10 pqirgendwie scheint es in anderen foren sehr üblichzu sein, threads zu löschen oder zu schliessen. ich lese die bitte doch häufiger von neulingen. kann ich immer gar nicht verstehen, warum man sowas machen sollte...
2009-08-26T12:58:35 Taulmarill2009-08-26T12:50:19 GlemsHabe gerade mit einem Kommilitonen gesprochen und es gibt die Möglichkeit das ich direkt auf einen Hash zugreife und nicht einen langen String in einer Datei. Also ist die Frage hinfällig.
Da freut man sich, wenn man so was ließt nachdem man sich die Arbeit gemacht hat, Code zu schreiben und zu dokumentieren.
2009-08-26T12:58:35 Taulmarill2009-08-26T12:50:19 GlemsKann das bitte jnd löschen der die Möglichkeit dazu hat (oder hab ich das nur nicht gefunden?)?
Genau, löscht am besten den ganzen Thread, dann ist meine Antwort ganz für die Tonne.
+3 replies
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 strict; use warnings; # string aus __DATA__ herausholen my $string = <DATA>; # die ersten beiden Datenfelder überspringen $string =~ /(?:[^;]+);(?:[^;]+)/cg; # hash deklarieren, der die Datenstruktur hält my %timestamps; #immer drei Werte aus den String holen while( $string =~ /([^;]+);([^;]+);([^;]+)/cg ) { # und die drei gecaptureten werte in die Datenstruktur bringen push @{ $timestamps{$2}->{$1} }, $3; } # datenstruktur lesbar ausgeben use Data::Dumper; print Dumper \%timestamps; # alles unter __DATA__ kann man mit dem Filehandle DATA auslesen __DATA__ Tool;breakpointTime;name1;02.02.2009 02:02:02;2;name1;03.08.2009 10:10:10;10;name1;03.03.2009 03:03:03;3;name1;01.01.2009 01:01:01;1;name1;16.06.2009 10:59:58;0;name2;02.02.2009 02:02:02;2;name2;03.08.2009 10:10:10;10;name2;03.03.2009 03:03:03;3;name2;01.01.2009 01:01:01;1;name2;16.06.2009 10:59:58;0;
+2 replies
1
2
3
4
5
6
7
8
9
Datum1
name1 -> wert
name2 -> wert
name3 -> wert
Datum2
name1 -> wert
name2 -> wert
name3 -> wert
...
1
2
3
4
5
6
7
8
9
10
11
12
my %dateNumHash = ();
foreach my $dateAsString (keys (%$dataHash))
{
$dateNumHash{(getTime($dateAsString))} = $dateAsString;
}
#print "\tSORTED \n";
for my $timeKey (sort(keys(%dateNumHash)))
{
my $time = $dateNumHash{$timeKey};
print TWIKI "*".$time."*|";
}
print TWIKI "\n";
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
