flutesa · August 22, 2016 15:10
diff --git a/delUrls.pl b/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";
	#!/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";