kio/useragent.pl

   1 #!/usr/bin/perl
   2 # the script is called with interpreter, so don't worry about the path
   3
   4 while(<>)
   5 {
   6     if (($key, $domain, $useragent, $comment) = ($_ =~ /(Entry\d)=\.?([^:]+)::([^:]+)::([^\n]+)/))
   7     {
   8        printf ("[%s]\n", $domain);
   9        printf ("UserAgent=%s\n", $useragent);
  10        printf ("# DELETE %s\n", $key);
  11     }
  12 }
  13 printf ("# DELETE EntriesCount\n");