#! / USR / бен / окр Perl

используй здравый смысл;

использовать Fcntl QW (O_RDONLY O_NONBLOCK);
использовать POSIX QW (mkfifo);
использовать File :: Temp КЯ (Mktemp);
использовать File :: Copy КЯ (копия);

мой (UNDEF, $ апи) = сделать '/home/btc/.bitcoin/bitcoin.PL';

мой @fh;
мой $ unopened_file = Mktemp ("/home/btc/.backup${$}XXXXX");
$ SIG {INT} = {суб умереть};
END {Unlink $ unopened_file}

mkfifo ($ unopened_file, 0600) || умереть "mkfifo $ unopened_file не удалось: $!";

SysOpen ($ ФХ [0], $ unopened_file, O_RDONLY | O_NONBLOCK)
  || умереть "открытые $ unopened_file не удались: $!";

открытый ($ ФХ [1],
«| GPG --batch --trust-модель всегда -e -a -r "ВАШ АДРЕС ЭЛЕКТРОННОЙ ПОЧТЫ"| Почты -s Bitcoin_Backup YOUREMAIL»
) || умереть "| GPG | почта не удалось: $!";

$ API->позвоните по телефону ( 'dumpwallet', "$ unopened_file" );

копия ($ ОГО [0], $ ОГО [1]) || умереть "копия $ unopened_file | GPG | почта не удалось: $!";

использовать Финансы :: Bitcoin;
мой $ бумажник = Финансы :: Bitcoin :: Wallet->новый (
'HTTP: // bitcoinrpc: blahblahblah@127.0.0.1: 8332 /'
);
($ Кошелек, $ wallet->API);