perl5,perl532
安装Tk时提示找不到usr/lib64/perl5/CORE/perl.h，如何解决？
不要装那么高版本的Perl，装稍微低版本的就可以了，比如5.10就是自带Tk的。
如何在Linux下安装Perl 5.0
linux 和 perl 都属于自由软件，将二者结合真是妙不可言。
遵循以下步骤一般就可安装好 perl ，perl 就能在 linux 下欢唱。
1。取得最新版本的 perl，当前版本为 5.6.0,即 stable.tar.gz。
2。解文件包：
gunzip stable.tar.gz
tar xvf stable.tar
得到目录 perl-5.6.0
3。在目录 perl-5.6.0 下安装 perl：
rm -f config.sh Policy.sh
sh Configure -de
make
make test
make install
config.sh Policy.sh 为以前安装时的配置文件，新安装或升级安装时
需要将其删除。
sh Configure -de 安装使用默认配置，一般而言将会 ok 。
安装完成后 perl 所在目录为 /usr/local/lib/perl5, perl 执行文件
在 /usr/local/bin 中。
4。关于 .html 文件
安装 perl 时不能自动安装 .html 文件， 在 perl-5.6.0 目录中有一
个installhtml 文件， 执行 perl installhtml --help 可得到使用帮助，使用
installhtml可将 .pod 及 .pm 文件编译得到相应的 .html 文件文件， 它的具
体使用请自己看。
下面是我所写的一个具有类似功能的程序。
simple_find("5.6.0");# 含 .pm 文件的源目录
use Pod::Html;
sub simple_find{
$sourth="/usr/local/lib/perl5/5.6.0html/"; #含 .html的目标目录
my ($input)=@_;
my $file;
$ddir=$sourth.$input;
$cont=`file $ddir`;
if ($cont !~/$ddir\:\sdirectory/){
`mkdir $ddir`;
}
opendir(md,$input);
my @file=readdir(md);
closedir(md);
@pfile= grep(m/\.pm/,@file);
my @dfile= grep(!m/\.pm/,@file);
@dfile=grep(!m/^\./,@dfile);
foreach $pfile(@pfile){
$pfile=~/\.pm/;
$dfile=$`;
$sfile=$input."/".$pfile;
$dfile=$sourth.$input."/".$dfile."\.html";
pod2html(
"--infile=$sfile",
"--outfile=$dfile");
}
foreach $file(@dfile){
$vale=$input."/".$file;
$cont=`file $vale`;
if ($cont=~/$vale\:\sdirectory/){
simple_find($vale);
}
}
}
使用以上程序得到一个与源目录结构一致的目标目录，包含相应的. html文
件。
注： 使用以上两种方法都会产生不能转化某行类错误，其实它无关大
局，可以忽略。
5。模块安装
gunzip Module.tar.gz
tar xvf Moudle.tar
转到相应目录
perl Makefile.PL
make
make test
make install
安装完成后模块在 /usr/local/lib/perl5/site_perl 目录中， . html
文件不能自动安装，需使用前面介绍方法进行安装。
如何调试perl脚本
进入退出：
perl
-d debugtest用调试器载入perl程序运行，交互式界面
Loading
DB routines from perl5db.pl version 1.3
Editor
support available.
Enter
h or `h h' for help, or `perldoc
perldebug'
for more help.
main::(p4.pl:2): my($xx,$yy)=(1,1);
DB1
先是欢迎信息，显示第一个可执行行：程序将要执行的当前行号。包名，文件名，文件中的行号。
提示符DBn
n为命令行号。h可看帮助，q退出调试器
l
缺省显示10行 再输入l接着显示10行
l
10 指定显示第10行
l
8-10 指定显示行的范围
l
8+3 指定从哪行开始多少行。
l
subs 指定显示函数，提供函数名。如果太长只显示前几行，用l接着显示
-
显示在当前行前面的行，再输入-继续向前
w
7 包含指定行的显示窗口 windows可能不一样
//
?? 从当前行搜索包含指定模式的行 /find/
//从前向后正向搜索，??从后向前逆向搜索 可忽略?? //中后面的? /。
S
列出所有函数，包名::函数
无参数的缺省形式列出所有底层和继承的函数，太多。加上搜索模式，指定当前程序包 S main可列出含main的函数
s 执行单条语句 显示下一条要执行的语句。如果需要交互会等待输入。
对于函数，仅仅是进入不执行，如果不进入函数内部，要跳过用n。不能进入系统内部的库函数，只能进入自己定义的
n 执行一行程序，stepover 不进入函数。
f 执行当前函数剩下的语句，显示跟随函数的语句
step
out 旧命令，现在为切换文件名
回车
如果执行了s或n，以后只用回车重复执行上一个s或n的命令。
r 在函数中执行到函数外
b 10
在哪一行设置断点。如果此行非执行语句，显示不能设置断点。如果一条语句有多行，则在第一行设置，其余行不能设置。
b func在函数处设置断点
b 10
($curdir eq
"") 当条件为真时中断执行
c
执行到断点或终止。继续
c
12临时断点，只中断一次，继续执行在12行中断。
L
列出所有断点。列出前几行，当前行，断点。断点条件。
B
10删除断点。不带参数认为是下一行是断点。
B *
删除所有断点。
X
var 不带参数列出main包的所有变量，包括预定义的变量。指定变量不带$，@。可能是符号表中的变量才行。现在与V同。
V
var 列出任何包的变量。只指定包名列出包的所有变量。指定包及变量为main
var。无::
S
列出所有可用的函数，包名::函数 无参数的缺省形式列出所有底层和继承的函数，太多。加上搜索模式，
指定当前程序包
S
main可列出含main的函数
p
expr
指印表达式值。把标准输出重定向也会输出到屏幕。
程序到达某一行时指定执行一条或多条语句。常见的行动作是显示变量值或把含错误值的变量重置为指定的值
a
10 print ("curdir is $curdir\n") 多条语句在一行中用分号;分开，当要续行时用\ 执行完第10行执行指定的语句。
A
*删除所有行动作
A 10删除第10行的动作
print 在程序开始执行前执行语句。无参数形式删除设置
print 在程序执行完成后执行语句。无参数形式删除设置
跟踪 显示每一个执行行。
t
打开，关闭跟踪。每执行显示一行。
任何非调试命令的perl语句都可执行。分号可忽略。更改变量值。
H
列出从前命令
!
n 执行从前命令。忽略行号执行上一条命令
n=-2跳过2条命令。从当前H列表逆向跳过。
T
栈跟踪。调用级
$
= main::sub2('hi') from file debug1 line 7
$
= main::sub1('hi') from file debug1 line 3
当前程序在第7行，在main包的sub2函数中，以hi为实际传递的参数。返回简单变量，此函数由sub1调用。
=
别名 命令 给命令定义别名 =
pc print ("curdir is $curdir\n");别名存在%DB(%DB::alias)中。无参数列出定义的别名。输入pc打印语句。
预定义别名：每次加载调试器自动定义别名。在.perldb中加入$DB'alias{"pc"} = 's/^pc/print
("curdir is $curdir\n");/';
错误检查
Lint perl -MO=Lint,-u pl 编译时检查
perldiag错误信息
-w 重定义函数变量未使用
Use strict;
use diagnostics 警告信息。
命令行参数简介
-c 语法检查
-v版本
-w警告信息
-e执行单行程序
-s为程序提供命令行选项。perl -s prog.pl
-q =$q=1作为选项。不出现在@ARGV中。否则不加-s，-q作为字符串存在@ARGV中。可赋值-abc="abc"
跟在程序名后带-的是选项，不带-的不是，不是选项的项后面的所有都不是选项。
-P先运行c预处理器，输出再由perl执行
-I指定目录中的包含文件
-n循环处理多个文件。不用while
-p读文件行并显示。同n，不用print自动显示。
-i编辑文件，读然后写回文件。
-a分割行到@F
-F分割模式，指定分割符
-0
指定输入行结束符，用八进制表示
-1
指定输出行结束符
-x从消息中抽取程序。忽略行，直到遇到#!..perl。到文件尾，ctrl-d
ctrl-z __END__时结束
-u产生coredump
-U可以执行不安全操作
-S从路径中查找程序
-D设置调试标志
-T写安全程序。从外部获得的数据不能作为命令或修改文件系统
-d使用调试器
在linux下，如何改perl的环境变量
export LD_LIBRARY_PATH=变量lib路径:$LD_LIBRARY_PATH
这是更改系统变量的，如果改perl5的变量，则在perl脚本里面 使用 use lib "变量路径";
如何在C程序中嵌入Perl
如果你编译本文档中的脚本有困难。那么你不是一个人在战斗。记住重要原则: 以编译你的perl的方式，编译你的程序（不好意思）
并且，每一个使用了Perl的C程序都必须连接 perl 库. 你问，那是什么？Perl本身就是用C写的。Perl库是编译过的用来创建Perl可执行程序的C程序集合 (/usr/bin/perl或者类似的)。(结论：你不能在没有编译过或者正确安装过Perl的系统中编译嵌入了Perl的C程序。不正确安装指，只是复制了Perl的二进制可执行文件而没有复制perl的库目录。)
当你在C中使用Perl时, 你的C程序将要--通常--需要创建、执行，然后销毁一个 Perl解释器
如果你的Perl烤备足够新到包含本文档 (版本5.002或者更新), 则Perl库 (以及你将需要的EXTERN.h 和 perl.h) 将会在类似这样的目录中：
/usr/local/lib/perl5/your_architecture_here/CORE
或者可能就直接是
/usr/local/lib/perl5/your_architecture_here/CORE
或者可能类似
/usr/opt/perl5/CORE
执行这个表达式可以定位这个目录：
perl -MConfig -e 'print $Config{archlib}'
这是如何编译下节的示例代码：往你的C程序中墙加一个Perl解释器的语句，在我的linux机器上是这样：
% gcc -O2 -Dbool=char -DHAS_BOOL -I/usr/local/include -I/usr/local/lib/perl5/i586-linux/5.003/CORE -I/usr/local/lib/perl5/i586-linux/5.003/CORE -o interp interp.c -lperl -lm
(那些是一行。) 在我跑着老版本perl 5.003_05的DEC Alpha机器上， 有一点点儿不一样：
% cc -O2 -Olimit 2900 -DSTANDARD_C -I/usr/local/include -I/usr/local/lib/perl5/alpha-dec_osf/5.00305/CORE -L/usr/local/lib/perl5/alpha-dec_osf/5.00305/CORE -L/usr/local/lib -D__LANGUAGE_C__ -D_NO_PROTO -o interp interp.c -lperl -lm
你如何找出需要填加什么？如果你的Perl版本高于5.001, 执行 perl -V 命令，注意一下它的有关``cc'' 和 ``ccflags''的信息。
你将不得不根据你的系统选择适当的编译器。 (cc，gcc，等等。) : perl -MConfig -e 'print $Config{cc}' 将告诉你用什么。
你还得根据你的系统选择正确的Perl库目录 (/usr/local/lib/...) 如果你的编译器抱怨有函数未定义，或者它不能定位 -lperl，则你需要用-L手动指定库文件路径。如果它抱怨找不到EXTERN.h 和 perl.h，你需要用-I手动指定头文件路径。
你可能还需要如法增加其它库哪些？可能包括这行指令打印出的这些：
perl -MConfig -e 'print $Config{archlib}'
如果你的perl配置安装无误，则模块ExtUtils::Embed将为你检测出你需要的所有信息。
% cc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
如果ExtUtils::Embed不包含在你的perl发行版中， 你可以从.下载它 (如果本文档来自你的perl发行版，则你已经安装了perl 5.004或者更高的版本，并且你肯定有这个模块)
CPAN上的ExtUtils::Embed，包括了有关本文档的所有的源码、测试以及其它对你有用的示例程序。
--------------------------------------------------------------------------------
往你的C程序中增加一个Perl解释器
通常, perl (C源程序) 是一个嵌入Perl（语言）的好例子，所以我将示范一个miniperlmain.c。当然，它不太标准，也不太精巧。
#include EXTERN.h /* from the Perl distribution */ #include EXTERN.h /* from the Perl distribution */
static PerlInterpreter *my_perl; /*** The Perl interpreter ***/
int main(int argc, char **argv, char **env) { my_perl = perl_alloc(); perl_construct(my_perl); perl_parse(my_perl, NULL, argc, argv, (char **)NULL); perl_run(my_perl); perl_destruct(my_perl); perl_free(my_perl); }
注意我们没有使用env指针。通常做为perl_parse的最后一个选项， env参数为NULL，代表使用当前的环境变量。
现在编译它 (我将叫它 interp.c)为可执行文件:
% cc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
经过成功的编译以后， 你将可以像使用perl一样地使用interp。
% interp print "Pretty Good Perl \n"; print "10890 - 9801 is ", 10890 - 9801; CTRL-D Pretty Good Perl 10890 - 9801 is 1089
或者
% interp -e 'printf("%x", 3735928559)' deadbeef
你也可以通过在调用perl_fun以前替换argv[1]，在C程序里从一个文件中读取然后执行Perl代码。
--------------------------------------------------------------------------------
在你的C程序中调用一个Perl子程序
为了调用独立的Perl子程序，你可以使用任何alperlcall手册/al中的perl_call_*类型的函数。在此例中，我们将使用perl_call_argv。
它们将在下面这个我叫做showtime.c的程序中中展现。
#include EXTERN.h #include perl.h
static PerlInterpreter *my_perl;
int main(int argc, char **argv, char **env) { char *args[] = { NULL }; my_perl = perl_alloc(); perl_construct(my_perl);
perl_parse(my_perl, NULL, argc, argv, (char **)NULL);
/*** skipping perl_run() ***/
perl_call_argv("showtime", G_DISCARD | G_NOARGS, args);
perl_destruct(my_perl); perl_free(my_perl); }
showtime是一个Perl子程序，它没有参数。 (它是 G_NOARGS) 并且我将忽略它的返回值 (它是G_DISCARD). 那些标记，以及其它一些标记，在perlcall手册中。
我将在文件elshowtime.pl/el中定义showtime函数:
print "I shan't be printed.";
sub showtime { print time; }
足够简单。现在编译并运行：
% cc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
% showtime showtime.pl 818284590
返回从1970年1月1日 (Unix epoch开始时间)到现在我正在执行程序语句的时间。
在这一部分，我们不需要调用perl_run，但是通常好的编程习惯来保证正确的使用库是好的，包括对所有的对象调用 DESTROY 方法以及块的END {}。
如果你想传递参数给Perl函数，你可以填加以NULL结尾的args表给perl_call_argv。为了其它数据类型或者测试返回值，你将需要操作Perl的栈。那将在本文档最后的章节进行讨论: 在你的C程序中操作Perl的栈。
--------------------------------------------------------------------------------
在你的C程序中执行一个Perl表达式
Perl提供了两个API函数来执行Perl代码片断。它们是perl_eval_sv 和 perl_eval_pv。
经常的情况是，你只需要在程序中执行一块的Perl代码。它可以如你所愿的长：它可以包括 use、require和 do 用来包含其它的外部Perl文件。
perl_eval_pv 可以让我执行单独的Perl语句，然后把执行结果变量返回成C的形式。下面的程序 string.c，执行三个Perl语句, 从第一个取得int，从第二个取回float, 从第三个取回char *。
#include EXTERN.h #include perl.h static PerlInterpreter *my_perl; int main(int argc, char **argv, char **env) { STRLEN n_a; char *embedding[] = { "", "-e", "0" }; my_perl = perl_alloc(); perl_construct(my_perl); perl_parse(my_perl, NULL, 3, embedding, NULL); perl_run(my_perl); /** Treat $a as an integer **/ perl_eval_pv("$a = 3; $a **= 2", TRUE); printf("a = %d\n", SvIV(perl_get_sv("a", FALSE))); /** Treat $a as a float **/ perl_eval_pv("$a = 3; $a **= 2", TRUE); printf("a = %f\n", SvNV(perl_get_sv("a", FALSE))); /** Treat $a as a float **/ perl_eval_pv("$a = 'rekcaH lreP rehtonA tsuJ'; $a = reverse($a);", TRUE); printf("a = %s\n", SvPV(perl_get_sv("a", FALSE), n_a)); perl_destruct(my_perl); perl_free(my_perl); }
所有这些名字中含有 sv 的这些怪函数都帮助把Perl的标量返回成C的类型。它们在 perlguts手册里有描述。
如果你编译并运行string.c，你将看到 SvIV()创建整数，SvNV()创建浮点数，以及SvPV()创建一个字符串：
a = 9 a = 9 a = Just Another Perl Hacker
在上例中，我们创建了一个全局的变量来保存我们表达式执行的结果。在很多情形下，通过perl_eval_pv()的执行结果来取回返回值，也不错。如：
... STRLEN n_a; SV *val = perl_eval_pv("reverse 'rekcaH lreP rehtonA tsuJ'", TRUE); printf("%s\n", SvPV(val,n_a)); ...
这种方法，我们通过不创建全局变量以及简化我们的化码，避免了名字空间污染。
perl怎样安装模
你好，
step1.:
下载
cpamn
1wget
如果是windows平台的话直接拷贝该内容到任意目录下。
step2:
在cpanm脚本所在的目录下执行：
1cpanm SomeModule --local-lib=some_dir/perl5 local::lib
若涉及到小问题比如权限等问题这样安装：
1cpanm SomeModule --local-lib=some_dir/perl5 local::lib --force
注意，SomeModule是要安装的模块名，some_dir是模块安装的自定义目录。
以上。