Opened by Magic at 2007-06-27 11:24
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Hm, ich habe das jetzt mal ausprobiert, bei mir geht das:
Ergebnis:
Wie gewinnst du denn die Zeile die du als Beispiel angegeben hast?
Steht da genau das drin? Lass es dir einfach mal ausgeben.
Grüße, pktm
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
use Data::Dumper qw/Dumper/;
my $tabelle = qq~
<td style="width: 39px; padding-left: 17px;" onMouseover="return escape('GESUCHTER TEXT');"
<table celpadding=0 cellspacin........>
~;
my ( @text ) = $tabelle =~ /return escape\(\'(.*?)\'\)/isg;
print Dumper \@text;
Ergebnis:
Quote> Executing: C:\Programme\ConTEXT\ConExec.exe "C:\Perl\bin\perl.exe" "C:\Apache\cgi-bin\sometest.pl"
$VAR1 = [
'GESUCHTER TEXT'
];
> Execution finished.
Wie gewinnst du denn die Zeile die du als Beispiel angegeben hast?
Steht da genau das drin? Lass es dir einfach mal ausgeben.
Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )