Perl Home
PERL Functions
© 2011 TutorialsPoint.COM
|
PERL endnetent Function
Syntax
Definition and Usage
Tells the system you no longer expect to read entries from the networks list using getnetent.
Return Value
Example
Try out following example:
#!/usr/bin/perl
use Socket;
while ( ($name, $aliases, $addrtype, $net) = getnetent() ){
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Addrtype = $addrtype\n";
print "Net = $net\n";
}
setnetent(1); # Rewind the database;
while ( ($name, $aliases, $addrtype, $net) = getnetent() ){
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Addrtype = $addrtype\n";
print "Net = $net\n";
}
endnetent(); # Closes the database;
|
|

|
|
|