- Original Message
From: Jeff Peng <[EMAIL PROTECTED]>
To: Perl Beginners
Sent: Wednesday, May 21, 2008 15:53:00
Subject: Re: No such file or directory
> open(RULES, 'rule.pl')
please use full path if you don't know where you are exactly.
On Wed, May 21,
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
>
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
>
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 http://uk
ere a work around of this with
mod_perl ? Thanks
- Original Message
From: Rob Dixon <[EMAIL PROTECTED]>
To: beginner perl mailling list
Cc: anthony brooke <[EMAIL PROTECTED]>
Sent: Saturday, May 17, 2008 0:47:52
Subject: Re: Initialize object permanently
anthony brooke wrote:
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 too
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 to
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 mess
: 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
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 <[EM
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 maillin
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 modu
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 Language::Prolog::Yaswi
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
Needs your help on the above
Regards
Mazhar
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.dy
Be the first to hear what's new at MSN - sign up to our free newsletters!
http://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/fi
sing modules.
>
>
Hi,
I use WWW::Mechanize
http://search.cpan.org/~petdance/WWW-Mechanize-1.18/lib/WWW/Mechanize.pm
to get pages. I 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 th
[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>
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
ention is not necessarily the one in the
runtime 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
be, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://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
--
mmand 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>
; Rajeev
>
Try out with the modules 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-respon
nd LF (unix) in
text-mode STDIO. So 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
--
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 additiona
ages/m.png
cp Captcha/images/r.png blib/lib/Authen/Captcha/images/r.png
cp Captcha/images/t.png blib/lib/Authen/Captcha/images/t.png
cp Captcha/images/background1.png
blib/lib/Authen/Captcha/images/background1.png
Manifying blib/man3/Authen::Captcha.3
/usr/bin/make -- OK
Running make test
PERL_DL_NONLAZ
$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
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&#
cp myMod.pm to /my/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>
hes the path
to @INC 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]
F
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 Ett
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; }
>
> retur
---END PGP SIGNATURE-
i prefer the return once method:
sub foo
{
my $self = shift;
if (@_ == 1) { $self->{'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>
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 wo
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.
ide with pre-existing tables.
I've found this to be the best 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
date =~ m{(Wed)\s(Jun)\s{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>
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 les
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 ins
ackage Foo;
return $self;
}
sub getFooKey
{
my $self = shift;
return $self->{'fookey'};
}
sub setFooKey
{
my $self = shift;
if (@_== 1) { #if there's another param, set that as the value
$self->{'fookey'} = shift;
}
return $self;
}
1;
--
Anth
you want a default value. 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
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>
ot;match found";
}
else
{
print "match not found";
}
}
close FH;
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
pe this character so in the future it won't kill the
script?
Thank you,
--
Paul 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
Si
is
> actually an object $self. )
Hope this helps
PC
--
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 p
us: $encrypt_status\n";
What am I doing wrong?
Thanks,
--J(K)
--
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>
...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
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://
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.d
eed for shebang line
here).
require('/path/to/foo.pl');
foo(); # call main::foo 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>
;] );
$res = $mesg->count;
$mesg = $ldap->unbind;
return $res;
}
--
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
Sig
itional 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>
) = $string =~ m/^(.*?)@/;
if (substr($line,0,5) eq "From:") { }, but i want to get past the phase of
if ($line =~ m/^From:/i) { do something with "From" line; }
--
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/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 $elapse
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();
:
:
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.
perseded by "our" declarations, available in
Perl v5.6.0 or
later. See "our" in perlfunc.
--
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>
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 benchma
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
>
s work, 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>
g/> <http://learn.perl.org/first-response>
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
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 so
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?
rint $formula{"Addition"} . "\n";
print $formula{"Subtraction"} . "\n";
print $formula{"Brackets"} . "\n";
-- Code Ends --
Thanks,
Anthony Murphy
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
/.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
"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 Tim
.
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
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]
This
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
ex
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 u
Re: default value 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
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 d
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
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
How can i make sure only the URL between the quotes is saved?
if (/^\s*(.+)<\/A>\s*$/i){
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: [E
statement
Date: Thu, 19 Feb 2004 16:21:22 -0500
--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
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
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? http://auto.msn.be/pirell
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 Message--
>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
&
){
$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-49
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
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
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, whi
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
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
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]
, 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 ro
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 PRO
unications
Plano, TX 75074
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 al
"Esposito, 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 -
-----
From: Esposito, 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 curre
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 de
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 fo
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 se
+10 -print
-exec ls {} \;`;
system `find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print
-exec ls {} \;`
!system `find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print
-exec ls {} \;`;
Anthony J Segelhorst
Enterprise Systems Management Team
Pho
e end it
will meet the goal that management put forth, which is
what keeps me paid :)
-Tony
-Original Message-
From: drieux [mailto:[EMAIL PROTECTED]
Sent: Wednesday, December 03, 2003 7:24 PM
To: Perl Perl
Subject: Re: Timing several processes
On Dec 3, 2003, at 10:49 AM, Akens, Ant
1 - 100 of 257 matches
Mail list logo
