Estoy tratando de encontrar una forma de colocar dos puntos (:) en una cadena, dos caracteres del final de la cadena.¿Cómo coloco dos puntos en una cadena de dos caracteres desde el final usando Perl?
Ejemplos de $ meetdays:
1200 => 12:00
900 => 09:00
1340 => 13:40
No estoy seguro si esto debe ser una expresión regular o simplemente otra función que yo No estoy enterado de.
s/(?=..$)/:/
No utilice la sugerencia de $& de huevas. perldoc perlvar:
El uso de esta variable en cualquier lugar de un programa impone una penalización de rendimiento considerable en todas las coincidencias de expresiones regulares. Ver "ERRORES".
Usted podría intentar esto:
s/..$/:$&/
que coincide con-dos caracteres al final de la cadena, y lo reemplaza con dos puntos y la cadena coincidente (es decir, los dos caracteres).
EDITAR
fijo sed-backref a la perl equivalente.
ok gracias ... sí me iba a decir que no estaba trabajando – CheeseConQueso
agradable .. no es – CheeseConQueso
Ok, por lo que ISN' la expresión más optimizada, pero es fácil de entender y lo hace, ¿cómo fue eso inútil (como en downvote)? ¿No está votando la mejor respuesta de la manera SO? – falstro
El equivalente de Perl de sed & es $ &, por lo que debe ser: respuesta
$s = s /..$/:$&/s;
de huevas de "obras", pero su expresión regular en lugar inobvious.
Me gustaría ir a por más
s/(^.*)(..$)/$1:$2/
porque acabo de amor backrefs.
Su exageración por lo que estás haciendo, pero para mí es más semánticamente expresivo.
la primera captura se desperdicia un poco, ¿por qué no simplemente s /(..$)/:$ 1 /? – user55400
Aunque la primera parte es realmente redundante, es mucho más legible. (Al menos en la forma en que analizo la expresión regular) –
+1 blixtor. @Kent: aunque en este caso no hay ninguna diferencia práctica, tu respuesta original es más lenta ya que Perl necesitará dar marcha atrás a dos personajes para que coincidan con el "..." final. Si ese ".." fuera una expresión más complicada, el ". *" Inicial podría hacer que sea * mucho * más lento. –
se puede también utilizar así .....
my $string = "1200";
substr $string, -2, 0, ':';
# $string => '12:00';
Me imagino que el substr() es significativamente más rápido, más fácil de leer y más intuitivo. –
Más intuitivo solo si no conoce las expresiones regulares lo suficientemente bien. – PEZ
este parece intuitivo ... no sé por qué, pero creó 20 ~ líneas en el archivo csv y luego tomó un volcado y me dio este error ... substr fuera de cadena en ./test3 línea 237. - mi mejor conjetura es que se ejecutó en un valor de 0, lo que sucede en mis datos y no es información incorrecta, solo implica un evento diff – CheeseConQueso
Como siempre, hay más de una forma. Hay una penalización de rendimiento, sí, pero fue el primer patrón que se me vino a la mente (sí, por supuesto, soy un sedán, por supuesto), y probablemente sea lo suficientemente rápido en este caso, ¿no crees? :) – falstro
fue lo suficientemente rápido ... de todos modos es un script muy pequeño ... la solución de ayrnieu también funcionó – CheeseConQueso
El punto no es si es rápido o no. El punto es que los recién llegados no deben acostumbrarse a usar $ & en primer lugar. – innaM