File: diversions

package info (click to toggle)
cruft 0.9.5
  • links: PTS
  • area: main
  • in suites: slink
  • size: 592 kB
  • ctags: 32
  • sloc: ansic: 642; sh: 168; perl: 64; makefile: 53
file content (9 lines) | stat: -rwxr-xr-x 170 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
#!/usr/bin/perl

open(DIVERT, "/var/lib/dpkg/diversions" ) || die( "Couldn't open diversions info\n");

$x = 0;
while(<DIVERT>) {
	print unless ( $x % 3 == 2 );
	$x++;
}