use v6;

if (@*ARGS != 1) {say ‘Use:scan.p6 ip‘;exit;}
my $check_ip = @*ARGS[0];
$check_ip = ‘<value>‘~$check_ip~‘</value>‘;
say $check_ip;
my $stat_file = ‘Smbtouch-1.1.1.xml‘;
my $chang_file = slurp $stat_file;

my $swap_data = do given $chang_file {S/\<value\>\d**1..3\.\d**1..3\.\d**1..3\.\d**1..3\<\/value\>/$check_ip/;};
spurt $stat_file, $swap_data;
shell ‘Smbtouch-1.1.1.exe‘;

這是一個寫批量的原型

關鍵點是修改smbtouch中的IP地址

持續修改IP地址就是批量版本

perl6裏沒找到原地修改文件的方 法， 這裏用的是：

1. 把文件讀進一個變量

2. 替換IP

3. 把變量寫進配置文件進行覆蓋

你起碼要有一個smbtouch 的exe測試文件(這些文件在nsa裏有)， 如下:

nsa工程式（fb.py）: perl6調用並修改IP