TDE core libraries
您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符
 
 
 
 
 
 

14 行
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");