Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

(tye)Re: framechat2

by tye (Sage)
on Mar 08, 2002 at 19:05 UTC ( #150402=note: print w/replies, xml ) Need Help??


in reply to framechat2

With the new chatterbox xml ticker (which generates valid XML), framechat2 needs the following patch (thanks to Zaxo for help and testing). Change the fixxml sub to:

sub fixxml { # fix the xml nodes so they parse correctly my$xml = shift; my$fix = q{<?xml version="1.0" encoding="ISO-8859-1"?> <!DOCTYPE CHATTER SYSTEM "dummy.dtd"[]>}; # mirod to the re +scue! $xml = $fix.$xml unless $xml =~ /^\s*\Q<?xml\E/; $xml =~ s/[\r\n\t]//g; # jcwren $xml =~ y/\x00-\x1f//d; # strip control chrs # Note that you should only need at most one of the above two lines. # The latter does everything the "jcwren" line does but # the extra strippage doesn't appear to be needed. return $xml; # to the xml parser }

        - tye (but my friends call me "Tye")

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://150402]
help
Chatterbox?
[1nickt]: Although the example given does not produce an error as stated, on my perl.
[1nickt]: perl -wE 'say for map { ... } 1..3;' # "Unimplemented at -e line 1" ... <c>perlsyn says that should throw a syntax error...
[karlgoethebier]: 1nickt: "Edge cases..." Yes, it seems so. Thanks Nick

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2017-11-18 19:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (277 votes). Check out past polls.

    Notices?