std.t: create_file(): Use `>` as separate parameter in open()

[sunny256-utils.git] / detab

#!/usr/bin/env perl

# detab
# File ID: 555c244a-5d38-11df-850a-90e6ba3022ac
# Fjerner x antall TAB'er i begynnelsen av her linje.

$Tabs = $ARGV[0] ? $ARGV[0] : 1;

while (<STDIN>) {
        my $Linje = $_;
        for (1..$Tabs) {
                $Linje =~ s/^\t(.*)/$1/;
        }
        print "$Linje";
}

#### End of file detab ####