>perl -E"my ($aa) = 'abc123def' =~ /(\d+)/; say $aa;" 123 >perl -E"say( ('abc123def' =~ /(\d+)/)[0] );" 123 [download]
In reply to Re: Questions on sort by ikegami in thread Questions on sort by jiashiun