@array = qw( is an to for from); @strs =("is that true","this is from presentation","to create"); print "\n---- INPUT ----\n"; print join("\n",@strs); $subs=join("|",@array); map{s/\b$subs\b//g} @strs; print"\n---- OUTPUT ----\n"; print join("\n",@strs);
In reply to Re^2: Deleting values from string using array
by cheekuperl
in thread Deleting values from string using array
by Shaveta_Chawla
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |