develooper Front page | perl.vmsperl | Postings from May 2002

Re: [PATCH: perl@16826] small updates to DCL portions of perl kit

From:
Brian Tillman
Date:
May 31, 2002 10:04
Subject:
Re: [PATCH: perl@16826] small updates to DCL portions of perl kit
Message ID:
231901c208c3$6173a910$76041c7e@si.com
PPrymmer@factset.com writes:

> $ echo4 "The perl_setup.com file is now being written..."
> $ file_2_find = "[-]perl_setup.com"
>-$ OPEN/WRITE CONFIG 'file_2_find'
>+$!
>+$! Folks are likely to want to edit perl_setup.com.
>+$! STMLF RFM plays nicer with ported editors than does VFC.
>+$!
>+$ CREATE [-]CONFIG.FDL
>+$ DECK
>+RECORD
>+  FORMAT STREAM_LF
>+$ EOD
>+$ CREATE /FDL=[-]CONFIG.FDL 'file_2_find'
>+$ OPEN/APPEND CONFIG 'file_2_find'
>+$ DELETE/NOLOG/NOCONFIRM [-]CONFIG.FDL;
> $ WRITE CONFIG "$!"
> $ WRITE CONFIG "$! Perl_Setup.com    ''cf_time'"
> $ IF cf_email.NES.perladmin

This really isn't the correct approach at all.   Instead, do this:

$ create 'file_2_find'
$ open/append config 'file_2_find'

This will create a native VMS text file that any VMS-based editor, including
the ported ones, will like.  No FDL file manipulation needed and no
Stream_LF file created (which is not the native format of a text file,
anyway).

Brian Tillman                   Internet: tillman_brian at si.com
Smiths Aerospace                          tillman at swdev.si.com
3290 Patterson Ave. SE, MS      Addresses modified to prevent
Grand Rapids, MI 49512-1991     SPAM.  Replace "at" with "@"
       This opinion doesn't represent that of my company




**********************************************************************
This e-mail and any files transmitted with it are confidential and may
be legally privileged or otherwise exempt from disclosure under
applicable law. This e-mail and its files are intended solely for
the individual or entity to whom they are addressed and their content
is the property of Smiths Aerospace.  If you are not the intended
recipient, please do not read, copy, use or disclose this communication.
If you have received this e-mail in error please notify the e-mail 
administrator at postmaster@si.com and then delete this e-mail, its
files and any copies.

This footnote also confirms that this e-mail message has been scanned
for the presence of known computer viruses.
***********************************************************************



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About