代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/433086/8548456
pl ipch.pl
use strict;
use warnings;
open(FILEHANDLF,"switch_data.txt")||die"can not open filename:$!";
open(FILEHANDLES,"ip.txt")||die"can not open filename:$!";
open(FILEHANDLE,">>ip_mac.txt")|| die"ca
www.eeworm.com/read/433086/8548468
pl expect.pl
use Expect;
use strict;
use warnings;
sub readdata{
open(FILEHANDLE,"switch.txt")||die"can not open filename:$!";
my(@array)=;
chomp@array;
close(FILEHANDLE);
return(@array);
}
www.eeworm.com/read/433086/8548484
pl macch.pl
use strict;
use warnings;
open(FILEHANDLF,"switch_dara.txt")||die"can not open filename:$!";
open(FILEHANDLES,"mac.txt")||die"can not open filename:$!";
open(FILEHANDLE,">>mac_ip.txt")|| die"c
www.eeworm.com/read/388988/8557736
pl now.pl
#!/usr/bin/perl
#ident "$Id: now.pl,v 1.3 1998/02/04 06:23:54 hpa Exp $"
#
# Print the time as a hexadecimal integer
#
printf "0x%08x\n", time;
www.eeworm.com/read/187682/8609099
po pl.po
msgid ""
msgstr ""
"Project-Id-Version: gqview\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2005-06-13 20:31-0400\n"
"PO-Revision-Date: 2004-01-23 21:53+0100\n"
"Last-Translator: Wit Wiliński
www.eeworm.com/read/187682/8609223
gmo pl.gmo
www.eeworm.com/read/187628/8613559
pl0 for.pl0
PROGRAM EX0;
VAR A,B,C;
BEGIN
A:=88;
read(B);
C:=A-B;
A--;
WRITE(A);
FOR B:=1 TO 10 DO
BEGIN
C:=A+1;
write(B);
WRITE(C);
END
END.
www.eeworm.com/read/187544/8626144
pl hostinfo.pl
#!/usr/bin/perl
$who = "/usr/bin/who | wc -l";
$ps = "/bin/ps -ef h | wc -l";
chomp($numUsers = int( `$who` ));
chomp($numProcesses = int( `$ps` ));
print "$numUsers\n";
print "$numProcesses\n";
#
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,