Delete obsolete Unicode version 15.1.0
[sunny256-utils.git] / detab
blobd2abd61440a8e61e60d346d3827b80631aca3b8d
1 #!/usr/bin/env perl
3 # detab
4 # File ID: 555c244a-5d38-11df-850a-90e6ba3022ac
5 # Fjerner x antall TAB'er i begynnelsen av her linje.
7 $Tabs = $ARGV[0] ? $ARGV[0] : 1;
9 while (<STDIN>) {
10 my $Linje = $_;
11 for (1..$Tabs) {
12 $Linje =~ s/^\t(.*)/$1/;
14 print "$Linje";
17 #### End of file detab ####