| http://www.w3.org/ns/prov#value | - ...So what I needed was an algorithm to reduce the above example to just the last two files....Or, at least, you want to get the last index of a /\.copy$/ match from the list. my $index = ( grep({$files[$_] =~ m/\.copy$/} reverse(0..$#files) ))[0];splice(@files, 0, $index); List::Util improves this
|
