¿Cómo convertir los archivos .textClipping de Apple a texto plano/HTML?

Investigando más sobre las listas de propiedades binarias de Apple, probé plutil -convert xml1 note.textClipping que produce un archivo XML con el texto legible del fragmento como texto UTF-8, luego versiones codificadas en base64 del mismo texto en UTF-16, mac-plain y HTML.

Incluso después de convertir el binario al formato XML, Finder sigue abriendo el archivo en su propio visor sin importar la extensión que se establezca (por ejemplo, .plist o .xml).

Ejecutar /bin/ls -al en la carpeta muestra un @ al lado del nombre del archivo, lo que indica que el archivo tiene atributos extendidos, por lo que parece que están causando el comportamiento 'especial' en Finder.

Esta respuesta me llevó a probar

xattr -l note.plist 

lo cual revela que parte del contenido de la nota se almacena como una clave de atributo extendido.

Y finalmente, eliminando todos los atributos extendidos convirtió el archivo en un archivo 'normal', por lo que ahora se abre con la aplicación asociada:

xattr -c note.plist 

El comando anterior es para un solo archivo, para eliminar los atributos extendidos de todos los archivos en la carpeta actual, ejecute:

xattr -rc .

Los atributos extendidos pueden ser útiles en algunos casos, por ejemplo, si descargaste un archivo con Safari o Chrome, la URL original se almacenará como un atributo extendido que puedes ver con xattr -l myfile.zip o haciendo clic derecho en un archivo en Finder y seleccionando Obtener información > La URL se mostrará bajo Más información > Desde dónde. (Otra razón para no usar wget cuando quieras hacer un seguimiento del origen del archivo).

En la misma línea que sugirió @ccpizza con python, pero esta vez utilizando perl, puedes crear en Automator un nuevo flujo de trabajo de Acción Rápida y utilizar el siguiente script en su lugar.

Necesitarás instalar RTF::Parser:

1. Descárgalo

2. Abre el archivo y accede a su directorio

3. perl Makefile.PL

4. make && make test

5. sudo make install

El módulo RTF::Parser está marcado como obsoleto en CPAN, pero aún hace su trabajo.

#!/usr/local/bin/perl
use strict;
use warnings;
use IO::File;
use File::Basename ();
use File::Spec;
use Cwd ();
use RTF::TEXT::Converter;
our $DEBUG = 0;

{
    our $basedir = Cwd::getcwd;
    foreach my $f ( @ARGV )
    {
        if( $f !~ /\.(textClipping)$/ )
        {
            next;
        }
        if( &convert( File::Spec->rel2abs( $f, $basedir ) ) )
        {
            print( STDOUT "File $f has been successfully converted.\n" );
        }
        else
        {
            print( STDOUT "Failed to convert file $f.\n" );
        }
    }
    exit(0);
}

sub convert
{
    my $file = shift( @_ );
    my( $name, $path, $suffix ) = File::Basename::fileparse( $file, '.textClipping' );
    my $fh = IO::File->new( "${file}/..namedfork/rsrc" ) || do
    {
        print( STDERR "Failed to open resource for file $file: $!\n" );
        return;
    };
    my $data = do{ local $/ = undef; <$fh> };
    $fh->close;
    my $result = '';
    my $p = RTF::TEXT::Converter->new( output => \$result );
    $p->parse_string( $data );
    # A veces, RTF::TEXT::Converter lo hace bien, y a veces hay datos extraños mezclados, por lo que necesitamos limpiarlo.
    if( index( $result, "\0" ) != -1 )
    {
        # say "Data is:\n" . Devel::Hexdump::xd( $result );
        my @parts = split( /\0+/, $result );
        # say "Data is:\n" . Devel::Hexdump::xd( $parts[-1] );
        $result = $parts[-1];
        $result =~ s/^[\x01\xcb]+//;
    }
    print( STDOUT "Saving result to ${path}/${name}.txt\n" ) if( $DEBUG );
    my $out = IO::File->new( ">${path}/${name}.txt" ) || do
    {
        print( STDERR "Unable to open file ${path}/${name}.txt in write mode: $!\n" );
        return;
    };
    $out->autoflush(1);
    $out->print( $result ) || do
    {
        print( STDERR "Unable to write to file ${path}/${name}.txt: $!\n" );
        return;
    };
    $out->close;
    return(1);
}

__END__

Luego, puedes seleccionar uno o varios archivos que terminen con la extensión .textClipping y hacer clic con el botón derecho, en el menú Servicios, seleccionar tu flujo de trabajo Convertir textClipping a texto y esto creará archivos con el mismo nombre base, pero con la extensión .txt.

También puedes guardar este script de perl en un archivo y llamarlo desde la línea de comandos, como rtf2text.pl *.textClipping.