Re: here tag and internal variable

>${$html_ref} .= <<"___HTML___"; > Content-type: text/html > > Transitional//EN" > "http://www.w3.org/TR/html4/loose.dtd";> > > > CONTENT="text/html; charset=iso-8859-1"> > Hotspot Tracker > HREF="$get_to_indexcss/hotspot.css" TYPE="text/css" > MEDIA="screen"> > > in t

how do i test for reference equality?

I am working with the perl Template-Toolkit with DateTime objects. When I try to use the DateTime object: [% dt.year %] in the TT template the script dies: undef error - Cannot compare a datetime to a regular scalar at /usr/local/lib/perl5/site_perl/5.8.7/i686-linux/DateTime.pm line 1397 I have

how to obtain a reference to array which is returned by a function without intermediate array?

m the last invocation of fetchrow_arrayref The first one seems to be quick and dirty solution, but involves copying an array. Is there a syntax for obtaining the reference to the array returned by the function without copying it first? -- Thanks in advance, Denis -- To unsubscribe, e-mail: [EMAIL P

Re: Upgrading Perl linux 5.6 rpm to 5.8.2 source

Have you tried: rpm -ivh perl_rpm_name? This should allow you to do an upgrade rather then remove and upgrade. HTH.. Denis On Tue, 13 Jan 2004, Paul Kraus wrote: > On a Linux system how can I remove the 5.6 rpm and then install the 5.8.2 > from source and still maintain dependenci

Re: perlTk/inquiry

I know that RH 9 has major problems running TK. Something to do with the way the lib's where linked. Try a google search for more info. HTH.. Denis On Wed, 31 Dec 2003, awongxi wrote: > I am running linux redhat ver 8. perl v5.8.0. I downloaded perltk from: > http://xbeams.ch

Re: Opening two files at once

almost 500 tests, and can change with each run. One of the issues is that I sometimes have to contend with other users on the system, so tests time out, even if they are running fine.. Was thinking along the lines of opening the tests file and also a stored time_to_run_tests file, double the value in the time_to_run_tests, and us it as the timeout value. However there may be times when there are not any time_to_run_tests files to use.. So I'm just figuring it out as I go, and asking dumb questions.. Thanks Denis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Opening two files at once

lines to read\n"; > print "\tfrom TestFile \n" if ( $flag == 1 ); > print "\tfrom logfile \n" if ( $flag == 2 ); > } else { > print "both ended together\n"; > } > # now one wou

Re: Opening two files at once

On Mon, 22 Dec 2003, drieux wrote: > > On Dec 22, 2003, at 4:32 PM, [EMAIL PROTECTED] wrote: > > > I have two text files I would like to open and read at the same time. > > Whats the best way to do this? > > the only problem with your current form, barring > the faux paux of > > while( (

RE: Opening two files at once

is.. # make sure the files have the same number of lines @line_count = (`wc -l *tcp* *udp*`); ($lc, @rem) = split(" ",$line_count[0]); for (@line_count) { ($lc1_temp, @rem) = split (" "); } if ($lc1_temp/$#line_count != $lc) { die "\

Opening two files at once

other file"; while (($line1 = ) & ($line2 = )) { # print the line from each file print "$line1\n $line2\n"; } close TESTFILE; close LOGFILE; I know the while statement is wrong, Whats the best way, and most understandable way? and is there a way

Re: finding out my IP address..

gt; LAN IP address - which is not so useful, since I assigned this address! I'm > trying to find out what my Internet or ppp0 IP address is. There must be an > easy way of doing this. > > Any ideas? > > Kev > > > > > Per the doc's it said: # $ip_

VCS module

Anyone have a script written to allow cvs checkouts via the VCS module? I downloaded and installed it, but I cant figure out how to do checkouts.. Thanks Denis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Module install

Thanks Rob.. Denis On Wed, 10 Sep 2003, Hanson, Rob wrote: > Sure. > > Use this when running Makefile.PL. > > perl Makefile.PL LIB=~/myhomelib PREFIX=~/myhomelib > > This will install the modules to ~/myhomelib. To use the modules in a > script you can either "u

Module install

Anyone know if your able to install modules in the users local home directory? I'm running on a system that I'm not able to install modules system wide. Thanks Denis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: cutting a string

Sorry, lack of sleep.. but isn't File::Basename usally installed in the standard Perl install? Denis On Fri, 5 Sep 2003 [EMAIL PROTECTED] wrote: > On Thu, 4 Sep 2003 [EMAIL PROTECTED] wrote: > > > basename is more convenient i think. What do you say? > > > Only if

Re: cutting a string

On Thu, 4 Sep 2003 [EMAIL PROTECTED] wrote: > basename is more convenient i think. What do you say? > Only if you can load the module on the system. running into issues here at work where I can load modules (security llama's) Denis > > Quoting [EMAIL PROTECTED]: > &g

Re: cutting a string

t; > > > > > > > why not try this? > > #!/usr/bin/perl > my @test=''; > my $test1=''; > my $string = "C:/test/me"; > @test = split('/',$string); > print "@test\n"; > print "$test[$#test]\n"; > > HTH.. Denis > > > FYI $test1 is not used.. was going to try the script another way and didn't.. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: cutting a string

the sequence > following it (file.txt) > > Is it simple? > > I tried with the split function but it returns a list. > > I just want a scalar! > > > > why not try this? #!/usr/bin/perl my @test=''; my $test1=''; my $string = "C:/test/m

Re: sending interrupt

On Thu, 28 Aug 2003, zsdc wrote: > [EMAIL PROTECTED] wrote: > > > On Thu, 28 Aug 2003, Ramprasad A Padmanabhan wrote: > > > >>Which OS? > >>On Unix like systems, You can find the PID of the script and send the > >>signal on the shell > >> > >>like > >>kill -15 $PID > > > > you could also do: >

Re: DBI.pm

On Fri, 29 Aug 2003, Sachin Mathur wrote: > Any suggesstion for the following error. > > Can't locate loadable object for module DBI in @INC (@INC contains: > /opt/perl/ActivePerl-5.6//lib /opt/perl/ActivePerl-5.6//lib/site_perl > /home/baalaji/proj1/ETA/auto/etafpgahw_test//scr/PerlLib/ > /u

Re: sending interrupt

On Unix like systems, You can find the PID of the script and send the > signal on the shell > > like > kill -15 $PID > > Ram you could also do: killall -KILL name_of_application HTH.. Denis > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: timing out a system call

`rsh $kill_num[$i] $killname $killsig $cmd`; } next; } else { # job didn't time out } } Sorry for the bad formatting.. HTH Denis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: timing out a system call

Forgot to mention that most of the "guts" for this was given to me by some of the kind folks on this mailing list.. Just wanted to give credit where credit was due.. Denis On Thu, 14 Aug 2003 [EMAIL PROTECTED] wrote: > On Thu, 14 Aug 2003, Niall Flinn wrote: > > > Hi f

RE: CVS and Perl

Jess, Dont know/remeber if I thanked you for your input, but thanks.. Denis On Wed, 30 Jul 2003, Balint, Jess wrote: > You could make an rc file in your home directory, store the username and > password, use 600 permissions and read the file when the script is run. >

CVS and Perl

Anyone using perl to access CVS? The CVS repository I need to access does not allow anonymous or just plain read-only access, So I need to hard code a username and password. Yuk.. Anyone have any idea's to get around this with perl? Thanks Denis -- To unsubscribe, e-mail: [EMAIL PROT

Re: Thumb-nailing Pic's

Consulting Services, Inc. - +1 503 777 > 0095 > > <[EMAIL PROTECTED]> http://www.stonehenge.com/merlyn/> > > Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. > > See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl > training! > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > I'm using Gallery to do this for me.. gallery.sourcforge.com.. It's PHP, but you might be able to get some idea's out of it. HTH Denis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: perl/crontab Question

On Tue, 29 Jul 2003, Paul Archer wrote: > Yesterday, [EMAIL PROTECTED] wrote: > > > This may be a bit off topic, but I'll ask it.. > > > > I have a perl job I want to run out of a cron job, However cron is not > > reading my .cshrc file by default. So what I have to do is "wrap" the perl > > job

Re: perl/crontab Question

'c:/windows/system/somefile.dat' on Windows or > '/usr/local/share/somefile.dat' on Unix. If you need environment > variables then set then up through the %ENV hash like $ENV{PATH} = > '/bin:/sbin:/usr/bin:/usr/sbin'. > > > John > Thanks

perl/crontab Question

maybe the real question is should I be "hardcoding" the var's out of my .cshrc file in my perl script? I think this may be a bad thing to do, but isn't this what I'm doing in the .cshrc file? Thanks, Denis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Is there a better way?

use warnings; > > my $n; > my $intel_num_hosts = ''; > my $intel_num_procs = ''; > > { > print "Number of Hosts? "; > chomp ($n = <>); > redo if $n =~ /\D/; > } > $intel_num_hosts = "-N $n&quo

Re: writing to file

I stand corrected.. It should be ">" not ">>".. Should stop reading the list late at night.. Thanks On Tue, 22 Jul 2003 [EMAIL PROTECTED] wrote: > > On Mon, 21 Jul 2003 21:55:03 -0600 (MDT), [EMAIL PROTECTED] wrote: > > > open the file with ">>

Is there a better way?

; # if user did not enter a value, dont put the "-N" in if ($n eq ""){ $intel_num_hosts = ""} # -n print "Number of processes? "; chomp($n=<>); $intel_num_procs = join (" ", "-n",$n); if ($n eq ""){ $intel_num_procs = ""} Thanks Denis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: writing to file

open the file with ">>" This will cause an overwrite.. On Mon, 21 Jul 2003, awarsd wrote: > Hi, > > I'm curious to know if it is possible to write to file with overwritting > information without putting into an array > if i have in a file > a > b > c > d > e > and i want to add g-r-t-u-x i wou

Re: Newbie help

Dont know if anyone has replyed yet.. But why not use "time"? Here's what I'm thinking.. my @t = localtime(time); my $today; $today = sprintf "%4d%02d%02d", $t[5]+1900, $t[4]+1, $t[3]; print "$today"; will print out todays date.. this will give you a

Re: alarm(x) question.

Keven.. This looks really good.. Is it the "eval" that keeps the alarm from kicking the script out of the loop? I can tell I'll have some reading to do in the morning.. On Sat, 12 Jul 2003, Kevin Pfeiffer wrote: > In article <[EMAIL PROTECTED]>, > [EMAIL PROTECTED] wrote: > > Hi, > > > I'

Re: alarm(x) question.

`$run $full_line`; > > > > print LOGFILE "$jobrun"; > > > > $end = time; > > > > $totaltime = $end - $start; > > > > print LOGFILE "Time for test:$totaltime sec's\n\n\n"; > > > >

Re: alarm(x) question.

E "$jobrun"; > > $end = time; > > $totaltime = $end - $start; > > print LOGFILE "Time for test:$totaltime sec's\n\n\n"; > > } > > close (TESTFILE); > > close (LOGFILE); > > > > It works fine, but

alarm(x) question.

- $start; print LOGFILE "Time for test:$totaltime sec's\n\n\n"; } close (TESTFILE); close (LOGFILE); It works fine, but when the alarm time gets exceeded, the script exits. What I would like it to do is just go to the next line in the TESTFILE. Thanks for any input you can give me.. Denis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Off-Topic (200%) - Where are you from?

hi Etienne, Friday, November 09, 2001, 8:08:03 PM, you wrote: EM> I'm from Quebec, Canada.. and you? South Ural, Russia -- Yours faithfully, Denis Shagimuratov. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]