Problem in code

dharmu131983

Hi I am very new to PERL i have written code as :
if (open(PROGRAM_1, "C:\program_1")) {
print ( "working");
}
for opening the simple txt file but it is showing error as
"Name "main::PROGRAM_1" used only once: possible typo at Untitled1 line 3.

Please do help me.i am using perlexpress on windows environment.

Sep 4 '08 #1

Ganon11

Hi I am very new to PERL i have written code as :
if (open(PROGRAM_1, "C:\program_1")) {
print ( "working");
}
for opening the simple txt file but it is showing error as
"Name "main::PROGRAM_1" used only once: possible typo at Untitled1 line 3.

Please do help me.i am using perlexpress on windows environment.

Your method of calling open is deprecated - that is, you should be using a scalar filehandle variable instead of a bareword filehandle. If your program had the strict and warnings pragmas enables (as it always should), you would be getting complaints. In addition, you are not telling open how you want to open the file - for input? output? Finally, the '\' character is the escape character, so the open function thinks you have a special character '\p' in the string. Either backslash your backslash '\\' or use single quotes so that the backslash isn't interpolated.

Your code should look like this:

Sep 4 '08 #2

KevinADC

Your method of calling open is deprecated - that is, you should be using a scalar filehandle variable instead of a bareword filehandle. If your program had the strict and warnings pragmas enables (as it always should), you would be getting complaints. In addition, you are not telling open how you want to open the file - for input? output? Finally, the '\' character is the escape character, so the open function thinks you have a special character '\p' in the string. Either backslash your backslash '\\' or use single quotes so that the backslash isn't interpolated.

Your code should look like this:

Expand|Select|Wrap|Line Numbers

1. if (open my $PROGRAM_1, '<', 'C:\program_1') { # '<' assuming you want to open for input
2.    print "Working.\n";
3. }

The default open is read onlyif no file open operator is used. "<" is read only, not input, which would be ">>" or ">". Your code snippet also did not include the file handle in the print line. Here are some more samples:

any good tutorial covers file I/O, which is very basic to perl.

Sep 4 '08 #3

KevinADC

As a side-note, bareword filehandles are not deprecated, but using a lexical filehandle is safer when you can use it. The older style bareword filehandles are global in context which can lead to problems, the "my" declared lexical filehandles are scoped to the block/file, which is safer, but the perl coder must also be aware of that. Also using the three argument version of open() is better than the older two argument style.

Sep 4 '08 #4

Ganon11

By input here, I meant taking data from the file and 'inputting' to the program. I guess I should have been clearer in saying '<' meant reading.

Sep 4 '08 #5

KevinADC

Expand|Select|Wrap|Line Numbers

1. if (open my $PROGRAM_1, '<', 'C:\program_1') { # '<' assuming you want to open for input
2.    print "Working.\n";
3. }

By input here, I meant taking data from the file and 'inputting' to the program. I guess I should have been clearer in saying '<' meant reading.

Ahh.... my bad mate.

Sep 4 '08 #6

Ganon11

Ahh.... my bad mate.

No, my bad for being ambiguous.

Sep 4 '08 #7