Help for this page
#!/usr/bin/perl (/(?:}\s*(?:else(?{$/--})| ... /(?:{\s*(?{$__="\t"x$/++.$_}))$/o, print($__?"$__":"\t"x$/.$_), undef $__) while (<>)
usage: indent [--help] file example: indent file
#include <stdlib.h> #include <stdio.h> ... } printf("end :-)\n"); }