net_start.pl

来自「linux dvb的文件」· PL 代码 · 共 27 行

#!/usr/bin/perl

$ADAPTER = 0;

&dvbnet($ADAPTER, 0,  512, "192.168.11.1", "11:12:13:14:15:16");
&dvbnet($ADAPTER, 0, 2000, "192.168.21.1", "21:22:23:24:25:26");


# &dvbnet(adapter,netdev,pid,"ip_addr","mac_addr");

sub dvbnet
{
  local ($ADAPTER, $NETDEV, $PID, $IP_ADDR, $MAC_ADDR) = @_;

  $DEV_NAME = `./dvbnet -a $ADAPTER -n $NETDEV -p $PID | grep created`;
  chop($DEV_NAME);

  $DEV_NAME =~ s/(.*)device //;
  $DEV_NAME =~ s/for (.*)//;

  $X = `/sbin/ifconfig $DEV_NAME $IP_ADDR netmask 255.255.255.0`;
  $X = `/sbin/ifconfig $DEV_NAME hw ether $MAC_ADDR promisc`;

  system("/sbin/ifconfig $DEV_NAME");
}