John W. Krahn wrote: > Dr.Ruud wrote: >>Jim Schueckler schreef: >> >>>I need to remove all characters from a string except 'a'..'z', >>>'A'..'Z', and '0'..'9'. >>> >>>Could somebody please tell me the magicWords for: >>> $newstring = magicWords($oldstring); ??? >>> >>>I am absolutely new to Perl and regular expressions, so please don't >>>assume I know anything that everybody else knows. :-) >>What makes you think that a regular expression is needed or even the >>best solution? >> >>See `perldoc -f tr`, which will tell you to read on in `perldoc perlop`. >>Search for tr/ at the perldoc-prompt to jump to the documentation of >>tr///. >> >>You might actually be looking for this: >> >> (my $newstring = $oldstring) =~ tr/0-9A-Za-z/ /cds; >> >>which replaces runs of non-alphanumeric characters with a single space. > > No it doesn't: > > $ perl -le' ( $_ = q[&[EMAIL PROTECTED] ) =~ tr/0-9A-Za-z/ /cds; print' > ghjk76565hgfg > > You would have to use the substitution operator to replace runs of > non-alphanumeric characters with a single space. > > $ perl -le' ( $_ = q[&[EMAIL PROTECTED] ) =~ s/[^0-9A-Za-z]+/ /g; print' > ghjk 76565 hgfg
Or remove the /d option for tr///: $ perl -le' ( $_ = q[&[EMAIL PROTECTED] ) =~ tr/0-9A-Za-z/ /cs; print' ghjk 76565 hgfg John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
