last if ( $line =~ m/$bisZum/ );
1 2 3
my $string = '<html><body><div>Familie</div></body></html>'; my $bisZum = 'Familie'; print "MATCH\n" if($string =~ m/$bisZum/);
2014-05-04T11:50:20 kezallHallo Perles,
wie kann man folgendes in HTML finden ($bisZum = Familie):
Code: (dl )last if ( $line =~ m/$bisZum/ );
bzw. wieso greift es nicht?
my $bisVrg = ' <P STYLE="margin-bottom: 0cm"><B>Familie</B> Hülsenfrüchtler (<I>Fabaceae</I>).</P> ';
my $bisZum = 'Familie';
1
2
3
4
5
while ( $line = <LESEN> ) {
print SCHREIBEN $line;
last if ( $line =~ m/$bisVrg/ );
print "MATCH: $bisZum\n" if($line =~ m/$bisVrg/);
}
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl -w use strict; my $file = './Pfad/zur/Datei/Datei.csv'; #csv file name my $suchstring = 'Brand'; open my $fhi, "<:encoding(utf8)", "$file" or die "$file: $!"; while ( my $line = <$fhi> ) { print $line; if ( $line =~ m/$suchstring/ ){ print "MATCH: \n" if($line =~ m/$suchstring/); last; } } close($fhi);
2014-05-05T13:39:49 kezallIch kann es noch 3x erklären aber dann geht wohl oder übel nichts mehr ((;-x
1 2 3 4 5 6
local $/; my $html = <DATA>; # hier dein Code... __DATA__ hier dein <b>Familie</b> html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# - - - sortiert aus dem Array entnehmen
for $htmNam ( sort ( @files ) ) {
next if ( $htmNam eq '.' ) || ( $htmNam eq '..' );
$inpNam = "$inpDir/$htmNam";
$outNam = "$outDir/$htmNam";
# - - - Flora *.html bis Marke (^Familie) lesen und in ~/tmp abspeichern
$anzahl++;
open ( LESEN, "<", "$inpNam" ) or die "Lesefehler beim: $inpNam: $? \n";
open ( SCHREIBEN, ">>", "$outNam" ) or die "Schreibfehler in $outNam: $? \n";
while ( $line = <LESEN> ) {
print SCHREIBEN $line;
last if ( $line =~ m/$bisZum/ );
}
close ( LESEN );
close ( SCHREIBEN );
if ( $tstZhl != 0 ) {
if ( $tstZhl > $anzahl ) { ; } else { last; }
}
}
return $anzahl;
# <P STYLE="margin-bottom: 0cm"><B>Familie</B> Hülsenfrüchtler (<I>Fabaceae</I>).</P>
2014-05-05T09:26:02 kezall[...]. Aber es entstand nach MarkusH empfehlung. [...]
2014-05-06T05:46:09 kezallLeider springen manche 'Leser' mitten rein ohne den Anfang (Zusammenhang) gelesen zu haben - zumidest dem Eindruck nach. Daraus entsteht ein gewisses Towuwabohu, dem kaum zu gebieten ist. Vor allem wenn gezielt (ausgepickt) zitiert wird ohne den Zusammenhang zu beachten. Vermutlich ein altes Phenomen.