gistfile1.perl

#!/bin/bash

#for file in `find ../packages-7.8.0 -name '*wgpkg' -print`; do \
for file in `find ../packages-7.8.{0,1,2,3,4,5,6,7,8,9,10,11,12,13} -name '*wgpkg' -print`; do \
    tar zxf $file; \
    for json in *.json; do \
        mv -- $json `perl -ne 'print $1 if /assetId. : .(\S{22})/;' -- $json`.pkg;
    done
done

for file in *.pkg; do \
    #echo -- $file `perl -ne 'print $1 if /lineage. : .(\d+)/;' -- $file`.json;
    mv -- $file `perl -ne 'print $1 if /lineage. : .(\d+)/;' -- $file`.json;
done