¿Cómo elimino los caracteres no alfabéticos finales de cada línea?

¿Cómo elimino los caracteres no alfabéticos finales de cada línea?

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 Truesi la expresión regular está bien, Falseen 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.txtlí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'

información relacionada