Opened by piero at 2004-04-26 12:59
User since
2004-03-03
98 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-03-03
98 Artikel
BenutzerIn
Hallo,
nur noch eine letzte Frage.
Über diese Befehle:
steht in $name folgendes: blablabla|pctest
die hosts-datei ist folgendermaßen aufgebaut:
IP: PC: Sonstiges:
127.0.0.1 pc1 #blablabla | pctest
Kann man es auch machen, dass man nur alles nach der pipe ausgegeben haben will?
nur noch eine letzte Frage.
Über diese Befehle:
Code: (dl
)
1
2
3
4
5
6
7
8
my $hosts = '/home/webmaster/cgi-bin/hosts';
my $name = ();
my $ip = $ENV{'REMOTE_ADDR'};
open(ABSENDER,"<$hosts") or die $!;
while(my $line = <ABSENDER>){
chomp $line; #Zeilenumbruch entfernen
if($line =~ /^$ip/) { #wenn Zeile mit IP beginnt
$name = (split (/#\s+/,$line))[1]; #Name ist durch leerstellen getrennt
steht in $name folgendes: blablabla|pctest
die hosts-datei ist folgendermaßen aufgebaut:
IP: PC: Sonstiges:
127.0.0.1 pc1 #blablabla | pctest
Kann man es auch machen, dass man nur alles nach der pipe ausgegeben haben will?