> for ($i = 0; $i < @ARGV.""; ++$i) {
Why do you append an empty string? I can't figure out what condition would make that
necessary. Won't @ARGV *always* be evaluated in a scalar context by the '<' operator?
-- Brad
From: "Chris Hedemark" <[EMAIL PROTECTED]>
> #!/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
>
>
