404 Blog Not Found : perl/javascript - 鐃舜随申鐃緒申愎鐃緒申撚鐃緒申鐃緒申鐃緒申鐃緒申略

鐃緒申鐃緒申覆鐃緒申箸鐃緒申鐃殉わ申鐃藷ぞよ。

Structure and Interpretation
of Computer Programs
H. Abelson / G. Sussman / J. Sussman
[邦鐃緒申:鐃竣誌申鐃緒申鐃竣ワ申鐃緒申鐃緒申鐃塾刻申造鐃夙駕申鐃�]

IT鐃緒記 - Perl 鐃叔再居申鐃銃出わ申鐃緒申鐃塾ワ申鐃緒申鐃獣ワ申鐃瞬デ￥申鐃緒申鐃緒申有

鐃銃居申鐃銃び出わ申鐃塾ワ申鐃緒申鐃獣ワ申鐃瞬でデ￥申鐃緒申鐃緒申有鐃緒申鐃緒申鐃緒申蓮鐃緒申焚鐃緒申里茲�申鵬鐃緒申鐃緒申鐃緒申鐃夙わ申覆鐃緒申鐃出なわ申覆鐃緒申鐃�*1

鐃淑駕申鐃塾よう鐃祝わ申鐃緒申鐃�OK鐃緒申鐃緒申鐃緒申鐃緒申鐃�document.all鐃淑わ申鐃緒申document.getElementsByTagName('*')鐃緒申箸鐃緒申从撞鐃緒申鐃宿�申廚鐃淑わ申鐃塾わ申鐃緒申鐃緒申鐃緒申箸鐃緒申銅蟶�申鐃緒申辰鐃緒申里如鐃�

function count_tags(node){
  var tag = {}; # 鐃緒申鐃緒申撚鐃緒申鐃緒申鐃緒申鐃緒申略
  function f(node){
    var kids = node.childNodes;
    for (var i = 0; i < kids.length; i++){
      var kid = kids[i];
      if (kid.nodeType != 1) continue;
      if (! tag[ kid.nodeName ]) tag[ kid.nodeName ] = 0;
      tag[ kid.nodeName ]++;
      if (kid.hasChildNodes()) f(kid);
    }
  }
  f(node);
  return tag;
}

鐃殉鰹申JavaScript鐃叔はワ申鐃緒申鐃緒申鐃竣ワ申鐃緒申鐃緒申鐃緒申鬚い鐃緒申鐃叔も深鐃緒申鐃叔わ申鐃緒申里鐃緒申鐃緒申蕁�申鐃緒申鐃緒申箸鐃淑わ申鐃緒申呂覆鐃緒申隼廚鐃緒申鐃緒申鼻鐃緒申鐃緒申譴�申鐃緒申襪�申鐃�JavaScript鐃緒申Lisper鐃祝種申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里鐃緒申箸蓮鐃�SICP鐃緒申納鐃緒申鐃緒申鐃緒申泙鐃緒申匹鐃出器申鐃出わ申鐃縦わ申鐃緒申襪�申隼廚鐃緒申鐃�

鐃緒申鐃淑みに￥申Perl鐃緒申呂鐃緒申瓠�申峇愎鐃緒申鐃舜随申鐃竣わ申鐃書けなわ申多鐃緒申鐃塾醐申鐃緒申任癲�縁申佑里鐃緒申箸禄鐃緒申鐃暑が鐃緒申鐃緒申泥鐃緒申鐃緒申鐃淑る。鐃淑駕申鐃緒申Perl鐃緒申鐃純。

sub count_tags{
    my $node = shift;
    my $tag;
    my $f; # my $f = sub { ... } does not work w/ strict
    $f = sub {
        my $node = shift;
        for my $kid (@{ $node->childNodes }){
            next if $kid->nodeType != 1;
            $tag->{ $kid->nodeName }++;
            $f->($kid) if $kid->hasChildNodes;
        };
    };
    $f->($node);
    return $tag;
}

鐃舜随申鐃叔はなわ申鐃舜随申鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申箸鐃緒申箸鐃緒申鐃緒申里鐃緒申潺鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃叔わ申JavaScript鐃塾ワ申鐃獣ワ申鐃所感鐃祝はわ申鐃順い鐃初け鐃暑。

鐃緒申鐃淑みに￥申鐃緒申鐃緒申鐃緒申鐃緒申函鐃緒申鐃緒申鐃緒申鐃銃逸申鐃緒申鐃緒申箸鐃緒申認鐃叔わ申鐃暑。XML::LibXML鐃緒申必鐃竣￥申

libxmltest.pl

se strict;
use warnings;
use LWP::Simple;
use XML::LibXML;
# count_tag 鐃緒申鐃緒申鐃緒申肋鐃塾とわ申鐃緒申
my $document = XML::LibXML->new->parse_string(get(shift));
my $tag = count_tags($document);
for my $t (sort keys %{ $tag }){
    print $t, ":", $tag->{$t}, "\n";
}

% perl libxmltest.pl http://blog.livedoor.jp/dankogai/index.rdf
admin:generatorAgent    1
channel 1
content:encoded 15
dc:creator      15
dc:date 15
dc:language     1
dc:subject      15
description     16
item    15
items   1
link    16
rdf:RDF 1
rdf:Seq 1
rdf:li  15
title   16

鐃淑わ申鐃緒申Perl鐃塾常申鐃祝わ申鐃緒申鐃銃わ申local鐃塾誌申鐃術わ申鐃緒申鐃緒申的鐃叔使わ申鐃緒申鐃夙は推奨鐃緒申鐃淑わ申鐃緒申鐃緒申鐃緒申鐃殉わ申local鐃熟逸申鐃重�申縫僖奪鐃緒申鐃緒申鐃緒申竸鐃緒申鐃緒申儿鐃緒申鐃緒申鐃緒申鐃祝とどわ申鐃駿わ申鐃緒申鐃緒申鐃緒申鐃緒申

Dan the Man with Too Many Scopes in too Many Languages

404 Blog Not Found

perl/javascript - 鐃舜随申鐃緒申愎鐃緒申撚鐃緒申鐃緒申鐃緒申鐃緒申略

鐃夙ワ申奪鐃緒申丱奪鐃緒申鐃緒申鐃�

1. JavaScript 鐃緒申 Generic Programming

鐃緒申鐃緒申鐃夙わ申鐃緒申

名鐃緒申
	鐃緒申鐃緒申魑⑱鐃� 評鐃緒申鐃緒申鐃緒申

404 Blog Not Found

perl/javascript - 鐃舜随申鐃緒申愎鐃緒申撚鐃緒申鐃緒申鐃緒申鐃緒申略

鐃緒申Lightweight Languages鐃竣ワ申鐃銃ワ申鐃緒申虜膿鐃緒申鐃緒申鐃�

鐃夙ワ申奪鐃緒申丱奪鐃緒申鐃緒申鐃�

1. JavaScript 鐃緒申 Generic Programming

鐃緒申鐃緒申鐃夙わ申鐃緒申