[perl] Control de campo

[Jose Ignacio]

Éste es un mensaje firmado criptográficamente en formato MIME.

--------------msB80D845B6CED5BC5E055D0A9
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

Pues a ver \w es cualquier caracter alfanumerico y \W lo contrario. Si
te sirve
Saludos
JOse

Salman P. S. L. escribió:
> 
> Hola a t@s
> 
> ¿ Se os ocurre alguna forma mas elegante de escribir esto ?
> 
>  if ($usuario =~ /^[a-z0-9]+$/) {
>   $valido=1;
>  }
>  else {
>   print "Dato Incorrecto $usuario No es un dato valido Solo letras de la -a-
> a la -z- y numeros del -0- al -9-";
>  }
> 
> Se trata de controlar que una variable exclusivamente contenga letras y
> numeros.
> 
> Saludos
> Salvador
> Salman
> 
> --------- Pie de mensaje --------------------------------
> Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
> Cancelar inscripcion:
> mail to: majordomo@tlali.iztacala.unam.mx
> text   : cancelacion perl

-- 

Jose Ignacio - jopinet@writeme.com

--------============Webmaster============---------
Buscador JOPINET - http://www.jopinet.com
JopiBanner - Intercambio de banners - http://www.jopinet.com/jopibanner
Directorio Jose's WEB - http://www.jopinet.com
--------------msB80D845B6CED5BC5E055D0A9
Content-Type: application/x-pkcs7-signature; name="smime.p7s"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="smime.p7s"
Content-Description: Firma criptográfica S/MIME

MIIHhAYJKoZIhvcNAQcCoIIHdTCCB3ECAQExCzAJBgUrDgMCGgUAMAsGCSqGSIb3DQEHAaCC
BeMwggOuMIIDWKADAgECAgcI/hkAAAABMA0GCSqGSIb3DQEBBAUAMHkxCzAJBgNVBAYTAkVT
MRAwDgYDVQQIEwdWaXpjYXlhMQ4wDAYDVQQHEwVCaWxibzEQMA4GA1UEChMHSm9waU5ldDEa
MBgGA1UECxMRSW50cmFuZXQtSW50ZXJuZXQxGjAYBgNVBAMTEUludHJhbmV0LUludGVybmV0
MB4XDTk5MDIwNTA5MDk1OFoXDTAwMDIwNTA5MDk1OFowgZExIjAgBgkqhkiG9w0BCQEUE2pv
cGluZXRAd3JpdGVtZS5jb20xCzAJBgNVBAYTAkVzMRAwDgYDVQQIEwdWaXpjYXlhMQ8wDQYD
VQQHEwZCaWxiYW8xEDAOBgNVBAoTB0pvcGlOZXQxEjAQBgNVBAsTCVdlYm1hc3RlcjEVMBMG
A1UEAxMMSm9zZSBJZ25hY2lvMFwwDQYJKoZIhvcNAQEBBQADSwAwSAJBANZ5VPyeXImqPCa/
qjuDYq//hZKkqIv4zcUYRommsaryOx+FnyBfzBoorEBys78hjNENSW1sCSWNnpbbh4NwWGEC
AwEAAaOCAaowggGmMIGyBgNVHSMEgaowgaeAFOSPyN7kexzN+H58oM/HWc3ff+X+oX2kezB5
MQswCQYDVQQGEwJFUzEQMA4GA1UECBMHVml6Y2F5YTEOMAwGA1UEBxMFQmlsYm8xEDAOBgNV
BAoTB0pvcGlOZXQxGjAYBgNVBAsTEUludHJhbmV0LUludGVybmV0MRowGAYDVQQDExFJbnRy
YW5ldC1JbnRlcm5ldIIQfymqJKAAsbIR0rzVmLbD5DCBiAYDVR0fBIGAMH4wPKA6oDiGNmh0
dHA6Ly9CSUxCQU8vQ2VydFNydi9DZXJ0RW5yb2xsL0ludHJhbmV0LUludGVybmV0LmNybDA+
oDygOoY4ZmlsZTovL1xcQklMQkFPXENlcnRTcnZcQ2VydEVucm9sbFxJbnRyYW5ldC1JbnRl
cm5ldC5jcmwwCQYDVR0TBAIwADBZBggrBgEFBQcBAQRNMEswSQYIKwYBBQUHMAKGPWh0dHA6
Ly9CSUxCQU8vQ2VydFNydi9DZXJ0RW5yb2xsL0JJTEJBT19JbnRyYW5ldC1JbnRlcm5ldC5j
cnQwDQYJKoZIhvcNAQEEBQADQQAM6gQ9fhSL61YE47oAocISvETq7RYclTiJCDVFThkuVdLP
PMSdsYesI09IZlSeEV4P1nNdWWeTQL2YIIfaMk/gMIICLTCCAdegAwIBAgIQfymqJKAAsbIR
0rzVmLbD5DANBgkqhkiG9w0BAQQFADB5MQswCQYDVQQGEwJFUzEQMA4GA1UECBMHVml6Y2F5
YTEOMAwGA1UEBxMFQmlsYm8xEDAOBgNVBAoTB0pvcGlOZXQxGjAYBgNVBAsTEUludHJhbmV0
LUludGVybmV0MRowGAYDVQQDExFJbnRyYW5ldC1JbnRlcm5ldDAeFw05OTAyMDUwODM4NTFa
Fw0wNDAyMDUwODM4NTFaMHkxCzAJBgNVBAYTAkVTMRAwDgYDVQQIEwdWaXpjYXlhMQ4wDAYD
VQQHEwVCaWxibzEQMA4GA1UEChMHSm9waU5ldDEaMBgGA1UECxMRSW50cmFuZXQtSW50ZXJu
ZXQxGjAYBgNVBAMTEUludHJhbmV0LUludGVybmV0MFswDQYJKoZIhvcNAQEBBQADSgAwRwJA
YyUWJe+qHMNqHI2E080zXJKKmTIvqXeL4sIw5wF4rr0DPalEDcgy9kLucj/cANc81gHjV2gF
fywM+pB8Oy+UiQIDAQABozwwOjALBgNVHQ8EBAMCAcQwDAYDVR0TBAUwAwEB/zAdBgNVHQ4E
FgQU5I/I3uR7HM34fnygz8dZzd9/5f4wDQYJKoZIhvcNAQEEBQADQQAMbY2o7FItHeUJhmEG
gg4rgY+QEtHFPXTD/CqEod3my+tEJSoTlRcoQ7kGH+mv1njEURmBd8Z++NsZuM9Ga3r6MYIB
aTCCAWUCAQEwgYQweTELMAkGA1UEBhMCRVMxEDAOBgNVBAgTB1ZpemNheWExDjAMBgNVBAcT
BUJpbGJvMRAwDgYDVQQKEwdKb3BpTmV0MRowGAYDVQQLExFJbnRyYW5ldC1JbnRlcm5ldDEa
MBgGA1UEAxMRSW50cmFuZXQtSW50ZXJuZXQCBwj+GQAAAAEwCQYFKw4DAhoFAKB9MBgGCSqG
SIb3DQEJAzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTk5MDMxNDExNDUyMVowHgYJ
KoZIhvcNAQkPMREwDzANBggqhkiG9w0DAgIBKDAjBgkqhkiG9w0BCQQxFgQURhhNE2v234/y
yfFcq2rNywpqREwwDQYJKoZIhvcNAQEBBQAEQIoD73vXnpFsALRyy7g3/OSQHeDRsKUx8Vfn
KIxLUzuUkK7ka9w9d9lA60MtBfQPRKRgyO/CrE5fuP8qBemav2A=
--------------msB80D845B6CED5BC5E055D0A9--

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl