摘要:
http://stackoverflow.com/questions/5703705/print-current-directory-using-perl?rq=11)The following get the script's directory, which is not the same as the current directory. It's not clear which one you want.use Cwd qw( abs_path );useFile::Basename qw( dirname );say dirname(abs_path($0));oru 阅读全文