|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T g
Length: 549 (0x225)
Types: TextFile
Names: »gettest«
└─⟦4f9d7c866⟧ Bits:30007245 EUUGD6: Sikkerheds distributionen
└─⟦b5330643c⟧ »./cops/perl-4.019/perl.tar.Z«
└─⟦2b9a58213⟧
└─⟦this⟧ »perl-4.019/gettest«
#!./perl
while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) {
print $name,' ',$aliases,
sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0]));
last if $i++ > 50;
}
<stdin>;
while (($name,$aliases,$addrtype,$net) = getnetent) {
print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n";
}
<stdin>;
while (($name,$aliases,$proto) = getprotoent) {
print "$name $aliases $proto\n";
}
<stdin>;
while (($name,$aliases,$port,$proto) = getservent) {
print "$name $aliases $port $proto\n";
}