TDE core libraries
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
 
 
 
 
 
 

14 Zeilen
369 B

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