Opened by Gast at 2007-05-23 12:07
User since
2006-07-05
334 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-07-05
334 Artikel
BenutzerIn
Data::Dumper war tatsächlich die viel bessere Lösung :-)
Folgender Programmcode ist wegen der Ausgabe noch etwas verbesserungswürdig
Ausgabe:
Error bla
dieter bla NAME1
kurt blub NAME2
peter bla NAME1
ursula blub NAME2
Error bla
heinz bla NAME1
fred blub NAME2
Gruss MisterL
Folgender Programmcode ist wegen der Ausgabe noch etwas verbesserungswürdig
Code: (dl
)
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
26
27
28
29
30
31
32
33
34
35
36
37
#!/usr/bin/perl
use strict;
use warnings;
#use Data::Dumper;
while (my $i=<DATA>) {
# if (/Error/ .. /NAME2/) {
# print if /Error/ or /NAME1/ or /NAME2/;
foreach ($i) {
if ($_ =~ /Error/ or /NAME1/ or /NAME2/){print $_;}
#if ($_ =~ /Error/) and ($_=~/NAME1/) and ($_=~/NAME2/){print $_;}
}
}
__DATA__
blabla blabla
Error bla
dieter bla NAME1
blabla
blob
kurt blub NAME2
bla blib
___________________
blabla blabla
peter bla NAME1
blabla
ursula blub NAME2
bla blib
___________________
blabla blabla
Error bla
heinz bla NAME1
blabla
fred blub NAME2
bla blib
Ausgabe:
Error bla
dieter bla NAME1
kurt blub NAME2
peter bla NAME1
ursula blub NAME2
Error bla
heinz bla NAME1
fred blub NAME2
Gruss MisterL
“Perl is the only language that looks the same before and after RSA encryption.”