Separate packaging scripts for MySQL Databases in Linux

The MySQL database in Linux has three functions:
1. Create a folder named by date to store mysql Database backups.
2. If the folder named by date exceeds 30, it is automatically deleted to save server space
3. Go to the/var/lib/mysql directory and pack all the database directories in the directory separately.
Different industries, for reference only! If you have any shortcomings, please correct them in time!
#! /Usr/bin/perl
Chdir "/backup ";
$ File = "mysql_backup ";
If (! -E $ file)
{
System "mkdir $ file ";
}
Chdir $ file;
$ X = 'date + % Y % m % d ';
If (! -E $ x)
{
System "mkdir $ x ";
}
@ B = <*>;
Foreach $ B (@ B)
{
If (-M $ B> 30)
{
System "rm-rf $ B ";
}
}
Chdir "/var/lib/mysql ";
@ A = <*>;
Foreach (@)
{
If (-d)
{
System "tar czvf/backup/$ file/'date + % Y % m % D'/pai_.tar.gz $ _";
}
}