on Thu, 25 Jul 2002 06:58:03 GMT, Javeed Sar wrote:
If you had used strict, Perl would have noticed the problem.
> #!c:\perl\bin\perl
> @privates =`cleartool lsprivate -tag jav_test -other`;
> #print "@privates";
> #print "Enter a pattern:";
> #my $pattern =<>;
> #chomp $pattern;
> foreach (@privates)
> {
> print "\nAttempting to delete $_\n";
> $delo=unlink @private;
^^^
Did you mean to write '@privates'? But then your program logic isn't
right. Perhaps you meant '$_', which tries to delete each file from
'@privates' in turn?
> print "\n $delo deleted";
> }
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
