Home > Community > Forums > Custom IC SKILL > Running perl from skill and getting output one at a time

Email

* Required Fields

Recipients email * (separate multiple addresses with commas)

Your name *

Your email *

Message *

Contact Us

* Required Fields
First Name *

Last Name *

Email *

Company / Institution *

Comments: *

 Running perl from skill and getting output one at a time 

Last post Mon, May 19 2014 9:54 AM by skillUser. 7 replies.
Started by Pawandeep 05 Apr 2012 11:01 PM. Topic has 7 replies and 2972 views
Page 1 of 1 (8 items)
Sort Posts:
  • Thu, Apr 5 2012 11:01 PM

    • Pawandeep
    • Top 75 Contributor
    • Joined on Sat, Oct 15 2011
    • Singapore, 00-SG
    • Posts 106
    • Points 1,690
    Running perl from skill and getting output one at a time Reply

    Hi

    I would like to run a perl program from my Allegro PCB Skill code.

    I have skill code like below
    procedure(test()
            cid=ipcBeginProcess("perl C:/test.pl")
            ipcReadProcess(cid 5)
    )

    The perl program(test.pl) is reading data/values from text files containing multiple lines and printing out values using foreach loop(till EOF)

    I would like to have some kind of blocking method to pass the values to skill code one at a time(and then returning to perl to run next) so as to manupulate in skill.

    • Post Points: 20
  • Fri, Apr 6 2012 8:19 AM

    Re: Running perl from skill and getting output one at a time Reply

    You could just use parseString() on the result of ipcReadProcess - e.g. parseString(ipcReadProcess(cid 5) "\n") to split the strings on the carriage return. Other than that you'll have to create some kind of handshaking protocol between the two - and make sure you flush the output in perl after writing each line. By handshaking I mean you'd have to read a line in SKILL, and then send a message back using ipcWriteProcess, and have your perl script wait until it gets the message back before writing the next string. 

    It's not that clear what you really want to do here or why it needs to do this one at a time. In fact if you only want to read the file and print it out, just doing printf("%s" ipcReadProcess(cid 5)) would be sufficient. So you could do:

    procedure(test()
      cid=ipcBeginProcess("perl C:/test.pl")
      ipcWaitForProcess(cid)
      while(ipcIsAliveProcess(cid)
        printf("%s" ipcReadProcess(cid 5))
      )
    )

    BTW - not sure why you posted this in the Custom IC SKILL forum if  you're using Allegro SKILL - there's a PCB SKILL forum which would be more appropriate. However, the code above should work in both Virtuoso and Allegro environments, I believe.

    Regards,

    Andrew.

    • Post Points: 5
  • Fri, Apr 6 2012 8:47 AM

    • Pawandeep
    • Top 75 Contributor
    • Joined on Sat, Oct 15 2011
    • Singapore, 00-SG
    • Posts 106
    • Points 1,690
    RE: Running perl from skill and getting output one at a time Reply
    Hello Andrew,
     
    I am looking for some kind of handshaking protocol as you have mentioned, but parseString will not be suitable to handle large data.
     
    The reason for passing values one at time is to have a method to store the values in some variable in skill(and further do manupulations in skill) and then return to perl to get the next value.
     
    The reason for posting here was that I saw some post from this forum in the past but was not able to find any relevant material and most of them from you :-)
     
    In anyways, I will try to look in to ipcWriteProcess as you have mentioned.
     
    • Post Points: 20
  • Thu, Apr 24 2014 2:57 AM

    • Heywire
    • Not Ranked
    • Joined on Wed, Feb 5 2014
    • Posts 13
    • Points 230
    Re: RE: Running perl from skill and getting output one at a time Reply

    Hi Andrew,

    I am trying to run a perl script in skill through CIW. I am using ipcBeginProcess("perl filename.pl").Please post  the procedure to execute  the perl script in skill and see the results.

    Thanks,

    Anand 

    Filed under:
    • Post Points: 20
  • Sat, Apr 26 2014 12:19 PM

    Re: RE: Running perl from skill and getting output one at a time Reply

    Hi Anand,

    Normally perl scripts have buffered output, which tends to mean that you wouldn't see any output until perl's output buffer fills up (1024 chars, I think). So I used this example "nobuf.pl" to illustrate how to change that:

    $|=1;
    print "now you see it...";
    sleep 10;
    print "now you don't...";

    The  "$|" bit is the key to making the output unbuffered.

    procedure(CCFprintOutput(cid data)
      printf("RECEIVED at %s: %s\n" getCurrentTime() data)
    )

    procedure(CCFprogramFinished(cid status)
      printf("FINISHED at %s with exit status %d\n" getCurrentTime() status)
    )

    ipcBeginProcess("perl nobuf.pl" "" 'CCFprintOutput 'CCFprintOutput 'CCFprogramFinished)

    From which I got:

    RECEIVED at Apr 26 20:12:12 2014: now you see it...
    RECEIVED at Apr 26 20:12:22 2014: now you don't...
    FINISHED at Apr 26 20:12:22 2014 with exit status 0

    If I had run the command for "buf.pl" which is identical except for omitting the first line (the $| statement), I got  a 10 second delay and then:

    RECEIVED at Apr 26 20:15:11 2014: now you see it...now you don't...
    FINISHED at Apr 26 20:15:11 2014 with exit status 0

    Of course, this example is showing asynchronous communication. It's also possible to just do:

    ipcId=ipcBeginProcess("perl nobuf.pl")
    ipcWaitForProcess(ipcId)
    ipcReadProcess(ipcId 30) =>"now you see it..."
    ipcReadProcess(ipcId 30) => "now you don't..."  (after a delay)
    ipcIsAliveProcess(ipcId) => nil

    If you want synchronous communication. The 30 is a timeout in case the child process doesn't respond.

    Hope that helps!

    Regards,

    Andrew.

    • Post Points: 20
  • Mon, Apr 28 2014 8:24 AM

    • Heywire
    • Not Ranked
    • Joined on Wed, Feb 5 2014
    • Posts 13
    • Points 230
    Re: RE: Running perl from skill and getting output one at a time Reply

    Hi Andrew,

    It's  been great help. Thanks a lot.

    Best Regards,

    Anand 

     

    • Post Points: 5
  • Sun, May 18 2014 4:04 AM

    • Heywire
    • Not Ranked
    • Joined on Wed, Feb 5 2014
    • Posts 13
    • Points 230
    Re: RE: Running perl from skill and getting output one at a time Reply

     Hi Andrew,

    I wanted write skill program(in Virtuoso CIW) and call perl code using ipc process. I want to pass argument/variables from skill domain to the perl code.Please enlighten me regarding the steps and methodolgy.By the way, how can I create an excel/spreadsheet file and write it, in skill? 

    Thanks and best regards,

    Anand 

     

    Filed under: ,
    • Post Points: 20
  • Mon, May 19 2014 9:54 AM

    • skillUser
    • Top 10 Contributor
    • Joined on Fri, Sep 19 2008
    • Austin, TX
    • Posts 2,598
    • Points 16,075
    Re: RE: Running perl from skill and getting output one at a time Reply

    Hi Anand,

    Where the Perl program is invoked in the ipcBeginProcess statement (as in the earlier example in this thread), you can use the sprintf function to build the command line for the Perl program up, inserting any SKILL variable values where needed.  As an example, you might do something like this:

    ;; pass the SKILL variables skillStringVar, skNum1 and skNum2 as command line arguments to the Perl program
    cmd = sprintf("perlProg %s %d %d" skillStringVar skNum1 skNum2)
    ipcBeginProcess(cmd ...)
    

    Hopefully this answers your question and helps you?

    regards,

    Lawrence.

    • Post Points: 5
Page 1 of 1 (8 items)
Sort Posts:
Started by Pawandeep at 05 Apr 2012 11:01 PM. Topic has 7 replies.