HDTenEightyP/NetNews huggingface dataset:
From: flee@cs.psu.edu (Felix Lee)
Subject: Re: Perl meets shell
Date: Mon, 27 Jul 1992 02:47:49 GMT

Tom Christiansen writes of "exechook".

It's a good idea, but I'm not sure I really like it.

There's a minor maintenance problem, in keeping the links to exechook
in sync with your Perl library.

About repeated application to STDIN, Tom writes:
> What I don't like about this is that it makes no allowance
> for routines that get no arguments by their very nature.  

This is why I have two different front-ends, "perl-map" and
"perl-apply".
	perl-apply substr "abcd" 0 1
v.
	perl-map sqrt 1 2 3 4 5 6 7 8
and
	cat data | perl-map sqrt

perl-apply is straight subroutine call, but perl-map creates a filter,
which is generally sensible for shell use.

Right now, I think I use "perl-apply" and "perl-map" mostly for
testing.  It's convenient to create a temporary alias
	alias t 'perl-apply file:function'
and run test cases by hand.

The distinction between "perl-apply" and "perl-map" is one reason why
I feel the front-end code should be embedded in the Perl modules.
Each Perl module is better able to create a sensible shell usage for
itself than any generic front-end can.

Looking at it from the other end, I have standalone Perl programs that
I want to embed in other Perl programs, with 'require'.  This is the
same problem, with the same solution.

Niklaus Wirth's Oberon language, in the Oberon environment, doesn't
have a distinction between "programs" and "functions".  Running a
program is simply calling a function in some module.  Lisp systems
also lack this distinction.  The Unix environment is no help at all in
this, and even deliberately makes things difficult.
--
Newsgroups: comp.lang.perl
From: henkp@cs.ruu.nl (Henk Penning)
Subject: Re: PostScrip perl man pages?
Date: Tue, 28 Jul 1992 15:44:23 GMT
Organization: Utrecht University, Dept. of Computer Science

In <13him8INNi31@agate.berkeley.edu> woan@soda.berkeley.edu (Ronald Woan) writes:

>Are there PostScript format man pages for the latest patch level of
>PERL available via anonymous FTP somewhere? My ditroff version
>dies midway through formatting with an illegal character error,
>but nroff works just fine...
>
>+ Ronald S. Woan                       woan@cactus.org or woan@vnet.ibm.com +


Summary: perl manpage in ps is available via anonymous ftp from ftp.cs.ruu.nl

________________________________________________________________________
  We, Computer Science department, Utrecht University,  are  running  an
anonymous  FTP  server  on  one  of  our systems. In addition to the FTP
service we're also running a mail  server,  for  those  of  you  without
direct Internet access.


--> How to get 'perl manpage in ps' via anonymous FTP:

    Site:     ftp.cs.ruu.nl  [131.211.80.17]
    Login:    "anonymous" or "ftp"
    Password: your own email address (you@your_domain)
    file:
      /pub/PERL/perl.man.ps.Z


--> How to get 'perl manpage in ps' via e-mail from our mail-server:

    NOTE: In the following I have assumed that your mail address is
	  "fred_flintstone@stone.age.edu"; of course you must substitute
	  your own address for this.

	  | Please use a VALID DOMAIN ADDRESS.
	  | Use 'hip!hop!user' if you must.
	  | Never use an address which has both '!' and '@' in it.
	  | Bitnetters use user@host.bitnet


    Send the following message to
		mail-server@cs.ruu.nl
    or the old-fashioned path alternative
		uunet!mcsun!sun4nl!ruuinf!mail-server


    begin
    path fred_flintstone@stone.age.edu (SUBSTITUTE _YOUR_ ADDRESS)
    send PERL/perl.man.ps.Z
    end


The path command can be deleted if we receive a valid from address in your
message. If this is the first time you use our mail server, we suggest you
first issue the request:

      send HELP


  A complete "ls-lR" listing of the archive is  kept  in  the  top-level
directory, it will be updated every night. To get it, issue the command:

     send ls-lR.Z



  That's all for now. If you encounter problems using  the  FTP  service
and/or the mail-server, feel free to drop me a line (by e-mail, please).
From: ds_curtis@pnl.gov (DS Curtis)
Newsgroups: comp.lang.perl
Subject: Re: write
Date: 29 Jul 92 20:39:13 GMT
Article-I.D.: oracle.1992Jul29.203913.8498
Reply-To: ds_curtis@pnl.gov
Organization: Battelle PNL


In article 22025@noose.ecn.purdue.edu, newlin@purcell.ecn.purdue.edu (Johnny N.) writes:
>Is there any way to make write send its output to a buffer instead
>of a filehandle?  The only way that I could figure out to do this
>is to send the output to a temporary file and then read it back in.
>Needless to say, this is less than efficient.
>
>-John
> newlin@ecn.purdue.edu

I have seen this question quite a few times so I thought I would reply.

I found a pretty good solution that uses write to format data that I then
process and does not use files:

      pipe (READ_HANDLE, WRITE_HANDLE);
      if (fork == 0) {                              # Child  Process.
        close (READ_HANDLE);
        print (WRITE_HANDLE "Whatever Processing and printing goes here\n");
        close (WRITE_HANDLE);
        exit 0;
        }
      close (WRITE_HANDLE);                         # Parent Process.
      @OUTPUT_FROM_CHILD = <READ_HANDLE>;           # Parent Process.

If you want to buffer the output (from child) or input (to parent) then
set $| = 1;

I hope this is something like what you are looking for.

+------------------------------------------------------------------------+
| Name:     Darren Curtis        |  Disclaimer:  My opinion in my own!   |
| Company:  Battelle PNL         |  Theory:  Bo Knows UNIX - But Doesn't |
| Phone:    (509) 375-2152       |           Have Time to !@#$ with it!! |
| email:    ds_curtis@pnl.gov    |  This space left blank intentionally! |
+------------------------------------------------------------------------+
Newsgroups: comp.lang.perl,comp.protocols.snmp
From: pas@anchor.unh.edu (Paul A Sand)
Subject: bug in ctime.pl?
Organization: University of New Hampshire
Date: Tue, 21 Jul 1992 20:11:21 GMT

Based on some peculiar behavior, I looked at the ctime.pl library
file. It contains the line:

     $year += ($year < 70) ? 2000 : 1900;

where $year is one of the elements returned from gmtime() or
localtime(). Looking at the definitions of what *those* return,
it seems the statement should be simply:

    $year += 1900;

Or am I missing something subtle?
-- 
-- Paul A. Sand           | I learned to put the [toilet] seat down...it
-- Univ. of New Hampshire | makes you look like a warm, caring, sensitive
-- pas@kepler.unh.edu     | human being. (Prof. R. Noble, from r.h.f.)
Newsgroups: comp.lang.perl
From: schemers@leland.Stanford.EDU (Roland Schemers)
Subject: Re: Process question...
Organization: Distributed Computing Group, Stanford University
Date: Thu, 23 Jul 92 03:06:45 GMT

In article <1992Jul22.231637.23043@cs.unca.edu> mcmahan@cs.unca.edu (Scott McMahan -- Genesis mailing list owner) writes:
>
>fork a process that will exec 'sort'
>parent feeds sort a bunch of words, and reads sort's output for use later.
>

#!/usr/local/bin/perl
require 'open2.pl';

$pid = &open2("OUTPUT","INPUT","/usr/bin/sort");

@word=("just","another","perl","hack");

foreach(@word) {  print INPUT "$_\n"; }

close(INPUT);

while(<OUTPUT>) {  print "$_"; }

-- 
Roland J. Schemers III              |            Networking Systems
Systems Programmer                  |            168 Pine Hall   (415)-723-6740
Distributed Computing Group         |            Stanford, CA 94305-4122
Stanford University                 |            schemers@Slapshot.Stanford.EDU
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: small clip problems
Date: 24 Jul 92 18:31:21 GMT
Organization: NetLabs, Inc.

In article <X920031.92Jul24112758@rubb.rz.ruhr-uni-bochum.de> x920031@rubb.rz.ruhr-uni-bochum.de (Jost Krieger) writes:
: I got clip running fine with perl 4.0.35 on a MIPS machine (I just had
: to comment out the setpriority, because the last compile was in the
: SYSV environment.)
: 
: Now clip clips all the interesting stuff, and I'm interested in a lot
: of things. Say python, the programming language/environment. So I write in my
: .cliprc:
: 
: &SCANNER(<<'END');
:  study;
:  &hit if /\b[Pp]ython/;
:  &hit if /\b[Pp]erl/;
:  &hit if /\balex\b/;
:  &hit if /\bWAIS\b/;
: END
: 
: among other things. Whoops, I got a lot of witty sayings from Monty Python.
: 
: So I change to:
: 
:  if (/\b[Pp]ython/) {{
: 	next if $` =~/Monty/;
: 	&hit;
:  }}
: 
: as the man page directs me. All clipping stops. Doesn't that trick
: work any more in .35 ?

It ought to work.  Perhaps there's something weird about how perl was
compiled.  Maybe you should try compiling it back in the BSD environment
and see if it makes any difference.

Larry
Newsgroups: comp.lang.perl
From: dnb@meshugge.media.mit.edu (David N. Blank-Edelman)
Subject: Malformed cmd links
Organization: M.I.T. Media Laboratory
Date: Fri, 31 Jul 1992 18:59:39 GMT

Howdy-
  Can anyone hazard a guess as to why:

---
	sub format_sort {
	    eval "sub bysomething {return 0;}";
	}
	&format_sort;
	&format_sort;
---	

does this:

[meshugge]:/u/dnb> perl t
Malformed cmd links

Thanks!
        Peace,
          dNb
--

 David N. Blank-Edelman              o/    \  /    \ /     /      \o   
 M.I.T. Media Laboratory            /#      ##o     #     o##      #\
 E15-473F, (617) 253-2169           / \    /  \    /o\    / |\    / \

Newsgroups: comp.lang.perl
From: Al Gaspar <gaspar@stepsun.army.mil>
Subject: Print difference between 4.019 and 4.035
Reply-To: gaspar@stepsun.army.mil
Organization: The Internet
Date: Thu, 30 Jul 1992 11:55:00 GMT


    I posted a message about this earlier; but I think my mailer sent it to the
ozone...  I had a script running properly under 4.019 with two lines similar to
the following:

	print '-' x 80."\n";

Under 4.035 I got the following error messages:

	syntax error in file /usr/local/bin/logpipe2.pl at line 26, next 2
	  tokens "80."\n\n""
	syntax error in file /usr/local/bin/logpipe2.pl at line 29, next 2
	  tokens "80."\n""
	Execution of /usr/local/bin/logpipe2.pl aborted due to compilation
	  errors.

I fixed the problem by changing the offending lines to:

	print ('-' x 80)."\n";

    I thought someone might be interested in this minor difference.

Cheers--

Al

    
-- 
Al Gaspar	<gaspar@st-louis-emh2.army.mil>
USAMC SIMA, ATTN:  AMXSI-TTC, 1222 Spruce St., St. Louis, MO  63103-2834
COMMERCIAL:  (314) 331-4354	AUTOVON:  555-4354
relay1.uu.net!st-louis-emh2.army.mil!gaspar
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: audit.pl (was: Perl-Users Digest #471)
Originator: tchrist@convex.convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Date: Fri, 31 Jul 1992 00:54:25 GMT
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of aks%anywhere@hub.ucsb.edu:
:I apologize to the author for not mailing this directly; I can't seem to
:find your email address anywhere within the distribution, and I've long
:since lost the original mail from which it came.

The author is Martin Streicher <strike@micrografx.com> in Dallas.

I use a cobble audit.pl myself.  Here are some of my more interesting
things:

    # avoid duplicate messages, which are defined as 
    # having the same subject, body length, body checksum,
    # and received with 10 minutes of each other.
    local($db) = "$MH{'path'}/.dupmsgdb";
    if (dbmopen(%Msgs, $db, 0644)) {
	local($sum) = unpack("%31C*", $body);
	local($len) = length($body);
	if ($Msgs{$subject, $len, $sum} + 10*60 > time) {
	    warn "duplicate message discarded";
	    exit; # duplicate
	} else {
	    $Msgs{$subject, $len, $sum} = time;
	} 
	dbmclose(%Msgs);
    } 

Here's another idea I don't actually use, but it's a decent
defense (combined with tweaking sendmail's load threshhold)
against sendsys bombs and the like:

  if ($subject =~ /\b(hell|damn)\b/i) {
     #require 'sysexits.ph';  
     sub EX_UNAVAILABLE { 
	 "69, dudes"; # Eric Allman anticipates Bill and Ted :-)
     } 
     print STDERR <<EOF;

    I'm sorry, $friendly, but I simply refuse to tolerate 
    such language as $1.  When you can send me nice mail, 
    my inbox will then accept your mail again.

    --tom
    EOF
	exit &EX_UNAVAILABLE; # sendmail bounces these
    } 


--tom

-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

	  "And I don't like doing silly things (except on purpose)."
		--Larry Wall in <1992Jul3.191825.14435@netlabs.com>
From: barnett@paintbrush.aca.mcc.com (Jim Barnett)
Newsgroups: comp.lang.perl
Subject: iterative matching
Date: 28 Jul 92 23:38:10 GMT
Organization: MCC


I would like to do an iterative regexp match and find at each step the
substring to the right of the match.  That is, given pattern /aa/ and
string "aabbaacc", I would like to find first "bbaacc" and next "cc".
But I'm having problems when I try to combine //g with $'.

More details: If I execute the following script on a file containing
the single line "aaa", it prints out "a" three times on separate
lines, as you would expect:

while(<>){
 while(/\w/g) {
   printf "%s\n", $&;
 }}

But if I change $& to $', I get a segmentation fault (SunOS 4.?). 
What I'd like is to print first "aa", then "a", then <empty-string>.
I can add an explicit clause for the rest of the string:

while(<>){
 while(/(\w)(.*)/g) {
   printf "%s\n", $2;
 }}

But this still doesn't do what I want because it matches only once
(i.e., it prints out only "aa"). 

Any advice for a novice? 

- Jim 
-- 
Newsgroups: comp.lang.perl
From: Enrique Navarro Sanchis <navarro@pereiii.uji.es>
Subject: What is PERL !?
X-Useragent: Nuntius v1.1
Date: Wed, 22 Jul 1992 12:20:40 GMT
Organization: uji.es




	Hello:
					the subject says--> WHAT IS PERL?
					Can someone send me information about this ?
					Or , where can I find information ?

					Please send e-mail to: navarro@pereiii.uji.es
		
					Thanks in advance.


ENRIQUE NAVARRO SANCHIS		E-mail: navarro@pereiii.uji.es
ANALISTA DE SISTEMAS			Tel: 964 - 345881
SERVEI D'INFORMATICA			FAX:  964 - 345846
UNIVERSITAT JAUME I
CASTELLO   (SPAIN)
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Pipe, et al, what am I doing wrong?
Keywords: pipe, fork
Date: 27 Jul 92 14:59:23 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Originator: tchrist@pixel.convex.com
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of weingart@inf.ethz.ch:
:Here is a small script, that seems to hang.  What am I doing
:wrong?  A ps shows that the child is waiting for the parent
:to `wait` on it.  Also, the parent seems to hang because it
:does not get EOF.
:
:
:#!/usr/local/bin/perl
:#
:# To test fork, pipe
:# and other things.
:
:select(STDIN); $| = 1;
:select(STDERR); $| = 1;
:select(STDOUT); $| = 1;
:
:pipe( READH, WRITEH );
:$pid = fork();
:die "Could not fork.\n" if( ! defined($pid) );
:
:@data = ();
:if( $pid == 0 ){
:	open(STDOUT, ">&WRITEH");
:	open(STDERR, ">&WRITEH");
:	exec( '/bin/cat', '/etc/passwd' );
:}else{
:	open(STDIN, "<&READH");
:	while( <STDIN> ){
:		push(@data, $_);
:		print ".";
:	}
:	print "\nLines: $#data\n";
:}
:
:exit(0);
:
:#
:# End of script.
:
:
:Can anyone give me a working example of this?

Sure -- just close(READH) in the kid before the exec, 
and close(WRITEH) in the parent before you dup STDIN.

But you're going to way to much trouble.  Using the 
implicit fork of open on "|-" and "-|" is much easier,
and almost always suffices.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist


    Real Programmers think better when playing Adventure or Rogue.
Newsgroups: comp.lang.perl
From: henkp@cs.ruu.nl (Henk Penning)
Subject: why is this illegal ??
Date: Thu, 30 Jul 1992 23:59:51 GMT
Organization: Utrecht University, Dept. of Computer Science

Perl prog:
-----------------------------------------------
# why is this illegal ??

$res = ( -f ? 'hip' : 'hop' ) ;

# what I try to do is: grep plain files from a directory and save the stats
# @res = grep( ( -f ? ( $f{$_} = join($;,stat(_)) ) : 0 ) , readdir(DIR) ) ;
-----------------------------------------------
I get :

Search pattern not terminated in file try at line 3, next char ^?
syntax error in file try at line 7, next char ;
Execution of try aborted due to compilation errors.

perl -v :

This is perl, version 4.0

$RCSfile: perl.c,v $$Revision: 4.0.1.7 $$Date: 92/06/08 14:50:39 $
Patch level: 35

Copyright (c) 1989, 1990, 1991, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 4.0 source kit.

					===  HenkP  ===

Newsgroups: comp.lang.perl
From: jja@fnbc.com (Joseph Alotta)
Subject: Re: Commercial alternatives to perl?
Organization: First National Bank Of Chicago, Chicago IL, USA
Date: Wed, 22 Jul 92 21:04:00 GMT

> what features you want, but have you considered REXX?  It has good  
string
> handling functions, infinite-precision arithmetic, and associative  
arrays,
> among other things (no regular expressions, alas).  It's available
> commercially on IBM's MVS and CMS (not much of an inducement, I bet), on
> PC's, on Amigas, and on Unix.  It may also be available on other  
platforms.
> 

i think i'd rather stick needles in my eyes than program rexx.  more fun  
too.  :-)

--
joe alotta
first chicago corp, capital markets
jja@fnbc.com
(312) 732-3439

"The heart is deceitful above all things and beyond cure."   Jer 17:9 NIV
Newsgroups: comp.lang.perl
From: jzwiebel@pgl-devsvr.den.mmc.com (John Zwiebel 303-977-1480 jzwiebel@pgl-devsvr.den.mmc.com)
Subject: chat2.pl and ! returns
Organization: PAGE @ Martin-Marietta
Date: Fri, 31 Jul 1992 18:12:34 GMT

I'm trying to get a couple of scripts to log on to my cisco routers and either download or upload configuration files.  For the most part the script works except for my last line.  I want to receive confirmation that the script worked.  Since I have 3 switches to indicate -d ( the directory to load to or from) -r (the router to telnet to) -s ( the host to store the config files on).  I also have a default list of routers to connect to (so I get everything).  A default host and a default directory.  If I us




e all the defaults (no switches) I get:

OK]
pgl-cgs6#
OK]
pgl-cgs7#

If I try to store to a host that doesn't support tftp nothing comes back although the router is sending:

Writing pgl-ags8-confg ..... [Failed]

If I am successful the router returns:
Writing /tftpboot/pgl-ags8-confg !!!!!!!!! [OK]

I can also go to a host that supports tftpd but not the directory:

Writing pgl-ags8-confg
TFTP error code 2 received - tftpd: 0827-604 There is a disk access violation.
 [Failed]


Basically, there are numerous combinations of switches and return values and all sorts of different stuff can be matched and returned by the chat script.

I figure I must be having trouble with the '[', ']' and '!' charactures but everything I've tried works under some conditions but not others.  
Here's a list of some of the combinations I've tried (I was desparate):

#   $buf = &chat'expect( 5, '(\!*.\[)', $1); #, '(.*fail.*\[)', $1);
#   $buf = &chat'expect( 5, '(.*directory*.])', $1, '(\!*.\[)', $1);
#   $buf = &chat'expect( 5, '(.{10,})', $1, '(\!*.\[)', $1);
#   $buf = &chat'expect( 5, '(\!*.\[)', $1, '(\W*\[Failed)', $1);
#   $buf = &chat'expect( 5, '(\!*.\[)', $1);
#   $buf = &chat'expect( 5, '(\[)', $1);
    $buf = &chat'expect( 5, '(.\[)', $1, '(confg \.*.\[Failed)', $1);

The '(\[)', $1 combination seems to provide the best results, however, the way I read my nutshell book this shouldn't work at all!!  (See the results above).

Who wants to make a guess?  My other chat scripts (one to get router cpu usage and another to track bridging information for specific enet addresses) are working just fine.  But they don't have to deal with the `[]!' charactures.

Oh yes, I should tell you that sometimes I can get 0 or 'd' or 'r' returned, which is sort of suspicious since they are related to the switch I send.  One last bit of info I do use the getopt.pl package to read @ARGV.  

I'm betting there must be some special perl variable that I'm not aware of.  

Again, any guesses?

Email much appreciated.

John Zwiebel
From: newlin@purcell.ecn.purdue.edu (Johnny N.)
Newsgroups: comp.lang.perl
Subject: Trouble getting perl 4 pl33 to compile under SunOS4.1.1
Keywords: perl 4, Sun OS 4.1.1
Date: 29 Jul 92 04:34:17 GMT
Organization: Purdue University Engineering Computer Network

This has probably already been asked, but I am fairly new to this
group and to Perl.  I am working on a Sun 4 running Sun/OS 4.1.1.
I am trying to compile Perl 4.0 pl33 and
I got a compilor error in doio.c at line 1726 saying that h_errno is
not defined.  I could not find anywhere else in the code that used
this variable so I #undef the surrounding #ifdef block and it seems
to work alright.  

Is there a later version that corrects this problem, or some other
fix that I should know about?  

Thanks,

-John
 newlin@ecn.purdue.edu
Newsgroups: comp.lang.perl
From: blu@uunet.uunet!mercomp (Brian Utterback)
Subject: Problem compiling perl@35 on SunOS 4.0.3
Organization: Mercury Computer Systems
Date: Thu, 30 Jul 1992 19:45:41 GMT

I am having a problem compiling perl under sun os 4.0.3.  When
the link comes, I am missing symbol h_errno.  This symbol is used
by the resolver library to give extended error codes, but we are not
using the resolver.  We are using NIS (yp) however, so I would like perl
to find the passwd and host entries from the maps.  So, what do I do?
I can't upgrade the OS for various reasons yet.

Brian Utterback
Mercury Computer Systems
blu@mc.com
Newsgroups: comp.lang.perl
From: drw@jordan.mit.edu (Dale R. Worley)
Subject: Re: Commercial support for perl?
Organization: MIT Dept. of Tetrapilotomy, Cambridge, MA, USA
	<1992Jul15.233640.16814@news.eng.convex.com>
	<CKD.92Jul15213524@loiosh.eff.org> <136@quark.ansto.gov.au>
	<1840@ltb.ltb.bso.nl>
Date: Mon, 27 Jul 1992 19:07:19 GMT

In article <1840@ltb.ltb.bso.nl> wierda@ltb.ltb.bso.nl (Gerben Wierda) writes:
   Suppose I would start a company that offers this kind of support to
   organisations. Say, I support them with perl and gcc etc. In
   short., I become their link to the net if I don't know it
   immediately.

I think the crucial question is rather "Can you make such a company
commercially successful?"  Remember, you have to convince the
customers that the software is worthwhile, as well as support them,
and you have to do it at a price that a small customer can afford.

Dale

Dale Worley		Dept. of Math., MIT		drw@math.mit.edu
--
"Harassment is any conduct which creates an offensive environment."
If anyone is offended by this article, then am I guilty of harassment?
-- Alan Dershowitz
From: eversole@acae037.cadence.com (Richard Eversole; x6239)
Subject: Re: Manipulating Framemaker files with perl?
Reply-To: eversole@acae037.cadence.com (Richard Eversole; x6239)
Organization: Cadence Design Systems, Inc.
Date: Tue, 28 Jul 1992 10:57:50 GMT


-- 
When dealing with FrameMaker and massive changes try the following:

   1) Save all files as MIF 
   2) Edit the MIF files
   3) Reload back into Frame.

   Optionally 4)
   Replace all common terms that you are changing with system
   variables so the next time you only need 1 change per term.
  
The MIF files are much easier to change with PERL.
  =====================================================================

    eversole@cadence.com
  
    Live long and prosper !

Newsgroups: comp.lang.perl