###########再來一個菜鳥問題,求大神指點########

qq247739187

sub checkDirExist
{
    my($path)=@_;
    .......
}

sub readconf
{

    my($path) = @_;
    open(FH, "<", $path) or die "can not open file $path\n";
    ......
}

sub dealfile
{
    my($path)= @_;
    my $DIRtmp;
    ......
}

sub main
{
}

&main;


------------------------------------錯誤提示--------------------------------------
"my" variable $path masks earlier declaration in same scope at ftpcmdcodefile.pl line 55.
"state" variable @_ masks earlier declaration in same scope at ftpcmdcodefile.pl line 55.
"my" variable $path masks earlier declaration in same scope at ftpcmdcodefile.pl line 108.
"state" variable @_ masks earlier declaration in same scope at ftpcmdcodefile.pl line 108.
syntax error at ftpcmdcodefile.pl line 27, near "sub usage()
"
syntax error at ftpcmdcodefile.pl line 33, near "}"
Can't use global @_ in "my" at ftpcmdcodefile.pl line 38, near "=@_"
syntax error at ftpcmdcodefile.pl line 49, near "}"
Can't use global @_ in "my" at ftpcmdcodefile.pl line 55, near "= @_"
syntax error at ftpcmdcodefile.pl line 103, near "}"
Can't use global @_ in "my" at ftpcmdcodefile.pl line 108, near "= @_"
Unrecognized character \xE6 in column 36 at ftpcmdcodefile.pl line 123

wenhq

信息不全。ccc

qq247739187

回復 2# wenhq

找到原因了，這個函數(shù)之前，有個地方少了個分號。

再一個就是編碼問題，解決了，3Q