AW: [Perl-unix-users] sendmail

2001-10-29 Thread Tim Hammerquist
Byron Wise wrote: > --- lonh SENG <[EMAIL PROTECTED]> wrote: > > I am beginner of perl and unix system. > > I have a flat file containing email address. > > I want to send the same message to those guys in > > the flat file. > > Could anyone help me? > > This is a very basic approa

Re: [Perl-unix-users] Perl Tcl/Tk

2001-09-11 Thread Tim Hammerquist
Graham Etherington wrote: > Hi, I'm trying to use an application which uses Perl Tk, so I've downloaded, > gunzipped, untarred and installed tcl 8.3.3 and tk 8.3.3. They install and > test fine, but when I run my application (VGO - Virus Genome Organiser) I > get an error saying "Can't locate T

Re: [Perl-unix-users] Anyone knows of any ways to protect the Perl open source code?

2001-09-04 Thread Tim Hammerquist
SuccessInMind wrote: > Beside inserting some cryptic code here and there and sometimes including > some environement variables to create a domain proprietary script does > anyone knows of any effective ways to protect our Perl code from unwanted > eyes? > > I have seen a script once where all th

Re: [Perl-unix-users] Freeing Up Memory

2001-09-04 Thread Tim Hammerquist
[EMAIL PROTECTED] wrote: " Hi Perl Hacker! I have a set of scripts in use on my system that i would " like to start tweaking. They are all hand written and not someone elses " work. I would like to start reducing the memory it takes to run the scripts. " I want to start implementing undef declara

Re: [Perl-unix-users] Default values for parameters

2001-08-20 Thread Tim Hammerquist
Andy Bastien wrote: > > There's a technique that I've been using for a while to set default > values for variables, along the lines of: > > my $foobar = (shift or 42); > > I am correct in thinking that the '(shift or 42)' part creates an > array slice with a single value, and that the assignmen

Re: [Perl-unix-users] Read the Last line in a file

2001-02-15 Thread Tim Hammerquist
2"). > > while($char ne "\n") > { > seek FILE, $pos, 2; > read FILE, $char, 1; > $pos--; > } > > $final = ; > print "Last line is: $final\n"; -- -Tim Hammerquist <[EMAIL PROTECTED]> A child of five would understand this.