正则表达式 – 将字符串解析为哈希

#!/usr/bin/env perl

use strict;
use warnings;

my $str = 'https://gitlab.me.com/api/v3/projects/all?page=2&per_page=5; rel="next",https://gitlab.me.com/api/v3/projects/all?page=1&per_page=5; rel="first",https://gitlab.me.com/api/v3/projects/all?page=8&per_page=5; rel="last"';

my %hash = map { 
    my ($v,$k) = $_ =~ /s*([^;]+);s*rel="([^"]+)".*/; 
    $k => $v;
} split ',',$str;

foreach my $key (keys %hash) {
    print "$key => $hash{$key}n"
}

输出：

first => https://gitlab.me.com/api/v3/projects/all?page=1&per_page=5
next => https://gitlab.me.com/api/v3/projects/all?page=2&per_page=5
last => https://gitlab.me.com/api/v3/projects/all?page=8&per_page=5

更新

使用新字符串,您可以：

$str = q(<https://gitlab.me.com/api/v3/projects/all?page=2&per_page=5>; rel="next",<https://gitlab.me.com/api/v3/projects/all?page=1&per_page=5>; rel="first",<https://gitlab.me.com/api/v3/projects/all?page=8&per_page=5>; rel="last");

my %hash = map { 
    my ($v,$k) = $_ =~ /<([^>]+)>;s*rel="([^"]+)".*/; 
    $k => $v;
} split ',$str;

得到相同的结果.