rmxmlcomm

   1 #!/usr/bin/env perl
   2
   3 #=======================================================================
   4 # rmxmlcomm
   5 # File ID: 9b4b2a18-5d43-11df-b99c-90e6ba3022ac
   6 # Fjerner XML/HTML/SGML-kommentarer.
   7 # Skal vi GPL’e den? Åja, det gjør vi! ☺
   8 #=======================================================================
   9
  10 use strict;
  11 use warnings;
  12
  13 my $Dat = join("", <>);
  14 $Dat =~ s/<!--(.*?)-->//gs;
  15 print($Dat);