Perl正则表达式如何进行复杂数据提取

Perl是一种功能强大的编程语言，它使用正则表达式来处理复杂的文本数据。在Perl中，正则表达式通常用于搜索、替换和分割字符串。以下是一些关于如何在Perl中使用正则表达式进行复杂数据提取的示例：

1. 匹配复杂模式

假设我们有一个包含以下内容的文本文件：

User1:john@example.com
User2:jane@example.com
User3:mike@example.com

我们可以使用以下Perl代码来提取用户名和电子邮件地址：

#!/usr/bin/perl
use strict;
use warnings;

my $file = 'users.txt';
open(my $fh, '<', $file) or die "Could not open file '$file' $!";

while (my $line = <$fh>) {
    chomp $line;
    if ($line =~ /^(\w+):\w+@\w+\.\w+$/) {
        my $username = $1;
        my $email = $2;
        print "Username: $username, Email: $email\n";
    }
}

close($fh);

2. 提取嵌套数据

假设我们有一个包含以下内容的JSON文件：

{
    "users": [
        {
            "name": "John",
            "email": "john@example.com"
        },
        {
            "name": "Jane",
            "email": "jane@example.com"
        },
        {
            "name": "Mike",
            "email": "mike@example.com"
        }
    ]
}

我们可以使用以下Perl代码来提取用户名和电子邮件地址：

#!/usr/bin/perl
use strict;
use warnings;
use JSON;

my $file = 'data.json';
open(my $fh, '<', $file) or die "Could not open file '$file' $!";

my $json_text = do { local $/; <$fh> };
close($fh);

my $data = decode_json($json_text);
foreach my $user (@{$data->{users}}) {
    my $username = $user->{name};
    my $email = $user->{email};
    print "Username: $username, Email: $email\n";
}

3. 使用捕获组

捕获组允许我们将正则表达式的一部分分组，并将它们作为单独的变量返回。例如，我们可以使用以下Perl代码来提取用户名和域名：

#!/usr/bin/perl
use strict;
use warnings;

my $file = 'users.txt';
open(my $fh, '<', $file) or die "Could not open file '$file' $!";

while (my $line = <$fh>) {
    chomp $line;
    if ($line =~ /^(\w+):(\w+)@(\w+\.\w+)$/) {
        my $username = $1;
        my $domain = $3;
        print "Username: $username, Domain: $domain\n";
    }
}

close($fh);

这些示例展示了如何使用Perl正则表达式进行复杂数据提取。根据你的需求，你可以根据需要调整正则表达式和代码逻辑。