%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/rs/mysql/5.1/mysql-test/include/
Upload File :
Create Path :
Current File : //home/rs/mysql/5.1/mysql-test/include/truncate_file.inc

# 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

Zerion Mini Shell 1.0