Hallo,
Bei der Erstinstallation muß SuSE irgendwo was gespeichert haben, was YOU veranlaßt, alte Pakete zu holen.
Ich habe ein Script geschrieben, um zu schaun ob noch alte Pakete drauf sind und wie groß sie sind. Da finde ich nichts.
Gruß pman
Bei der Erstinstallation muß SuSE irgendwo was gespeichert haben, was YOU veranlaßt, alte Pakete zu holen.
Ich habe ein Script geschrieben, um zu schaun ob noch alte Pakete drauf sind und wie groß sie sind. Da finde ich nichts.
Code:
#!/usr/bin/perl -w
#(sort { $a <=> $b } (keys %hash));
use strict;
my (@rpm, $name, $size, $ret, $val, %h);
my @all = `rpm -qa`;
for (@all) {
@rpm = `rpm -qi $_`;
for (@rpm) {
$name = $1 if /Name[^:]*:\s*(\S*)/;
$name .= $1 if /Distribution[^:]*:\s*(.*)/;
$size = $1 if /Size[^:]*:\s*(\d+)/;
}
$h{$name} = $size unless exists $h{$name};
}
open FH, '>/tmp/rpmsize.txt';
for $val (sort { $h{$a} <=> $h{$b} } keys %h) {
if ( $h{$val} > 1023 ) { $ret = sprintf "%10.3f Mb", $h{$val} / 1024 / 1024 }
else { $ret = sprintf "%10d", $h{$val} }
# printf FH "%60s %s\n", $val, $ret;
printf FH "%60s %s\n", $val, $ret unless ($val =~ /9\.3/);
}
close FH;
exit 1;Gruß pman
