Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6738[/thread]

mit perl eine intranet seite steuern: und daten auslesen (Seite 2)

Leser: 1


<< |< 1 2 3 >| >> 26 Einträge, 3 Seiten
renee
 2005-02-25 13:08
#52105 #52105
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
tagname ist der Name des HTML-Tags also bei <img src="source" border="0"> das 'img' und attr die Attribute dazu (also source und border mit den jeweiligen Werten)...

Schau Dir auch mal den Wiki-Artikel http://wiki.perl-community.de/bin....LParser an... HTML::Parser und HTML::TreeBuilder sind verwandt...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Rambo
 2005-02-25 13:23
#52106 #52106
User since
2003-08-14
803 Artikel
BenutzerIn

user image
oh je ich und html :-)
kannst du mir evtl. noch sagen was das bedeutet auf diesen
string bezogen?
erst wenn ich das verstehe kann ich sinnvoll weiter machen
denke ich .-)

Code: (dl )
<tr><td>CLIENTS=SITA_FRA_FRA4LHR007&nbsp;ARINC_FRA_WS1566452&nbsp;</td></tr>

danke schon mal
renee
 2005-02-25 14:00
#52107 #52107
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
der tagname, der Dich interessiert ist td...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2005-02-25 14:03
#52108 #52108
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Mit HTML::Parser Deins geparst:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#! /usr/bin/perl
use strict;
use warnings;
use HTML::Parser;

my @links;
my $string = qq~<<tr><td>CLIENTS=SITA_FRA_FRA4LHR007&nbsp;ARINC_FRA_WS1566452&nbsp;</td></tr>text~;

my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse($string);

foreach my $client(@clients){
  print $_,"\n" if($_);
}

sub start_handler{
  return if(shift ne 'td');
  my ($class) = shift->{href};
  my $self = shift;
  my $text;
  $self->handler(text => sub{$text = shift;},"dtext");
  $self->handler(end => sub{push(@clients,split(/\&nbsp;/,$text)) if(shift eq 'td')},"tagname");
}
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Rambo
 2005-02-25 15:10
#52109 #52109
User since
2003-08-14
803 Artikel
BenutzerIn

user image
merci vielmals das hilft, ich habe immer nach tr gesucht :-)
allerdings kann ich dein code so nicht nehmen da ich die
seite jedesmal runter lade und in eine datei speicher und
dann erst in der datei nach clients suche und alles raus finden
muss was nach "clients=" ist
renee
 2005-02-25 15:12
#52110 #52110
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Es gibt auch eine Methode parse_file($filename)...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Rambo
 2005-02-25 15:18
#52111 #52111
User since
2003-08-14
803 Artikel
BenutzerIn

user image
hab ich schon gefunden :-)
es hapert jetzt am erstmal nur am regex des clients=
habe schon einige deiner beiträge durchforstet und da
kam das mit dem parse_file drin vor :-)
Rambo
 2005-02-25 15:49
#52112 #52112
User since
2003-08-14
803 Artikel
BenutzerIn

user image
warum gibt es hier keine ausgabe?
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use warnings;
use LWP::Simple;
use HTML::Parser;

my $file = "site1.txt";
my $url = 'http://user:pwd@my-home-page.de';
my $content = getstore($url,$file);

my @infos;
my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse_file('$file');

sub start_handler{
  return if(shift ne 'td');
  my ($client) = shift->{CLIENTS}=~ /\s+(.+)/;
  print "$client\n";
}

ich dachte er sollte hiemit alles anzeigen was nach CLIENTS kommt?
renee
 2005-02-25 15:53
#52113 #52113
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
statt '$file' nur $file (also ohne die ' )...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2005-02-25 15:54
#52114 #52114
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Versuch mal
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#! /usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use HTML::Parser;

my @clients;

my $file = "site1.txt";
my $url = 'http://user:pwd@my-home-page.de';
my $content = getstore($url,$file);

my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse_file($file);

foreach my $client(@clients){
 print $_,"\n" if($_);
}

sub start_handler{
 return if(shift ne 'td');
 my ($class) = shift->{href};
 my $self = shift;
 my $text;
 $self->handler(text => sub{$text = shift;},"dtext");
 $self->handler(end => sub{push(@clients,split(/\&nbsp;/,$text)) if(shift eq 'td')},"tagname");
}
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 3 >| >> 26 Einträge, 3 Seiten



View all threads created 2005-02-24 16:30.