Funktion aus Modul im skalaren Kontext aufrufen? (gelöst) (Allgemeines zu Perl)

[thread]17266[/thread]

Funktion aus Modul im skalaren Kontext aufrufen? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+4 replies
Phrosch

2012-03-26 12:29
User since
2012-03-20
9 Artikel
BenutzerIn
Hallo zusammen,

folgender Code ist gegeben:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

use NetAddr::IP; use Data::Dumper; my $n = NetAddr::IP->new( '192.168.0.4/30' ); for my $ip( @{$n->hostenumref} ) { print Dumper($ip->numeric()); print $ip->numeric(), "\n"; } }
Ausgabe:
Code: (dl )

1 2 3 4 5 6

$VAR1 = '175079429'; $VAR2 = '4294967295'; 1750794294294967295 $VAR1 = '175079430'; $VAR2 = '4294967295'; 1750794304294967295
Beschreibung der Funktion ->numeric() innerhalb des Moduls:

When called in a scalar context, will return a numeric representation of the address part of the IP address. When called in an array contest, it returns a list of two elements. The first element is as described, the second element is the numeric representation of the net mask.

Okay, ich verstehe das ich mit dem Print-Befehl die Funktion -numeric() im Array-Kontext aufrufe und deswegen sowohl die IP-Adresse als auch Netzmaske als ein String ausgegeben wird.

Wie muss ich aber -numeric() im Skalaren Kontext aufrufen um nur den ersten Wert (IP-Adresse als numerischen Wert - hier 175079430) auszugeben?

Ich habe es mit
Code: (dl )

print $ip->numeric->[0], "\n";
probiert, bekomme aber nur die folgende Fehlermeldung zurück:

Can't use string ("175079429") as an ARRAY ref while "strict refs" in use at ./NetAddr.IP.v.05.pl line 16.

Wie rufe ich also -numeric() im skalaren Kontext auf?

Vielen Dank schon einmal im voraus.

P.
- Linuxer
  
  2012-03-26 12:31
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Mit diesen beiden Varianten sollte die Methode jeweils im skalaren Kontext aufgerufen werden:
  
  Code (perl): (dl )
  
  print scalar $object->method(), "$\n";
  
  Code (perl): (dl )
  
  print $object->method() . "\n";
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- pq
  
  2012-03-26 12:36
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  zusätzlich zu linuxer:
  in den vielen fällen weist man ja so etwas erstmal einer variable zu, wenn man es nicht nur einmal ausgeben möchte.
  my $numeric = $ip->numeric;
  dann ist es automatisch im skalaren kontext.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Phrosch
    
    2012-03-26 13:36
    
    User since
    2012-03-20
    9 Artikel
    BenutzerIn
    
    Hallo linuxer, hi pq,
    
    Beide Ausführungen sehe ich als elementares Grundwissen (ein Baustein der mir gefehlt hat), die mir im zukünftigen Umgang mit Modulen nützen werden.
    
    Daher vielen vielen Dank für den tollen und vor allem schnellen Hinweis.
    
    P.

View all threads created 2012-03-26 12:29.