Regular Expression change

I have the following map: map{[$_,(/^\d/ ? 1 : 0) . /^([^;]+)/, /[^;]+;[^;]*;[^;]+;[^;]+;([^;]+);/]} I had a failure during the night because some data field(s) had a semi-colon in the data. So what I have is a pre-defined data separator that would not nor

Deleting a line from one place and inserting it in another place

Hi All, I am a newbie to Perl. I wanted to write a below utility:- 1) Read a list of file names (from another file) 2) Search for String1 (this is an entire line in the file names obtained from the list) 3) "gvim-dd" or remove that line and insert it right after another line(after a string2) in

Re: Counting Word Occurances

On 2011-07-15 17:58, Matt wrote: I have a file with lines like so but the number of them is in the thousands instead of seven lines: blue red red red orange orange green I want it to count the occurances of each word it finds in the file. So output on this small file would be: blue (1) red (3