in reply to Re^5: Net::RawIP question
in thread Net::RawIP question

I did not understand what you mean, it's hard for me to understand this lanuguage please speak simple english. if you can give example this will be helpful. thanks for helping.

Replies are listed 'Best First'.
Re^7: Net::RawIP question
by anonymized user 468275 (Curate) on Aug 16, 2018 at 20:52 UTC
    According to my understanding of the docs, you have to add a parameter to this: 
    $n->ethset(source => 'my.target.lan', dest =>'my.target.lan');

    [download]
    so that it has also 
    $n->ethset(source => 'my.target.lan', dest =>'my.target.lan',
ip => hash);

    [download]
    where ip => hash is exactly what you put for the call to Net::RawIP->new;

    One world, one people

[reply]
[d/l]
[select]

      Can you give full example? i don't understand what you mean by what i put in call of net:rawip from the module source:

      sub ethset {
    my ($self, %hash) = @_;
    map { $self->{ethhdr}->$_($hash{$_}) } keys %hash;
    my $source = $self->{ethhdr}->source;
    my $dest   = $self->{ethhdr}->dest;
  
    if ($source =~ /^(\w\w):(\w\w):(\w\w):(\w\w):(\w\w):(\w\w)$/) {
        $self->{ethhdr}->source(
            pack("C6",hex($1),hex($2),hex($3),hex($4),hex($5),hex($6))
        );
        $source = $self->{ethhdr}->source;
    }
 
    if ($dest =~ /^(\w\w):(\w\w):(\w\w):(\w\w):(\w\w):(\w\w)$/) {
        $self->{ethhdr}->dest(
            pack("C6", hex($1),hex($2),hex($3),hex($4),hex($5),hex($6)
+)
        );
        $dest = $self->{ethhdr}->dest;
    }
 
    # host_to_ip returns IP address of target in host byteorder format
    $self->{ethhdr}->source(mac(host_to_ip($source)))
    unless($source =~ /[^A-Za-z0-9\-.]/ && length($source) == 6);
    $self->{ethhdr}->dest(mac(host_to_ip($dest)))
    unless($dest =~ /[^A-Za-z0-9\-.]/ && length($dest) == 6);
    my $ipproto = pack ("n1",0x0800);
    $self->{ethpack}=$self->{ethhdr}->dest.$self->{ethhdr}->source.$ip
+proto;
}

      [download]

      which you mean? i think it take two parameters the source and dest: is a method for set an ethernet parameters in the current object. The given parameters must look like parameters for the ethnew without a $device.

[reply]
[d/l]
        ok so I seem to be struggling to communicate here. Let me think it over before trying again.

        Update: having looked at the source code, I have concerns. I will have to install the module in a sandbox env and test my concerns then get back to you.

        One world, one people

[reply]

In Section Seekers of Perl Wisdom