for ($i=0; $i<1024; $i++) {
if ($var =~ /^\\r\\n$/) {
$var =~ s/^\\r(\\n)$/$1/;
}
# First time using $1! Hope it works =)
}Well, and the for loop ensures the file isn't bigger as 1024, 1mb. -------------- Bob Erinkveld (Webmaster Insane Hosts) www.insane-hosts.net MSN: [EMAIL PROTECTED]
From: christopher j bottaro <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
CC: [EMAIL PROTECTED]
Subject: perl script to convert dos newlines to unix newlines...
Date: Fri, 13 Dec 2002 04:42:59 -0600
hey,
i wanna make a perl script that will convert those stupid "\r\n" dos newlines
to good unix "\n" newlines...=) the problem isn't really a perl problem, but
a general programming problem that i've always kinda wondered about.
so i guess what i'm gunna do is open the file, read in a line, search for
"\r\n", if its there, replace it with just "\n", then write the new (edited)
line to a new file. my problem is this...if the file is 10 megs, then not
only is the program gunna read a 10 meg file, but write one as well. is
there not a better way to do this?
i can't really remove the "\r" in situ because as far as i understand, a file
is just an array of bytes and if i remove the "\r", i'd have to shift
everything else down one byte.
thanks for the tips,
-- christopher
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
_________________________________________________________________
MSN Zoeken, voor duidelijke zoekresultaten! http://search.msn.nl/worldwide.asp
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
