Hello, I know that this is a very common problem, but I am very sure that the
file exist in that directory, also its permission is -rwxrwxrwx , why does it
give such an error ? What are the other potential problems that cause this ?
Thanks
Send instant messages to your online friends
anthony brooke wrote:
Hello, I know that this is a very common problem, but I am very sure that
the file exist in that directory, also its permission is -rwxrwxrwx , why
does it give such an error ? What are the other potential problems that cause
this ? Thanks
Send instant messages
anthony brooke wrote:
Hello, I know that this is a very common problem, but I am very sure that
the file exist in that directory, also its permission is -rwxrwxrwx , why
does it give such an error ? What are the other potential problems that cause
this ? Thanks
Send instant messages
PM, anthony brooke [EMAIL PROTECTED] wrote:
--
Jeff Peng - [EMAIL PROTECTED]
Professional Squid supports in China
http://www.ChinaSquid.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
The problem is I am using
Hello, I am using Wordnet::QueryData which allow access to a very huge
dictionary data. The initialization of object
my $wn = WordNet::QueryData-new;
took
2 wallclock secs ( 2.36 usr + 0.07 sys = 2.43 CPU)
Then the subsequent request for the data is exetremely fast
For the lines below
around of this with
mod_perl ? Thanks
- Original Message
From: Rob Dixon [EMAIL PROTECTED]
To: beginner perl mailling list beginners@perl.org
Cc: anthony brooke [EMAIL PROTECTED]
Sent: Saturday, May 17, 2008 0:47:52
Subject: Re: Initialize object permanently
anthony brooke wrote:
Hello, I
Hello, I am using Wordnet::QueryData which allow access to a very huge
dictionary data. The initialization of object
my $wn = WordNet::QueryData-new;
took
2 wallclock secs ( 2.36 usr + 0.07 sys = 2.43 CPU)
Then the subsequent request for the data is exetremely fast
For the lines below
Hello, my logic is really bad, here is I want to do.
my @list = qw(a b a a d e e );
I want to compact the array by concatenating the adjacent vowels and consonant
together, like for the above it should become,
my @list2 = qw(ab aa d ee);
How do I get the @list2 ? Thanks.
Send instant
Thanks for the reply, but sometimes I don't know where is the code that cause
the infinite loop. Is there such as thing as perl configuration file, to set
the execution time for any code, any where in the program just like php.ini
file. Thanks.
- Original Message
From: Chas. Owens
Subject: Re: Fw: Perl maximum execution time
From: anthony brooke [EMAIL PROTECTED]
Thanks for the reply, but sometimes I don't know where is the code
that cause the infinite loop. Is there such as thing as perl
configuration file, to set the execution time for any code, any where
in the program
Hello everyone, I need to serialize an perl object to STRING TEXT, not scalar
or file. The Storable module allow serialization to file and scalar variable,
but this is not possible for passing between the perl and prolog program,
that's why I need it to be string. I tried out the FreezeThaw
Thanks for the reply, I always thought that Dumper is used for debugging
purposes, I will look at it deeper. Btw, what you mean by cyclic data ?
- Original Message
From: Chas. Owens [EMAIL PROTECTED]
To: anthony brooke [EMAIL PROTECTED]
Cc: beginner perl mailling list beginners
I had installed the Language::Prolog::Yaswi from
http://search.cpan.org/~salva/Language-Prolog-Yaswi-0.14/Yaswi.pm
but it is in C code implementation, normally when I install a perl module, it
should be located at /usr/local/share/perl/5.8.8
but I can't see where is the
Hello,
I like to install CPAN modulike like AI::Prolog, I have the Cpanel that have
CPAN module installer, but my shared hosting does not allow some modules to be
installed like this AI::Prolog, what can I do ? Should I install it in my
computer first and then copy the PM files to my web host
If it helps, I wrote a script to ping a list of mirrors, from a list
of fqdn's...
http://perl-e.chovy.com/sample/ping-mirrors
http://perl-e.chovy.com/sample/ping-mirrors.txt
--
Anthony Ettinger
Resume: http://chovy.dyndns.org/resume.html
(I'm currently available for contract/telecommute work
do some simple XML validation and manipulation in some
cases.
I've used HTTP::Request, curl is easy too...watch what you pass to the
command line though.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e
://www.msn.co.uk/newsletters
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED
-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
://learn.perl.org/first-response
read about object oriented perl. or you can always use a config file.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http
platform you cannot write a line-oriented script. If files
are too big to slurp then you'd work on chunks, but need to check by
hand whether a CRLF has been cut in the middle.
I'm reading each line in a while loop, so it should work fine on a large file?
--
Anthony Ettinger
Signature: http
On 6/19/06, John W. Krahn [EMAIL PROTECTED] wrote:
Anthony Ettinger wrote:
# order matters
$raw_text =~ s/\015\012/\n/g;
$raw_text =~ s/\012/\n/g unless \n eq \012;
$raw_text =~ s/\015/\n/g unless \n eq \015;
Does it make any difference if I use s/\cM\cJ/cJ/ vs. s/\015\012/\n/g
with an strace at the same time.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
available in
http://search.cpan.org/~aar/Module-Crypt-0.04/Crypt.pm
Module::Crypt
--
Prabu
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http
replacing CR (not followed by LF) with LF should
work on mac, and CRLF with LF on dos, and leaving LF untouched on *nix
(other)then it shouldn't be a problem...however it appears that
\cJ is actually different on win32 than it is on unix.
so is \cJ is actually \cM\cJ on win32?
--
Anthony
!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
$result-execute(@$userid);
You declared an array @userid, not an arrayref, so you don't need to
dereference it.
$result-execute(@userid);
should do the trick.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
t/1Can't locate GD.pm in @INC (@INC
install GD (requires the C library for GD as well)
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe
way to ensure not dropping tables on
accident, especially if you load an sql file with drop table foo if
foo exists. I almost did that at work the other day on a table with 1
character diff in the name (i was lucky, and added dp_ to all my table
namespaces).
--
Anthony Ettinger
Signature: http
On 6/8/06, Graeme McLaren [EMAIL PROTECTED] wrote:
Hi Anthony, good idea about overriding the table names. I had a feeling
there would be a conf file somewhere. As I am outputting the results of the
SELECT to an HTML::Template I am already using a Conf file which is another
class. This leads
my ($option) = $_ =~ s/(.*?)#/; #skip inline comments
should be
m//, not s//
On 6/8/06, Anthony Ettinger [EMAIL PROTECTED] wrote:
On 6/8/06, Graeme McLaren [EMAIL PROTECTED] wrote:
Hi Anthony, good idea about overriding the table names. I had a feeling
there would be a conf file
-{'foo'} = shift; }
return $self-{'foo'};
}
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On 6/8/06, Mr. Shawn H. Corey [EMAIL PROTECTED] wrote:
On Thu, 2006-08-06 at 10:56 -0700, Anthony Ettinger wrote:
i prefer the return once method:
sub foo
{
my $self = shift;
if (@_ == 1) { $self-{'foo'} = shift; }
return $self-{'foo'};
}
I would prefer it to return the old
Is there a way to modify @INC for the perl installation as a whole?
All my scripts have logic to push the same directory to @INC. It's
rather repetative.
I know I can export PERL_LIB environment variable, but I need
something for all system users (including win32).
--
Anthony Ettinger
accordingly, based on path names. I tried File::Spec, but use
lib won't take a variable as it's evaluated before runtime, so that
left me with push.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
/path/ ??
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On 6/8/06, Lawrence Statton [EMAIL PROTECTED] wrote:
I would prefer it to return the old value:
sub foo {
I see...I i've been more or less looking at the current state
$curr = $foo-bar();
$old = $curr;
$curr = $foo-bar('new value');
--
Anthony Ettinger
Signature: http
{1,2}([1..31])};
__END__
--
Joshua Colson [EMAIL PROTECTED]
iNation, LLC
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org
://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
. Setting it as empty is still a
value, so you potentially could have empty values in your database. if
(defined($name)) would be better, but can be rather cumbersome.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
{
my $self = shift;
if (@_== 1) { #if there's another param, set that as the value
$self-{'fookey'} = shift;
}
return $self;
}
1;
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
just execute it with perl -wl foo
or add the shebang line: #!/usr/bin/perl -w
On 6/6/06, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote:
Anthony Ettinger [EMAIL PROTECTED] writes:
The syntax {} is for a hashref, it's just an un-named hashref inside
that object.
my $foo = new Foo;
print $foo
There's a good book PHP5 Patterns and Object Oriented Programming
which I found very instrumental in my understanding of object-oriented
programming, before applying it to Perl.
There are of course Perl books on the subject, and the perldocs, but I
found PHP's object oriented support to be less
;
Following is the error
readline() on closed filehandle FH at C:\irfan\search.pl line 13.
can anybody plz help
Regards
Irfan Sayed
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
Nowosielski
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
ps...you're checking if it has a value, 256 (a typical error return
code) would pass that test.
On 5/25/06, Anthony Ettinger [EMAIL PROTECTED] wrote:
check $? or $!
$gp-foo() or die $!;
my $output = $gp-foo();
print return code: $?;
see perldoc perlvar
On 5/25/06, Jason Balicki [EMAIL
, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org
sub routine defined inside foo.pl
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On 5/23/06, John W. Krahn [EMAIL PROTECTED] wrote:
Japerlh wrote:
What are the most successful applications of Perl?
http://www.oreillynet.com/pub/a/oreilly/perl/news/success_stories.html
movable type is one that I know of off hand.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org
ebay.com started out as a perl, but it's been revamped as java for a
few years now.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org
...course everybody uses perl here and there for batch processing :)
On 5/23/06, Anthony Ettinger [EMAIL PROTECTED] wrote:
ebay.com started out as a perl, but it's been revamped as java for a
few years now.
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
Anthony
warnings;
use File::Path;
eval { mkpath(c:\\a\\test\\path) };
if ($@)
{
print Couldn't create: $@;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Anthony Ettinger
Signature
; }
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
at ./script.pl line yy.
Is this the correct way to import globals?
$perldoc vars
says...:
NOTE: For variables in the current package, the functionality provided by this
pragma has been superseded by our declarations, available in
Perl v5.6.0 or
later. See our in perlfunc.
--
Anthony
On 5/2/06, Jay Savage [EMAIL PROTECTED] wrote:
On 5/2/06, Anthony Ettinger [EMAIL PROTECTED] wrote:
I want to double-check that it is correct to use our to import globals.
[snip]
What do you mean by import? Variables aren't imported from BEGIN
blocks. They're declared in BEGIN blocks
On 5/2/06, Charles K. Clarkson [EMAIL PROTECTED] wrote:
Anthony Ettinger wrote:
: #!/usr/bin/perl -w
:
: use vars qw($foo); #globals;
: use strict;
:
: sub foo {
: $foo = 'foo';
: my $baz = 'baz';
: }
:
: my $baz = 'pre-baz';
: foo();
:
: print $foo, \n;
: print $baz, \n;
I
.
On 5/2/06, Charles K. Clarkson [EMAIL PROTECTED] wrote:
Anthony Ettinger wrote:
: #!/usr/bin/perl -w
:
: use vars qw($start_time $end_time);
: use strict;
:
: BEGIN {
: $start_time = time();
: }
:
: sub log_time {
: my $exit_code = shift;
: my $elapsed_time
://learn.perl.org/first-response
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
, but with PRE-STDIN, POST-STDIN
functionality?
Thanks,
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On 5/1/06, Mr. Shawn H. Corey [EMAIL PROTECTED] wrote:
On Mon, 2006-01-05 at 16:28 -0700, Anthony Ettinger wrote:
I'm tracking execution time of a bunch of scripts, and want to drop in
tracker.pl into each script...the problem I'm faced with is if a
user walks away from their computer while
Thanks, I'll look into this...looks good so far though.
I can just stick my @t = times; print join(\n, @t), \n;
at the bottom of the script.
On 5/1/06, John W. Krahn [EMAIL PROTECTED] wrote:
Anthony Ettinger wrote:
I'm not trying to benchmark, just gather some real-world data in my tools
Hi there everybody, I have a question and I am pretty stumped for the answer.
I have a program that does the following:
A = Reads URI from URIHASH.
Visits site A.
Parses all URIS on site A and for each URI found adds the URI to the URIHASH.
A = Reads next URI from URIHASH.
Visits site A.
And
I've have a program that reads input from STDIN like so:
example: program file.txt
and then I try to read a password from STDIN that the user types in but
it skips right over that section. Do I have to do anything to STDIN
before I try to get user input from it? Perhaps close and reopen it?
easily print these out and I could put the $data{extX}
in with a
# regular expression but how do I get it to evaluate the variable as if
it
# were an expression?
print $formula{Addition} . \n;
print $formula{Subtraction} . \n;
print $formula{Brackets} . \n;
-- Code Ends --
Thanks,
Anthony Murphy
/.kshrc
Anthony J Segelhorst
Enterprise Systems Management Team
Phone: 937-495-1876
Email: [EMAIL PROTECTED]
This email has been scanned for all viruses by the MessageLabs SkyScan
service
.
Anthony J Segelhorst
Enterprise Systems Management Team
Phone: 937-495-1876
Email: [EMAIL PROTECTED]
This email has been scanned for all viruses by the MessageLabs SkyScan
service
Wiggins d Anconia [EMAIL PROTECTED] wrote on 05/28/2004 12:37:56
PM:
I am trying to set up a script that will do the do a current time -1
routine.
Examples:
Current Time:
mmddyy:hhss
052804:1030
Output:
052804:0930
Current Time:
052704:0015
Output:
Any help for a script downloading files from a http site?
Tony Esposito
Oracle Developer, Enterprise Business Intelligence
XO Communications
Plano, TX 75074
Work Phone: 972-516-5344
Work Cell: 972-670-6144
Email: [EMAIL PROTECTED]
Is there a way in Perl to have a script wait 30 seconds before it
continues processing? Like or a pause or hold?
Anthony J Segelhorst
Enterprise Systems Management Team
Phone: 937-495-1876
Email: [EMAIL PROTECTED
Is there a perl call to tell if a port is open or closed built into Perl?
I am basically trying to build a perl script to monitor ports on Windows
Servers and I am trying to stay away from system commands.
Anthony J Segelhorst
Enterprise Systems Management Team
Phone: 937-495-1876
Email
Hi,
I'm new to hashes, and I've been playing around with the
following for a while... I'm just not getting it.
I have two hashes, one containing data read in from a file,
one with current data. I'd like to merge the two, adding
any new keys and values into the hash, and for any keys that
Hi
is it possible to give a default value to the input you're asking? I tried
the code below but this didn't work.
$URL = http://;;
chomp ($URL = $URL.);
Thx
Anthony
_
De winnaars zijn gekend van de fotoromanwedstrijd
http
for input
Date: Tue, 24 Feb 2004 13:05:09 -0600
On Tue, Feb 24, 2004 at 07:41:46PM +0100, Anthony Vanelverdinghe
([EMAIL PROTECTED]) wrote:
Hi
is it possible to give a default value to the input you're asking? I
tried
the code below but this didn't work.
$URL = http://;;
chomp ($URL = $URL
It works fine!
So it isn't possible to show this on the screen so that the user can see
it's already there and just has to complete the url??
Thanks
Anthony
_
Je horoscoop al gelezen? http://www.msn.be/horoscoop
--
To unsubscribe
Hi
Could anyone explain why the output of the hash isn't: 1 a
2 b
3 c
How can i make that the order remains
Hi
is Java you can do the following:
int[][] table=new int[4][3];
int i=table[2][2];
is there also something like this in Perl??
Thanks!!
_
Online shoppen, niets zo makkelijk http://www.msn.be/shopping
--
To unsubscribe, e-mail:
Hi
I want to save the name and the URL of a html hyperlink in an array
(@bookmarks).
The problem is that the quotes aren't recognized, so it doesn't save only
the URL;
but also the other attributes of A...
How can i make sure only the URL between the quotes is saved?
if (/^\s*DTA
Hi
Could anyone please tell me what's wrong with the following program?
The compiler gives errors in the switch statement.
Thx!!
Anthony
%commands=('v',0,'w',1,'t',2,'/pattern/',3,'s',4,'x',5);
$end = 0;
while (!end){
print bookmarks.html;
$operation = ;
chop $operation;
$op=$commands{$operation
--As of Thursday, February 19, 2004 10:14 PM +0100, Anthony Vanelverdinghe
is alleged to have said:
Could anyone please tell me what's wrong with the following program?
The compiler gives errors in the switch statement.
--As for the rest, it is mine.
You mean, besides the fact that Perl doesn't have
Hi
When I run a very simple Perl program, it closes immediately after it has
done. So that I can't even see the output. How can I solve this?
Thanks in advance!
_
De nieuwe Pirelli 2004 kalender al gezien?
Instead of upgrading why not just install Perl 5.6 in a separate directory..just a
thought!
Tony Esposito
Oracle Developer, Enterprise Business Intelligence
XO Communications
Plano, TX 75074
Work Phone: 972-516-5344
Work Cell: 972-670-6144
Email: [EMAIL PROTECTED]
-Original
){
$last = $tmrname,$gateway_hash{$gateway},$version,$interp,$type\n;
#print $last;
push(@temparray, $last);
}
@temparray = sort @temparray;
print @temparray;
Anthony J Segelhorst
Enterprise Systems Management Team
Phone: 937-495-1876
Email: [EMAIL PROTECTED
For Quality purposes, Anthony J Segelhorst 's mail on Monday 26 January
2004
17:17 may have been monitored or recorded as:
How come when I push a variable to an array it puts one whitespace
before
the variables on all the lines except the first one? I would except all
the lines not to have
a counter to count the lines
until a different line shows up. I already have the list sorted, so I
just need to compare the new string to old string and if they are the same
increase the counter, and if they are different start a new counter.
Anthony J Segelhorst
Enterprise Systems Management Team
James Edward Gray II [EMAIL PROTECTED]
01/20/2004 02:11 PM
To: Anthony J Segelhorst [EMAIL PROTECTED]
cc: [EMAIL PROTECTED]
Subject:Re: counters for lines
On Jan 20, 2004, at 12:39 PM, Anthony J Segelhorst wrote:
I have the following output, and each
I'm attempting to use the following code on an AIX machine to
monitor the error log (using the errpt command).
I'm sure parts of it are very ugly, but it's (mostly) working.
The part that isn't is the foreach loop. What it's supposed to
do is as follows:
#read in the summary error report,
Sorry all, I seem to be having problems with our company's
chosen mail client (Outlook). Trying this again, hopefuly
it will preserve my EOL characters this time.
- Tony
I'm attempting to use the following code on an AIX machine to
monitor the error log (using the errpt command).
I'm sure
Someone kindly pointed out that perldoc is a handy thing.
- Tony
-Original Message-
From: Akens, Anthony
Sent: Tuesday, January 20, 2004 4:31 PM
To: [EMAIL PROTECTED]
Subject: RE: Use of System
Sorry all, I seem to be having problems with our company's
chosen mail client (Outlook
There is Open Perl IDE. Check out http://open-perl-ide.sourceforge.net.
Unfortunately, it is for Windows only.
HTH :-)
Tony Esposito
Oracle Developer, Enterprise Business Intelligence
XO Communications
Plano, TX 75074
Work Phone: 972-516-5344
Work Cell: 972-670-6144
Email: [EMAIL PROTECTED]
Glad you've found a solution. Just thought I'd drop a note about
some of the things I've had success with.
We have a few scripts (originally written as shell scripts in csh)
that I've converted to perl. They reside on a box running AIX 5.1.
On a win2k box I've installed the Windows services
I have a perl program ( with DBI ) which prints out a line to STDOUT
after every 100 database commits. I would like the 'print' to just
refresh the current line every time but - not knowing how to get around
it - the program instead prints a new line every 100 commits like so:
INFO 3: start
, Anthony
Sent: Tuesday, January 06, 2004 2:54 PM
To: [EMAIL PROTECTED]
Subject: 'print' output on one line
I have a perl program ( with DBI ) which prints out a line to STDOUT
after every 100 database commits. I would like the 'print' to just
refresh the current line every time but - not knowing how
, Anthony [EMAIL PROTECTED]
I have a perl program ( with DBI ) which prints out a line to STDOUT
after every 100 database commits. I would like the 'print' to just
refresh the current line every time but - not knowing how to get
around it - the program instead prints a new line every 100 commits
Work Phone: 972-516-5344
Work Cell: 972-670-6144
Email: [EMAIL PROTECTED]
-Original Message-
From: Esposito, Anthony
Sent: Tuesday, January 06, 2004 3:09 PM
To: Jenda Krynicky; [EMAIL PROTECTED]
Subject: RE: 'print' output on one line
I tried that already but it just gives me the final
There is no 'case' statement in Perl but it is easy to mimic such a construct.
Tony Esposito
Oracle Developer, Enterprise Business Intelligence
XO Communications
Plano, TX 75074
Work Phone: 972-516-5344
Work Cell: 972-670-6144
Email: [EMAIL PROTECTED]
-Original Message-
From: [EMAIL
, January 06, 2004 5:07 PM
To: Esposito, Anthony
Cc: Jenda Krynicky; [EMAIL PROTECTED]
Subject: Re: 'print' output on one line
Esposito, Anthony wrote:
I tried that already but it just gives me the final count at the end. I would like
the output to change - the row count, that is - as each 100
Anthony J Segelhorst [EMAIL PROTECTED] wrote:
I am trying to wrap the following Unix command into perl and having a
few
issues:
find /var/spool/Tivoli/backups -name DB_* -mtime +10 -print -exec ls
{} \;
I have tried (and nothing to seems to work):
$temp = `find /var/spool/Tivoli
, 2003 7:24 PM
To: Perl Perl
Subject: Re: Timing several processes
On Dec 3, 2003, at 10:49 AM, Akens, Anthony wrote:
[..]
print Running vmstat\n;
defined(my $vmstat_pid = fork) or die Cannot fork: $!; unless
($vmstat_pid) {
exec vmstat 5 5 /log/monitor/delta/vmstat.out;
die cannot exec
Hi all!
I'm wanting to write a simple web-based tool to see the status
of several servers at a glance. I know there are many solutions
existing, but I can't learn as much about perl by just using one
of those as I can by writing my own. The first step I want to do
is call a script from cron
1 - 100 of 262 matches
Mail list logo