使用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 $!;