深入浅出 perl 当前目录331

什么是 perl 当前目录

在 perl 中，当前目录是指 perl 脚本运行时所在的目录。它是一个特殊的目录，用于存储脚本读取和写入的文件。当前目录可以通过 $ENV{'PWD'} 环境变量访问。

获取当前目录

获取当前目录有几种方法：```
# 使用 $ENV{'PWD'} 环境变量
$current_dir = $ENV{'PWD'};
# 使用 File::Basename 模块
use File::Basename;
$current_dir = dirname($0);
# 使用 File::Cwd 模块
use File::Cwd;
$current_dir = cwd();
```

更改当前目录

要更改当前目录，可以使用 chdir() 函数。该函数接受一个目录路径作为参数，并将当前目录更改为该路径。```
# 更改当前目录为 ~/Documents
chdir('/Users/username/Documents');
```

列出当前目录中的文件

要列出当前目录中的文件，可以使用 opendir() 和 readdir() 函数。```
opendir(DIR, $current_dir);
my @files = readdir(DIR);
closedir(DIR);
```

在当前目录中创建和写入文件

要创建和写入文件，可以使用 open() 函数。```
# 创建一个名为 "" 的文件
open(FILE, '>', '');
# 向文件写入一些文本
print FILE "这是一个测试文件。";
# 关闭文件
close(FILE);
```

在当前目录中读取文件

要读取文件，可以使用 open() 函数。```
# 打开一个名为 "" 的文件
open(FILE, '

2024-12-17

上一篇：JSON解析之perl

下一篇：Perl 网络编程指南