首页 > 编程语言 >无涯教程-Perl - setprotoent函数

无涯教程-Perl - setprotoent函数

时间:2023-08-15 15:35:17浏览次数:43  
标签:Protocol Name setprotoent Number 无涯 print Perl Aliases

描述

该函数应在第一次调用getprotoent之前调用。 STAYOPEN参数是可选的,在大多数系统上未使用。当getprotoent()检索协议数据库下一行的信息时,setprotoent会将枚举设置(或重置)为主机条目集的开头。

语法

以下是此函数的简单语法-

setprotoent STAYOPEN

返回值

此函数不返回任何值。

以下是显示其基本用法的示例代码-

#!/usr/bin/perl

while(($name, $aliases, $protocol_number)=getprotoent()) {
   print "Name=$name\n";
   print "Aliases=$aliases\n";
   print "Protocol Number=$protocol_number\n";
}

setprotoent(1); # Rewind the database.

while(($name, $aliases, $protocol_number)=getprotoent()) {
   print "Name=$name\n";
   print "Aliases=$aliases\n";
   print "Protocol Number=$protocol_number\n";
}
endprotoent();  # Closes the database

执行上述代码后,将产生以下输出-

Name=ip
Aliases=IP
Protocol Number=0
Name=hopopt
Aliases=HOPOPT
Protocol Number=0
Name=icmp
Aliases=ICMP
Protocol Number=1
Name=igmp
Aliases=IGMP
Protocol Number=2
Name=ggp
Aliases=GGP
Protocol Number=3
Name=ipencap
Aliases=IP-ENCAP
Protocol Number=4
Name=st
Aliases=ST
Protocol Number=5
.
.
.
Name=rsvp-e2e-ignore
Aliases=RSVP-E2E-IGNORE
Protocol Number=134
Name=udplite
Aliases=UDPLite
Protocol Number=136
Name=mpls-in-ip
Aliases=MPLS-in-IP
Protocol Number=137
Name=manet
Aliases=manet
Protocol Number=138
Name=hip
Aliases=HIP
Protocol Number=139
Name=shim6
Aliases=Shim6
Protocol Number=140

参考链接

https://www.learnfk.com/perl/perl-setprotoent.html

标签:Protocol,Name,setprotoent,Number,无涯,print,Perl,Aliases
From: https://blog.51cto.com/u_14033984/7089370

相关文章

  • 无涯教程-Perl - setpriority函数
    描述此函数设置进程(PRIO_PROCESS),进程组(PRIO_PGRP)或用户(PRIO_USER)的优先级。参数WHICH指定要为其设置优先级的实体,WHO是要设置的进程ID或用户ID。WHO的值为0定义了当前流程,流程组或用户。在不支持系统setpriority()函数的系统上产生致命错误。优先级是代表优先级级别......
  • 无涯教程-Perl - setnetent函数
    描述该函数应在第一次调用getnetent之前调用。STAYOPEN参数是可选的,在大多数系统上未使用。当getnetent()从网络数据库的下一行检索信息时,setnetent会将枚举设置(或重置)为主机条目集的开头。语法以下是此函数的简单语法-setnetentSTAYOPEN返回值此函数不返回任何值......
  • 无涯教程-Perl - sethostent函数
    描述该函数应在首次调用gethostent之前调用。STAYOPEN参数是可选的,在大多数系统上未使用。当gethostent()检索主机数据库中下一行的信息时,然后sethostent设置(或重置)枚举到主机条目集的开头。语法以下是此函数的简单语法-sethostentSTAYOPEN返回值此函数不返回任何......
  • 无涯教程-Perl - scalar函数
    描述此函数强制EXPR的判断在标量context中进行,即使它通常在列表context中也可以使用。语法以下是此函数的简单语法-scalarEXPR返回值此函数返回标量。例以下是显示其基本用法的示例代码-#!/usr/bin/perl-w@a=(1,2,3,4);@b=(10,20,30,40);@c=(@a,@b)......
  • 无涯教程-Perl - rmdir函数
    描述此函数删除EXPR指定的目录,如果省略,则删除$_。如果目录为空,则仅删除目录。语法以下是此函数的简单语法-rmdirEXPRrmdir返回值如果失败,此函数返回0,如果成功,则返回1。例以下是显示其基本用法的示例代码,在/tmp内创建一个目录testdir-#!/usr/bin/perl-wr......
  • 无涯教程-Perl - rindex函数
    描述此函数的操作类似于index,不同之处在于它返回STR中最后一次出现SUBSTR的位置。如果指定了POSITION,则返回该位置或该位置之前的最后一次出现。语法以下是此函数的简单语法-rindexSTR,SUBSTR,POSITIONrindexSTR,SUBSTR返回值该函数在失败时返回undef,否则返回......
  • 无涯教程-Perl - ref函数
    描述如果EXPR为引用,则此函数返回真值;如果未提供EXPR,则为$_。返回的实际值还定义了引用所引用的实体的类型。内置类型为-REFSCALARARRAYHASHCODEGLOBLVALUEIO::Handle如果使用bless()函数为变量设置了祝福,则将返回新的数据类型。新的数据类型通常将是一个类名。语......
  • 无涯教程-Perl - redo函数
    描述此函数将重新启动当前循环,而不会强制判断控制语句。块中不再执行任何语句。如果存在继续块,将不会执行。如果指定了LABEL,则在LABEL标识的循环开始时重新开始执行。语法以下是此函数的简单语法-redoLABELredo返回值此函数不返回任何值。例以下是显示其基本用法......
  • 无涯教程-Perl - recv函数
    描述ThisfunctionreceivesamessageonSOCKETattemptingtoreadLENGTHbytes,placingthedatareadintovariableSCALAR.TheFLAGSargumenttakesthesamevaluesastherecvfrom()systemfunction,onwhichthefunctionisbased.Whencommunicatingwith......
  • 无涯教程-Perl - readpipe函数
    描述该函数将EXPR作为命令执行。然后,将输出作为标量文本中的多行字符串返回,或者将行作为列表context中的单个元素返回。语法以下是此函数的简单语法-readpipeEXPR返回值此函数在标量context中返回String,在列表context中返回List。例以下是显示其基本用法的示例代码......