Q&A
エラーメッセージをご覧になり、どのように考え、どのように対処すれば良いのかを推測し、それに対してどのようにトライしてみたのかをご提示されると回答が得られやすいと思います。
WindowsでStrawberryPerl_5.24を使用しています。
再帰的にHTML内容を表示したいと思っています。
サブルーチン内でローカル変数使って変数内容を保持して再帰処理をさせたいのですが、use strict環境でローカル変数宣言をするとグローバル変数宣言の警告が出てしまいます。
use strict環境で同等の機能を実現するにはどのような書き方をしたらよいのでしょうか？
このサブルーチンは下記のWebページで書かれていたものの一部分なのですが、Perlのバージョン等が関係しているのでしょうか？自分なりに検索してみたのですが見当がつかず困っています。よろしくお願いします。
###発生している問題・エラーメッセージ
エラーメッセージ Global symbol "$e" requires explicit package name (did you forget to declare "my $e"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 32. Global symbol "@elements" requires explicit package name (did you forget to declare "my @elements"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 33. Global symbol "$e" requires explicit package name (did you forget to declare "my $e"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 33. Global symbol "@elements" requires explicit package name (did you forget to declare "my @elements"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 35. Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 40. Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 43. Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 43. Global symbol "@elements" requires explicit package name (did you forget to declare "my @elements"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 43. Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 43. Global symbol "@elements" requires explicit package name (did you forget to declare "my @elements"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 46. Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 46. Global symbol "@elements" requires explicit package name (did you forget to declare "my @elements"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 47. Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 47. Global symbol "@elements" requires explicit package name (did you forget to declare "my @elements"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 48. Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 48. Global symbol "@elements" requires explicit package name (did you forget to declare "my @elements"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 55. Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl line 55. Execution of D:\Perl_script\Mech_Scraping\treebuilder_recursive_terra.pl aborted due to compilation errors.
###該当のソースコード
perl
1use strict; 2use warnings; 3 4use HTML::TreeBuilder; 5use Data::Dumper; 6use utf8; 7use Encode; 8 9 10 11my $content = do { local $/=undef; <DATA> }; 12 13 14 15my $tree = HTML::TreeBuilder->new; 16 $tree->parse($content); 17 18 19 $tree->dump; 20 print "\n\n\n"; 21 22 23 # <BODY>タグを表現するHTML::Elementを取得 24my $body_tag = $tree->find('body'); 25 26 &print_element($body_tag); 27 28 29 30# タグとテキストを再帰的に表示 31sub print_element{ 32 local $e = @_[0]; 33 local @elements = $e->content_list(); 34 35 if ($#elements < 0) { 36 # childが一つも無ければ終了 37 return; 38 } 39 40 local $i; 41 42 # 各Elementを表示 43 for ($i = 0; $i <= $#elements; $i++) { 44 45 # HTML::Elementならばタグ情報を表示 46 if (ref $elements[$i] eq "HTML::Element") { 47 print "TAG : " . $elements[$i]->tag . "\n"; 48 print_element($elements[$i]); 49 50 } else { 51 52 # 文字列として表示 53 54 print "TEXT :\n"; 55 print $elements[$i]; 56 print "\n"; 57 } 58 } 59} 60 61# オブジェクトを削除 62$tree->delete; 63 64 65__DATA__ 66<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 67<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja"> 68 <head> 69 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> 70 <title>Xpath test</title></head> 71 <body><div id="saiyan">バーダック<div class="younger">カカロット<div class="elder">孫悟飯<div>パン</div></div><div class="younger">孫悟天</div></div><div class="elder">ラディッツ</div></div>ttteeesssttt</body></html>
###補足情報(言語/FW/ツール等のバージョンなど)
Geekなぺーじ
HTML::TreeBuilderによるパース（タグとテキストを全表示）
http://www.geekpage.jp/programming/perl-network/html-treebuilder-4.php
回答3件
0
ベストアンサー
localという名前にだまされていませんか？と。
投稿2017/02/28 08:10
総合スコア829
回答ありがとうございます。
kanbeworksさんがおっしゃるように私はlocal変数という名前に惑わされていたようです。リンク先にもありましたが、local宣言とはglobal変数を一時的に書き換えるものだったのですね。(global扱いされる)
大変勉強になりました。わかりやすいページを紹介して頂いたのでベストアンサーとさせて頂きました。ありがとうございました。
0
出遅れましたが、
質問者さんが参考にされたページは内容が古いです。バージョン5.6以前のPerlしか使ったことのない人の書いたコードに見えます。質問者さんのほうで最近のPerlに合うようにいくらか手直しされているようですが、もとが古いだけに、問題が残っています。
ウェブ上のコードを参考にされる場合は、使っている言語処理系 (Perl) のバージョンが明記されているものを参照することをお勧めします。
また、モジュールの使い方は、できるだけ公式ドキュメントを参照して下さい。ウェブ上の解説サイトは、基本的に公式ドキュメントの抜粋か焼き直しです。最新の情報とも限りません。Perl 5.xのモジュールのほとんどは、metacpanで公式ドキュメントを読めます。
投稿2017/02/28 10:49
総合スコア4443
回答ありがとうございます。
なるべく最近まで更新されているWebページを参考にするようにはしていたのですが、更新頻度と書かれているコードの鮮度は必ずしも一致しないのかもしれませんね。今度からはPerlのバージョンについて言及されているかどうかも気をつけたいと思います。
紹介して頂いたmetacpanはハイライトされていてかなり見やすいですね。今まで翻訳ドキュメントサイトばかり見てたので今後はこちらの方も併用してみたいと思います。
ありがとうございました！
あなたの回答
tips
プレビュー
