Generate sample password

generate-sample-password.pl

use strict;
use warnings;

use Cwd qw(getcwd);

my $var_dir = "var";
my $sec_list_repo = "git\@github.com:danielmiessler/SecLists.git";
my $sec_list_repo_dir = "var/SecLists";
my $top_dir = getcwd();

`mkdir -p $var_dir`;

if (-e $sec_list_repo_dir and -d $sec_list_repo_dir) {
    chdir $sec_list_repo_dir;
    `git pull`;
} else {
    `git clone --depth 1 $sec_list_repo var/SecLists`;
}

chdir $top_dir;

# 制御コードが邪魔してuniqでエラーするのでコメントアウト
# `cat $sec_list_repo_dir/Passwords/*.txt | uniq > .password-list.txt`;

robo.yml

generate-password-list:
  summary: Generate password list
  command: perl generate-sample-password.pl