Re: Return code to exit from a .bat file

2001-10-01 Thread Mbedish
Thanks, it worked or at least gave me an error and exited the batch file. The batch files are difficult to work out if there are a lot (I have 12 or more files to check) so I will probably do as you suggest (write a wrapper) once I have worked out how to do it, and then I can return the error

Re: Return code to exit from a .bat file

2001-10-01 Thread Mbedish
I think my main problem is getting an eror out of perl which is recognised by a .bat file. I have set a return code in the program from a subroutine but it is not getting to the operating system. __SNIP__ while () { chomp; $length = length($_); if ($length != $lp) { print OU

Return code to exit from a .bat file

2001-10-01 Thread Mbedish
I am doing a simple record length check on a series of files via a dos batch file e.g. check_length.bat: check_length.pl file1 100 check_length.pl file2 200 check_length.pl file3 300 Is it possible to do something in perl (like a return code) so that the batch file aborts if say file2 is i

Formatting File date information

2001-09-01 Thread Mbedish
All, I am trying to write some portable code for listing files and directories on Unix and Win and possibly Mac. I want to get specifically the modification date of files into a format that can load into mySQL in -mm-dd format. (This will help me greatly with housekeeping.) I have looked

Re: Compare large files memory error

2001-08-07 Thread Mbedish
No, I am using Win NT. Regards, Mark Surrey,UK > Does your system have the 'cmp' program on it? IIRC this is a standard or > fairly standard Unix utility which does exactly what you want and you could > just call it from Perl... >Regards > >Mark Bedish >Surrey,UK > > >In a message dated Tue

Compare large files memory error

2001-08-07 Thread Mbedish
Is there a better way to compare large files than this snippet, which runs out of memory if files > 30mb. It is also slow, about the same speed as comparing in a text editor! Thank you. __SNIP__ @file1 = (); @file2 = (); $are_equal = compare_arrays(\@file1, \@file2); if ($are_equal) { pr