Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: Perl/Tk Chatterbox Client

by converter (Priest)
on Oct 31, 2002 at 11:23 UTC ( #209387=note: print w/replies, xml ) Need Help??

in reply to Perl/Tk Chatterbox Client

These patches fix the Perl/Tk chatterbox client (or so it would seem).

Please test and let me know if there are any problems.

  • Fixed Getopt::Long exception when monkchat is run with the '--debug' or '-d' option:
    Unknown option: s -d Bad options! at ./ line 106.
    Call to open2() passed command line arguments as list, appending the '-s' and optional '-d' switches as a single string ("-s -d"). When open2() is called with a list of command line args, the shell's word splitting doesn't take place, so "-s -d" is parsed as option switch '-s' with value '-d'.
  • Fixed XML parsing patterns in both and monkchat to accomodate recent changes to the chatterbox XML ticker output.
  • Made a few changes to style to make some of the code easier to read. This is probably an evil thing to do, my apologies.
  • Localized $_ in a few places where it looked like it needed to be done.
  • Fixed pet peeve: "Noone" is not a word. :)


NOTE: link removed until I can find time to grab the patches and put them on a different server.

Replies are listed 'Best First'.
Re^2: Perl/Tk Chatterbox Client
by parv (Priest) on Mar 19, 2006 at 20:05 UTC
    In case some poor soul wants to test the patched listed in OP, note that "", as of Mar 19 2006, goes to "Porn Guide".

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://209387]
[Lady_Aleena]: Why does grep(/.*$in.*/, @my_modules) work but grep { $_ =~ /.*$in.*/; $_ } @my_modules not work? What did I do wrong in the second?
[tobyink]: Why are you returning $_ n your grep block? You should return a boolean.
[tobyink]: *in your grep block
[tobyink]: You can use grep { $_ =~ /.*$in.*/; } @my_modules but why not stick to grep(/.*$in.*/, @my_modules)? (The latter is faster.)
[shmem]: Lady_Aleena, in the first example grep evaluates the result from grep and if true, returns $_. In the second, it always returns $_
[shmem]: ..the result from the pattern match
[Lady_Aleena]: tobyink, I did after I failed to get the BLOCK to work. I can't seem to get my brain around grep BLOCK, though I'm okay with grep EXPR.
[shmem]: so in the second example grep returns all true elements of the list passed
[Lady_Aleena]: Okay, so grep BLOCK is not like map BLOCK where something might need to be returned at the end.
[tobyink]: grep { $_ =~ /.*$in.*/; } @my_modules should work just fine. The problem is that you were adding on ;$_ at the end of the block. Why were you doing that?

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2017-05-27 07:42 GMT
Find Nodes?
    Voting Booth?