Opened by misterx at 2005-03-28 16:35
User since
2005-03-28
23 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-03-28
23 Artikel
BenutzerIn
[quote=Strat,30.03.2005, 09:12]etwa so in der art?
[/quote]
Danke, ich habe es ausprobiert. Es erscheint aber überhaupt nichts - scheint ok zu sein, aber er gibt mir das array nicht aus, und auch nicht, ob es gefiltert wurde.
Probiere es aber die ganze Zeit, vielleicht klappt es ja.
Kann man es erweitern? Ich muss noch eine Datei einlesen, also in GetOptions file2=s" => \$file2 - auch eine Textdatei, die dieselben Einträge (also ip, password enthält).
Ich möchte dann auf der Commandozeile sagen:
program.pl -p password -i 127.0.0.1 -file datei.txt -file2 datei2.txt.
Das würde in diesem Fall beudeuten, dass mir das password und ip adresse, welche ich eingegeben habe, nur ausgegeben wird, wenn sie in beiden Text-dateien enthalten ist.
Also es wird zuerst die erste Datei komplett eingelsen, dann die zweite, und dann wird erst gefiltert nach den Eingaben: password und ip; und ausgegeben, wenn sie nur exakt in beiden Textdateien enthalten sind.
Bsp:
textdatei1.txt
127.0.0.1 password1 id1
127.0.0.2 password2 id2
...
textdatei2.txt
129.0.0.1 test1 id4
129.0.0.2 test3 id5
127.0.0.1 password1 id1
wenn ich jetzt eingebe:
program.pl -p password1 -i 127.0.0.1 -file textdatei1.txt -file2 textdatei2.txt
dann bekomme ich zu sehen:
password1 127.0.0.1; weil es in beiden Textdateien enthalten ist. Danke für die Antwort bzw.Anregungen!
Grüsse
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
38
39
40
41
42
#! /usr/bin/perl
use warnings;
use strict;
use Getopt::Long;
my ($filterPassword, $filterIp, $file);
my $help = 0;
# z.B. program.pl -p password -i 127.0.0.1 -file datei.txt
# oder: program.pl -h
GetOptions(
"password=s" => \$filterPassword,
"ip=s" => \$filterIp,
"file=s" => \$file,
"help" => \$help,
);
if ($help) {
# &PrintHelp....
exit 1;
} # if
# vielleicht hier noch ueberpruefen, ob $filterPassword und $filterIp gesetzt sind....
unless (open (LOG, "<", $file)) {
die "Error: couldn't open '$file': $!\n";
} # unless
my @filteredLines = ();
while (<LOG>) {
chomp($_);
my (undef, $pass, $ip) = split(/ /, $_);
if ($pass eq $filterPassword and $ip eq $filterIp) {
print "gefiltert: $_\n";
push (@filteredLines, $_);
} # if
} # while
close (LOG);
foreach (@filteredLines) {
print "$_\n";
} # foreach
Danke, ich habe es ausprobiert. Es erscheint aber überhaupt nichts - scheint ok zu sein, aber er gibt mir das array nicht aus, und auch nicht, ob es gefiltert wurde.
Probiere es aber die ganze Zeit, vielleicht klappt es ja.
Kann man es erweitern? Ich muss noch eine Datei einlesen, also in GetOptions file2=s" => \$file2 - auch eine Textdatei, die dieselben Einträge (also ip, password enthält).
Ich möchte dann auf der Commandozeile sagen:
program.pl -p password -i 127.0.0.1 -file datei.txt -file2 datei2.txt.
Das würde in diesem Fall beudeuten, dass mir das password und ip adresse, welche ich eingegeben habe, nur ausgegeben wird, wenn sie in beiden Text-dateien enthalten ist.
Also es wird zuerst die erste Datei komplett eingelsen, dann die zweite, und dann wird erst gefiltert nach den Eingaben: password und ip; und ausgegeben, wenn sie nur exakt in beiden Textdateien enthalten sind.
Bsp:
textdatei1.txt
127.0.0.1 password1 id1
127.0.0.2 password2 id2
...
textdatei2.txt
129.0.0.1 test1 id4
129.0.0.2 test3 id5
127.0.0.1 password1 id1
wenn ich jetzt eingebe:
program.pl -p password1 -i 127.0.0.1 -file textdatei1.txt -file2 textdatei2.txt
dann bekomme ich zu sehen:
password1 127.0.0.1; weil es in beiden Textdateien enthalten ist. Danke für die Antwort bzw.Anregungen!
Grüsse