bin/work/parse_cwsysinfo.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 foreach (@ARGV) {
   7     &parse;
   8 }
   9
  10
  11 sub parse
  12 {
  13     open FILE, "<:encoding(iso-8859-15)", $_ or die "Could not open '$_'";
  14     my @list;
  15     my $b = 0;
  16     foreach (<FILE>) {
  17         $b = 1 if /^Programme/;
  18         next unless $b;
  19         last if /^\r\n/;
  20
  21         next if /^Programme/;
  22         next if /^Name/;
  23         next if /7\-Zip/;
  24         next if /Flash/;
  25         next if /Citrix/;
  26         next if /IrfanView/;
  27         next if /\.NET/;
  28         next if /Firefox/;
  29         next if /Windows/;
  30         next if /Hewlett/;
  31         next if /Sophos/;
  32         next if /Java/;
  33         next if /Visual C\+\+/;
  34         next if /MSXML/;
  35         next if /Silverlight/;
  36         next if /Update/i;
  37         next if /Proof/;
  38         next if /Reader/;
  39         next if /Nero/;
  40         next if /Internet Explorer/;
  41         next if /Brows/;
  42         next if /MUI/;
  43         next if /MSN Site Access/;
  44         next if /Address Book 7/;
  45         next if /Web Platform Customizations/;
  46         next if /HTML/;
  47         next if /Active Directory/;
  48         next if /Themes Setup/;
  49         next if /NI/;
  50         next if /VLC/;
  51
  52
  53         /(.*?)\s{2,}/;
  54         push(@list, $1);
  55     }
  56     @list = sort(@list);
  57     print "$_\n";
  58     print join("\n",@list);
  59     print "\n\n";
  60 }