| Current Path : /home/usr.opt/mysql57/mysql-test/include/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //home/usr.opt/mysql57/mysql-test/include/truncate_file.inc |
# 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;
my $filename = $ENV{'TRUNCATE_FILE'};
$filename =~ s/\/\//\//;
open FILE, '>', $filename || die "Can not open file $filename";
close FILE;
EOF