Re^3: Kill a perl script execution in windows

[BrowserUk]

in reply to Re^2: Kill a perl script execution in windows
in thread Kill a perl script execution in windows

Can you please explain how $target variable is evaluated and on what the map function is applied ?

• Type the command: wmic process list full /format:csv on a windows command line to see that it produces a csv of information about the running processes.
• Wrapping that in backticks (`...`) cause perl to run that command and capture the output.
• It supplies that output one line at a time to the map: map[ (split ',', $_ )[1,24] ] `...`; which:
  1. splits it on the commas,
  2. extracts the second and 25th fields, which are the command line text and the process id respectively.
  3. And places those two fields from each line into its own anonymous array.
• Those anonymous arrays are passed into the second map (appearing lexically first in the source code):

  ... = map {
      1+ index( $_->[0] // '', $0 ) && $_->[1] != $$
      ? $_->[1]
      : ()
  } ...
  

  Which tests if the first value in the anonymous array ($_->[0]) contains $0 (the name&path of the current program), and if the second value in the anonymous array ($_->[1]) (the process id) is not equal to $$ (the process id of the current perl program),

  then it passes that second value (the pid) out of the map

  otherwise it returns nothing.

• Hence, if another copy of this script is already running, $target will be assigned its pid.

I am getting syntax error

What is the text of the syntax error? What version of perl are you running?

[rbala]

Thanks a lot! I can very well understand the logic of parsing the csv file. The error which I got was :

Backticks found where operator expected at wmic.pl line 11, at end of 
+line
    (Missing semicolon on previous line?)
syntax error at wmic.pl line 11, near "], `wmic process list full /for
+mat"
  (Might be a runaway multi-line // string starting on line 6)
Can't find string terminator "`" anywhere before EOF at wmic.pl line 1
+1.

I am using perl version 5.18. But I made an alternative code to redirect the stdout of the wmic command to an array and got the output in a text file. The only thing I am was not able to understand was the text parsing logic using the map function. Now got it. Many thanks, once again!

[rbala]

Hi, I have still one more doubt in your code . 1.What does the 1+ before indexing function signify ? 2.What is the string actually compared to $0? Thanks, Bala.

[BrowserUk]

What does the 1+ before indexing function signify ?

What do the docs say that index returns?

.What is the string actually compared to $0 ?

I already told you: the first value in the anonymous array.

And just above that I said: "extracts the second and 25th fields, which are the command line text and the process id respectively. And places those two fields from each line into its own anonymous array.".

If you work backward, you should be able to work it out.