使用perl的TokeParser更改目录

Question

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

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