Readfile 从文本文件读取、捕获文本、以特定语法写入另一个文本文件

我有一个具有以下语法的文本文件a：

Attribute_Name, 'Path', 'Tutorial';
Attribute_Name2, 'Path2', 'Tutorial';
....

DELETE ATTRIBUTE "Atribute_Name" IN FOLDER "Path" FROM PROJECT "Tutorial";

我需要做的是从该文件中读取，捕获这3个值：属性名、路径和项目名（在这种情况下为教程），并使用以下语法将其写入输出文本文件B：

Attribute_Name, 'Path', 'Tutorial';
Attribute_Name2, 'Path2', 'Tutorial';
....

DELETE ATTRIBUTE "Atribute_Name" IN FOLDER "Path" FROM PROJECT "Tutorial";

并重复输入文件中的行数

---

实现这一点的最佳（最简单）语言是什么？有人能提供这方面的示例代码吗？

我个人会用Perl做类似的事情，因为我熟悉Perl，它非常适合这类任务。您还可以编写一个sed一行程序来完成这项工作

如果您不喜欢Perl，任何现代动态语言都应该让您以最小的努力完成这项工作

编辑：示例Perl脚本（可读性的完整文件）如下所示：

use warnings;
use strict;

while (my $line = <>) {
    $line =~ /^\s*(.+?), '(.+?)', '(.+?)';$/; # Doesn't handle internal escaping
    print "DELETE ATTRIBUTE \"$1\" IN FOLDER \"$2\" FROM PROJECT \"$3\";\n";
}

使用警告；
严格使用；
while（我的$line=）{
$line=~/^\s*（.+？），“（.+？）”，“（.+？）”；$/；#不处理内部转义
从项目“$3\”；\n”中打印文件夹“$2\”中的“删除属性\“$1\”；
}

---

.

我个人会用Perl做类似的事情，因为我熟悉Perl，它非常适合这些任务。您还可以编写一个sed一行程序来完成这项工作

如果您不喜欢Perl，任何现代动态语言都应该让您以最小的努力完成这项工作

编辑：示例Perl脚本（可读性的完整文件）如下所示：

use warnings;
use strict;

while (my $line = <>) {
    $line =~ /^\s*(.+?), '(.+?)', '(.+?)';$/; # Doesn't handle internal escaping
    print "DELETE ATTRIBUTE \"$1\" IN FOLDER \"$2\" FROM PROJECT \"$3\";\n";
}

使用警告；
严格使用；
while（我的$line=）{
$line=~/^\s*（.+？），“（.+？）”，“（.+？）”；$/；#不处理内部转义
从项目“$3\”；\n”中打印文件夹“$2\”中的“删除属性\“$1\”；
}