So hab das nochmals überprüft...
und festgestellt, das im Array2 mit den Namen Leerzeichen enthalten sind ...
Gibt es irgendwie ne Möglichkeit, diese beim Einlesen ins Array, die Leerzeichen onthefly zu entfernen??? ... zur Zeit lese ich eine Datei und speichere den Inhalt ins Array und dem Anschein nach sind bei beiden, Array2 und Array3, Unterschiede. Bei Array2 definitiv Leerzeichen (und Zeilenumbruch), bei Array3(Zeilenumbruch).
Code:
my $filehndl = '<input>';
my $file_path = 'scannet.txt';
open($file_hndl, "<$file_path") ||
die("File not found: $file_path ($!)\n");
foreach (<$file_hndl>) {
($col1, $col2, $col3, $col4, $col5) = split(/:/, $_);
$col4 =~ s/ //g;
$col4 =~ tr/\n\r//;
push(@col1, $col1);
push(@col2, $col2);
push(@col3, $col3);
push(@col4, $col4);
push(@col5, $col5);
}
close($file_hndl);
my $file_pathall = 'group.tmp';
open(GROUP, "$file_pathall") ||
die("File not found: $file_pathall ($!)\n");
@all=<GROUP>;
close(GROUP);
# Hash erzeugen (IP und NetBios-Name
my %IP_Name=();
for(my $i=0;$i<=$#col1;$i++)
{
$IP_Name{"$col4[$i]"} = "$col1[$i]";
}
# Nach dem NetBios-Name suchen und IP ausgeben
foreach(@all)
{
if($IP_Name{"$_"})
{
print "$_ wurde gefunden und hat IP: " . $IP_Name{$IP_Name[$_]} . "! \n";
}
}
hier ein Auszug meiner Datei ... @col1 IP-Adressen, @col4 UserNamen, @all UserNamen nach denen gesucht werden soll.
Danke für deine Hilfe.
Lesezeichen