Question

perl脚本问题求指教！

#!/usr/bin/perl# write by huabo, 2009-11-20use warnings;use strict;#open the svn passwd fileopen (FILE, "passwd") or die ("Cannot open the passwd file!!!n");#clear the apache passwd fileopen (OUT_FILE, ">webpasswd") or die ("Cannot open the webpasswd file!!!n");close (OUT_FILE);#beginforeach (<FILE>) {if($_ =~ m/^[^#].*=/) {$_ =~ s/=//;`htpasswd -b webpasswd $_`;}}# chmod +x PtoWP.pl# ./PtoWP.plAdding password for user pmAdding password for user server_groupAdding password for user client_groupAdding password for user test_group

这段perl脚本提示有问题 想请教一下哪里出错了？
syntax error at PtoWP.pl line 24, near "Adding password for "Execution of PtoWP.pl aborted due to compilation errors.
这个为错误提示

Answer 1

perl脚本的内容仅包括如下这部分：

#!/usr/bin/perl
# write by huabo, 2009-11-20
use warnings;
use strict;
#open the svn passwd file
open (FILE, "passwd") or die ("Cannot open the passwd file!!!n");
#clear the apache passwd file
open (OUT_FILE, ">webpasswd") or die ("Cannot open the webpasswd file!!!n");
close (OUT_FILE);
#begin
foreach (<FILE>) {
if($_ =~ m/^[^#].*=/) {
$_ =~ s/=//;
`htpasswd -b webpasswd $_`;
}
}

至于：

# chmod +x PtoWP.pl
# ./PtoWP.pl

是你应对这个perl脚本在CentOS下做权限修改，并执行的命令。

Adding password for user pm
Adding password for user server_group
Adding password for user client_group
Adding password for user test_group

上面这部分是执行之后的输出结果。

这个脚本的目的是将SVN的账户信息同步到apache里去。

Answer 2

24行那,你语法有问题

Answer 3

表示这个结构也太乱了吧，第24行是哪一行啊
# ./PtoWP.pl之后的全是注释吗？

追答

我明白了，开始还想这注释什么意思呢，现在才发现底下根本不是perl啊，是在shell下的命令。