Localize variables, improve readability

This commit is contained in:
Sorin Ionescu 2012-07-03 13:53:22 -04:00
parent 325a377d5e
commit 9bf1789cc2

View file

@ -6,11 +6,21 @@
# Sorin Ionescu <sorin.ionescu@gmail.com> # Sorin Ionescu <sorin.ionescu@gmail.com>
# #
print '#!/bin/sh'"\n" > apt-copy.sh local clone_script="${0}.sh"
local package_list=$(
perl \
-m 'AptPkg::Cache' \
-e '
$c=AptPkg::Cache->new;
for (keys %$c) {
push @a, $_ if $c->{$_}->{'CurrentState'} eq 'Installed';
}
print "$_ " for sort @a;
'
)
list=$(perl -m'AptPkg::Cache' -e '$c=AptPkg::Cache->new; for (keys %$c){ push @a, $_ if $c->{$_}->{'CurrentState'} eq 'Installed';} print "$_ " for sort @a;') rm "$clone_script"
print '#!/bin/sh\n' > "$clone_script"
print 'aptitude install '"$list\n" >> apt-copy.sh print "aptitude install ${package_list}\n" >> "$clone_script"
chmod +x "$clone_script"
chmod +x apt-copy.sh