代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/100265/15879290
pl vars.pl
# User variables module
# Let's go to another namespace to make things easier
%Vars = ();
sub cmd_set {
my ($var, $value) = split(' ', $_, 2);
if (defined($value)) {
www.eeworm.com/read/100265/15879293
pl reconnect.pl
# Automatically reconnect when the MUD drops the link on you
# THIS IS NOT WORKING TOO WELL. USE AT OWN RISK.
# Commands that quell reconnection for 30 seconds
@QuellCommands = qw/quit reboot/;
$quel
www.eeworm.com/read/100265/15879294
pl mudcompletion.pl
# Tab completion module, like completion.pl, but asks the MUD for the completion
# Experimental. Don't use, it does't even work on AR yet :)
package mudcompletion;
# The length of the last completio
www.eeworm.com/read/100265/15879295
pl log.pl
# Automatic logging of all incoming traffic
# Saves to a gzipped file in ~/.mcl/logs/sessionName/CurrentDate
use POSIX qw(strftime);
use Carp;
sub log_line {
my ($line) = shift;
$line =~ s/$
www.eeworm.com/read/100265/15879296
pl repeat.pl
# Repeat the last command entered when just enter is pressed
sub check_repeat {
if ($_ eq "") {
$_ = $LastCommandEntered;
} else {
$LastCommandEntered
www.eeworm.com/read/100265/15879297
pl bot.pl
# just a simple little bot that casts spells on demand
# spell keywords and data to be sent with a name appended
%bot_spells = ("slink" => "slink",
"fly" => "fly");
$bot_curr_hp = 0;
$
www.eeworm.com/read/100265/15879299
pl ccancel.pl
# Cancel and restart compression when restarting
sub cancel_compression {
mcl_send_unbuffered ("compress");
mcl_send_unbuffered ("compress");
}
done_add(\&cancel_compression);
www.eeworm.com/read/100265/15879300
pl profanity.pl
# Profanity filter
# Words to replace
@Profanity = qw/shit fuck/;
sub check_profanity {
my $p;
# Replace with a string of * of equal length
foreach $p (@Profanity) {
s/$p/'*' x
www.eeworm.com/read/100204/15880672
pl tracknames.pl
#!/usr/local/bin/perl
# A quick perl hack to get rename files pulled in with cdda2wav.
# by billo@billo.com
#
use Socket;
use IO::Handle;
use Env qw(USER);
use strict;
no strict 'subs'; # can't get i
www.eeworm.com/read/100152/15881976
pl makefile.pl
#! perl -w
use strict ;
require 5.004 ;
use ExtUtils::MakeMaker 5.16 ;
use Config ;
use File::Copy ;
my $ZLIB_LIB ;
my $ZLIB_INCLUDE ;
my $BUILD_ZLIB = 0 ;
ParseCONFIG() ;
WriteMakefile(
NAME