in reply to I/O redirection
Say your HTML file is named javascript.html and this script is named parse_js.pl, you can run this program like so: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; }
./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 | |
by Anonymous Monk on Jun 03, 2002 at 03:21 UTC | |
|
Re: (jeffa) Re: I/O redirection
by Anonymous Monk on Jun 03, 2002 at 03:14 UTC |