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