#!/usr/bin/perl

$dorf1 = `bash /home/akos/projects/travian/getpage.sh dorf1.php`;

$resource = "<td id=lx title=(\d*)>(\d*)/(\d*)";

($rewood = $resource) =~ s/lx/l4/g;
($reclay = $resource) =~ s/lx/l3/g;
($reiron = $resource) =~ s/lx/l2/g;
($refood = $resource) =~ s/lx/l1/g;

#($v1, $v2, $v3) = $dorf1 =~ m|<td id=l4 title=(\d*)>(\d*)/(\d*)|g;
($v1, $v2, $v3) = $dorf1 =~ m/$rewood/g;

print "Prod=$v1 Stock=$v2 Storage=$v3\n";