Re: Script replaces instead of add

As roboticus pointed out, this:

         $delaylist{ $_ } = $msg;
[download]

essentially says one message per nick. You could replace it with something like

         $delaylist{ $_ } .= $msg;
[download]

which adds to the (still one) message (perhaps should add a linefeed or some such), or

         push @{$delaylist{ $_ }}, $msg;
[download]

which says multiple messages per nick - housekeeping left as an exercise for the reader ;-)

In the latter case, you might want to change the semantics of delay-remove to remove

all messages
the first message
the last message

to that nick.

(TL;DR essentially the same as this)

Comment on Re: Script replaces instead of add Select or Download Code

Replies are listed 'Best First'.
Re^2: Script replaces instead of add by geekism (Initiate) on Jul 24, 2015 at 03:06 UTC
Using the above suggestions, appends to the prior nick: message, which i was already able to do. i need it to create a NEW message.. `For example (current code) nick message /delay add nick message nick message message. Expected results /delay list nick message /delay add nick message /delay list nick message nick message` [download]	[reply] [d/l]
Re^3: Script replaces instead of add by soonix (Chancellor) on Jul 24, 2015 at 08:22 UTC
If I understand you correctly, the problem is now in your `delaycmd` and `listdelay` subs. instead of `$server->command("query $nick $delaylist{$nick}");` [download] which sends the whole kaboodle as one message, make it `$server->command("query $nick $_") for @{$delaylist{$nick}};` [download] (in case you changed your delaylist from hash of strings to HoA). Similiar for `listdelays`. Something like `foreach (@nicks) { print "--> \cB$_\cB:\n"; print scalar @{ $delaylist{ $_ }} . " message(s)\n"; print "$_\n" for @{ $delaylist{ $_ }}; }` [download] BTW to me, it looks like the part with `my %hash = ...` and `@isect` was superfluous from the beginning. you should remove it, because otherwise it will distract you when you have the next change :-)	[reply] [d/l] [select]
Re^4: Script replaces instead of add by geekism (Initiate) on Jul 24, 2015 at 09:38 UTC
This happens to give me the end result i wanted. Thank you. i dont understand what you're speaking about when you mentioned %hash.	[reply]
Re^5: Script replaces instead of add by soonix (Chancellor) on Jul 24, 2015 at 09:50 UTC
Re^3: Script replaces instead of add by soonix (Chancellor) on Jul 24, 2015 at 09:26 UTC
Alternative to my previous reply, if you don't want to "dive into" Perl Data Structures: The problem statement turns into: "how to represent multiple messages?" The most flexible is: as an array of individual messages. However, if you are certain there won't be, e.g., newlines in your messages, you can use that as a delimiter. That would make: In `adddelays`: `$delaylist{ $_ } .= $msg . "\n";` [download] In `listdelays`: `foreach (@nicks) { print "--> \cB$_\cB:\n"; print "$_\n" for split /\n/, $delaylist{ $_ }; }` [download] and finally, in `delayer`: `print ("query $nick $_") for split /\n/, $delaylist{$nick};` [download] Luckily, split omits trailing empty fields, otherwise the code in `adddelays` would have to be more complicated. Thanks perl for autovivification and DWIM :-)	[reply] [d/l] [select]