---

Her er en lille kodestump til dem, der interesserer sig for licenser ...

#!/usr/bin/perl -w
# How free is your RPM-based GNU/Linux distribution?
# by Kenneth Bernholm (kebe@get2net.dk), may 2001
@rpmdump=`rpm -qa --queryformat '%{LICENSE}\n'`;
foreach(@rpmdump) {chomp; if($_) {$lc{$_}++} else {$lc{$_}=1}}
@keys=sort{$lc{$b}<=>$lc{$a}} keys %lc;
foreach(@keys) {print "$lc{$_}\t$_\n"}
exit(0);

---

"Kenneth Bernholm" <kenneth@kebes.com> writes:

> Her er en lille kodestump til dem, der interesserer sig for licenser ...

# apt-get install vrms

For Debian, ikke at det har noget med perl at gøre. Så skal man ikke
til at gætte på hvor fri de enkelte licenser er.

--
hash-bang-slash-bin-slash-bash

---

On 22 May 2001 18:27:13 +0200, Peter Makholm <peter@makholm.net> wrote:
> For Debian, ikke at det har noget med perl at gøre. Så skal man ikke
> til at gætte på hvor fri de enkelte licenser er.

vrms er ogsaa skrevet i perl

--
package Disclamer;

BEGIN { print "Arbejder hos Tiscali (World Online), men taler for mig selv"; }
1;

---

Kenneth Bernholm wrote:
>
> Her er en lille kodestump til dem, der interesserer sig for licenser ...
>
> #!/usr/bin/perl -w
> # How free is your RPM-based GNU/Linux distribution?
> # by Kenneth Bernholm (kebe@get2net.dk), may 2001
> @rpmdump=`rpm -qa --queryformat '%{LICENSE}\n'`;
> foreach(@rpmdump) {chomp; if($_) {$lc{$_}++} else {$lc{$_}=1}}
> @keys=sort{$lc{$b}<=>$lc{$a}} keys %lc;
> foreach(@keys) {print "$lc{$_}\t$_\n"}
> exit(0);

Findes rpm på andet end Red Hat og SuSE?
--
Thorbjørn Ravn Andersen "...plus...Tubular Bells!"
http://bigfoot.com/~thunderbear

---

Thorbjørn Ravn Andersen skrev:

> Findes rpm på andet end Red Hat og SuSE?

Ja. Caldera og Mandrake bruger også rpm.

Henry

---

In <3B0AA721.F5FC9615@bigfoot.com> =?iso-8859-1?Q?Thorbj=F8rn?= Ravn Andersen <thunderbear@bigfoot.com> writes:

>Kenneth Bernholm wrote:
>>
>> Her er en lille kodestump til dem, der interesserer sig for licenser ...
>>
>> #!/usr/bin/perl -w
>> # How free is your RPM-based GNU/Linux distribution?
>> # by Kenneth Bernholm (kebe@get2net.dk), may 2001
>> @rpmdump=`rpm -qa --queryformat '%{LICENSE}\n'`;
>> foreach(@rpmdump) {chomp; if($_) {$lc{$_}++} else {$lc{$_}=1}}
>> @keys=sort{$lc{$b}<=>$lc{$a}} keys %lc;
>> foreach(@keys) {print "$lc{$_}\t$_\n"}
>> exit(0);

>Findes rpm på andet end Red Hat og SuSE?

Mandrake er ogsaa en rpm-dist.

/Martin