You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
315 B
16 lines
315 B
# 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
|
|
|