Hi everyone,
I have a \n character in my program that won't go
away.
portion of program:
open(CAP, ">./captions.txt")|| push(@message,
"Couldn't open the captions.txt file for writing,
$!");
chomp(@captions);
for(my$i=0;$i<@caption;$i++){
$_ = $caption[$i];s/\n//g;
#going to extremes!!!
if(/^\s/){for(my$i=0;$i<$i+1;$i++){if(/\s$/){s/\s$//}else{last}}}
if(/\n/){$oops = "yes, found a space in "}
print "$oops caption $i is $_<BR>";
}
my($printcap) = join("|",@caption);
$printcap=~ s/\n//g;
print CAP "$printcap";}
close(CAP);
Output:
Variety Story
|Local Church
|Local Fairgrounds
|Bellys full
Do I have to reinstall perl to get it to remove the
new line?
In one of my other files while writing it printed out
a square box for a newline character that I was trying
to remove. Has anyone had this happen?
Thanks,
Tricia
__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
