regexp für ein kleines Text File

[BlackShadow 12]

Hallo,

ich öffne in einem Script ein TextFile dieses hat folgenden Inhalt:

 

red_type=STATIC

interface=eth1

gateway=172.20.21.1

 

mein Script ist ein "perl" Script

Leider hab ich es ganz und garnicht mit regexp.

 

		my ($red_type, $interface, $ip_adress, $domain_name_servers);

		open(PROC, '/var/efw/uplinks/main');
		while(my $line = <PROC>)
		{
			$red_type = $1 if ($line =~ (/red_type\s+\= (.+)\n/));
			$interface = $1 if ($line =~ (/interface\s+\: (.+)\n/));
			$ip_adress = $1 if ($line =~ (/ip_adress\s+\: (.+)\n/));
			$domain_name_servers = $1 if ($line =~ (/domain_name_servers\s+\: (.+)\n/));
		}
		close(PROC);

		print "$red_type\t$interface\t$ip_adress\t$domain_name_servers\n";

 

das ganze wird später via print ausgegeben

allerdings zeigts bei mir nix an und ich denke das hat was mit dem regexp. zu tun, kann mir da jemand behilflich sein?

 

gruß und danke Frank