Opened by tejste at 2012-11-15 17:36
User since
2012-11-15
21 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-11-15
21 Artikel
BenutzerIn
Hallo an die Perlprogrammierer,
bin noch nicht so lange beim Perlprogrammieren, aber mittlerweile mag ich die Sprache, obwohl sie mich manchmal verzweifeln lässt wie heute.
Ich sitze seit einiger Zeit an einem Problem was wahrscheinlich peinlich simpel ist, aber ich finde keine Lösung. Vielleicht könnt Ihr mir helfen, das wäre super. Aus einem Logfile welches Abschnittsweise so aussieht:
und unfähr 1000 Einträge derselben Struktur hat, brauche ich den String der zwischen den <UserName> Tags steht. Den genauen Regex Ausdruck bastel ich mir selbst zusammen, ich möchte gern als Hilfe wissen wie alles was nach <UserName>kommt ausgegeben werden kann. Mein Code sieht so aus (ich habe das ganze "use" Zeug mal weggelassen aber im Code ist es natürlich):-):
Leider liefert mir Perl nichts zurück?.Was mache ich falsch? Wäre toll wenn mir einer einen Tipp geben könnte
modedit Editiert von pq: code-tags für xml
Last edited: 2012-11-15 17:41:08 +0100 (CET)
bin noch nicht so lange beim Perlprogrammieren, aber mittlerweile mag ich die Sprache, obwohl sie mich manchmal verzweifeln lässt wie heute.
Ich sitze seit einiger Zeit an einem Problem was wahrscheinlich peinlich simpel ist, aber ich finde keine Lösung. Vielleicht könnt Ihr mir helfen, das wäre super. Aus einem Logfile welches Abschnittsweise so aussieht:
Code: (dl
)
1
2
3
<Method>ValidateUser</Method>
<UserName>av00012</UserName>
<Path>//hv01.usergroup.avnet.eu</Path>
und unfähr 1000 Einträge derselben Struktur hat, brauche ich den String der zwischen den <UserName> Tags steht. Den genauen Regex Ausdruck bastel ich mir selbst zusammen, ich möchte gern als Hilfe wissen wie alles was nach <UserName>kommt ausgegeben werden kann. Mein Code sieht so aus (ich habe das ganze "use" Zeug mal weggelassen aber im Code ist es natürlich):-):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my $logfiles ="C:/test/xunix/logfile_tracefiles/TraceLog_.txt";
open(DATEI,$logfiles);
my @vektor = <DATEI>;
my $seek=~m/UserName(.+)/;
for(my $i=0; $i<=$#vektor; $i++)
{
if($vektor[i]=~$seek)
{
print $1;
}
}
Leider liefert mir Perl nichts zurück?.Was mache ich falsch? Wäre toll wenn mir einer einen Tipp geben könnte
modedit Editiert von pq: code-tags für xml
Last edited: 2012-11-15 17:41:08 +0100 (CET)