Analiza el script que acabo de hacer, compararlo y luego pregunta cualquier cosa.

#!/usr/bin/perl
 
use POSIX qw(locale_h);
 
 
=pod
En este caso es mucho mejor utilizar chomp, ya que este borra el salto de linea al final del string
chop borra el ultimo caracter al final del string....
 
 
Establesco el locale para el script, para que me tome la letra ñ como parte del alfabeto....
=cut
 
 
 
setlocale(LC_ALL, 'es_DO.ISO-8859-1');
 
my $nombre = <>;
 
chomp($nombre); #Borro el salto de linea del final del string si existe
 
 
 
if($nombre =~ m/[a-z]/i) {
print "Si\n";
 
}

m//
Este operador también conocido como de cotejo, se utiliza para localizar alguna expresión dentro de una cadena de texto o string. Si la expresión es verdadera entonces se regresará un 1.

:http://perlenespanol.com/tutoriales/expresiones_regulares/expresiones_regulares_las_bases.html

La expresión regular que estas usando es valida solo si no existe el carácter a o b, en el string. Ej:

#!/usr/bin/perl
 
print "Ingrese nombre de usuario: ";
$nombre=<STDIN>;
chomp($nombre);
 
#analiso si la cadena no contiene a,b y analiso si la cadena es vacia
if($nombre =~ m/^[a-z\ñ]+$/i) {
print 'Si pertenece', "\n";
}else{
print 'No pertenece', "\n";
}
 

Con esta compruebo que en la cadena entera debe existir solo las letras del alfabeto, desde el inicio al final.

Saludos.

Esta parte


Fue con tu código, creo que el tema esta volviendo complicado cuando el problema es muy simple.

#!/usr/bin/perl
 
 
@nombres = ('juan','JOse', 'Luan', '565656aaa', '%_$__', 'Raa', 'b');
 
 
 
print '----------Yoya codigo', "\n";
foreach $nombre (@nombres) {
 
#analiso si la cadena no contiene a,b y analiso si la cadena es vacia
if($nombre =~ m/^[a-z\ñ]+$/i) {
print "$nombre -> Si pertenece\n";
}else{
print "$nombre -> No pertenece\n";
}
 
}
 
print "\n----------bdoX codigo\n";
foreach $nombre (@nombres) {
 
if ($nombre =~ m/[^ab]/ | $nombre =~ m/^$/)
{
    print "$nombre -> No pertenece al lenguaje\n";
}
else
{
    print "$nombre -> Si pertenece\n";
}
}
 

No entiendo porqué tanta complicación. Si me permites la intromisión, un alfabeto {a,b} (siendo {a,b} un conjunto de 2 elementos) debería reconocer como válidas:

• aa
• ab
• bb
• abababb
• bbabbb

Y cualquier palabra que se componga de SOLO 'a' y 'b'. Si deseas que la cadena vacía sea inválida, entonces tu expresión es tan simple como "/^[a|b]+$/", es decir: Los elementos a y b son los únicos válidos de principio a fin, y al menos debe existir un elemento válido.
Si deseas considerar espacios es otra cosa, pero para ver SOLO palabras compuestas por las letras "a" y "b" sería:

#!/usr/bin/env perl
 
use strict;
 
die "sin parametros\n" unless (@ARGV);
 
print "el lenguaje se compone de 'a' y 'b'\n";
 
for (@ARGV) {
    if (/^[a|b]+$/) {
        print "'$_' pretenece al lenguaje\n";
    }
    else {
        print "'$_' NO pretenece al lenguaje\n";
    }
}
 
exit (0);
 

Llamalo con las palabras que desees como parámetros, agrega la cadena vacía, usa un arreglo tuyo en lugar de ARGV, como sea.

Saludos

Por cierto, me permito hacer otra aclaración que nadie hizo. El operador (función) m (match) de Perl, es TOTALMENTE INNECESARIO en las expresiones que pegaron antes.

Usaría el operador de matching si fuera a delimitar la expresión de otra forma, por ejemplo:

m#^[a|b]+$#
m:^[a|b]+$:
m%^[a|b]+$%

En caso de usar slashes ( / ), el operador m no es necesario, porque está implícito. Es lo mismo ponerlo que no hacerlo.

~ Yoya ~: Tu expresión tampoco matchea lo que dices que matchearía, o lo que debería. La expresión m/^[a-z\ñ]+$/i lo que hace es devolver verdadero (1) si la cadena está conformada con caracteres de la 'a' a la 'z' incluyendo la 'ñ', tanto mayúsculas como minúsculas.

La otra expresión:

if ($nombre =~ m/[^ab]/ | $nombre =~ m/^$/)

lo que hace es verificar que la cadena EMPIECE por 'a' o 'b', pero dará como válido cosas como 'astilla' o 'barco'.

Saludos