no.... thanks! but why are you setting ejectapes as an array and then
calling it with @ instead of $?
my @ejectapes = qw(/usr/local/bin/perld/exports);
($^I, @ARGV) = ('.bak', @ejectapes);
instead of
my @ejectapes = qw(/usr/local/bin/perld/exports);
($^I, @ARGV) = ('.bak', $ejectapes);
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
"JupiterHost.Net" <[EMAIL PROTECTED]>
05/27/2004 10:10 AM
To: [EMAIL PROTECTED]
cc: [EMAIL PROTECTED], "John W. Krahn" <[EMAIL PROTECTED]>
Subject: Re: entering text within a file
[EMAIL PROTECTED] wrote:
>
> the last mail was the solution! Thanks for the persistence!
Glad it worked out! Just a couple more notes below to make it even better
:)
> the code is to insert eject 0,0,0 string in front of the E string like
> so: eject 0,0,0 E4030
> from a file that contains just E strings
>
> #!/usr/local/bin/perl -w
> use strict;
> my $ejectapes = qw(/usr/local/bin/perld/exports);
> ($^I, @ARGV) = (".bak", "$ejectapes");
I think this would make more sense:
my @ejectapes = qw(/usr/local/bin/perld/exports);
($^I, @ARGV) = ('.bak', @ejectapes);
also (its one of my things ;p) I single quoted .bak since it doesn't
need interpolated (if I'd not changed it to ann array I'd have also
recommended not quoting $ejectapes either: ... = ('.bak', $ejectapes)
Its a bit faster and cleaner looking :)
just my .02
HAGO
Lee.M - JupiterHost.Net
