Home/ Questions/Q 8552285
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-11T14:23:31+00:00

I got this perl example that’s suppose to demonstrate sysopen and printf , except

  • 0

I got this perl example that’s suppose to demonstrate sysopen and printf, except so far it only demonstrates die.

#! /usr/bin/perl  
$filepath = 'myhtml.html';
sysopen (HTML, $filepath, O_RDWR|O_EXCL|O_CREAT, 0755) 
    or die "$filepath cannot be opened.";
printf HTML "<html>\n";

but when I execute the code it just dies. 

myhtml.html cannot be opened. at file_handle.pl line 7.

myhtml.html does not exist, but it should have been created by the O_CREAT flag. shouldn’t it?

EDIT

I have edited the code to include the suggestions about use strict and $!. Below is the new code and its result.

#! /usr/bin/perl
use strict; 
$filepath = "myhtml.html";

sysopen (HTML, '$filepath', O_RDWR|O_EXCL|O_CREAT, 0755) 
    or die "$filepath cannot be opened. $!";
printf HTML "<html>\n";

output, due to the use strict, gave us a whole bunch of errors:

Global symbol "$filepath" requires explicit package name at file_handle.pl line 3.
Global symbol "$filepath" requires explicit package name at file_handle.pl line 5.
Bareword "O_RDWR" not allowed while "strict subs" in use at file_handle.pl line 5.
Bareword "O_EXCL" not allowed while "strict subs" in use at file_handle.pl line 5.
Bareword "O_CREAT" not allowed while "strict subs" in use at file_handle.pl line 5.
Execution of file_handle.pl aborted due to compilation errors.

EDIT 2

Based on everyone’s suggestion and help, here is the final working code:

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

my $filepath = "myhtml.html";

sysopen (HTML, $filepath, O_RDWR|O_EXCL|O_CREAT, 0755) 
    or die "$filepath cannot be opened. $!";
printf HTML "<html>\n"; 
....
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    O_RWDR, O_EXCL, and O_CREAT are all constants defined in the Fcntl module.
    Put the line

    use Fcntl;

    near the top of your script.

    You can limit the imported variables as follows.

    # import only needed constants.  
use Fcntl qw(O_CREAT O_WRONLY O_TRUNC);
    • 0