how to retrieve data between <script></script> and save to an array

curd8341 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: how to retrieve data between <script></script> and save to an array by Anonymous Monk on Apr 10, 2012 at 07:02 UTC
I would like to write a perl script to ... Are you sure? Have you read perlintro? Lets see if I can avoid writing stuff :) between < </ -> Require everything between innermost tags to compile. Aww, off target, but a new search term emerges, tags. New try between tags -> Remove text between two Start and End Tags (Regex), Accessing data between two tags, Extracting text between HTML comments tags, Regular expression to match text between two tags (was: Help!! Regular Expressions) That looks better, now for some copy/paste `my $left = quotemeta '<fun>'; my $right = quotemeta '</nuf>'; while( $line =~ /$left(.*?)$right/i ){ my $between = $1; }` [download]	[reply] [d/l] [select]
Re^2: how to retrieve data between <script></script> and save to an array by curd8341 (Initiate) on Apr 10, 2012 at 07:58 UTC
Hi, there, the one you posted following won't work unfortunately `my $left = quotemeta '<fun>'; my $right = quotemeta '</nuf>'; while( $line =~ /$left(.*?)$right/i ){ my $between = $1; }` [download] in my string, there are mixed one line and multiple line between <script> and </script>, how to use regular expression to handle both cases ? Thanks, curd	[reply] [d/l]
Re^3: how to retrieve data between <script></script> and save to an array by Anonymous Monk on Apr 10, 2012 at 08:04 UTC
Sure it will, just add /s , as in m//si	[reply]
Re^4: how to retrieve data between <script></script> and save to an array by curd8341 (Initiate) on Apr 11, 2012 at 00:47 UTC
Re: how to retrieve data between <script></script> and save to an array by CountZero (Bishop) on Apr 10, 2012 at 14:09 UTC
If you put your string inside a wrapper tag, then XML::Twig makes it very easy to extract the contents of the script-tags. `use Modern::Perl; use Data::Dump qw/dump/; use XML::Twig; my $text; my @results; { local $/ = undef; $text = <DATA>; } my $t = XML::Twig->new( twig_handlers => { script => \&script } ); $t->parse("<wrapper>$text</wrapper>"); say dump(@results); sub script { my ( $t, $script ) = @_; my $text = $script->trimmed_text(); push @results, $text; } __DATA__ <script></script> <script>var onWL=0;</script> <script> var a_fInDelItms = 0; </script>` [download] Output: ("", "var onWL=0;", "var a_fInDelItms = 0;") CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James My blog: Imperial Deltronics	[reply] [d/l]
Re^2: how to retrieve data between <script></script> and save to an array by curd8341 (Initiate) on Apr 11, 2012 at 00:59 UTC
Hello CountZero, your code works very well ! Thanks ! However, if the long string contains the following html page in which I want to retrieve content between <script> and </script>, how to do that by using your way ? Thanks, <html> <head> <script language="javascript" src="" id="scptMDtl"></script> <script language="javascript">var onWL=0;var oJS = new Object();</scri +pt> <script language="javascript"> var a_fInDelItms = 0; var a_fPrv = 1; var a_fTxt = 0; </script> </head> <body> <textarea id="txtBdy" class="w100 txtBdy" style="display:none"> This is a test. </textarea> <script language="javascript"> var a_sId = "RgAAAADz6rvTg9+xRIGTnTWlmKbHBwCeJ0LFThYQQaU\/Nvmo +3DG+AAACNa1IAABO5K\/6RD2SRbSFY4IMoQCbAAAAFHnvAAAJ"; var a_sCK = "TuSv+kQ9kkW0hWOCDKEAmwAAABXdNQ=="; </script> </body> </html> [download]	[reply] [d/l]
Re^3: how to retrieve data between <script></script> and save to an array by CountZero (Bishop) on Apr 11, 2012 at 05:59 UTC
Just put that long string in `$text` and feed it to `$t->parse("$text");` It works as advertised! CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James My blog: Imperial Deltronics	[reply] [d/l] [select]