in reply to I/O redirection

I prefer HTML::TokeParser for this kind of problem:
use strict; use HTML::TokeParser; my $content = do {local $/; <STDIN>}; my $parser = HTML::TokeParser->new(\$content); open (OUT, '>', 'myJavaScript.txt') or die $!; while ($parser->get_tag('script')) { print OUT $parser->get_text; }
Say your HTML file is named javascript.html and this script is named parse_js.pl, you can run this program like so:
./parse_js.pl < javascript.html

UPDATE
Homework, eh? Well, your teacher is more than likely not going to allow you to use a CPAN module for this assignment, because they probably want you to learn about basic I/O instead. You more than likey also do not have HTML::TokeParser installed on your computer, which will cause the program to not work.

You will learn more by taking this problem to your teacher instead of bringing it to us. We can show you some of the best ways to solve a problem that will consequently get you a bad grade in your class. Do yourself a favor, talk to your teacher.

UPDATE UPDATE:
You are welcome, but you should still talk to your teacher if you do not understand what you are doing - hopefully they don't mind talking to students during their office hours. Good luck!

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re: (jeffa) Re: I/O redirection
by Anonymous Monk on Jun 03, 2002 at 02:58 UTC
    I named how you expline to me but I could not get anything. Also it does not return me error. In DOS I wrote exactli like this:
    perl parse_js.pl<javascript.html
    In school our techer explened to us to use like this to execute.
    perl ass.pl<input.html>myJavascript.txt
    p.s. Thank you again for your help!!!!!!!!!!!!!!!
      It is working but I need to extract as well script tags on the text file. Like this
      <script language="JavaScript"> ..... </script>
      P.s. Anyway Thank you so much!!!!!!!!!
Re: (jeffa) Re: I/O redirection
by Anonymous Monk on Jun 03, 2002 at 03:14 UTC
    Thank you. It working!!!!!!!!