Belirli karakterleri Perl dizesinden kaldırmanın daha iyi yolu

Question

@#@!efq@!#! gibi dinamik olarak oluşturulmuş dizeler var ve Perl kullanarak dizeden belirli karakterleri kaldırmak istiyorum.

$varTemp =~ s/['\$','\#','\@','\~','\!','\&','\*','\(','\)','\[','\]','\;','\.','\,','\:','\?','\^',' ', '\`','\\','\/']//g; 

Bunu yapmanın daha iyi bir yolu var mı:

Şu anda bir şey bu (hiçbir şey karakterler yerine) yapıyorum? Temiz bir şey için fondeyim.

Answer 1

Sen character classes nasıl kullanıldığı yanlış anlaşılan ettik:

$varTemp =~ s/[\$#@~!&*()\[\];.,:?^ `\\\/]+//g; 

(Eğer dizeleri ' karakterleri kaldırmak istemedim varsayarak) regex olarak aynısını yapar.

Düzenleme: +, bu "özel karakterlerin" birkaçının aynı anda eşleşmesine izin verir, bu nedenle daha hızlı olması gerekir.

Answer 2

yerine tr kullanabilirsiniz:

 $p =~ tr/fo//d; 

her f ve $p her o silecektir. Senin durumunda bu olmalıdır: Eh

 $p =~ tr/\$#@~!&*()[];.,:?^ `\\\///d 

Answer 3

o normalde verilerde bulabileceğiniz bazı kasıtlı dize uyumlu olmadan düşük olasılığa sahiptir, böylece rastgele oluşturulmuş bir dize kullanıyorsanız, o zaman muhtemelen dosya başına bir dize ister.

Bu dizeyi alırsanız, $place_older deyin. Metni ortadan kaldırmak istediğinizde Ve sonra, quotemeta çağrısı ve yerine bu değeri kullanın:

my $subs = quotemeta $place_holder; 
s/$subs//g; 

Answer 4

hesapta tutmak istediğini söylemek daha kolaydır bu kadar büyük bir karakter sınıfıyla. Eğer daha verimli tr

$varTemp =~ tr/"%'+\-0-9<=>A-Z_a-z{|}//cd