Parsing issues

I have this really weird parsing issue, I split with htmlpagemark, a sign i gave at the beginning of each htmlpage saved but it does not split like that, it splits newlines

@differenthtml = split(/htmlpagemark/,@lines);
print "\n$differenthtml[1]\n";
print "\n$differenthtml[2]\n";

#@lines = htmlpagemark    http://finance.yahoo.com #/q/hp?s=%5EDJI&d=1
+0&e=8&f=2012&g=d&a=0&b=2&c=1992&z=66&y=5214
#  <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" #"http://www.w3.o
+rg/TR/html4/strict.dtd">
# It also consists of a lot of more text before the next #"htmlpagemar
+k"
#sorry if this question reveals to be noobish and simple #but i have n
+o idea how to solve this issue the @lines =    #contents of a read te
+xt file
[download]

it prints: nothing following line ""

Comment on Parsing issues Download Code
Re: Parsing issues by Athanasius (Vicar) on Nov 16, 2012 at 02:44 UTC
split treats its second argument as a string (i.e. a scalar), so you need something like this: `my @differenthtml = split /htmlpagemark/, join('', @lines);` [download] Two additional points (with apologies if they’re unnecessary): The first element of an array is at index `0`, not `1` as suggested by the `print` statements. Always — yes, always! — begin your script with: `use strict; use warnings;` [download] Hope that helps, Athanasius <°(((>< contra mundum	[reply] [d/l] [select]
Re: Parsing issues by NetWallah (Monsignor) on Nov 16, 2012 at 05:23 UTC
The code below may give you some hints on how to process your data: use strict; use warnings; my @differenthtml; $/="htmlpagemark"; while (<DATA>){ chomp; next if $_ eq "htmlpagemark"; next unless length($_) > 0; push @differenthtml, $_; } for my $item (0..$#differenthtml){ print "===Item $item ==\n$differenthtml[$item]\n" } __DATA__ htmlpagemark http://finance.yahoo.com #/q/hp?s=%5EDJI&d=10&e=8&f=20 +12&g=d&a=0&b=2&c=199 +2&z=66&y=5214 # <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" #"http://www.w3.o +rg/TR/html4/strict.dtd"> # It also consists of a lot of more text before the next #"h t m l p a + g e m a r k" htmlpagemark http://another/URL More text #sorry if this question reveals to be noobish and simple #but i have n +o idea how to solve this issue + the= #contents of a read text file END [download] "By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest." -Confucius	[reply] [d/l]


There's more than one way to do things
	PerlMonks

Parsing issues

The best material for plates (tableware) is: