Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use warnings;
- use feature qw/say/;
- my $sql_create_database = <<'SQL_CREATE_DATABASE';
- CREATE DATABASE IF NOT EXISTS database_name
- DEFAULT CHARACTER SET = utf8mb4
- DEFAULT COLLATE utf8mb4_unicode_ci;
- SQL_CREATE_DATABASE
- my $sql_create_user = <<'SQL_CREATE_USER';
- CREATE USER 'username'@'%' IDENTIFIED BY 'password';
- SQL_CREATE_USER
- my $sql_grant_user = <<'SQL_GRANT_USER';
- GRANT ALL ON database_name.* TO 'username'@'%';
- SQL_GRANT_USER
- my $sql_flush_priviliges = <<'SQL_FLUSH_PRIVILIGES';
- FLUSH PRIVILEGES;
- SQL_FLUSH_PRIVILIGES
- my $database_name = shift(@ARGV);
- die "database_name is not defined" unless $database_name;
- my $username = shift(@ARGV);
- die "username is not defined" unless $username;
- my $password = shift(@ARGV);
- die "password is not defined" unless $password;
- $sql_create_database =~ s/database_name/$database_name/g;
- $sql_create_user =~ s/username/$username/g;
- $sql_create_user =~ s/password/$password/g;
- $sql_grant_user =~ s/database_name/$database_name/g;
- $sql_grant_user =~ s/username/$username/g;
- print $sql_create_database;
- print $sql_create_user;
- print $sql_grant_user;
- print $sql_flush_priviliges;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement