代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/187544/8626273
pl snmptrap.pl
#!/usr/local/bin/perl
# Filename: /opt/local/perl_scripts/snmptrap.pl
use SNMP_util "0.54"; # This will load the BER and SNMP_Session for us
snmptrap("public\@nms:162", ".1.3.6.1.4.1.2789", "sunserve
www.eeworm.com/read/187544/8626277
pl trapmonitor.pl
#!/usr/local/bin/perl
use SNMP_Session "0.60";
use BER;
use Socket;
$session = SNMPv1_Session->open_trap_session ();
while (($trap, $sender, $sender_port) = $session->receive_trap ())
{ chomp ($DAT
www.eeworm.com/read/187544/8626395
pl snmpwalk.pl
#!/usr/local/bin/perl
#filename: /opt/local/perl_scripts/snmpwalk.pl
use SNMP_util;
$MIB1 = shift;
$HOST = shift;
($MIB1) && ($HOST) || die "Usage: $0 MIB_OID HOSTNAME";
(@values) = &snmpwalk("$HOST",
www.eeworm.com/read/187544/8626398
pl snmpset.pl
#!/usr/local/bin/perl
#filename: /opt/local/perl_scripts/snmpset.pl
use SNMP_util;
$MIB1 = ".1.3.6.1.2.1.1.6.0";
$HOST = "oraswitch2";
$LOC = "@ARGV";
($value) = &snmpset("private\@$HOST","$MIB1",'st
www.eeworm.com/read/187544/8626400
pl snmpget.pl
#!/usr/local/bin/perl
#filename: /opt/local/perl_scripts/snmpget.pl
use BER;
use SNMP_util;
use SNMP_Session;
$MIB1 = ".1.3.6.1.2.1.1.4.0";
$HOST = "orarouter1";
($value) = &snmpget("public\@$HOST","$
www.eeworm.com/read/187544/8626414
pl cputimes.pl
#!/usr/local/bin/perl
# Filename: /usr/local/bin/perl_scripts/cputimes
$|++; # Unbuffer the output!
open(VMSTAT,"/bin/vmstat 2 |") || die "Can't Open VMStat";
while($CLINE=)
{ ($null,$r,$b,
www.eeworm.com/read/288523/8627199
pl substract.pl
%sub(+SETA,+SETB,-SETC).
%method1
%sub([],B,[]).
%sub([H|T],B,[H|CT]):-not(member(H,B)),sub(T,B,CT).
%sub([H|T],B,CT):-member(H,B),sub(T,B,CT).
%method2
%sub(A,B,C):-subtract(A,B,C).
%
%
%
www.eeworm.com/read/288523/8627201
pl descartes.pl
%comb([],B,[]).
%comb([H|T],B,[(H,B)|N]):-comb(T,B,N).
%descartes(A,[],[]).
%descartes(A,[H|T],[X|N]):-comb(A,H,X),descartes(A,T,N).
%
%
%descartes(A,[],[]).
%descartes([],B,[]).
%descartes(
www.eeworm.com/read/288523/8627204
pl intersection.pl
%myintersection(+SETA,+SETB,-SETC).
%myintersection(A,[],[]).
%myintersection(A,[H|T],[H|B]):-myintersetion(A,T,B),member(H,A).
%myintersection(A,[H|T],B):-myintersection(A,T,B),not(member(H,A)).
www.eeworm.com/read/288523/8627208
pl union.pl
% This buffer is for notes you don't want to save.
% If you want to create a file, visit that file with C-x C-f,
% then enter the text in that file's own buffer.
%uni(+SETA,+SETB,-SETC).
%meth