代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/390183/8480049
pl afmmetrics.pl
#!/usr/bin/perl
#
# Parse AFM metric files
#
@widths = ((undef)x256);
while ( $line = ) {
if ( $line =~ /^\s*FontName\s+(.*)\s*$/ ) {
$fontname = $1;
} elsif ( $line =~ /^
www.eeworm.com/read/390183/8480220
pl gensv.pl
#!/usr/bin/perl
#
# Generate a list of rotation vectors so we always use the same set.
# This needs to be run on a platform with /dev/urandom.
#
($n) = @ARGV;
sysopen(UR, '/dev/urandom', O_R
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