#!/usr/bin/perl
use strict;
use LWP::UserAgent;

my (@offers, @lines);

my $ua = new LWP::UserAgent;
my ($url, $request, $response, $content);
$ua->timeout(120);
$ua->agent('Mozilla/5.0');

my $last = $#offers;
foreach (1..65535){
    $url="https://markt.kadari.net/de/produkte/Suchergebniss_1_a328c25ef8c71a32179294ca394cd831_RUNTIME_DESC_" . $_ . "_LIST";
    $request = new HTTP::Request('GET', $url);
    $response = $ua->request($request);
    $content = $response->content();
    @lines = split('\n',$content);
    foreach my $line (0..$#lines){
        if ($lines[$line] =~ m/href=\"(\/de\/anzeige\/.+)\" title/){
             if ($#offers == -1 or $offers[$#offers] ne $1){
                $offers[$#offers+1] = $1;
             }
        }
    }
    if ($#offers == $last){
        last;
    }
    $last = $#offers;
}
foreach (0..$#offers){
    $url="https://markt.kadari.net" . $offers[$_];    
    $request = new HTTP::Request('GET', $url);
    $response = $ua->request($request);
    $content = $response->content();
    if ($content =~ m/marketplaceArticleQuanitityValue\">(\d*)</){
        if ($1 > 0){
            print $url , "\n";
        }
    }
}