Skip to content

Instantly share code, notes, and snippets.

@flutesa

flutesa/delUrls.pl

Created August 22, 2016 15:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save flutesa/e001ba568295a5d7e46bfe985e91d938 to your computer and use it in GitHub Desktop.
Save flutesa/e001ba568295a5d7e46bfe985e91d938 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
delUrls.pl
#!/usr/bin/perl
use Redis;
my $r = Redis->new(server => 'redis.srg-it.ru:6379');
my $cnt = 0;
foreach my $key (@{$r->keys('http:\/\/www\.tomsk\.ru09\.ru\/realty\?subaction=detail&id=\d+')}) {
# $r->del($key);
$cnt++;
}
print "$cnt\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment