Tengo el siguiente código:
Using perl Syntax Highlighting
- #!/usr/bin/perl -w
- use Xchat qw( :all );
- Xchat::print ":: Loading script :: \n";
- hook_command( "porta" , \&cmd_msg);
- sub cmd_msg {
- Xchat::command("exec xsel -o > ./archivo.txt");
- my $sal = `cat ./archivo.txt`;
- Xchat::print("==> $sal");
- return EAT_XCHAT;
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El caso es que no imprime lo que hay dentro de archivo.txt, pero si comento la línea número 8, imprime sin problemas... Es como si la línea 8 borrara el archivo y no lo escribe hasta que termina la ejecución del script. No sé si será eso, pero no se me ocurre otra cosa, y aún así no sé cómo solucionarlo.
Salu2. LeoSevilla, buen día a todos.
RESUELTO:
He cambiado la redirección ">" utilizando el comando tee en tubería y así sí me funciona.
Disculpas: Esto me ha pasado por no leer antes algunos de mis mensajes, donde ya me recomendaron el uso de tee para otro problema. I'm sorry.
