Re: to delete a file

[Chris Hedemark]

#!/usr/bin/perl
#
# Name:    unlinkdemo.pl
# Author:  Chris Hedemark <[EMAIL PROTECTED]>
# Purpose: Demonstrate use of the unlink function.

if (!@ARGV) {
    die "No arguments!\n";
}

for ($i = 0; $i < @ARGV.""; ++$i) {
    if (-e $ARGV[$i]) {
 unlink ("$ARGV[$i]");
    }
    else {
 print "File $ARGV[$i] does not exist!\n";
    }
}

----- Original Message -----
From: "Stéphane JEAN BAPTISTE" <[EMAIL PROTECTED]>
To: "PERL" <[EMAIL PROTECTED]>
Sent: Thursday, June 21, 2001 10:03 AM
Subject: to delete a file




How can I delete a file ?

thanks