File: indent-smb.conf.pl

package info (click to toggle)
samba 2%3A4.1.17%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 102,820 kB
  • sloc: ansic: 1,165,393; xml: 114,314; python: 103,454; perl: 28,180; sh: 12,167; asm: 3,281; cpp: 2,281; yacc: 1,949; ada: 1,681; exp: 1,582; makefile: 1,287; pascal: 1,082; cs: 879; lex: 566; awk: 140; csh: 58; sed: 45
file content (8 lines) | stat: -rwxr-xr-x 210 bytes parent folder | download | duplicates (17) 
1
2
3
4
5
6
7
8
 
#!/usr/bin/perl

while(<STDIN>) {
	if(/^$/) { }
	elsif(/^([ \t]*)#(.*)/) { print "#$2\n"; }
	elsif(/^([ \t]*)(.*) = (.*)$/) { print "\t$2 = $3\n"; }
	elsif(/^([ \t]*)\[(.*)\]([ \t]*)$/) { print "\n[$2]\n"; }
}