natemccurdy · March 21, 2019 19:27
diff --git a/ways_to_slice_a_string.pp b/ways_to_slice_a_string.pp
 #
 # All of these examples should return 'bar'.
 #
 $string = 'foo@bar'

 notice($string.split('@')[-1])
 notice($string.regsubst(/\A.+@(.+)\Z/, '\1'))

 with() || {
  $string =~ /\A.+@(.+)\Z/
  notice($1)
 }

 notice($string.match(/\A.+@(.+)\Z/)[1])
	#
	# All of these examples should return 'bar'.
	#
	$string = 'foo@bar'

	notice($string.split('@')[-1])
	notice($string.regsubst(/\A.+@(.+)\Z/, '\1'))

	with() \|\| {
	$string =~ /\A.+@(.+)\Z/
	notice($1)
	}

	notice($string.match(/\A.+@(.+)\Z/)[1])