代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/100265/15879274
pl completion.pl
# Tab completion module
# The length of the last completion, e.g. destroy will have $LastLen=3
# so another TAB after that means that we should go that long back
# to look for a word
$LastComple
www.eeworm.com/read/100265/15879279
pl functions.pl
sub run {
my $x = join(" ", @_);
# Protect against accidents
$x =~ s/;/\\;/;
$x =~ s/\n/ /;
$x = $x . "\n";
syswrite INTERP, $x, length($x);
}
# This value is the file descri
www.eeworm.com/read/100265/15879281
pl idle.pl
# Callout management
@Callouts = ();
@CalloutTimes = ();
@NextCallout = ();
sub idle {
my ($i);
for ($i = 0; $i
www.eeworm.com/read/100265/15879282
pl hook.pl
# Functions for managing a table of hooks
# hook_add(table, key, data)
sub hook_add ($$$) {
my ($table, $key, $data) = @_;
$$table{$key} = $data;
}
sub hook_remove ($$) {
my ($table, $data
www.eeworm.com/read/100265/15879283
pl color.pl
# Color definitions
$ColorCode = "\xEA";
{
my $C = "\xEA";
$SoftCR = "\xEB";
$CSave = "\xEA\xFF";
$CRestore = "\xEA\xFE";
@Colors = qw/Black Blue Green Cyan Red Magenta
www.eeworm.com/read/100265/15879284
pl config.pl
# Configuration manager
# Change if necessary
$CONFIG_FILE = "$ENV{HOME}/.mcl/config.perl";
$OLD_CONFIG_FILE = "$ENV{HOME}/.mcl/config";
# Initial loading of configuration
# Must be done after all a
www.eeworm.com/read/100265/15879285
pl keys.pl
# Some useful keys
# Maybe autoconvert this somehow...
$keyBackspace = 127;
$keyTab = 9;
www.eeworm.com/read/100265/15879286
pl init.pl
# This utility function needs be located in this file
# Use this, not require directly!
sub include {
eval "require \"$_[0]\"";
print "include $_[0] => $@\n" if $@;
}
sub init {
# Fallback
www.eeworm.com/read/100265/15879288
pl spellcheck.pl
# Spellchecker which interfaces to ispell
# The userinput hook will fix the words as you type
# but, only when they start with certain patterns
@fixablePrefixes = qw/: ' say tell immtalk muse tech re
www.eeworm.com/read/100265/15879289
pl prompt.pl
# Sample module for snarfing a prompt and displaying it in a window
# Usage: gauge(count, min,max, cur)
$emptyChar = '