代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/285976/8796030
pl tetris.pl
###############################################################################
# tetris.pl - tetris using Perl and Tk
# ... Sriram
#############################################
www.eeworm.com/read/285976/8796034
pl canvas.pl
use Tk;
$top = MainWindow->new();
$canvas = $top->Canvas('-width' => 300, -height => 245)->pack();
# Draw a set of circles along an archimedean spiral
# The centers of these circles move along the
www.eeworm.com/read/285976/8796037
pl hlist.pl
use Tk;
require Tk::HList;
$top = MainWindow->new();
$h = $top->Scrolled('HList',
'-drawbranch' => 1,
'-separator' => '/',
www.eeworm.com/read/285976/8796039
pl listbox.pl
use Tk;
$top = MainWindow->new();
$wine_list = $top->Listbox("-width" => 20, "-height" => 5
)->pack();
$wine_list->insert('end', # Insert at end, the following list
"Napa Va
www.eeworm.com/read/285976/8796043
pl perlman.pl
#!/opt/bin/perl
use strict;
#--------------------------------------------------------------
# perlman: man page viewer in Perl
#--------------------------------------------------------------
use
www.eeworm.com/read/285976/8796048
pl scale.pl
use Tk;
# Show Celsius/Fahrenheit equivalence using scales.
$top = MainWindow->new();
$celsius_val = 50;
compute_fahrenheit();
$top->Scale('-orient' => 'horizontal',
'-from'
www.eeworm.com/read/285976/8796052
pl eval.pl
while (defined($s = )) { # Read a line into $s
$result = eval $s; # Evaluate that line
if ($@) { # Check for compile or run-time errors.
print "Invalid
www.eeworm.com/read/285976/8796054
pl col.pl
#!/opt/bin/perl
# Extracts columns of text from a file
# Usage : col [-s] col-range1, col-range2, files ...
# where col-range is specified as col1-col2 (column 1 through column2)
# or
www.eeworm.com/read/285976/8796057
pl rand.pl
sub my_srand {
my ($seed) = @_;
# Returns a random number generator function
# Being predictive, the algorithm requires you to supply a
# random initial value.
my $rand = $s
www.eeworm.com/read/285976/8796063
pl makefile.pl
use ExtUtils::MakeMaker;
WriteMakefile(
'NAME' => 'Test', # Name of package
);