[perl] PRegunta..

[Jose Ignacio]

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

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

Hola, prueba poniendo los patrones entre "/"  y si quieres que no haga
distinción entre mayusculas y minusculas pon una i detras de la "/" donde
termina el patrón

if ( $tmp =~ /;/ || $tmp =~ /curryco.com/ || $tmp eq "")) {

A ver si asi chuta
Saludos
JOse
Webmaster JopiNet http://www.jopinet.com


Jorge Martinez M. escribió:

> Hola, estoy haciendo un menu para usuarios, y en una opcion de telnet,
> necesito que filtre algunas direccions y puertos.. o sea que no puedan
> entrar.. soy novato en esto de perl :P
>
> tengo lo siguiente (opcion 9, telnet a algun servidor)
>
> if ($telnet == 9)
>         {
>         print "Escribe el HOSTNAME  o IP $user: ";
>         $tmp = <STDIN>;
>         chop $tmp;
> if (($tmp =~ ";")||($tmp =~ "curryco.com") ||($tmp eq '')) {
>
> #aqui esta el problema, ya que  si alguien escribe curryco.com, entonces
> #no lo deja entrar, pero si escriben curryco.COM o cualqueir combinacion
> #entonces si puede entrar.. o alguien que me pudiera decir como hacer
> #una listita de ips no permitidos y que los lea y si son iguales (pero
> #no importando en mayusculas o minusculas) entonces que mande mensaje
> #de error.. :P
>
> print "\a\nSitios no permitidos:\n";
> print "curryco.com, talker.com\n";
> print "A quien se le sorprenda haciendo telnet a dichos sitios\n";
> print "se les cancelara la cuenta.\n";
> print "\a\nOpcion incorrecta o sitio no permitido.\n$pausa";
> $tmp = <STDIN>;
> chop $tmp;
> goto TELNET;
> }
> else { hace el telnet }
>
> Bueno.. tal vez esta chafa esto, pero aun no se bien perl.
>
> Jorge Martinez
> toro@salvaje.chapingo.mx
>
> Key for user ID: ToRo <toro@salvaje.chapingo.mx>
> Key fingerprint = D0 24 CC 32 4A E6 39 F8  D1 BC 3D C4 2E 61 C1 F9
>
> --------- Pie de mensaje --------------------------------
> Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
> Cancelar inscripcion:
> mail to: majordomo@tlali.iztacala.unam.mx
> text   : cancelacion perl



--------------ms01EA0872B164E7DDE67339A5
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
SIb3DQEJAzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTk5MDMwNDA4MjcyNlowHgYJ
KoZIhvcNAQkPMREwDzANBggqhkiG9w0DAgIBKDAjBgkqhkiG9w0BCQQxFgQUZQQWgrOonX+1
V+yyXC3ruhpzInwwDQYJKoZIhvcNAQEBBQAEQGs6m0HVwVWqUuicjIx7KZPSQewzi7ZO/v4T
m5bpn15yqicjlYETbPkS5msnJ0usbyOLNFB4OxrgE0+xhPQNBvw=
--------------ms01EA0872B164E7DDE67339A5--

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