[debian-users:25519] Re: Samba CAP の確認方法

[Taketoshi Sano <kgh12351@xxxxxxxxxxx>]

佐野＠浜松です。

In <3A25689A.30001@xxxxxxxxx>,
  on "Thu, 30 Nov 2000 05:37:19 +0900',
   with "Re: Samba CAP   の確認方法",
 Tomoo Nomura <nomura@xxxxxxxxx> さん wrote:

> > #!/usr/bin/perl
> > #
> > while(<>){
> > 	s/:([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> > 	print ;
> > }

> ls -l などを食わせると、creation date の時刻 12:45 なんかも
> 変換しちゃいますね。ちょっと、困った。(^.^)

私の使ってるのは

 $ cat ~/bin/lscap
#! /usr/bin/perl
my $name;
open (IN,"ls @ARGV | ");
open (OUT,"| nkf -e");
while (<IN>){
  chomp;
  $name = $_;
  s/:([8-9a-f][0-9a-f])/pack('c',hex($1))/ge;
  if (!defined $ARGV[0] || $ARGV[0] eq "--" || $ARGV[0] eq "-F" || $ARGV[0] !~ /^-/) {
        print OUT $_ . " (" . $name . ")\n";
  } else {
        print OUT $_ . "\n";
  }
}
close OUT;

これと

 $ cat ~/bin/capnam
#! /usr/bin/perl

open (OUT,"| nkf -e");
while (<>){
  s/:([8-9a-f][0-9a-f])/pack('c',hex($1))/ge;
  print OUT ;
}
close OUT;

これです。samba の CAP 変換と netatalk とで共用している
日本語ファイルがそれなりにありますが、これで変換できない
名前はいまのところ無いです。

 lscap は lscap -l とか lscap -F とかしてます。
 capnam のほうは pwd |capnam みたいに使います。

-- 
     ＃ (わたしのおうちは浜松市、「夜のお菓子」で有名さ。)
    <kgh12351@xxxxxxxxxxx> : Taketoshi Sano (佐野　武俊)