質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.34%

  • Perl

    464questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

Perl サブルーチンの中でローカル変数を使おうとすると警告が出てしまいます。

解決済

回答 3

投稿

  • 評価
  • クリップ 0
  • VIEW 1,320

siusus

score 3

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.

該当のソースコード

use strict;
use warnings;

use HTML::TreeBuilder;
use Data::Dumper;
use utf8;
use Encode;



my $content = do { local $/=undef; <DATA> };



my $tree = HTML::TreeBuilder->new;
   $tree->parse($content);


    $tree->dump;
    print "\n\n\n";


 # <BODY>タグを表現するHTML::Elementを取得
my $body_tag = $tree->find('body');

   &print_element($body_tag);



# タグとテキストを再帰的に表示
sub print_element{
  local $e = @_[0];
  local @elements = $e->content_list();

  if ($#elements < 0) {
    # childが一つも無ければ終了
    return;
  }

  local $i;

  # 各Elementを表示
  for ($i = 0; $i <= $#elements; $i++) {

    # HTML::Elementならばタグ情報を表示
    if (ref $elements[$i] eq "HTML::Element") {
      print "TAG : " . $elements[$i]->tag . "\n";
      print_element($elements[$i]);

    } else {

      # 文字列として表示

      print "TEXT :\n";
      print $elements[$i];
      print "\n";
    }
  }
}

# オブジェクトを削除
$tree->delete;


__DATA__
<?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">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
    <title>Xpath test</title></head>
    <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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • t_obara

    2017/02/28 17:07

    エラーメッセージをご覧になり、どのように考え、どのように対処すれば良いのかを推測し、それに対してどのようにトライしてみたのかをご提示されると回答が得られやすいと思います。

    キャンセル

回答 3

checkベストアンサー

+3

localという名前にだまされていませんか?と。

myとlocal どう違う?

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/02/28 19:31

    回答ありがとうございます。
    kanbeworksさんがおっしゃるように私はlocal変数という名前に惑わされていたようです。リンク先にもありましたが、local宣言とはglobal変数を一時的に書き換えるものだったのですね。(global扱いされる)
    大変勉強になりました。わかりやすいページを紹介して頂いたのでベストアンサーとさせて頂きました。ありがとうございました。

    キャンセル

+2

my を忘れてませんか?、としつこく言ってくれてるので local を my にしてみては?
local 宣言された変数は実はローカル変数ではなくグローバル変数です。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/02/28 19:23

    すばやい回答ありがとうございます。再度local変数について調べてみました。今までかなり大まかな理解しかしていなかったようで誤解していた部分がたくさんありました。今回はmy宣言をすることで目的とする動作が達成できそうです。ありがとうございました。

    キャンセル

+2

出遅れましたが、

質問者さんが参考にされたページ内容が古いです。バージョン5.6以前のPerlしか使ったことのない人の書いたコードに見えます。質問者さんのほうで最近のPerlに合うようにいくらか手直しされているようですが、もとが古いだけに、問題が残っています。

ウェブ上のコードを参考にされる場合は、使っている言語処理系 (Perl) のバージョンが明記されているものを参照することをお勧めします。

また、モジュールの使い方は、できるだけ公式ドキュメントを参照して下さい。ウェブ上の解説サイトは、基本的に公式ドキュメントの抜粋か焼き直しです。最新の情報とも限りません。Perl 5.xのモジュールのほとんどは、metacpanで公式ドキュメントを読めます。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/02/28 20:29

    回答ありがとうございます。
    なるべく最近まで更新されているWebページを参考にするようにはしていたのですが、更新頻度と書かれているコードの鮮度は必ずしも一致しないのかもしれませんね。今度からはPerlのバージョンについて言及されているかどうかも気をつけたいと思います。
    紹介して頂いたmetacpanはハイライトされていてかなり見やすいですね。今まで翻訳ドキュメントサイトばかり見てたので今後はこちらの方も併用してみたいと思います。
    ありがとうございました!

    キャンセル

同じタグがついた質問を見る

  • Perl

    464questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。