GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
SafeDO(3) User Contributed Perl Documentation SafeDO(3)

File::SafeDO -- safer do file for perl

  use File::SafeDO qw(
        DO
        doINCLUDE
  );

  $rv = DO($file,[optional no warnings string])

  • $rv = DO($file,[optional] "no warnings string");

    This is a fancy 'do file'. It first checks that the file exists and is readable, then does a 'do file' to pull the variables and subroutines into the current name space. The 'do' is executed with full perl warnings so that syntax and construct errors are reported to STDERR. A string of no warnings may optionally be specified as a second argument. This is equivalent to saying:

      no warnings qw(string of no values);
        

    See: man perllexwarnings for a full listing of warning names.

      input:        file/path/name,
                [optional] string of "no" warnings
      returns:      last value in file
                or  undef on error
                prints warning
    
      i.e. DO('myfile','once redefine');
        

    This will execute 'myfile' safely and suppress 'once' and 'redefine' warnings to STDERR.

  • $rv = doINCLUDE($file,[optional] "no warnings string");

    The function is similar to DO above with the addition of recursive loads.

    Function will recursively load a file which returns a hash pointer with the a key of the form:

            'INCLUDE' => somefile.
        

    The file which it loads may contain only HASHs or SUBs. The HASH KEYS will be promoted into the parent hash, augmenting and replacing existing keys already present. Subroutines are simply imported into the name space as is the case with a 'do' or 'require'.

        none

        DO
        doINCLUDE

Michael Robinton, michael@bizsystems.com

Copyright 2003 - 2014, Michael Robinton & BizSystems This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

2014-01-27 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.