OceanPerl has asked for the wisdom of the Perl Monks concerning the following question:
How can I make that all awesome, beautiful and able to process faster than the speed of light ? ;-) I assume smart matching arrays will have something to do with it, but if you know better, I'm all ears ! P.S. My example above shows all substitutions being to remove characters, but for extra bonus points, how would I implement different substitutions based on different patterns ?$cleanLine= $elem; $cleanLine =~ s/\/.*//g; $cleanLine =~ s/\?.*//; $cleanLine =~ s/;.*//; $cleanLine =~ s/;$//; $cleanLine =~ s/\.*//; etc. etc. ad infinitum
|
|---|