Xu Xiaodong avatar Xu Xiaodong committed c9cd929

add find_orph and lcfn

Comments (0)

Files changed (3)

+#!/usr/bin/env perl
+#
+# name:      find_orph, find orphan packages in debian
+# author:    Xu Xiaodong <xxdlhy@gmail.com>
+# license:   GPL
+# created:   2011 May 23
+# modified:  2011 May 23
+#
+
+chomp( my @pkgs = qx(deborphan) );
+my $pkg = join ' ', @pkgs;
+system "aptitude -P remove $pkg";
+
+# vim: ai:et:ts=2:sw=2:sts=2:tw=78:ft=perl
+#!/usr/bin/env perl
+#
+# name:      lcfn
+# author:    Xu Xiaodong <xxdlhy@gmail.com>
+# license:   GPL
+# created:   2011 May 23
+# modified:  2011 May 23
+#
+
+use strict;
+use warnings;
+
+opendir my $dh, '.' or die "Can't opendir: $!\n";
+my @files = grep { !/^\.+$/ } readdir $dh;
+closedir $dh;
+
+for my $file (@files) {
+  my $new_file = lc $file;
+  print "changing $file to $new_file ...\n";
+  rename $file => $new_file;
+}
+
+# vim: ai:et:ts=2:sw=2:sts=2:tw=78:ft=perl
+#!/usr/bin/env perl
+#
+# Name:      root
+# Author:    Xu Xiaodong <xxdlhy@gmail.com>
+# License:   GPL
+# Created:   2011 May 22
+# Modified:  2011 May 22
+#
+
+use strict;
+use warnings;
+
+system 'sudo', 'su', '-';
+
+# vim: ai:et:ts=2:sw=2:sts=2:tw=78:ft=perl
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.