blob: 2326d6c0b940cdc032a5724619f35c13889a8b03 (
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 (!$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
|
