代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/187544/8626174
pl veritas.pl
#!/usr/local/bin/perl -wc
$VXPRINT_LOC = "/usr/sbin/vxprint";
$HOSTNAME = `/bin/uname -n` ; chop $HOSTNAME;
while ($ARGV[0] =~ /^-/)
{ if ($ARGV[0] eq "-debug") { shift; $DEBU
www.eeworm.com/read/187544/8626179
pl host.pl
example script which uses this new module:
#!/usr/bin/perl
use SNMP::Info::HostResources;
my $host = new SNMP::Info (
AutoSpecify => 1,
Deb
www.eeworm.com/read/187544/8626182
pl dns.pl
#!/usr/bin/perl
#
# File: dns.pl
#
use Net::DNS;
use MyStats;
my $sleep = 30;
my $search = "www.oreilly.com";
my $mxSearch = "oreilly.com";
my $count = 3;
my $loadTime = 1;
my $duration = 3;
my $ns
www.eeworm.com/read/187544/8626185
pl getinterfaceinfo.pl
#!/usr/bin/perl
use SNMP::Info;
my $info = new SNMP::Info(
# Auto Discover more specific Device Class
AutoSpecify => 1,
www.eeworm.com/read/187544/8626188
pl smtp.pl
#!/usr/bin/perl
#
# File: smtp.pl
#
use Net::SMTP;
use MyStats;
my $sleep = 1;
my $server = "smtp.oreilly.com";
my $heloSever = "smtp.oreilly.com";
my $timeout = 30;
my $debug = 1;
my $count = 3;
my
www.eeworm.com/read/187544/8626202
pl throwcore.pl
#!/usr/local/bin/perl
# Find and dels core files. It sends traps upon completion and
# errors. Arguments are:
# -path directory : search directory (and subdirectories); default /
# -lookfor filename
www.eeworm.com/read/187544/8626217
pl agent.pl
#!/usr/bin/perl
#
# File: agent.pl
#
use NetSNMP::agent (':all');
use NetSNMP::default_store (':all');
use NetSNMP::ASN (':all');
use NetSNMP::OID;
use SNMP;
my $port = "9161";
my $host = ".1.3.6.1
www.eeworm.com/read/187544/8626224
pl iamin.pl
#!/usr/local/bin/perl
## Filename: /opt/local/mib_programs/os/iamin.pl
chomp ($WHO = `/bin/who am i \| awk \{\'print \$1\'\}` );
exit 123 unless ($WHO ne '');
chomp ($WHOAMI = `/usr/ucb/whoami` );
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
#