03. Cwd

#!/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