Re: compilation error on 5.8 with $^V gt 'v5.10.0'

$] > 5.010
[download]

By the way, it seems very weird to check if Perl's version is greater than a constant. I can see < and ≥, but not >.

Comment on Re: compilation error on 5.8 with $^V gt 'v5.10.0' Download Code

Replies are listed 'Best First'.
Re^2: compilation error on 5.8 with $^V gt 'v5.10.0' by ikegami (Patriarch) on Apr 03, 2018 at 10:49 UTC
Oops, that still leaves the issue of `~~`. Well, seeing as it's a broken experimental feature, best if you simply avoid it! Not only that, your smart-match version is far less efficient. Use one of the following: `# Unordered my %diff; @diff{ @insttab } = (); delete @diff{ @inst }; my @diff = keys %diff;` [download] or `# Ordered my %in_inst; @in_inst{ @inst } = (); my @diff = grep { !exists($in_inst{$_}) } @insttab;` [download] Both are O(N+M) (as opposed to the O(N*M) smartmatching approach). Generally speaking, you'd want two different modules with the same interface in that situation. Simply load the correct module using if (the module).	[reply] [d/l] [select]

Replies are listed 'Best First'.

Oops, that still leaves the issue of ~~. Well, seeing as it's a broken experimental feature, best if you simply avoid it!

Not only that, your smart-match version is far less efficient. Use one of the following:

# Unordered
my %diff; @diff{ @insttab } = ();
delete @diff{ @inst };
my @diff = keys %diff;
[download]

# Ordered
my %in_inst; @in_inst{ @inst } = ();
my @diff = grep { !exists($in_inst{$_}) } @insttab;
[download]

Both are O(N+M) (as opposed to the O(N*M) smartmatching approach).

Generally speaking, you'd want two different modules with the same interface in that situation. Simply load the correct module using if (the module).