代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/390183/8479776
pl regs.pl
#!/usr/bin/perl
#
# Read regs.dat and output regs.h and regs.c (included in names.c)
#
$nline = 0;
sub toint($) {
my($v) = @_;
return ($v =~ /^0/) ? oct $v : $v+0;
}
sub proce
www.eeworm.com/read/390183/8479805
pl macros.pl
#!/usr/bin/perl -w
#
# macros.pl produce macros.c from standard.mac
#
# The Netwide Assembler is copyright (C) 1996 Simon Tatham and
# Julian Hall. All rights reserved. The software is
# redi
www.eeworm.com/read/390183/8479824
pl insns.pl
#!/usr/bin/perl
#
# insns.pl produce insnsa.c, insnsd.c, insnsi.h, insnsn.c from insns.dat
#
# The Netwide Assembler is copyright (C) 1996 Simon Tatham and
# Julian Hall. All rights reserved.
www.eeworm.com/read/390183/8479829
pl phash.pl
#!/usr/bin/perl
#
# Perfect Minimal Hash Generator written in Perl, which produces
# C output.
#
require 'phash.ph';
#
# Main program
#
sub main() {
my $n;
my %data;
my @ha
www.eeworm.com/read/390183/8479854
pl mkdep.pl
#!/usr/bin/perl
#
# Script to create Makefile-style dependencies.
#
# Usage: perl mkdep.pl [-s path-separator] [-o obj-ext] dir... > deps
#
use File::Spec;
use File::Basename;
use Fcntl;
www.eeworm.com/read/390183/8480024
pl genpsdriver.pl
#!/usr/bin/perl
#
# Runs the equivalent of the following command line:
#
# $(PERL) $(srcdir)/genps.pl -subtitle "version `cat ../version`" \
# nasmdoc.dip
#
# This is imple
www.eeworm.com/read/390183/8480028
pl rdsrc.pl
#!/usr/bin/perl
# Read the source-form of the NASM manual and generate the various
# output forms.
# TODO:
#
# Ellipsis support would be nice.
# Source-form features:
# ------------------
www.eeworm.com/read/390183/8480033
pl genps.pl
#!/usr/bin/perl
#
# Format the documentation as PostScript
#
use Env;
use lib $srcdir;
require 'psfonts.ph'; # The fonts we want to use
require 'pswidth.ph'; # PostScript string width
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