How to call perl one-linear through system command in skill

Assuming I have a file called "setup_file_path", it works for me. What's the syntax error?

Presumably you really want to insert the actual file name - so are really intending to do something like this?

system(strcat("perl -i.bak -ne 'print if !m{^(Hello|Example|//)}' " setup_file_path)

Andrew

Hello Andrew,

setup_file_path is not actual file its the variable which stored value of string field.

when am running below code its,not showing any error but also not deleting the line which start with SOURCE,DESIGN,//

system("perl -i.bak -ne 'print if !m{^(SOURCE|DESIGN|//)}' setup_path")   ;;;;;;;;;;;;;where

setup_file_path = form->setup_Entry->value ;;;;;;;;;;;;setup_entry is the string field which stores the realpath of file xyz.

is there any alternate way or how i can correct it.

Did you read my previous reply? The variable will not get magically evaluated within a string - you have to build the string either using strcat or sprintf/lsprintf to insert the value in the right place. I showed the way of making this work with strcat in my previous reply...

Andrew

Did you read my previous reply? The variable will not get magically evaluated within a string - you have to build the string either using strcat or sprintf/lsprintf to insert the value in the right place. I showed the way of making this work with strcat in my previous reply...

Andrew

Hi Andrew,

am not very sure why this happening. when am trying 

system(strcat("perl -i.bak -ne 'print if !m{^(Hello|Example|//)}' " setup_file_path) ;;;;;;;;;;;;where setup_file_path = form->string_entry->value

it running clean without any error but not able to delete any line.

although when am giving the direct file name i.e

system("perl -i.bak -ne 'print if !m{^(SOURCE|DESIGN|//)}' run") ;;;;;;;;;;run is filename in pwd

its working fine

Well, there's a missing close parenthesis in your code - not sure if that's it, but I would expect that to flag an error.

If I have a file called "run" with this content:

Hello
Test
Example
Magic
// this
and
// that

and then do this (note, I fixed the missing close bracket):

setup_file_path="run"
system(strcat("perl -i.bak -ne 'print if !m{^(Hello|Example|//)}' " setup_file_path)) ;;;;;;;;;;;;where setup_file_path = form->string_entry->value

this returns 0, and the file now contains:

Test
Magic
and

Presumably you've done something wrong somewhere - either the variable setup_file_path doesn't contain what you think it does (which should be easy enough for you to debug), or it was something to do with the brackets. Either of which ought to be the kind of thing you should be able to narrow down yourself; there's nothing magic about strcat versus a literal string.

Andrew