03. Cwd

最新推荐文章于 2024-12-16 11:27:04 发布

Followex

最新推荐文章于 2024-12-16 11:27:04 发布

阅读量556

点赞数 7

分类专栏： perl language 文章标签： perl 硬件架构开发语言

本文链接：https://blog.youkuaiyun.com/qq_43053845/article/details/135381567

版权

perl language 专栏收录该内容

11 篇文章

订阅专栏

本文详细解释了Perl编程中useCwdqw模块的abs_path,cwd和getcwd函数，它们分别用于获取和处理绝对路径和当前工作目录，通过示例展示了这些函数的输出结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl -w

use warnings;
use strict;
use Cwd qw(abs_path cwd getcwd);

print cwd,"\n";
print getcwd,"\n";
print abs_path($0),"\n";
print abs_path("../Algorithm/Diff/script.pl"),"\n"
#print cwd."\n"; #和print cwd,"\n";等价
#print getcwd."\n";

在Perl编程语言中，use Cwd qw(abs_path cwd getcwd); 语句用于导入 Cwd 模块，并同时导入 Cwd 模块中的三个子例程：abs_path、cwd 和 getcwd。
abs_path：这个函数接受一个文件路径作为参数，并返回该路径的绝对路径。它会将相对路径转换为绝对路径，解析符号链接，并且可以处理相对于当前工作目录的路径。
cwd：这个函数返回当前工作目录的路径，也就是脚本所在的目录或者最后一次调用 chdir 改变的目录。
getcwd：与 cwd 类似，getcwd 也返回当前工作目录的路径。在一些系统上，getcwd 和 cwd 可能有一些微小的区别，但通常可以互换使用。
输出结果
- /Users/asuka/F/IC/perl/perl_function_module/Cwd
  /Users/asuka/F/IC/perl/perl_function_module/Cwd
  /Users/asuka/F/IC/perl/perl_function_module/Cwd/script.pl
  /Users/asuka/F/IC/perl/perl_function_module/Algorithm/Diff/script.pl