Perl |写入文件
filehandle 是一个用于读写文件的变量。此文件句柄与文件相关联。
为了写入文件，它以写模式打开，如下所示:
open (FH, ‘>’, “filename.txt”);
如果文件存在，那么它会用新内容截断文件的旧内容。否则将创建一个新文件并添加内容。
print() function
print()函数用于将内容写入文件。
语法: 打印文件句柄字符串
这里，文件句柄在打开文件时与文件相关联，字符串保存要写入文件的内容。
示例:
# Opening file Hello.txt in write mode
open (fh, ">", "Hello.txt");
# Getting the string to be written
# to the file from the user
print "Enter the content to be added\n";
$a = <>;
# Writing to the file
print fh $a;
# Closing the file
close(fh) or "Couldn't close the file";
写入文件前:
执行代码写:
更新文件:
程序工作原理如下: 第一步:以写模式打开 Hello.txt 文件。 第二步:从标准输入键盘获取文本。 步骤 3: 将存储在“$a”中的字符串写入文件句柄“FH” 指向的文件中步骤 4: 关闭文件。
将内容从一个文件复制到另一个文件:
代码执行前:
源文件:
目标文件:
示例: 下面的示例从源文件中读取内容并将其写入目标文件。
# Source File
$src = 'Source.txt';
# Destination File
$des = 'Destination.txt';
# open source file for reading
open(FHR, '<', $src);
# open destination file for writing
open(FHW, '>', $des);
print("Copying content from $src to $des\n");
while(<FHR>)
{
print FHW $_;
}
# Closing the filehandles
close(FHR);
close(FHW);
print "File content copied successfully!\n";
执行代码:
更新目的文件:
程序是这样工作的:- 第一步:以读模式打开两个文件 Source.txt，以写模式打开 Destination.txt。 步骤 2: 从 FHR 读取内容，FHR 是文件句柄读取内容，而 FHW 是文件句柄将内容写入文件。 第三步:使用打印功能复制内容。 步骤 4: 读取文件完成后，关闭 conn。
Error Handling and Error Reporting
有两种方法可以处理错误
- 如果文件无法打开，抛出异常(处理错误)
- 如果文件无法打开并继续运行，则发出警告(错误报告)
抛出异常(使用 die 函数) 当无法为 filehandle 分配有效的文件指针时，执行 Die 打印消息并终止当前程序。 例:
# Initializing filename
$filename = 'Hello.txt';
# $filename = 'ello.txt';
# Prints an error and exits
# if file not found
open(fh, '<', $filename) or
die "Couldn't Open file $filename";
在上面的代码中，当文件存在时，它只是简单地执行，没有错误，但如果文件不存在，那么它会产生一个错误，代码终止。
发出警告(使用警告功能) 当无法为文件句柄分配有效的文件指针时，它仅使用警告功能打印警告消息并继续运行。 例:
# Initializing filename
$filename = 'GFG.txt';
# Opening a file and reading content
if(open(fh, '<', $filename))
{
while(<fh>)
{
print $_;
}
}
# Executes if file not found
else
{
warn "Couldn't Open a file $filename";
}
文件存在时:
当文件不存在时:
