Агентские 
---------

unfamily_banners_by_cid.yql

yt read //tmp/d2840489-d6234f65-85e813e1-108ff --format='dsv' >unfamily_banners_by_cid.dsv

агентские кампании: 
grep -v 'AgencyID=0\>' unfamily_banners_by_cid.dsv|perl -lne 's/^.*uid=(\d+).*cid=(\d+).*AgencyID=(\d+).*$/$3 $1 $2/; print;' |sort >agency_id-uid-cid

группировка по клиенту-агентству:
cat agency_id-uid-cid |perl -lane 'push @{$h{$F[0]}{$F[1]}}, $F[2]; }{ for $ag (sort keys %h){ for $uid (sort keys %{$h{$ag}}){ print join "\t", $ag, $uid, (join ",", @{$h{$ag}{$uid}}) }}' > agency_id-uid-cids


данные по логинам-емейлам
в скрипте $type = "agency";
cat agency_id-uid-cids | ./unfamily_add_userinfo.pl > unfamily_agency_clients.csv


Менеджерские 
------------

grep 'AgencyID=0\>' unfamily_banners_by_cid.dsv |grep ManagerUID|perl -lne 's/^.*uid=(\d+).*cid=(\d+).*ManagerUID=(\d+).*$/$3 $1 $2/; print;' > manager_uid-uid-cid

группировка по клиенту-менеджеру
cat manager_uid-uid-cid |perl -lane 'push @{$h{$F[0]}{$F[1]}}, $F[2]; }{ for $ag (sort keys %h){ for $uid (sort keys %{$h{$ag}}){ print join "\t", $ag, $uid, (join ",", @{$h{$ag}{$uid}}) }}' > manager_uid-uid-cids

в скрипте $type = "manager";
cat manager_uid-uid-cids |./unfamily_add_userinfo.pl >unfamily_manager_clients.csv

