use warnings;
print ">>>$ARGV[0]<<<\n";
open (FILE,">test.txt") or die $!;
print FILE $ARGV[0];
[download]

Tips from the Basic debugging checklist

• warnings
• print
• open, die

Hi,

there is a little difference between C's argv and @ARGV in Perl. argv in C has a first element representing the program called while @ARGV in Perl is the list of arguments after the Perl script. Have a look at:

#include <stdio.h>

int main(int argc, char* argv[]) {

    printf("argc %d\n", argc);
    if(argc > 0) {
        printf("arg1 %s\n", argv[0]);
    }
    return(0);
}
[download]

In Perl the name of the called script is in $0. So the C equivalent in Perl would be:

my @CARGV = ($0, @ARGV);
[download]

Regards
McA

http://www.gnu.org/software/libc/manual/html_node/Executing-a-File.html

— Function: int execv (const char *filename, char *const argv[])

The execv function executes the file named by filename as a new process image.

The argv argument is an array of null-terminated strings that is used to provide a value for the argv argument to the main function of the program to be executed. The last element of this array must be a null pointer. By convention, the first element of this array is the file name of the program sans directory names. See Program Arguments, for full details on how programs can access these arguments.

Since sending the program name for the first element of the array is only a convention, and the OP created his array with a number in the first element and passed it to execv wouldn't that get used? It seems like you could send whatever you like as the first element.

Update:I did a test to see what would happen and the first element of the array passed to execv doesn't show up in the Perl script. Interesting.

#include <stdio.h>

void main(void)
{
    char *temp[] = {"1", "2", "3", NULL};
    printf("Hello from c\n");
    execv( "./script.pl", temp );
    printf("error");
}
[download]

#!/usr/bin/perl
use warnings;
use strict;

print ">>@ARGV<< from Perl\n";

__DATA__
pi@raspberrypi ~/Desktop/perlmonks $ ./hello
Hello from c
>>2 3<< from Perl
[download]

thanks,this showed me the way.Perl was swallowing the very first argument and since I had just one followed by NULL, I could not see it

Look in $0

Did you verify the Perl script runs from the command line? On a *nix system you need to give a shebang path to perl like #!/usr/bin/perl or similar.

Is the path to the script supposed to be absolute or relative?

Is this a windows system?

Update: Change this line of code and try again. In my test the first element of the array passed to execv() was discarded used by the OS and the second goes to $ARGV[0].