Truncate a file: Difference between revisions

added perl
(added python)
(added perl)
Line 146:
ProcedureReturn #True
EndProcedure</lang>
 
=={{header|Perl}}==
<lang perl># Open a file for writing, and truncate it to 1234 bytes.
open(FOO, "file") or die;
truncate(FOO, 1234);
 
# Truncate a file to 567 bytes.
truncate("file", 567);</lang>
 
=={{header|Python}}==
Anonymous user