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