[Tokyo.pm] Re: (Fun) mount.pl

[scozens ＠ pwj.co.jp]

> > 今晩、ftp://othersideofthe.earth.li/pub/perl/perlix.tar.gzで出発したい
。
> 楽しみにしてます。 (^^)

今perl 5.005_61のbugのため、再作ことが必要そうだ。（SITELIBは
/usr/local/lib/perl5/site_perl/より/usr/local/lib/site_perl/をなってし
まいました。）ところで、perl 5.5.64 （ひい、バーション番号制度が違った）
が出てきまして、CTANです。

その上、前に送ったmountでbugもあったそうあ；最新がftp siteであります。

> 設定ファイルにXMLを使ってみたいです。ファイル自体はこんな感じかな？
> <!xml version="1.0">
> <file_format>
> <entry>
> <filesystem>/dev/xy0a</filesystem>

んん、ものすごい。XML::Simpleを使うと簡単になります：

use XML::Simple;
my %fstab; open(FSTAB, "/etc/fstab") or die "$0: Can't open fstab: $!\n";
if (($_=<FSTAB>) =~/^<\?xml/) {
    $fstab{$_->{directory}} =
        [ $_->{filesystem}, $_->{type}, join ",", keys %{$_->{options}} ]
    for (@{XMLin(join "", <FSTAB>)->{entry}}) ;
} else {
    do {
        next if /^#/;
        my ($device, $mpoint, $type, $options)=split;
        $fstab{$mpoint}=[$device, $type, $options];
    } while (defined ($_=<FSTAB>));
}

実は、そうするとXML::SimpleなどはPerlix Core Moduleになるはずです。
そういうことをしたいかどうかとあまり分かりません。SGMLの人ですから。:)

Simon

--
<!DOCTYPE japh PUBLIC "-//CPAN//Just Another Perl Hacker//EN">