Re^4: regex in perl

sub subroutine {

    my ($self,$vip) = @_;
    my @ip = ();
    my $sql_query = $self->{queryObj}->execute(
    "select primary_ip from buddy_vips  where machineIP=$vip");
    my $records = $self->{queryObj}->result();

    for my $row (@$records){
    if (my ($ip) = $row->{machineIP} =~ /(\d+\.\d+\.\d+\.\d+)/){
        $row->{machineIP} = $ip;
    }

    push @ip, $row->{machineIP};
}
    return \@ip;

}
[download]

output :

Use of uninitialized value in pattern match (m//) at

Comment on Re^4: regex in perl Download Code

Replies are listed 'Best First'.
Re^5: regex in perl by afoken (Chancellor) on Jun 15, 2016 at 05:58 UTC
`"select primary_ip from buddy_vips where machineIP=$vip"` `$row->{machineIP} =~ /(\d+\.\d+\.\d+\.\d+)/` How to you expect `machineIP` to magically appear in the result of the SELECT statement? You only select `primary_ip`. Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l] [select]
Re^5: regex in perl by Anonymous Monk on Jun 15, 2016 at 03:44 UTC
Did you understand? `my $records = $self->{queryObj}->result()` is not a data structure, it isn't output from Data::Dumper, it isn't something anybody except you can replicate -- there is no sense in trying to write code when we're guessing at the actual value of $records, without knowing the actual value of $records any code written to deal with it is a guess ie nonsense	[reply] [d/l]
Re^5: regex in perl by stevieb (Canon) on Jun 15, 2016 at 12:24 UTC
ummm... this is a lot different than your original code that I rewrote my working example to coincide with: `sub subroutine { my ($self,$vip) = @_; my @ip = (); my $sql_query = $self->{queryObj}->execute( "select machineIP from 'tablename' where frontend=$vip"); my $records = $self->{queryObj}->result(); foreach my $row (@$records) { push @ip, $row->{machineIP}; } return \@ip; }` [download] As afoken stated above, the query you changed to doesn't even get the right column anymore, so it makes sense my code produces uninit warnings.	[reply] [d/l]


Problems? Is your data what you think it is?
	PerlMonks