代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/187544/8626151
pl polling.pl
#!/usr/local/bin/perl
# filename: polling.pl
# options:
# -min n : send trap if less than n 1024-byte blocks free
# -table f : table of servers to watch (defaults to ./default)
# -server
www.eeworm.com/read/187544/8626169
pl wireless.pl
#!/usr/bin/perl
use SNMP;
$SNMP::use_sprint_value = 1;
&SNMP::loadModules('IEEE802dot11-MIB');
my $host = "192.168.1.4";
my $sess = new SNMP::Session(DestHost => $host,
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` );