Thank you. It appears that the "slurp" omits the \x0d character. Dir file size: 732 Perl length of $data: 704 Number of lines in the file: 28
Ok I thought that slurping was farely simple. print "Processing: $file"; if (open (INFILE, $file)) { { local $/; $data = <INFILE>; close INFILE; print "\nlen=", length( $data ), "\n"; # print "data='$data'\n"; #fails: print "\nYES\n" if $data =~ /\x0D/s; } -----Original Message----- From: Arms, Mike [mailto:[EMAIL PROTECTED] Sent: Wednesday, October 01, 2003 2:15 PM To: Bullock, Howard A. Subject: RE: RegEx to remove \x0D\x0A Did you add these two lines after reading in the file? print "len=", length( $data ), "\n"; print "data='$data'\n"; Does the length equal the file size? Do you see multiple lines? Both of these would indicate that you indeed slurped the whole file in correctly. _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs