marked/tmbx-last.pl

## tmbx-last.pl
#!/usr/bin/perl
mkdir "tmbx";

while (1) {
  my $t = time();
  print `wget https://www.tumbex.com/last -O - | tr '"' '\n' | egrep "^https://www.tumbex.com/.*/posts\$" | uniq | cut -d'/' -f4 > tmbx/tmbx-$t.uids`;
  `gzip tmbx/tmbx-$t.uids`;
  sleep 1;
}
	#!/usr/bin/perl
	mkdir "tmbx";

	while (1) {
	my $t = time();
	print `wget https://www.tumbex.com/last -O - \| tr '"' '\n' \| egrep "^https://www.tumbex.com/.*/posts\$" \| uniq \| cut -d'/' -f4 > tmbx/tmbx-$t.uids`;
	`gzip tmbx/tmbx-$t.uids`;
	sleep 1;
	}