1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<fehler>
<aaa>1</aaa>
<bbb>0</bbb>
<blablub>
<aaa>0</aaa>
<bbb>0</bbb>
</blalbub>
</fehler>
<kein fehler>
<aaa>1</aaa>
<bbb>0</bbb>
<blablub>
<aaa>0</aaa>
<bbb>0</bbb>
</blalbub>
</kein fehler>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
my $file = 'test.xml';
open my $fh, '<', $file or die $!;
while ( my $line = <$fh> ) {
# benutze den Flip-Flop-Operator http://reneeb-perlblog.blogspot.de/2010/01/der-flip-flop-operator.html
if ( $line =~ /<fehler>/ .. $line =~ /<\/fehler>/ ) {
sende_mail() if $line =~ /[1-9]/;
}
}
close $fh;