代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/390183/8480315
pl fmtinsns.pl
#!/usr/bin/perl
#
# Re-align the columns in insns.dat
#
@cols = (0, 16, 40, 72);
while ($line = ) {
chomp $line;
if ($line !~ /^\s*(\;.*|)$/) {
($ln = $line) =~ s/\s+$//;
www.eeworm.com/read/390183/8480365
pl findleak.pl
#!/usr/bin/perl
# From: Ed Beroset
my %mem = {};
my %alloc = {};
while()
{
if (/realloc\((0x[0-9a-f]+).*\).*returns \((0x[0-9a-f]+)/)
{
www.eeworm.com/read/390183/8480431
pl tokhash.pl
#!/usr/bin/perl
#
# Generate a perfect hash for token parsing
#
# Usage: tokenhash.pl insns.dat regs.dat tokens.dat
#
require 'phash.ph';
my($output, $insns_dat, $regs_dat, $tokens_dat) = @
www.eeworm.com/read/390183/8480435
pl version.pl
#!/usr/bin/perl
#
# version.pl
#
# Parse the NASM version file and produce appropriate macros
#
# The NASM version number is assumed to consist of:
#
# .[.][pl
www.eeworm.com/read/390183/8480454
pl macro.pl
#!/usr/bin/perl
#
# Generate a test case for macro lookup performance
#
($len) = @ARGV;
$len = 100000 unless ($len);
print "\tbits 32\n";
print "\tsection .data\n";
print "\n";
for ($i
www.eeworm.com/read/390183/8480456
pl token.pl
#!/usr/bin/perl
#
# Generate a test case for token lookup performance
#
@insns = qw(add sub adc sbb and or xor mov);
@regs = qw(eax ebx ecx edx esp ebp esi edi);
srand(0);
sub pickone(@) {
www.eeworm.com/read/390183/8480458
pl label.pl
#!/usr/bin/perl
#
# Generate a test case for label lookup performance
#
($len) = @ARGV;
$len = 100000 unless ($len);
print "\tbits 32\n";
print "\tsection .data\n";
print "\n";
for ($i
www.eeworm.com/read/390183/8480468
pl riprel.pl
#!/usr/bin/perl
print "\tbits 64\n";
foreach $mode ('abs', 'rel') {
print "\n\tdefault $mode\n\n";
foreach $so ('', 'fs:', 'es:') {
foreach $rq ('', 'abs ', 'rel ') {
foreach
www.eeworm.com/read/290470/8481633
pl segment.pl
#!/usr/bin/perl
require "segmenter.pl";
die if $#ARGV == -1;
$outfile = $ARGV[0];
$outfile =~ s/\..+$/\.seg/i;
open(OUT, "> $outfile") or die "Can't open segmentation output file\n";
open(
www.eeworm.com/read/290470/8481634
pl segmenter.pl
#!/usr/bin/perl
# Read in the lexicon
open(WRDS, "wordlist.txt") or die "Can't open wordlist\n";
while () {
chomp;
$cwords{$_} = 1;
if (length($_) == 6) {
if (!exists($cwor