Datei öffnen, nach String suchen (Perl/CGI)

piero

2004-04-01 16:31

User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]

Hallo,
ist es möglich in Perl in einer Datei zu suchen und den Wert mit einem String zu vergleichen und diesen in eine Variable zu schreiben?
z.B.
ich will die Datei "hosts" öffnen. Hier steht folgendes:

127.0.0.50 Sepp

Jetzt will ich die lokale IP-Adresse auslesen und in der Datei "hosts" nach der IP-Adresse suchen. Dann soll er mir "Sepp" in die Variable Namen schreiben.

Ist dies zu realisieren?

--
Gruß
Piero

renee

2004-04-01 16:39

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

open(R_HOSTS,"<$host_file") or die $!;
while(my $line = <R_HOSTS>){ 
  chomp $line; # Zeilenumbruch entfernen
  if($line =~ /^$ip/){ # wenn die Zeile mit der IP beginnt
    $name = (split(/\s+/,$line))[1]; # Der Name ist durch ein od. mehrere Leerzeichen von der IP getrennt
  }
}
close R_HOSTS;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

piero

2004-04-01 16:43

User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]

und über diesen befehl, bekomme ich ja die ip-adresse heraus, oder?
$ENV{'REMOTE_ADDR'}

d.h. es muss also folgendermaßen alles heißen, oder?:

Code: (dl )

$ENV{'REMOTE_ADDR'};
open(R_HOSTS,"<$host_file") or die $!;
while(my $line = <R_HOSTS>){ 
 chomp $line; # Zeilenumbruch entfernen
 if($line =~ /^$ip/){ # wenn die Zeile mit der IP beginnt
   $name = (split(/\s+/,$line))[1]; # Der Name ist durch ein od. mehrere Leerzeichen von der IP getrennt
 }
}
close R_HOSTS;

Edit by Erik: Code Tags eingefügt!\n\n

renee

2004-04-01 16:55

User since
2003-08-04
14371 Artikel
ModeratorIn

das muss my $ip = $ENV{'REMOTE_ADDR'}; heißen... $name solltest Du auch schon vor der while{}-Schleife deklarieren...

Man muss aber auch bedenken, wenn man sowas macht, dass $ENV{'REMOTE_ADDR'} nicht immer übermittelt wird!\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

piero

2004-04-01 17:05

User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]

Hallo,
wenn ich folgenden Code ausführe, dann kommen nur lauter error Meldungen, obwohl ich es so gemacht habe, wie ihr es mir gesagt habt.

Code: (dl )

#!/usr/bin/perl -w                                 
                                                   
use MIME::Base64;                                  
use strict;                                        
use warnings;                                      
use CGI;                                           
use CGI::Carp qw(fatalsToBrowser);                 
                                                   
open(M, "|/usr/sbin/sendmail -t");                 
                                                   
print M "To: Piero <gior\@imap>\n";                
                                                   
print M "From: $ABSENDER <$ABSENDER\@blabla.de>\n";
                                                   
print M "Subject: Test\n";                         
                                                   
print M "Content-type: text/html\n\n";             
                                                   
my ($Feld, $Name, $Wert);                          
my %Formular;                                      
                                                   
my $cgi=CGI->new();                                
print $cgi->header(-type=>'text/html');            
%Formular=$cgi->Vars();                                                         
                                                                                
$ip = $ENV{'REMOTE_ADDR'};                                                      
open(ABSENDER,"hosts) or die $!;                                                
while(my $line = <ABSENDER>) {                                                  
chomp $line; #Zeilenumbruch entfernen                                           
if($line =~ /^$ip/) { #wenn die Zeile mit der IP beginnt                      
$name = (split (/\s+/,$line))[1]; # Der Name ist durch ein oder mehrere Leerzeichen von der IP getrennt                                                         
}                                                                               
}                                                                               
close ABSENDER;

Edit by Erik: Code Tags eingefügt!\n\n

[E|B]

2004-04-01 17:20

User since
2003-08-08
2561 Artikel
HausmeisterIn

An der Stelle des Scriptes würde ich auch ein paar Meldungen ausgeben. ;)
Du hast z.B. "strict" eingebunden, "$ip" berücksichtigst du nicht.

Nachtrag: Das sieht sehr nach einem LMHOST File aus... :)\n\n

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

renee

2004-04-01 17:21

User since
2003-08-04
14371 Artikel
ModeratorIn

und wo kommt $ABSENDER her??

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

piero

2004-04-01 17:22

User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]

und was heißt das genau?

[E|B]

2004-04-01 17:23

User since
2003-08-08
2561 Artikel
HausmeisterIn

Und wo kommt $name her?

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

piero

2004-04-01 17:25

User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]

so hat es mir renee gesagt....