perl file handling question

[Arlo]

Sponsored Links

Hi,

I have started with Perl just a few days ago.

I want to know 2 things about perl file handlling.

1. How to recognize an empty file in perl ?
2. How to create a new empty file in perl?

Thanks in Advance.

[nonose]

Please try this:

open MYfile ">pathname"; # will erase the contents if already exists
open MYfile ">>pathname"; # won't erase the contents if already exists

The file will be created with 0666 permission

[Yancy]

This is what you are looking for:

#! /usr/bin/perl

use strict;
use warnings;

my $r = create_empty_file('inane');
die $r if $r;


sub create_empty_file {
eval {
open my $fh, '>', $_[0]
or die "Cannot create $_[0]: $!\n";
close $fh or die "Cannot close $_[0]: $!\n";
};
return $@;
}

[Vincenzo]

This is the code to empty the file before updating the file:

open HANDLE,">","/path/to/file" or die "Cannot overwrite file: $!";
print HANDLE "Whatever";
close HANDLE;

OR

perldoc -f truncate

To open existing file & rewrite

open IN, $file;
#do what you need to do
close IN;

open OUT ">$file";
#print out the data
close OUT;

For perl file Handling