X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/61d7dd11d4a450a64f2817ee4db0ec7fa5880b42..b9e4a0c3af29391c27e9a020693541b9a86c4d14:/bin/work/parse_cwsysinfo.pl?ds=sidebyside

diff --git a/bin/work/parse_cwsysinfo.pl b/bin/work/parse_cwsysinfo.pl
new file mode 100755
index 0000000..d47aa28
--- /dev/null
+++ b/bin/work/parse_cwsysinfo.pl
@@ -0,0 +1,60 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+foreach (@ARGV) {
+    &parse;
+}
+
+
+sub parse
+{
+    open FILE, "<:encoding(iso-8859-15)", $_ or die "Could not open '$_'";
+    my @list;
+    my $b = 0;
+    foreach (<FILE>) {
+        $b = 1 if /^Programme/;
+        next unless $b;
+        last if /^\r\n/;
+
+        next if /^Programme/;
+        next if /^Name/;
+        next if /7\-Zip/;
+        next if /Flash/;
+        next if /Citrix/;
+        next if /IrfanView/;
+        next if /\.NET/;
+        next if /Firefox/;
+        next if /Windows/;
+        next if /Hewlett/;
+        next if /Sophos/;
+        next if /Java/;
+        next if /Visual C\+\+/;
+        next if /MSXML/;
+        next if /Silverlight/;
+        next if /Update/i;
+        next if /Proof/;
+        next if /Reader/;
+        next if /Nero/;
+        next if /Internet Explorer/;
+        next if /Brows/;
+        next if /MUI/;
+        next if /MSN Site Access/;
+        next if /Address Book 7/;
+        next if /Web Platform Customizations/;
+        next if /HTML/;
+        next if /Active Directory/;
+        next if /Themes Setup/;
+        next if /NI/;
+        next if /VLC/;
+
+
+        /(.*?)\s{2,}/;
+        push(@list, $1);
+    }
+    @list = sort(@list);
+    print "$_\n";
+    print join("\n",@list);
+    print "\n\n";
+}