Perl Guru Forums: Perl Programming Help: Beginner: Write text Between Two Tags

CGI/Perl Guide | Learning Center | Forums | Advertise | Login

Site Search: in


	MAIN INDEX	SEARCH POSTS	WHO'S ONLINE	LOG IN

Home: Perl Programming Help: Beginner:
Write text Between Two Tags

Goldc0der
Novice

Nov 21, 2005, 8:25 AM

Post #1 of 21 (3169 views)

Write text Between Two Tags	Can't Post

Hi:

I´m new on Perl, and i´m looking for a little help in my job. Hope you could help me.

I have 3 files.

novidades.htm - (a normal webpage with to hidden tags: <a name=[START]></a> and <a name=[END]></a>)

captura.shtml - (calls an include .pl )

novidades.pl - (this file should read "novidades.htm" file and write all content between [START] and [END])

Theres the code of "novidades.pl" file:
___________________________________________________________________

#!/usr/bin/perl

$ficheiro="../novidades.htm";

open(LISTA,"$ficheiro");
@linhas=<LISTA>;
$retorno="";

print "Content-type: text/html\n\n";

for ($i=0;$i<scalar(@linhas);$i++) {

$retorno .= @linhas[$i] =~ /[START](.*)[END]/egi;
}

print "$retorno";
___________________________________________________________________

Unfortenelly, it gives an error:
"[an error occurred while processing this directive] "

If i delete "e" letter on the end of...
$retorno .= @linhas[$i] =~ /[START](.*)[END]/egi; <--- /egi <--- this e

... the result is:
111111111111111111111111

What can i do to write everything between [START] and [END] tags on my page?

Thanks a lot
Sérgio

rork
User

Nov 21, 2005, 11:29 AM

Post #2 of 21 (3164 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

You could load the whole file at once and strip everything up until [start] and everything from [end]

Code

{ 
undef $/; 
open(LISTA, '<', $fichero) or die "Can't open $fichero: $!"; 
my $retorno = <LISTA>; 
close(LISTA); 
} 
 
$retorno =~ s/^.*\[start\]//i; 
$retorno =~ s/\[end\].$//i; 
 
print $retorno;

Some notes:
the open is between { } so the undef of $/ won't affect the rest of your script.
The first regexp will remove everything untill and including the last [start]
The second regexp will remove everything from and including the first [end] after the last [start]

edit: fixed the code
--
Don't reinvent the wheel, use it, abuse it or hack it.

(This post was edited by rork on Nov 23, 2005, 7:42 AM)

KevinR
Veteran

Nov 21, 2005, 12:44 PM

Post #3 of 21 (3162 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

it's worth mentioning that you have a big problem in your regexp with the use of [START] and [END]. Using square brackets in a regexp defines a character class. So perl is looking for any of the characters between the squarte brackets, it's not looking for the patterns [START] and [END]. Note rork has the square brackets escaped with a back-slash in his code so perl will treat them as regular text instead of character class delimiters. Using something more like your methods you could maybe** do something like this:

Code

open(LISTA,"$ficheiro"); 
my @linhas = <DATA>; 
$retorno=""; 
 
print "Content-type: text/html\n\n"; 
 
my $reterno = ''; 
for (@linhas) { 
   $reterno .= $1 while (/\[START\](.*?)\[END\]/gi); 
} 
 
print $reterno;

** I said maybe because I don't know how the html file you are parsing is actually written.
-------------------------------------------------

Goldc0der
Novice

Nov 21, 2005, 1:53 PM

Post #4 of 21 (3160 views)

Re: [rork] Write text Between Two Tags [In reply to]	Can't Post

Hi rork:

I tried your code but, it gives me an error:
[an error occurred while processing this directive]

What can i do more?

Thanks for your help!

Goldc0der
Novice

Nov 21, 2005, 1:58 PM

Post #5 of 21 (3159 views)

Re: [KevinR] Write text Between Two Tags [In reply to]	Can't Post

Hi KevinR

I tried your code.
No errors, very nice, but it seems that could not find any text between [START] and [END] words. (No results!)

Any other suggestions?

Thanks for your help!

KevinR
Veteran

Nov 21, 2005, 2:44 PM

Post #6 of 21 (3157 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

post the html file that has these [START] and [END] tags in it that you are parsing.
-------------------------------------------------

KevinR
Veteran

Nov 21, 2005, 2:47 PM

Post #7 of 21 (3156 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

rorks code has a syntax error in this line:

open(LISTA, '<', $fichero) or die "Can't open $fichero: $!");

the last ')' should not be there:

open(LISTA, '<', $fichero) or die "Can't open $fichero: $!";
-------------------------------------------------

Goldc0der
Novice

Nov 21, 2005, 11:24 PM

Post #8 of 21 (3150 views)

Re: [KevinR] Write text Between Two Tags [In reply to]	Can't Post

Hi KevinR:

Heres the content of novidades.htm file:

<html>
<head>
<meta http-equiv="Content-Language" content="pt">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title></title>
</head>

<body>
<a name="[START]"></a>
News 1 
This is the news 1.
<a name="[END]"></a>
News 2 
This is the news 2.
News 3 
This is the news 3.

</body>
</html>

The ideia is to catch always the first news and write it on an page (captura.shtml) that as the code:


Thanks again for your help KevinR

(This post was edited by Goldc0der on Nov 21, 2005, 11:39 PM)

KevinR
Veteran

Nov 22, 2005, 12:24 AM

Post #9 of 21 (3145 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

well, I would try something very similar to what rork posted then:

Code

open(LISTA, '<', $fichero) or die "Can't open $fichero: $!";  
my $retorno = do {undef $/; <LISTA>};  
close(LISTA);  
  
$retorno =~ s/^.*\[start\]//is;  
$retorno =~ s/\[end\].*$//is; 
  
print $retorno;

-------------------------------------------------

Goldc0der
Novice

Nov 22, 2005, 1:20 AM

Post #10 of 21 (3141 views)

Re: [KevinR] Write text Between Two Tags [In reply to]	Can't Post

KevinR

I have no luck Frown

I tried that way to, but gave an error:
[an error occurred while processing this directive]

I tried to rename .pl file to .cgi, and i put the code:

... in captura.shtml file

With this last code you gave me, give no errors, but gave no results too :(

Theres no other way to terminate this problem?

Thanks for or patience Kevin

MrPJ
User

Nov 22, 2005, 2:35 AM

Post #11 of 21 (3138 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

Perhaps either the SSI directive isn't pointing to the correct path, or the SSI script isn't managing to load the file it is expecting to parse.

(This post was edited by MrPJ on Nov 22, 2005, 2:36 AM)

Goldc0der
Novice

Nov 22, 2005, 4:24 AM

Post #12 of 21 (3134 views)

Re: [MrPJ] Write text Between Two Tags [In reply to]	Can't Post

Hi and thanks for your help MrPJ

I checkout all paths, and all tests are ok.

Need help plz!

Thanks again MrPJ

davorg
Thaumaturge / Moderator

Nov 22, 2005, 5:12 AM

Post #13 of 21 (3132 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

In Reply To

I tried that way to, but gave an error:
[an error occurred while processing this directive]

Whenever you get that error, you will almost certainly get a full error message in the web server error log. Looking at that will give you a big clue as to what the real problem is. Without that you are just guessing.

--
Dave Cross, Perl Hacker, Trainer and Writer
http://www.dave.org.uk/
Get more help at Perl Monks

Goldc0der
Novice

Nov 22, 2005, 6:23 AM

Post #14 of 21 (3128 views)

Re: [davorg] Write text Between Two Tags [In reply to]	Can't Post

Hi davorg

Thanks for your help

I wrote to webmaster to know where server keeps the logs error files.

In meantime, i´ll ask you if i can do what i whant with other way.

Thanks one more time.

davorg
Thaumaturge / Moderator

Nov 22, 2005, 6:26 AM

Post #15 of 21 (3126 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

Another way to see what the errors are would be to run the program from the command line.

Or you could add

Code

use CGI::Carp 'fatalsToBrowser';

to your program (but remember to remove it once you have finished debugging).

--
Dave Cross, Perl Hacker, Trainer and Writer
http://www.dave.org.uk/
Get more help at Perl Monks

Goldc0der
Novice

Nov 22, 2005, 6:29 AM

Post #16 of 21 (3125 views)

Re: [davorg] Write text Between Two Tags [In reply to]	Can't Post

davorg

I just have access by FTP. Can´t execute directly on the command line. :(

I put in first line of the script:
#!/usr/bin/perl
use CGI::Carp 'fatalsToBrowser';
...

This create some kind of log? When i run in the webbrowser, doesnt show anything.

Thanks again

(This post was edited by Goldc0der on Nov 22, 2005, 6:35 AM)

davorg
Thaumaturge / Moderator

Nov 22, 2005, 6:31 AM

Post #17 of 21 (3123 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

Then you're crippling yourself in your attempts to write CGI programs. You should seriously consider changing your web hosts, your customers, your sysadmins or whoever is imposing these constraints on you :)

--
Dave Cross, Perl Hacker, Trainer and Writer
http://www.dave.org.uk/
Get more help at Perl Monks

Goldc0der
Novice

Nov 22, 2005, 6:48 AM

Post #18 of 21 (3121 views)

Re: [davorg] Write text Between Two Tags [In reply to]	Can't Post

Ahh.. finally something...

Ok... i did one thing. I put the code:

... on "captura.shtml" file.

I trade

by


then, i rename "novidades.pl" to "novidades.cgi"

I also trade the marks of "novidades.htm" from:
[START] -> xiniciox (Begin mark)
[END] -> xfimx (End mark)

The file "novidades.cgi" as the code:

#!/usr/bin/perl

use CGI::Carp 'fatalsToBrowser';

$ficheiro="../novidades.htm";

open(LISTA, '<', $ficheiro) or die "Can't open $fichero: $!";
my $retorno = do {undef $/; <LISTA>};
close(LISTA);

$retorno =~ s/^.*xiniciox//is;
$retorno =~ s/xfimx.*$//is;

print $retorno;

______________________________________________________

Now, when i run the script in the web browser there´s no erros, but dont give anu results either.

It´s seems, that .cgi file dont find any text between xiniciox and xfimx word. DAMN Mad

Help plz!

Goldc0der
Novice

Nov 22, 2005, 7:05 AM

Post #19 of 21 (3118 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

YESSSSSSSS... FINALLY...

Evething is OK know...

The problem was on START and END words. They are not accepted on <a name="[START]"></a>.

I trade to <a name="teste"></a>[START]

Keywords have to be outside the tags.

THIS CONVERSATION IS TERMINATED Cool

Thanks to all for your help.
Big hug to all.

KevinR
Veteran

Nov 22, 2005, 11:09 AM

Post #20 of 21 (3110 views)

Re: [Goldc0der] Write text Between Two Tags [In reply to]	Can't Post

besides needing the correct tags you probably could have just added the http header to the last code I posted and it would have worked:

print "Content-type: text/html\n\n";
-------------------------------------------------

Goldc0der
Novice

Nov 23, 2005, 4:27 AM

Post #21 of 21 (3103 views)

Re: [KevinR] Write text Between Two Tags [In reply to]	Can't Post

Hi KevinR

I know... its working 100%

Thanks a lot for your help m8 Wink

Search for (options)

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives