Code:
$ cat script.pl
use warnings;
use strict;
use WWW::Mechanize;
use HTML::TokeParser;
use HTML::Entities;
my $uri = q[http://www.energiecontracting.de/7-mitglieder/von-A-Z.php?a_z=B&seite=1];
## Get the agent to explore the web page.
my $mech = WWW::Mechanize->new();
$mech->agent_alias( q[Linux Mozilla] );
$mech->get( $uri );
## Get last page.
my @c = $mech->find_all_links(
q[url_regex] => qr/(?i:seite)=/,
);
my %d = map { $_->[0] => do { $_->[0] =~ m/(\d+)\Z/; $1 } } @c;
my $last_page = (sort { $b <=> $a } values %d)[0];
my @text;
for my $page ( 1 .. $last_page ) {
my $tp = HTML::TokeParser->new( \$mech->content() ) or die qq[ERROR in HTML::TokeParser\n];
$tp->get_tag( q[table] );
while ( 1 ) {
my $t = $tp->get_text();
if ( $t ) {
last if $t =~ m/\A(?i)seite/;
push @text, $t;
}
my $token = $tp->get_token;
if ( $token->[0] eq q[E] && $token->[1] eq q[p] ) {
printf qq[%s\n], join q[,], @text;
@text = ();
next;
}
if ( $token->[0] eq q[E] && $token->[1] eq q[div] ) {
last;
}
}
$uri =~ s/(\d+)\Z/$1 + 1/e;
$mech->get( $uri );
}
exit 0;
$ perl script.pl
Siegeltr�ger,Badische Kraftwerk GmbH & Co. KG,76532 Baden-Baden
Contractor,Bayerische Elektrizit�tswerke GmbH,86150 Augsburg,Tel.: +49 (0821) 328 - 0,Fax: +49 (0821) 328 - 4160,undine.maidl@lew.de,www.bew-augsburg.de
Siegeltr�ger,BayWa Energie Dienstleistungs GmbH,81925 M�nchen,Projekte dieser Firma ansehen
Siegeltr�ger,BEG Energiegesellschaft mbH,12681 Berlin
Partnerunternehmen,Beratungs- und Planungsb�ro f�r MULTIVALENTE Beheizungssysteme,Dipl.-Ing. G�nter Schlagowski,28213 Bremen,Tel.: +49 (0421) 211210,Fax: +49 (0421) 212772,g.s.nestwaerme@t-online.de,www.schlagowski.de,Weitere Informationen
Interessent,Bernd Wiggenhauser,78234 Engen
Interessent,Berndorff Contracting GmbH,50674 K�ln
Contractor,beta GmbH Betrieb energietechnischer Anlagen,30451 Hannover,Tel.: +49 (0511) 45001109,Fax: +49 (0511) 497574,brosziewski@beta-energie.de,www.beta-energie.de
Siegeltr�ger,BEVR Biomasse Energie Versorgung Ratekau GmbH & Co. KG,23684 Schulendorf
Siegeltr�ger,BHK-Systeme GmbH,10243 Berlin
Interessent,Bi. En GmbH & Co. KG,24109 Kiel
Siegeltr�ger,BIBER Biomasse GmbH,94333 Geiselh�ring,Projekte dieser Firma ansehen
Siegeltr�ger,Bio W�rme Rh�n GmbH & Co. KG,36145 Hofbieber-Obern�st,Projekte dieser Firma ansehen
Siegeltr�ger,Bio-W�rme-Innovation GmbH,06449 Aschersleben
Interessent,Bioenergie-Regional GmbH,74199 Untergruppenbach
Siegeltr�ger,Bioenergiehof B�hme GmbH,01762 Obercarsdorf
Siegeltr�ger,Bisser-Putz re-Solution Energietechnik GbR,78606 Seitingen-Oberflacht
Siegeltr�ger,Blume W�rmelieferungs GmbH,14728 Rhinow
Siegeltr�ger,Bosch Energy and Building Solutions GmbH,70499 Stuttgart
Partnerunternehmen,Bosch Thermotechnik GmbH Buderus Deutschland,Dipl.-Ing. Jens Gierok,21035 Hamburg,Tel.: +49 (040) 73417 - 0,Fax: +49 (040) 73417 - 267,jens.gierok@buderus.de,www.buderus.de,Weitere Informationen
Partnerunternehmen,BRANDES GmbH,Karin Brandes,23701 Eutin,Tel.: +49 (04521) 807 - 0,Fax: +49 (04521) 807 - 77,karin.brandes@brandes.de,www.brandes.de,Weitere Informationen
Contractor,BRASST Energiedienstleistungen GmbH,13088 Berlin,Tel.: +49 (030) 556885 - 0,Fax: +49 (030) 556885 - 99,brasst@bln.de,www.brasst.de
Contractor,BTB Blockheizkraftwerks- Tr�ger- und Betreiberges. mbH Berlin,10589 Berlin,Tel.: +49 (030) 349907 - 61,Fax: +49 (030) 349907 - 88,karl.meyer@btb-berlin.de,www.btb-berlin.de,Projekte dieser Firma ansehen
04-20-2012
