[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
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
