Copyright © tutorialspoint.com
endnetent
Tells the system you no longer expect to read entries from the networks list using getnetent.
None
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;