mirror of
https://github.com/MariaDB/server.git
synced 2025-01-17 20:42:30 +01:00
16 lines
291 B
PHP
16 lines
291 B
PHP
# truncate a giving file, all contents of the file are be cleared
|
|
|
|
if (!$file)
|
|
{
|
|
--echo Please assign a file name to $file!!
|
|
exit;
|
|
}
|
|
|
|
let TRUNCATE_FILE= $file;
|
|
|
|
perl;
|
|
use Env;
|
|
Env::import('TRUNCATE_FILE');
|
|
open FILE, '>', $TRUNCATE_FILE || die "Can not open file $file";
|
|
close FILE;
|
|
EOF
|