RFC: Reference counter

[Paweł Żurowski]

W liście z wto, 08-06-2004, godz. 00:04 +0200, Tomasz Trojanowski
napisał(a):
> On Mon, 7 Jun 2004, Paweł Gołaszewski wrote:
> 
> > On Mon, 7 Jun 2004, Tomasz Trojanowski wrote:
> > > > > > Tu tracisz informacje o tym co bylo. Lepiej, zeby ta informacja 
> > > > > > byla przechowywana w jednym miejscu. hocby poprzez jakies 
> > > > > > Requires: plik_licznika.
> > > > > Jeszcze nie wiem po co, ale to się da przecież zrobić.
> > > > Zeby dalo sie je odtworzyc/zweryfikowac na podstawie bazy.
> > > Provides: user(xdm) załatwiło by chyba sprawę:
> > > 
> > > rpm -q --whatprovides user\(xdm\) | wc -l > /var/lib/user/xdm
> > > 
> > > Odbudowywało by bazę referencji (BTW to pewnie również odpowiedź na 
> > > niektóre z poprzednich Twoich wątpliwości).
> > 
> > ...czyli to powinna być maleńka aplikacja. Pewnie w sh.
> 
> Maleńka. Najpierw wyszukująca wśród rpm -qa --provides wzorca user(*), a 
> później dla każdego unikalnego, zliczająca ilość jego wystąpień i 
> zapisująca do plików licznika.

#!/bin/sh
rpm -qa --provides "user*"|\
	awk '\
		/^user\(/ {
			sub(/[^(]*\(/,"");
			sub(/\).*/,"");
			print;
		}
	'|\
	while read aaa;do 
		rpm -q --whatprovides "perl($aaa)">>$aaa; 
	done
for f in *;do
	sort $f | uniq | wc -l > /var/lib/user/$f
done
#

(testowane na "perl(.*)")

pozdrawiam
-pawel

-- 
Pawel Zurowski