Hi,
I want to write following C Equivalant with PERL
My perl equvalant is at the end of this mail..
please correct me...
my questios are inside perl comments...
----------
C Code start
-----
for(i=0;i<(int)strlen(Buffer);i++)
{
if((Buffer[i] < 32) || (Buffer[i] > 126))
{
if((Buffer[i] == 10) || (Buffer[i] == 13))
{
Buffer[i] = '\0';
}
else
{
BadRec = 1;
if(Buffer[0] != 26)
{
BadCnt++;
fprintf(Reject,"%s\n",Buffer);
}
else
Ignore++;
}
break;
}
}
----------------
PERL CODE START
---------------
for(split(//)){
if ((ord() < 32) || (ord() < 126)) {
if (ord() == 10) || (ord() == 13)) {
#make this char as NULL
# here how to make this char is NULL ?
# $_ =~ tr/\r\n/\0\0/; is this Correct ?
} else {
$badrec = 1;
# if ord() of first char is not 26
# reject reocrd
}
}
}
Thanks in Advance
-Madhu
__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
