Estoy intentando eliminar los últimos caracteres excepto los alfabetos:
support.help1.com,,
support.help1.com.
support.help1.com9
support.help1.com*
support.help1.com@@
support.help1.com##
support.help1.com%%
support.help1.com^
support.help1.com
support.help1.com,
support.help1.com-
Quiero mi salida así:
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
Respuesta1
sed también puede ayudar:
command | sed 's/[^a-Z]*$//g'
# create the example output
$ echo "support.help1.com,,
support.help1.com.
support.help1.com9
support.help1.com*
support.help1.com@@
support.help1.com##
support.help1.com%%
support.help1.com^
support.help1.com
support.help1.com,
support.help1.com-" > trailexample.txt
# now edit this stream
# something like $ command_output | sed
$ cat trailexample.txt | sed 's/[^a-Z]*$//g'
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
support.help1.com
# explanation
# sed (replace) 's/this/by-this/g' :: sed 's/[^a-Z]*$//g'
# s : substitution command, we want to substitute strings
# The 'this' [^a-Z]*$ : regexp pattern
# ^ mean not
# a-Z means all aLphBetiCaL chars
# []* any number of what is in brackets
# $ means end of line
# So the 'this' is 'any number of consecutive non-alphabetical chars before end of line'
# And the 'by-this' is empty, nothing, nada, void :: //
# g : global substitution command, means do the replacement for all occurrences
Respuesta2
Si puede usar expresiones regulares, simplemente cargue cada comando y use esa expresión regular a continuación (lo obtuve deaquí):
^(http:\/\/www\.|https:\/\/www\.|http:\/\/|https:\/\/)?[a-z0-9]+([\-\.]{1}[a-z0-9]+)*\.[a-z]{2,5}(:[0-9]{1,5})?(\/.*)?$
Esta expresión regular acepta URL con http
/ https
. Simplemente úselo para confirmar si su URL es válida; de lo contrario, simplemente cargue la cadena eliminando el último carácter. Puedes usar estosolución alternapara eso:
string="string.help1.com&&"
foo=string
while [ !regex(foo) ]; do
foo=${foo%?}
done
print foo
NB: regex(foo)
es solo la función que obtuvo la cadena, regresa True
si la expresión regular está bien, False
en otros casos
NB2: mi sintaxis probablemente no sea correcta, pero es sólo para darte un consejo.
Respuesta3
Puedes usar una sola línea de Perl para esto:
perl -pne 's/[^a-zA-Z]*$/\n/g' input.txt
Esto lee el contenido de input.txt
línea y reemplaza todos los caracteres no alfabéticos ( [^a-zA-Z]*$
) al final de una línea con una nueva línea ( \n
).
Respuesta4
Es una búsqueda y reemplazo de expresiones regulares clásicas.https://regex101.com/r/gRiUTc/2
A través de shell podrías usar
<input sed -r 's/(\W+|[0-9]+)$//g'