Strip a set of characters from a string: Difference between revisions

=={{header|Tcl}}==

<lang tcl>proc stripchars {str chars} {

foreach c [split $chars ""] {set str [string map [list $c ""] $str]}

return $str

}

set s "She was a soul stripper. She took my heart!"

puts [stripchars $s "aei"]</lang>