I have a small doubt;
My script is given below:
What it is doing is once the first condition is satisfied it is dieing, that
is if (($check_out == 0)
I want the if statement to compare this also:
(($var5 == "Soarian_Context_Sensitive_Coordination_File") | ($var5 ==
"comEPRHelp") | ($var5
on Mon, 12 Aug 2002 07:32:48 GMT, [EMAIL PROTECTED] (Javeed Sar)
wrote:
> I want the if statement to compare this also:
> (($var5 == "Soarian_Context_Sensitive_Coordination_File") |
> ($var5 ==
> "comEPRHelp") | ($var5 ==
> "CDMS_Context_Sensitive_Coordination_File") |
If you want to compa
On Mon, 12 Aug 2002, Javeed SAR wrote:
>
>
> I have a small doubt;
>
>
> My script is given below:
> What it is doing is once the first condition is satisfied it is dieing, that
> is if (($check_out == 0)
>
> I want the if statement to compare this also:
> (($var5 == "Soarian_Context_Sen
There are many ways. Check out one method on my site @ www.stevenet.net.
..
Like it ? Its pretty simple ... Let me know and Ill tell you how I did it.
Thank you,
Steve Maroney
On Sun, 11 Aug 2002, Mark Weisman wrote:
> Hello List:
> What is the command structure to grab an uptime request
Hi Connie,
Here is a script I made and it starts the file download.
It prompts for a file name and the default one is the file name you give in
the script.
Sometimes it works only if the file name you define in the script is the
same with the real file name of the file.
$| = 1;
my $file = "$doc
Hi there,
I still got Problems with hashes.
I have the following code:
sub board_database{
my $sth = $dbh->prepare( "SELECT * FROM $table where serial=@_" ) ||
die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
$sth->execute ||
die "Kann Abfrage nicht ausfuehren: $DBI::errstr\n
on Mon, 12 Aug 2002 13:45:21 GMT, [EMAIL PROTECTED] (Sudarshan
Raghavan) wrote:
> Instead of these multiple conditions why not create a hash of files
> that cannot be checkedout. Something like,
> my %cannot_co = ( comEPRHelp => 1, );
>
> After this your condition will be
> if (($check_ou
On Mon, 12 Aug 2002, Theuerkorn Johannes wrote:
> Hi there,
>
> I still got Problems with hashes.
>
> I have the following code:
>
> Now i want to call the Sub not onla once, but I donĀ“t want to lose the previous
>Values, so I tried this in the sub:
>
> push @{$ergebnis{$seriennr}},
>{tst
On 12 Aug 2002, Felix Geerinckx wrote:
> If you initialize your hash-values with '1', you don't need the
> 'exists', which makes the statement even more readable:
>
> if (!$check_out && $cannot_co{$var5}) {
> die "...";
> }
Right, should have noticed that. Thanks :-)
--
To
Javeed Sar wrote:
>
> I have a small doubt;
>
> My script is given below:
> What it is doing is once the first condition is satisfied it is dieing, that
> is if (($check_out == 0)
>
> I want the if statement to compare this also:
> (($var5 == "Soarian_Context_Sensitive_Coordination_File") | (
Hello,
can somebody tell me what value getppid has (in the child) if the parent
process has ended?
I could not find an answer to this.
I guess its 1 or 0, but not sure.
Thanks
Bastian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Mon, 12 Aug 2002, Angerstein wrote:
> Hello,
> can somebody tell me what value getppid has (in the child) if the parent
> process has ended?
>
> I could not find an answer to this.
> I guess its 1 or 0, but not sure.
It is 1, when the parent dies before the child the child is taken over by
i
I built the script as you said, however, I'm getting an error that I
can't get around in my error file;
Could not create directory '/nonexistent/.ssh'.^M
Aborted by user!^M
Any ideas?
His humble servant,
Mark-Nathaniel Weisman
Mark-Nathaniel Weisman
President
Outland Domain Group
Anchorage,AK U
On 2002-08-12 01:50:50 -0800, Mark Weisman wrote:
> I built the script as you said, however, I'm getting an error that I
> can't get around in my error file;
>
> Could not create directory '/nonexistent/.ssh'.^M
> Aborted by user!^M
>
> Any ideas?
This is a ssh problem. ssh is not set up to use
Theuerkorn Johannes wrote at Mon, 12 Aug 2002 10:08:18 +0200:
> But if I try to read the Values from it:
>
> my $erg= $ergebnis{$seriennr};
>
> print $$erg->{passfail}[0];
>
> I only get the Hash Adress...
>
> Whats the Problem with this?
write it as
print $erg->{passfail}->[0];
Greetings,
on Mon, 12 Aug 2002 08:08:18 GMT, [EMAIL PROTECTED]
(Theuerkorn Johannes) wrote:
I hope you don't mind me saying so, but you have written some quite
horrible (unmaintainable) code here ;-)
I'll try to give some general comments. If you would give us some
more details about your datamodel and
the zombies may hang around until next reboot. always good to use that code
to reap the zombies
> -Original Message-
> From: Ahmed Moustafa [mailto:[EMAIL PROTECTED]]
> Sent: Saturday, August 10, 2002 12:14 AM
> To: [EMAIL PROTECTED]
> Subject: How does ZOMBIE/defunct affect the system?
>
>
>
>
> But ... I have no idea on how to dealing with this
> even... so can't help.. sorry...
If the user has access to a relational db, why not load the file into that
(Oracle, Mysql) and then use perl DBI to deal with it and save alot of
headaches
--
To unsubscribe, e-mail: [EMAIL PROTEC
On Sunday, August 11, 2002, at 02:19 , Mark Weisman wrote:
> Hello List:
> What is the command structure to grab an uptime request from a remote
> computer? I have several systems in my organization that I would like to
> grab the uptime for, then post them to a dynamic web page. The web page
Looking for some good information on using Perl OLE with Lotus Notes.
Having trouble finding some basic info like it's ProgID etc..
Also is there a good way in general to find out a applications ProgID on a
WIN32 environment? The Perl docs have lots of info on the application
objects etc.. just
Using Net::Telnet, I'm having trouble getting the server I'm connecting
to to recognize my input to the login prompt. Below is the code so far
(all system/user details have been changed to protect the innocent):
#! /usr/bin/perl
# tnp - TelNet via Perl
# trial program to replace Expect sc
Have you tried using
$ion->login($username, $passwd);
Instead of doing it the hard way?
Here's a sample script I use with net::telnet that works just fine...
Might want to try modifying it. I use a hosts file, because my script
hits a number of machines. The only bit that might be confusing
The first place I'd try would be notes.net. I'd kind of like to know this
as well, if anyone else out there has any information.
-Original Message-
From: Chris Benco [mailto:[EMAIL PROTECTED]]
Sent: Monday, August 12, 2002 10:18 AM
To: begin begin
Subject: Perl, OLE, and Lotus Notes
L
I had not tried that because login() requires "login:" or "username:" as
the prompt (as I read the documentation); my prompt is "User ID:". I
did go ahead and try it just now and it doesn't work either... doesn't
even send out the username since it doesn't see the expected prompt.
I do appreciat
Weekly posting statistics for perl.beginners - week 32 of 2002.
>From Monday 2002-08-05 to Sunday 2002-08-11 there were
342 articles posted (16000 lines) by 115 authors, giving an average
2.97 articles per author, and an average article length of 47 lpa.
The average number of articles per day w
Hi
I am here as a last resort,
I am actually trying to create a vacation script for one of my
subscribers ( RedHat 7.0, cyrus-imap , sendmail)
But unfortunately. all my efforts are in vain, no-one can help me to get
it working, so, I thought it has to be possible to run a perl script in
cron tha
On Monday, August 12, 2002, at 09:54 , Petre Agenbag wrote:
> So I'm desperately asking help from the list.
>
> I only need this program to check the /var/spool/imap/user/my_mailbox
> file for 4 days...
>
> Thanks in advance.
have you tried
man forw
and looked at linux's "forwarding"
I have read and re-read the docs for this module but can't get my thing to
work.
I have an XML file generated by XML::Simple that looks like
When I use XMLin() the data structure looke like:
$VAR1 = {
'XXX' => {
'date' => '8/12/2002',
Hello all,
I hope this is not too specific for this list. If so, please let me
know if you have suggestions on a better place to seek the answer for
this.
In the code below, I am using add_delta_workdays from Date::Calendar to
check if yesterday was a business day. My problem is that it seems
On Monday, August 12, 2002, at 09:48 , Joe Mecklin wrote:
> I had not tried that because login() requires "login:" or "username:" as
> the prompt (as I read the documentation); my prompt is "User ID:". I
> did go ahead and try it just now and it doesn't work either... doesn't
> even send out th
you know that 7 is Sunday?
you know that 1 is Monday?
right? (this confused me to death for a long time with Date::Calc)
> -Original Message-
> From: Ian Zapczynski [mailto:[EMAIL PROTECTED]]
> Sent: Monday, August 12, 2002 1:58 PM
> To: [EMAIL PROTECTED]
> Subject: add_delta_workdays fro
just ran your script as is.. and the date is fine for me
output:
today is 2002-8-12
yesterday is 2002-8-11
the previous business day is 20020809
> -Original Message-
> From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
> Sent: Monday, August 12, 2002 2:06 PM
> To: 'Ian Zapczynski'; [EM
Hello Nikola,
You are correct - the script runs fine today, but if you set your system
date to Saturday's date (August 10th), it will tell you the previous
business day is the previous Thursday, which in my mind is not correct.
Could the difference you mentioned with Sunday being day 7 and Monda
Thanks Drieux,
You put me on the right track. Working through your suggestion made me
realize I also needed a sleep between seeing the prompt and sending the
data (something also required in the Expect script but inconveniently
forgotten ). I've been able to successfully connect multiple
concur
HI,
I am new at perl and was wondering what is best way to install perl modules on a
Win32 platform.
Thanks
Scott Barnett
Home Care Medical - Technical Support Specialist
1-800-369-6939
1-262-786-9870 ext.214
E-Mail [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additi
In your Dos shell, or Start->Run :
ppm
ppm3 ( better I guess )
Rgds,
Connie
- Original Message -
From: "Scott Barnett" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, August 13, 2002 2:31 AM
Subject: Installing .pm's
HI,
I am new at perl and was wondering what is best w
Thanks
Scott Barnett
Home Care Medical - Technical Support Specialist
1-800-369-6939
1-262-786-9870 ext.214
E-Mail [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Monday, August 12, 2002, at 11:21 , Joe Mecklin wrote:
> Thanks Drieux,
>
> You put me on the right track. Working through your suggestion made me
> realize I also needed a sleep between seeing the prompt and sending the
> data (something also required in the Expect script but inconveniently
What does this mean?
Use of implicit split to @_ is deprecated at UNIX_prelim.pl line 344.
line 344: $policyCount = split (/\t/, $violations{$vID});
-Sarah
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
When doing a split and no array present to the left of = then would
go to @_ when wanted to see what you had just split. It is saying you
should not do that, but provide an array reference for the split.
Wags ;) ps I believe that it is what it is saying.
-Original Message-
From:
'deprecated' means that in the future, this functionality is expected to be
removed from the programming language.
It generally implies that you should do what you are doing in a different
way so that in the future your code will still work.
In this case, it looks like you are trying to assign th
hello all,
does anyone know of any perl modules that can be used to retrieve mail using the
Maildir format...i am new at this so any sample code also would be greatly appreciated
thank you
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
read:
perldoc -f split
split /PATTERN/,EXPR,LIMIT
split /PATTERN/,EXPR
split /PATTERN/
split Splits a string into a list of strings and returns
that list. By default, empty leading fields are
preserved, and empty trailing ones are deleted.
All,
Have a quick regex question here ;)
What is the sequence to search for a string backwards?
IE:
03:17amup 36 days, 49 mins, load average: 1.90, 1.83, 1.75
Instead of splitting/searching what have you to get the middle
number (1.83)
I th
>
>
>you are using split in scalar context. Anyone know what's the solution to
>get around this? other than turning off warnings.
>
probably not what you want, but
$policyCount = scalar(@tmp = split (/\t/, $violations{$vID}));
works fine without warnings.
>
>
>>-Original Message-
You might try a indexr looking for the 1st and 2nd comma from the
right. What is between those columns would be your number. As to being
easier, unsure of that.
Though you could possible do something like:
/,\s*(\d+\.\d+),\s*\d+\.\d+$/ which would have
On Mon, Aug 12, 2002 at 05:40:18PM -0400, Nikola Janceski wrote:
> you are using split in scalar context. Anyone know what's the solution to
> get around this? other than turning off warnings.
>
> > -Original Message-
> >
> > Use of implicit split to @_ is deprecated at UNIX_prelim.pl l
hi everyone. I'm putting a simple shopping cart together that emails order on the
checkout. Below is the logic of how it works and I was wondering if something could be
simplified (especially the number of pre existing conditions for the whole thing to
work, which are: user must accept cookies
On Tue, Aug 13, 2002 at 12:06:50AM +0200, Paul Johnson wrote:
> $policyCount = $violations{$vID} =~ tr/\t//;
Oops. I forgot the + 1.
$policyCount = $violations{$vID} =~ tr/\t// + 1;
Proofreading is so much easier once it's been sent.
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
Ronald Yacketta wrote:
>
> Have a quick regex question here ;)
>
> What is the sequence to search for a string backwards?
> IE:
>
> 03:17amup 36 days, 49 mins, load average: 1.90, 1.83, 1.75
>
> Instead of splitting/searching what have you to get the middle
> number (1.83)
> I think it wo
This works for me.
Thanks for everyone's remarks and helpful advice.
-Sarah
-Original Message-
From: Paul Johnson [mailto:[EMAIL PROTECTED]]
Sent: Monday, August 12, 2002 6:14 PM
To: Nikola Janceski
Cc: 'Kirby_Sarah'; '[EMAIL PROTECTED]'
Subject: Re: deprewhat?
On Tue, Aug 13, 2002
This is really weird.
I've been trying to figure out why the value of a scalar changes when I send
it to a subroutine, so I tried assigning the value within the subroutine to
see if it was getting the value some other way, and this is what I got:
Code:
$banana = "3.1.2.3.3.5.B.06";
Nevermind, my brain is fried. Duh, a second print statement somewhere. I
wish there were a RTFM for life. Time to toss in the towel and live to
program another day.
Thanks again for the patience.
-Sarah
-Original Message-
From: Kirby_Sarah [mailto:[EMAIL PROTECTED]]
Sent: Monday, Augu
Hi -
I have a Win32 machine (Win2K) and MS VC++ 6.0. After I installed
Perl 5.8.0 (labeled "latest" on the download site) I encountered
the following problems installing CPAN modules:
Notes on installing CPAN modules under Perl 5.8
Beau E. Cox, TCH International, Ltd.
08/02/02
Tk-800.0
When I submit any form that points to a certain cgi script a new page gets loaded:
www.domain.com/cgi-bin/myscript.cgi
Is it possible to execute the script and do not have the next page loading? I guess I
could use redirect and read what page person came from and redirect them back, or put
some
Hi all
Iam new to perl so please bear with me
i have a log file that i open to extract some information from file is
like this
var/backup/usersA2F.0.1_1027468994_24
var/backup/usersA2F.0.2_1027468994_24
var/backup/usersA2F.0.3_1027468994_24
var/backup/usersA2F.0.4_1027468994_24
var/backup/us
Kirby_sarah wrote at Mon, 12 Aug 2002 23:28:44 +0200:
> line 344: $policyCount = split (/\t/, $violations{$vID});
Another way to count the parts is
my $count = 1;
while ($violations{$vID} =~ /\t/g) { $count++ }
Greetings,
Janek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addition
Laddo wrote at Tue, 13 Aug 2002 06:31:24 +0200:
> i have a log file that i open to extract some information from file is
> like this
>
> var/backup/usersA2F.0.1_1027468994_24
> var/backup/usersA2F.0.2_1027468994_24
> var/backup/usersA2F.0.3_1027468994_24
> var/backup/usersA2F.0.4_1027468994_2
Laddo wrote:
>
> Hi all
>
> Iam new to perl so please bear with me
>
> i have a log file that i open to extract some information from file is
> like this
>
> var/backup/usersA2F.0.1_1027468994_24
> var/backup/usersA2F.0.2_1027468994_24
> var/backup/usersA2F.0.3_1027468994_24
> var/backup/use
Drieux wrote:
> what you want is
>
> how do I create a demon process
>
> that will be able to run independent of my programme:
>
> cf:
>
> http://www.wetware.com/drieux/pbl/Sys/daemon1.txt
If it's not possible to use Proc::Daemon, what would be the other
options, please?
Your help will
Hi Anyone,
I am just trying to get perl to install on my server. It's Win2k with
IIS. I've got it installed, but I can't seem to run any scripts. Can
anyone point me to a good resource to figure this out?
Much appreciation,
Nicole
61 matches
Mail list logo