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正則表達式進行復雜數據提取。根據你的需求，你可以根據需要調整正則表達式和代碼邏輯。