Split problem

gm199 · Mar 10, 2003

Hi fellows.
I'm open a html file and want to use the upper part only, just above a unique mark () but I cant get it to work!
This is the html:

<html><head><title>my page</title></head>
<body>
this is my text<br>
and more...

this is junk<br>
and more junk...
</body></html>

What I did:

open(TEMPL,$feito);
#@linhas = <TEMPL>;
$linhas = <TEMPL>;
@linhas = split(//,$linhas);
close(TEMPL);

Please help

fortytwo · Mar 11, 2003

I think you will find that after this:

Code:

$linhas = <TEMPL>;

$linhas contains the first line of the file (try printing it out). This is because the input record seperator by default is a newline and perl will, well, seaperate the input records by newline. To make perl go into 'slurp' mode, try this:

Code:

open(TEMPL,$feito);
{
#unset the input record seperator locally
local $/ = undef;

#slurp the file
$linhas = <TEMPL>;
}

#$/ should be the default value here

#do other stuff
@linhas = split(/<!-- SEGUNDA COLUNA -->/,$linhas);
close(TEMPL);

Will will@hellacool.co.uk

http://home.hellacool.co.uk/

J1mbo · Mar 11, 2003

Try something like this:

#! /bin/perl
$infile = "html.out";
open(HTML, "$infile&quot

|| die "error opening $infile $!";
@data=<HTML>;
while (@data) {
$_=shift @data;
if (m/^/){last}else{push @out, $_}
}
close HTML;
print "@out\n";

-jim

gm199 · Mar 11, 2003

Many thanks, problem solved!

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Split problem

gm199

Programmer

fortytwo

Technical User

J1mbo

Programmer

gm199

Programmer

Similar threads

Part and Inventory Search

Sponsor