代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/111127/15517978
pl fileren.pl
print "Please input the to be deleted directory!\n";
$Directory=;
chop($Directory);
(-d $Directory) || die "Not a directory\n";
print "Input match pattern?\n";
$FromPattern=;
chop(
www.eeworm.com/read/111026/15519999
pl gcd.pl
var x,y,rem;
begin
read(x);
read(y);
repeat
rem:=x-y*(x/y);
x:=y;
y:=rem
until rem=0;
write(x)
end.
www.eeworm.com/read/111026/15520004
pl fibonacci.pl
const n=20;
var f1,f2,f,i;
begin
f1:=1;
f2:=1;
i:=1;
while i
www.eeworm.com/read/111026/15520019
pl test.pl
const a=10;
var b,c;
procedure p;
begin
c:=b+a
end;
begin
read(b);
while b#0 do
begin
call p; write(2*c); read(b)
end
end.
www.eeworm.com/read/110211/15539744
pl jcode.pl
package jcode;
;######################################################################
;#
;# jcode.pl: Perl library for Japanese character code conversion
;#
;# Copyright (c) 1995-2000 Kazumasa U
www.eeworm.com/read/110210/15539903
pl setup.pl
$realpath="."; #绝对路径 （如果是apache，则无须修改，如果是iis，则可能需要修改）
$realurl="."; #url地址 （不能修改）
$supername="www.netfuwu.com"; #设置管理员帐号
$superkey="wubin"; #密码
$pageview=10; #设置每页显示产品的数目
# ------------以下部分不能
www.eeworm.com/read/110176/15540462
pl proxysvr.pl
#!/usr/bin/perl
# Version 1.02 1999-08-27
# Author Cay Horstmann
($url) = @ARGV;
$url =~ tr/+/ /;
$url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$pos = index($url, "URL=http
www.eeworm.com/read/110029/15543539
pl makefile.pl
#!perl
BEGIN {
use ExtUtils::MakeMaker;
use File::Find;
use File::stat;
%opts=@ARGV;
find( sub {
my $file=$_;
return if($file!~/\.pm$/);
my $st=stat($file);
my ($ss,$mm,$hh,$dd,$mn,$yy
www.eeworm.com/read/109478/15556230
pl regex.pl
#!/usr/bin/perl -w
$line="Subject: Re: happy hacking!!!";
if ( $line =~ m/^Subject: (.*)/ ) {
print "The subject is: $1\n";
}