> rem = Rule 3
> type=SingleWithThreshold
> ptype=RegExp
> pattern=Email:(\S+)
> desc=Three messages from the same sender $1
> window=21600
> thresh=3
> action=copy Email_$1 %loggi;lcall %o %loggi -> (sub{\
> my($logginput) = split(/\n/, $_[0]);\Call to split() will split a scalar into a list by the given regular expression (newline in your case) and assign it to a given list. However, if the result is assigned to another scalar as you have done, the scalar is set to the number of elements in the list (see also the Perl documentation for the split() function.) So even if the action list variable %loggi contains a single line (that should be the case according to Rule1), the variable $logginput is set to 1. hope this helps, risto ------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, SlashDot.org! http://sdm.link/slashdot _______________________________________________ Simple-evcorr-users mailing list Simple-evcorr-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/simple-evcorr-users
