20 lines
354 B
Text
20 lines
354 B
Text
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my $N_SPACES = $ARGV[0] || 4;
|
||
|
|
|
||
|
|
while (my $line = <STDIN>) {
|
||
|
|
# Skip empty lines
|
||
|
|
print "\n" and next if $line !~ m/\S/;
|
||
|
|
|
||
|
|
$line =~ m/^(\s*)(.+)$/;
|
||
|
|
my $n_spaces = length($1);
|
||
|
|
my $n_tabs = ($n_spaces > 0 and $n_spaces < $N_SPACES)
|
||
|
|
? 1
|
||
|
|
: int($n_spaces / $N_SPACES);
|
||
|
|
|
||
|
|
print "\t" x $n_tabs . "$2\n";
|
||
|
|
}
|