Thread Datei einlesen und Zeile in anderer Datei suchen (6 answers)
Opened by bora99 at 2021-09-13 16:56

bora99
 2021-09-13 16:56
#193570 #193570
User since
2009-12-05
54 articles
BenutzerIn
[default_avatar]
Hallo,

Ist es die eleganteste Variante, eine Datei 1 einzulesen und die Zeile in einer anderen Datei 2 zu suchen , wie folgt ?

Demo Datei Erstellung
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#Datei 1 enthaelt Werte, welche in Datei 2 gesucht werden
cat > testfile_1 <<-EOF
1
11
2
22
3
33
EOF

cat > testfile_2 <<-EOF
1
22
3
EOF


Die gefundenen Zeilen in Datei 2 sind
1
22
3


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
#!/usr/bin/perl -w
use strict;

my $TestFile_Read = "testfile_1";
my $TestFile_Search = "testfile_2";

if( ! open( RFH, $TestFile_Read))
{
print STDERR "Test File '$TestFile_Read' kann nicht gelesen werden !\n";
exit 1;
}

if( ! open( SFH, $TestFile_Search))
{
print STDERR "Test File '$TestFile_Search' kann nicht gelesen werden !\n";
exit 1;
}

while( my $line_r = <RFH> )
{
chomp $line_r;
# print "File_Read: $line_r\n";
open( SFH, $TestFile_Search);
while( my $line_s = <SFH> )
{
chomp $line_s;
# print "File_Search: $line_s\n";
if( $line_r eq $line_s )
{
print "Gefunden ($TestFile_Read in $TestFile_Search): $line_s\n";
$found = 1;
last;
}
}
}
close( SFH);
close( RFH);

exit 0;

View full thread Datei einlesen und Zeile in anderer Datei suchen