The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Linux::SocketFilter - interface to Linux's socket packet filtering

SYNOPSIS

 use Linux::SocketFilter qw( :bpf pack_sock_filter );
 use IO::Socket::Packet;
 use Socket qw( SOCK_DGRAM );

 my $sock = IO::Socket::Packet->new(
    IfIndex => 0,
    Type    => SOCK_DGRAM,
 ) or die "Cannot socket - $!";

 $sock->attach_filter(
    pack_sock_filter( BPF_RET|BPF_IMM, 0, 0, 20 )
 );

 while( my $addr = $sock->recv( my $buffer, 20 ) ) {
    printf "Packet: %v02x\n", $buffer;
 }

DESCRIPTION

This module contains the constants and structure definitions to use Linux's socket packet filtering mechanism.

CONSTANTS

The following constants are exported:

Socket Options

 SO_ATTACH_FILTER SO_DETACH_FILTER

BPF Instructions

 BPF_LD BPF_LDX BPF_ST BPF_STX BPF_ALU BPF_JMP BPF_RET BPF_MISC
 BPF_W BPF_H BPF_B BPF_IMM BPF_ABS BPF_IND BPF_MEM PBF_LEN BPF_MSH
 BPF_ADD BPF_SUB BPF_MUL BPF_DIV BPF_OR BPF_AND BPF_LSH BPF_RSH BPF_NEG
 BPF_JA BPF_JEQ BPF_JGT BPF_JGE BPF_JSET
 BPF_K BPF_X BPF_A BPF_TAX BPF_TXA

This entire set of constants is also exported under the tag name :bpf.

Linux BPF Extension Packet Addresses

 SKF_AD_OFF SKF_AD_PROTOCOL SKF_AD_PKTTYPE SKF_AD_IFINDEX
 SKF_NET_OFF SKF_LL_OFF

This entire set of constants is also exported under the tag name :skf.

STRUCTURE FUNCTIONS

$buffer = pack_sock_filter( $code, $jt, $jf, $k )

( $code, $jt, $jf, $k ) = unpack_sock_filter( $buffer )

Pack or unpack a single BPF instruction.

SOCKET FUNCTIONS

The following exported functions are also provided as methods on the IO::Socket class.

attach_filter( $sock, $filter )

$sock->attach_filter( $filter )

Attaches the given filter program to the given socket. The program should be a string formed by concatenating multiple calls to pack_sock_filter() to build the filter program, or by using Linux::SocketFilter::Assembler.

detach_filter( $sock )

$sock->detach_filter()

Detaches the current filter from the socket, returning it to accepting all packets.

AUTHOR

Paul Evans <leonerd@leonerd.org.uk>