代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/187544/8626227
pl bridge.pl
#!/usr/bin/perl
use SNMP::Info;
my $bridge = new SNMP::Info (
AutoSpecify => 1,
Debug => 0,
DestHost
www.eeworm.com/read/187544/8626244
pl skel.pl
#!/usr/local/bin/perl
if ($ARGV[0] == 1) {
# OID queried is 1.3.6.1.4.1.546.14.1.0
if ($ARGV[1] eq "SET") {
# use $ARGV[2] to set the value of something and return the set
#
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(