I am using notepad as my editor . My code is like this:
if (IsEmptyDir($directory) = = 0 ) {
$message = "The directory $directory is empty";
system( "k:\\psgdev\\design\\tools\\writestatus
$STATUSDBF E \"$message\"") && die "Unable to write to $STATUSDBF";
}
When I copied and pasted to the mail it turned to be like : (the whitespace
is gone)
if (IsEmptyDir($directory) == 0 ) {
$message = "The directory $directory is empty";
system( "k:\\psgdev\\design\\tools\\writestatus
$STATUSDBF E \"$message\"") && die "Unable to write to $STATUSDBF";
}
else {
print "Copying : $DATABLD\\$srcfile to
$mergedir\\$destfile\...n";
system( "ncopy $DATABLD\\$srcfile $outputdir\\$destfile") &&
HandleError( "Unable to copy
$KDIR\\$rundir\\data\\$docid\\databld\\$srcfile\n");
}
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 16, 2003 4:35 PM
Subject: RE: Is empty directory?
Sure:
W:\>type test.pl
sub IsDir { return 1 }
if ( IsDir() = = 1 ) { print "true" }
else { print "false" }
W:\>perl test.pl
syntax error at test.pl line 2, near "= ="
Execution of test.pl aborted due to compilation errors.
W:\>perl -v
This is perl, v5.8.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2002, Larry Wall
Binary build 806 provided by ActiveState Corp.
http://www.ActiveState.com
Built 00:45:44 Mar 31 2003
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to
the
Internet, point your browser at http://www.perl.com/, the Perl Home
Page.
P.S. Although our initials are the same, I am not related to Jair :)
-----Original Message-----
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Monday, June 16, 2003 4:12 PM
To: [EMAIL PROTECTED]
Subject: Re: Is empty directory?
Jair Santos wrote:
>
> From: "John W. Krahn" <[EMAIL PROTECTED]>
>
> > Jair Santos wrote:
> > >
> > > From: "John W. Krahn" <[EMAIL PROTECTED]>
> > > >
> > > > $ perl -le'
> > > > sub IsDir { return 1 }
> > > > if ( IsDir() = = 1 ) { print "true" }
> > > > else { print "false" }
> > > > '
> > > > syntax error at -e line 3, near "= ="
> > > > Execution of -e aborted due to compilation errors.
> > >
> > > Is it a DOS or UNIX box ? Mine is DOS and it works.
> >
> > It is a Perl syntax error so it shouldn't matter which OS you run it
> > on. What version of Perl are you running?
>
> ActivePerl 5.8
Can anyone else on the list confirm or deny that this is a syntax error
with Perl5.8 on Windows as I have neither to test it with.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
