vyhazeni znaku

Petr Vileta petr na practisoft.cz
Pondělí Červen 2 01:10:37 MEST 2003


Nejak nemuzu porad prijit na elegantni zpusob, jak ze stringu vyhazet
nepripustne znaky. Zajimalo by me, jestli existuje nejaky obecny zpusob, jak
to udelat a pri tom abych si mohl mnozinu nepripustnych znaku definovat sam.
Napriklad pro telefonni cislo si poradim takto:
$tel='+420 123 456 789';
$tel=~s/\s//g;
$test=$tel; $test=~s/[\d\+]//g;
print 'chyba' if(length($test) > 0);

Takze v tomto pripade lze definovat nepripustne znaky jako cokoliv, co neni
cislice nebo '+'.
Jenze budu chtit napriklad ze stringu vyhazet pouze nasledujici znaky '#$@'
a cokoliv jineho ponechat.
Prosel jsem par prirucek, prikladu, googloval jsem, ale nic obecne
pouzitelneho jsem nenasel.
Ma nekdo nejaky napad nebo link nekam (krome /dev/null/ :-) ) ?
--
Petr




Další informace o konferenci Perl