detab

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