Skip to content
  • Topics
  • Contact
  • Search
  • Random
  • Footer

Sacha Chua

« Yaaay! Skype works!w00t! »

My ref-filter script

Nov 7, 2004| -Uncategorized
#/usr/bin/perl

my $s;
while ($s = <>)
  {
    if ($s =~ /.+?\"GET ([^ ]+) .+?".+?"([^"]+)/)
      {
        my $REF = $2;
        my $PAGE = $1;
        if ($REF ne "-"
            && $REF !~ /sacha.free.net.ph/
            && $REF !~ /richip.dhs.org/
           && $REF !~ '\+') {
          print "$REF\n";
        }
      }
  }

Invocation:

cat log | perl ref.pl | sort | uniq > reff

For greater fun and profit, diff against previous records.

../../sitelogs/ref.pl

You can e-mail me at sacha@sachachua.com.
More posts about -Uncategorized
« Yaaay! Skype works!w00t! »
  • Home
  • About
  • Topics
  • Archives
  • Privacy
  • Contact
  • Subscribe
  • RSS feed
  • Blogroll
  • Random
  • Sketches

Email - Mastodon - Github

Copyright © 2001-2024 Sacha Chua (sacha@sachachua.com). Emacs code snippets are generally under GPLv3+; other snippets are dual-licensed under the MIT License or GPLv3+ unless otherwise indicated. Please feel free to reuse or share stuff under a Creative Commons Attribution license unless otherwise noted. Thanks for reading!