создается новая команда для использования в макросе:
savedata < data > < path >
где < data > - данные, а < path > -полный путь к anyFile.txt (путь не должен содержать русский шрифт).
ПРИМЕР:
$aaa = 10068
$bbb = Опаньки
do savedata $aaa D:\myDATA.txt
do savedata $bbb D:\New\myInfo.txt
сам плагин SaveToFile.pl
Код: Выделить всё
#SaveToFile
#Usage:savedata < data > < path >.
#Where < data > some data you wanna save to anyFile.txt
#And where < path > is full path to anyFile.txt
#thanks to me (Rumata)
package SaveToFile;
use strict;
use Globals;
use Plugins;
use Log qw(debug message warning error);
use Commands;
use Utils;
Plugins::register('SaveToFile', 'Saving Data to File.', \&Unload, \&Unload);
my $hook = Commands::register(
['savedata','Saving Data to File.',\&saving]
);
sub Unload {
Commands::unregister($hook);
}
sub saving {
my (undef, $args) = @_;
my ($arg1, $arg2) = split(/ /, $args);
open(F, ">>$arg2");
print F "$arg1\n";
close(F);
message "Data saved\n";
}
return 1;