こんな感じかなぁ。 #! /usr/bin/perl use strict; use warnings; my $file = shift @ARGV; use XML::SAX::ParserFactory; my $handler = new MyHandler; my $parser = XML::SAX::ParserFactory->parser( Handler => $handler ); $parser->parse_uri( $file …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。