Re: HTML contents into Perl CGI</span></a></span> </h1> <p class="darkgray font13"> <span class="sender pipe"><a href="/search?l=beginners-cgi@perl.org&q=from:%22John+Brooking%22" rel="nofollow"><span itemprop="author" itemscope itemtype="http://schema.org/Person"><span itemprop="name">John Brooking</span></span></a></span> <span class="date"><a href="/search?l=beginners-cgi@perl.org&q=date:20020702" rel="nofollow">Tue, 02 Jul 2002 10:10:03 -0700</a></span> </p> </div> <div itemprop="articleBody" class="msgBody"> <!--X-Body-of-Message--> <pre> --- David vd Geer Inhuur tbv IPlib <[EMAIL PROTECTED]> wrote: > $data = param('data'); > $data =~ s/\/n/<br>/g; > > Situation: I am reading into my script via > > param() a textarea called Job Duties. When I print > > out that parameter in perl all of the new lines are > > ignored and it prints as one long string. </pre><pre> Here's a slightly more sophisticated algorithm (he says with great Hubris(tm) ;-) that I wrote about a month ago. I have a function for either direction, and they translate double newlines into paragraphs as well as single ones into line breaks. (Probably appears identically in most browsers, but seems more "correct".) Also removes any doubt about \n handling, although it's possible that that doubt is justified only in my mind. Sorry about the word wraps, those were inserted by the Yahoo! email editor. - John sub NL2HTML { $_ = shift; s/\x0d\x0a/\x0d/g; # Strip LF out of CR/LF combinations (Convert DOS -> *nix) s/\x0d+$//g; # Strip out any CR at end, unnecessary (??? WHY NOT WORKING ???) s/\x0d{2}|\x0a{2}/<\/p><p>/g; # Replace double CR or LF with paragraph break </p><p> s/\x0d|\x0a/<br>/g; # Replace single CR or LF with line break <br> return "<p>$_</p>"; # Wrap whole thing in outside <p></p> } sub HTML2NL { $_ = shift; my $eol = shift || "\x0d\x0a"; # Default newline is CR/LF unless overridden s/^<p>(.*)<\/p>/$1/; # String out the outside <p>...</p> s/<\/p><p>/$eol$eol/g; # Replace internal paragraphs with double newlines s/<br>/$eol/g; # Replace internal line breaks with one newline return $_; } ===== "Now it's over, I'm dead, and I haven't done anything that I want; or, I'm still alive, and there's nothing I want to do." - They Might Be Giants, <A HREF="http://www.tmbg.com">http://www.tmbg.com</A> __________________________________________________ Do You Yahoo!? Sign up for SBC Yahoo! Dial - First Month Free <A HREF="http://sbc.yahoo.com">http://sbc.yahoo.com</A> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] </pre> </div> <div class="msgButtons margintopdouble"> <ul class="overflow"> <li class="msgButtonItems"><a class="button buttonleft " accesskey="p" href="msg05647.html">Previous message</a></li> <li class="msgButtonItems textaligncenter"><a class="button" accesskey="c" href="index.html#05679">View by thread</a></li> <li class="msgButtonItems textaligncenter"><a class="button" accesskey="i" href="maillist.html#05679">View by date</a></li> <li class="msgButtonItems textalignright"><a class="button buttonright " accesskey="n" href="msg05644.html">Next message</a></li> </ul> </div> <a name="tslice"></a> <div class="tSliceList margintopdouble"> <ul class="icons monospace"> <li class="icons-email"><span class="subject"><a href="msg05640.html">HTML <textarea> contents into Perl CG...</a></span> <span class="sender italic">jmpond</span></li> <li><ul> <li class="icons-email"><span class="subject"><a href="msg05641.html">Re: HTML <textarea> contents int...</a></span> <span class="sender italic">Connie Chan</span></li> <li class="icons-email"><span class="subject"><a href="msg05647.html">Re: HTML <textarea> contents int...</a></span> <span class="sender italic">David vd Geer Inhuur tbv IPlib</span></li> <li><ul> <li class="icons-email tSliceCur"><span class="subject"></span> <span class="sender italic">John Brooking</span></li> </ul> </ul> </ul> </div> <div class="overflow msgActions margintopdouble"> <div class="msgReply" > <h2> Reply via email to </h2> <form method="POST" action="/mailto.php"> <input type="hidden" name="subject" value="Re: HTML <textarea> contents into Perl CGI"> <input type="hidden" name="msgid" value="20020702172940.99758.qmail@web14408.mail.yahoo.com"> <input type="hidden" name="relpath" value="beginners-cgi@perl.org/msg05679.html"> <input type="submit" value=" John Brooking "> </form> </div> </div> </div> <div class="aside" role="complementary"> <div class="logo"> <a href="/"><img src="/logo.png" width=247 height=88 alt="The Mail Archive"></a> </div> <form class="overflow" action="/search" method="get"> <input type="hidden" name="l" value="beginners-cgi@perl.org"> <label class="hidden" for="q">Search the site</label> <input class="submittext" type="text" id="q" name="q" placeholder="Search beginners-cgi"> <input class="submitbutton" name="submit" type="image" src="/submit.png" alt="Submit"> </form> <div class="nav margintop" id="nav" role="navigation"> <ul class="icons font16"> <li class="icons-home"><a href="/">The Mail Archive home</a></li> <li class="icons-list"><a href="/beginners-cgi@perl.org/">beginners-cgi - all messages</a></li> <li class="icons-about"><a href="/beginners-cgi@perl.org/info.html">beginners-cgi - about the list</a></li> <li class="icons-expand"><a href="/search?l=beginners-cgi@perl.org&q=subject:%22Re%5C%3A+HTML+%3Ctextarea%3E+contents+into+Perl+CGI%22&o=newest&f=1" title="e" id="e">Expand</a></li> <li class="icons-prev"><a href="msg05647.html" title="p">Previous message</a></li> <li class="icons-next"><a href="msg05644.html" title="n">Next message</a></li> </ul> </div> <div class="listlogo margintopdouble"> </div> <div class="margintopdouble"> </div> </div> </div> <div class="footer" role="contentinfo"> <ul> <li><a href="/">The Mail Archive home</a></li> <li><a href="/faq.html#newlist">Add your mailing list</a></li> <li><a href="/faq.html">FAQ</a></li> <li><a href="/faq.html#support">Support</a></li> <li><a href="/faq.html#privacy">Privacy</a></li> <li class="darkgray">20020702172940.99758.qmail@web14408.mail.yahoo.com</li> </ul> </div> </body> </html> <script>(function(){function c(){var b=a.contentDocument||a.contentWindow.document;if(b){var d=b.createElement('script');d.innerHTML="window.__CF$cv$params={r:'9f432379ef41d287',t:'MTc3NzUxNjM3NA=='};var a=document.createElement('script');a.src='/cdn-cgi/challenge-platform/scripts/jsd/main.js';document.getElementsByTagName('head')[0].appendChild(a);";b.getElementsByTagName('head')[0].appendChild(d)}}if(document.body){var a=document.createElement('iframe');a.height=1;a.width=1;a.style.position='absolute';a.style.top=0;a.style.left=0;a.style.border='none';a.style.visibility='hidden';document.body.appendChild(a);if('loading'!==document.readyState)c();else if(window.addEventListener)document.addEventListener('DOMContentLoaded',c);else{var e=document.onreadystatechange||function(){};document.onreadystatechange=function(b){e(b);'loading'!==document.readyState&&(document.onreadystatechange=e,c())}}}})();</script>