bin/uncuddle

   1 #!/usr/bin/perl -w
   2
   3 # Ensure uncucddled else
   4
   5 for my $file (@ARGV) {
   6     open(my $old, "<$file") || do {
   7         warn "Failed to open $file: $!\n";
   8         next;
   9     };
  10
  11     open(my $new, ">$file.new") || do {
  12         warn "Failed to create $file.new: $!";
  13         next;
  14     };
  15
  16     my $yup;
  17     while (<$old>) {
  18         if (/^(\s*)\}\s*(els(?:e|if)\b.*)/) {
  19             print $new "$1}\n";
  20             print $new "$1$2\n";
  21             $yup++;
  22         }
  23         else {
  24             print $new $_;
  25         }
  26     }
  27
  28     close($old);
  29     close($new);
  30
  31     if ($yup) {
  32         rename($file, "$file.orig") || warn "Can't rename $file: $!";
  33         rename("$file.new", $file) || warn "Can't rename $file.new: $!";
  34     }
  35     else {
  36         unlink("$file.new") || die "Can't unlink: $!";
  37     }
  38 }