é©å½ã ãã©è£å®ç¨ã®è¾æ¸ãã¡ã¤ã«ãä½ã£ã
ä½ãæ¹
ã¾ãã¯ããã¡ããåèã« Flex3 ã®ãªãã¡ã¬ã³ã¹ããã¼ã«ã«ç°å¢ã«ãã¦ã³ãã¼ãã
Flex3のヘルプ続き - 0x廃棄階層 - 統治局
2008/04/17ã«åå¾ãã http://ss-o.net/txt/Flex3LangrefUrlList.txt
ãç½®ãã¦ããã¾ãã
wget -i Flex3LangrefUrlList.txt -xã§ç¡é§ãªããã¦ã³ãã¼ãã§ããã¨æãã¾ãã
ãã®å¾ãä¸è¨ã®ãããªé©å½ãª Script ãè¨ç½®ãã¦ã»ã»ã»
#!/usr/bin/env perl use strict; use warnings; use feature qw(:5.10); use version; our $VERSION = qv('0.0.1'); use Carp; use English qw(-no_match_vars); use Path::Class qw(dir); use HTML::TreeBuilder::XPath; use List::MoreUtils qw(uniq); my $tree = HTML::TreeBuilder::XPath->new; my @elements = qw( ArgumentError arguments Array Boolean Class Date DefinitionError Error EvalError Function int Math Namespace Number Object QName RangeError ReferenceError RegExp SecurityError String SyntaxError TypeError uint URIError VerifyError XML XMLList ); dir( $ARGV[0], 'livedocs.adobe.com', 'flex', '3_jp', 'langref', 'mx', )->recurse( callback => sub { my ($file) = @_; return if ! -f $file || $file->basename ne 'class-list.html'; $tree->parse_file("$file"); for ($tree->findnodes('/html/body/table/tr/td/a/text()')) { push @elements, $_->getValue(); } } ); say join "\n", map {'mx:' . $_} sort {$a cmp $b} uniq @elements;
å®è¡ããã
% ./mxml_dict_maker.pl [ãªãã¡ã¬ã³ã¹ãã¤ã³ã¹ãã¼ã«ãããã£ã¬ã¯ããª] > mxml.dict