Opened by fraggs at 2006-12-08 16:06
User since
2006-09-11
179 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-09-11
179 Artikel
BenutzerIn
copy paste ich denke irgendwas stimmt nicht wie ich das aufgebaut habe.
ich hab da so ein richer das man die regex nicht unbedingt in die while routine packen kann .... der code oben ist von den anderen threads angesammelt wo ich nach gefragt hatte. xml ist noch so naja etwas fremd vorallem wie das mit dem auslesen geht.
aber alle tips und hilfe machen mich gluecklich
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# !perl
use strict;
use warnings;
my $dataxml = 'z:\tla\scripts\emmaparser\index.xml';
my $xmlfile;
open($xmlfile,'<',$dataxml) or die $!;
while(my $line = <$xmlfile>)
{
my ($type, $value1, $value2, $value3)=$line=~m|<\s*coverage\s+type="(block|line)\s*,\s*\%\s*"\s+value="(\d+)\%\s+\(([\d\.]+)/([\d\.]+)\)"\s*/>|s;
}
close ($xmlfile);
ich hab da so ein richer das man die regex nicht unbedingt in die while routine packen kann .... der code oben ist von den anderen threads angesammelt wo ich nach gefragt hatte. xml ist noch so naja etwas fremd vorallem wie das mit dem auslesen geht.
aber alle tips und hilfe machen mich gluecklich
mmm twix