看看這個命令：
perl -0777ne 'print "$&\n\n" while /"(QueryString|Params)":\[(\{"Name":".*?", ?"Value":".*?"\},? ?)*\]/g;' myfile.json
它遍歷每個匹配的 json 字串，例如：
{
"Some": "Random stuff",
"QueryString": [
{ "Name": "IsOrdered", "Value": "1" },
{ "Name": "TimeStamp", "Value": "11654116426247" }
],
"Params": [
{ "Name": "ClassName", "Value": "PRODUCT" },
{ "Name": "ListID", "Value": "Products" },
{ "Name": "Mode ", "Value": "1" },
{ "Name": "Dept" , "Value": "5" },
{ "Name": "HasPrevOrder", "Value": "" }
],
"And": {
"QueryString":[]
},
"More": "like",
"More ": "this"
}
現在我的問題是如何遍歷名稱/值對的每個正則運算式匹配，并將它們連接在一起回到正常的 http 查詢字串？
例如，對于
"QueryString":[{"Name":"IsOrdered", "Value":"1"}, {"Name":"TimeStamp", "Value":"11654116426247"}]
連接的輸出應該是
"QueryString":"IsOrdered=1&TimeStamp=11654116363378"
并"QueryString":[]_"QueryString":""
請注意，我想做正則運算式匹配和替換，因為我需要保留其余的 JSON 組件。我說的 JSON 檔案實際上是一個har檔案。它不再是一個復雜的結構，但
"(QueryString|Params)":\[(\{"Name":".*?", ?"Value":".*?"\},? ?)*\]
是我想要替換的所有東西。而已。
uj5u.com熱心網友回復：
我會用jq.
jq '
walk(
if type == "object" then
(
( .QueryString, .Params ) | select( . != null )
) |= (
map( @uri "\( .Name )=\( .Value )" ) | join("&")
)
else
.
end
)
'
jqplay上的演示
這會修改所有具有這些鍵之一的元素的物件。我通常更喜歡更有針對性的東西（不僅僅是出于效率原因，而是為了避免意外更改不應更改的內容），但我對 HAR 格式沒有足夠的知識來執行此操作。
以下是一個也可以完成任務的 Perl 程式：
use feature qw( say );
use Cpanel::JSON::XS qw( decode_json encode_json );
use URI::Escape qw( uri_escape_utf8 );
sub transform {
for ( @_ ) {
$_ =
join "&",
map {
join "=",
map uri_escape_utf8( $_ ),
$_->@{qw( Name Value )}
}
@$_;
}
}
sub fix {
my $x = shift;
my $type = ref( $x );
if ( $type eq "HASH" ) {
for my $k ( keys( %$x ) ) {
for my $v ( $x->{ $k } ) {
if ( $k eq "QueryString" || $k eq "Params" ) {
transform( $v );
} else {
fix( $v );
}
}
}
}
elsif ( $type eq "ARRAY" ) {
fix( $_ ) for @$x;
}
}
local $/;
while ( <> ) {
my $data = decode_json( $_ );
fix( $data );
say( encode_json( $data ) );
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/485691.html