in the
file: a-z A-Z 0-9 [EMAIL PROTECTED] <mailto:[EMAIL
PROTECTED]&*()[]{};:'",.<>/?|\>
&*()[]{};:'",.<>/?|\
Thanks in advance
Tony Heal
I need to remove all messages older than X from a gigabyte size mbox. Anyone
got a script for this?
Tony Heal
Pace Systems Group, Inc.
800-624-5999 x9317
I want to run a cgi script from another server inside a local cgi page
SSI will only do local files, not remote URLs.
How can I do this?
Tony Heal
Pace Systems Group, Inc.
800-624-5999
[EMAIL PROTECTED]
id format at ./trim.pl line 41. (41 is the die line)
Tony Heal
Pace Systems Group, Inc.
800-624-5999
[EMAIL PROTECTED]
> -Original Message-
> From: Chas Owens [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, August 21, 2007 9:50 AM
> To: [EMAIL PROTECTED]
> Cc: beginners@perl.
id format at ./trim.pl line 41. (41 is the die line)
sorry Chas I first sent to you and not the list.
Tony Heal
Pace Systems Group, Inc.
800-624-5999
[EMAIL PROTECTED]
> -Original Message-
> From: Chas Owens [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, August 21, 2007 9:50 AM
15.2-111
15-special.1-52
15-special.1-53
15-special.1-54
16-special.4-9
16-special.4-10
16-special.5-1
16-special.5-2
16-special.6-6
Tony Heal
Pace Systems Group, Inc.
800-624-5999
[EMAIL PROTECTED]
> -Original Message-
> From: Tony Heal [mailto:[EMAIL PROTECTED]
> Sent: Tuesda
push (@newValues, $_) unless $h{$_}++
}
foreach (@newValues){print "$_\n";}
my @new = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [$_,(split/-/)[-1]] }
@newValues;
print "@new[0..4]\n";
}
Or for a
15.2-124
15.2-65
15.2-65
15.2-66
15.2-66
Tony Heal
Pace Systems Group, Inc.
800-624-5999
[EMAIL PROTECTED]
hat
If an element exists in array 2 and not in array 1 it does not even know it and
never will.
So my real question is is there a better, more elegant way to do this or
should I keep going?
Thanks
Tony
#!/usr/bin/perl
# AUTHOR Tony Heal - [EMAIL PROTECTED]
use st
I am doing wrong?
Thanks
Tony
#!/usr/bin/perl
# AUTHOR Tony Heal - [EMAIL PROTECTED]
use strict;
use warnings;
use Digest::MD5 qw(md5);
use Sys::Hostname;
my $filesize;
my $testPrefix = "200708040030";
#verify the MD5 hash use Digest::MD5 my $digest = file
AA
A
A
NNN
NNN
NNN
B
B
B
C
C
C
sarge-plain:~# ./temp.pl
A
NNN
BBBBB
C
Tony Heal
> -Original Message-
> From: John W. Krahn [mailto:[EMAIL PROTECTED
So since '?' will match the last character, group, or class 0 or 1 time the it
matches the group of whatever happens to
be in '.*' up to any spaces that are attached to the '$'.
Is that correct?
Tony Heal
> -Original Message-
> From: Chas Ow
onyhello Tonysarge-plain:~#
results with the remark removed:
sarge-plain:~# ./Perl-2.pl
hello TonyhelloTonysarge-plain:~#
Tony Heal
I am looking for a good IDE for perl, I have eclipse and one of it's plugins,
but I am wondering if I a spinning my
wheels trying to set this up when there may be a better alternative.
Tony Heal
OK I am probably missing something stupid, but I can not get this to work. The
output should be 'Daily-{day of
week)-{MMM}-{DD}-{}' for Sunday thru Friday and 'Weekly-{1|2|3}-{day of
week)-{MMM}-{DD}-{} for Saturday and
every fourth Saturday should start rotating months 'Month-{1|2|3}-{da
al Message-
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tom Phoenix
> > Sent: Monday, May 14, 2007 9:15 PM
> > To: [EMAIL PROTECTED]
> > Cc: beginners@perl.org
> > Subject: Re: LibXML help
> >
> > On 5/14/07, Tony Heal <[EMAI
orry for the mis-sent email Tom
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tom Phoenix
> Sent: Monday, May 14, 2007 9:15 PM
> To: [EMAIL PROTECTED]
> Cc: beginners@perl.org
> Subject: Re: LibXML help
>
> On 5/14/07, Tony He
Oops. BTW line 16 is
my $source = $parser->parse_file(
'/usr/local/twikixconf/tmpxconf/epace/src/conf/epace.xconf' );
Tony
> -Original Message-----
> From: Tony Heal [mailto:[EMAIL PROTECTED]
> Sent: Monday, May 14, 2007 8:40 PM
> To: beginners@perl.o
When I run this, I get 'No such file or directory at
/usr/lib/perl5/XML/LibXML.pm line 518.
at ./temp.pl line 16'. I have confirmed that the file exists and is readable.
How do I T/S this?
Tony
#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXSLT;
use XML::LibXML;
su
I have a list of names that I need to break up and reassemble.
The list consists of the first name and last name combined as a single word in
wiki format. i.e.JoeBlow
I need to break this up and recreate the list as
| FirstName | LastName | Email | WikiName |
i.e.
| Joe | Blow
I am trying to determine how this does what it does.
sub IsLeapYear
{
my $year = shift;
return 0 if $year % 4;
return 1 if $year % 100;
return 0 if $year % 400;
return 1;
}
But I do not understand, and I can not find what a single, lone % means.
Anyone know?
To
I am working on a script to back trace debian package (program) dependencies.
Here is how the systems works
Package A needs packages D,E & F installed before it will install
Package D needs package G, H & I installed before it will install
Package G needs package C, J & K installed before i
Subject: Re: stats on partitions
>
> On 2/5/07, Tony Heal <[EMAIL PROTECTED]> wrote:
>
> > OK, so bash is the shell I am using and the df utility is a
> > standard Xnix command. My question is, is there a perl way
> > of getting the stats on partitions
TECTED] On Behalf Of Tom Phoenix
> Sent: Monday, February 05, 2007 11:48 AM
> To: [EMAIL PROTECTED]
> Cc: beginners@perl.org
> Subject: Re: stats on partitions
>
> On 2/5/07, Tony Heal <[EMAIL PROTECTED]> wrote:
>
> > Specifically I want to get the total, used and
OK, what am I missing. I can not find anything that will provide me with the
stats on a partition. I could shell out and
use df or du but is it possible to do this in perl without shelling out to bash.
Specifically I want to get the total, used and available space similar to what
the bash df
I sent this email at 11:36AM EST and I the below email was posted at 11:28AM
EST. I guess I will see how long it take
this email to post. But I would like to know why it took 2 hours to post the
message below.
Tony
> -Original Message-
> From: Tony Heal [mailto:[EMAIL PROTECTED]
This message was originally sent Sun 2/4/2007 11:32 PM, but does not appear to
have made it to the list. So I have
changed the subject slightly.
OK, what am I missing. I can not find anything that will provide me with the
stats on a partition. I could shell out and
use df or du but is it poss
I found an example using getopt on the web and I am trying to convert it to
my use. Everything works except the last part. What am attempting to do is
create a script which I can pass switches as arguments. Eventually this
script will replace the rm command on my linux server, so that I can creat
I did a simple google search for 'using perl with oracle' and came up with
these
http://www.cs.purdue.edu/homes/cs290w/perlLecs/PerlOracleExample.html
I did not look to far into this but it looks promising
http://vsbabu.org/mt/archives/2002/09/05/perl_for_oracle.html
MS SQL was a little harder
OK, the has to be an easy way to call one script OR another from within
another, but I would like suggestions, as this does not work because there
is no RegEx to put from here.
#!/usr/bin/perl
if ( -f '/usr/local/custom/backup.pl' || '/usr/local/custom/backup.sh' ) {
system ("$&"); }
31 matches
Mail list logo
