catfs

Perl Fuse random cat picture

How it works? Simple! You install Acme::CatFS via cpan ( or cpanm ) and run catfs script

  $ catfs --mountpoint /path/to/catfs
 
  # in other terminal
  $ ls /path/to/catfs/cat.jpg     # first time can be slow
  $ gimp /path/to/catfs/cat.jpg   # will open an random picture of cat

  $ acme-catfs -h                 # to see all options

It is the equivalent to:

  Fuse::Simple::main(
    mountpoint => $mountpoint,
    "/"        => {
      'cat.jpg' => sub {
          LWP::Simple::get('http://thecatapi.com/api/images/get?format=src&type=jpg');
       },
    },
  );

Enjoy