blob: c82108681bd1a3d547596bcd4fb533aafa9b83e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# truncate a giving file, all contents of the file are be cleared
if (`SELECT 'x$file' = 'x'`)
{
--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
|
