使用perl的TokeParser更改目录

Question

如何在打开文件进行解析时（例如，在$ htmlFileName之前添加目录）更改目录TokeParser的外观？

my $p = HTML::TokeParser->new($htmlFileName); 

Answer 1

要改变在Perl目录：

chdir($dir); 

perldoc说：

chdir EXPR 
chdir FILEHANDLE 
chdir DIRHANDLE 
chdir Changes the working directory to EXPR, if possible. If EXPR is omitted, changes to the directory specified by $ENV{HOME}, if set; if not, changes to the directory specified by 
     $ENV{LOGDIR}. (Under VMS, the variable $ENV{SYS$LOGIN} is also checked, and used if it is set.) If neither is set, "chdir" does nothing. It returns true on success, false 
     otherwise. See the example under "die". 

      On systems that support fchdir(2), you may pass a filehandle or directory handle as the argument. On systems that don't support fchdir(2), passing handles raises an exception. 

注意

另一种解决方案是把完整路径$htmlFileName

Answer 2

my $p = HTML::TokeParser->new("/foo/bar/$htmlFileName") 
    or die $!;