[perl] escape della ^

[franke]

salve avrei un problema devo mettere dei nickname e uno di questi ha la ^ iniziale e finale non riesco a farglela accettare il nick sta in mezzo a 2 '^nickname^',che comando devo usare???
tnx

[franke]

@admins = (
'_mRkZ_',
'franke',
'^giu^',
'REHAEL',
'IDDOSO'
); # Lista di tutti gli admin (Nicks)
il ^giu^ non lo vede negli admin

[franke]

if($text =~ /^\@Termina/i) {
if (grep {m|^$msgnick?$|} @admins) {
print $fd "QUIT \" WebList v1.0b\"\r\n";
die "Terminato da $msgnick\r\n";
} else { print $fd "PRIVMSG $chan 14Il nick9 $msgnick 14non è autorizzato ad impartire comandi!\r\n"; }
}

[gianvituzzi]

il codice lo devi mettere così:

#!/usr/bin/perl
...

[franke]

  use warnings;
use IO::Socket;
use Net::FTP;
use LWP::Simple;
use DBI;

[franke]

#!/usr/bin/perl

[franke]

#!/usr/bin/perl

use warnings;
use IO::Socket;
use Net::FTP;
use LWP::Simple;
use DBI;

fork;

[franke]

#!/usr/bin/perl

use warnings;
use IO::Socket;
use Net::FTP;
use LWP::Simple;

[saintex]

ciao,
il problema è che:
^giu^
viene interpretato con i caratteri speciali delle espressioni regolari
(^ significa sia "non è", sia "la riga comincia con").

Basta spiegare al Perl, che i simboli all'interno dei nickname non sono caratteri speciali,
ma semplici letterali.

In pratica basta che sostituisci questa riga:

if (grep {m|^$msgnick?$|} @admins) {

così:

if (grep {m|^\Q$msgnick\E?$|} @admins) {

nota i simbolI: \Q \E da aggiungere nel tuo codice.
Questi simboli significano appunto che il testo incluso va interpretato come stringa letterale.

Così dovrebbe funzionare.

Di questo:

#!/usr/bin/perl

non ci dovrebbe essere troppo bisogno.

Infine ti do un consiglio.
Aggiungi:

use strict;
use warnings;

al tuo codice.

Non può che fare un gran bene!

[franke]

tnx 1000 funziona