--- Lawrence Statton XE2/N1GAK [EMAIL PROTECTED]
wrote:
If you're dealing with variable length strings,
separated by some kind
of character, then regexp is the tool you want, not
substr.
This snippet will work so long as hostname and
platform name are made
up of \w ... if not, substitute
--- Lawrence Statton XE2/N1GAK [EMAIL PROTECTED]
wrote:
--- Lawrence Statton XE2/N1GAK
[EMAIL PROTECTED]
I am using Spreadsheet::WriteExcel to populate
certain
columns which is working, but in column A for
example
I am using the method write_col which requires a
reference,
Not
--- Charles K. Clarkson [EMAIL PROTECTED]
wrote:
Derek B. Smith mailto:[EMAIL PROTECTED]
wrote:
: I then tried
Try something simpler, not more complex. Test
this case.
my @hosts = ( 'sun' );
$worksheet-write_col( 'A2', [EMAIL PROTECTED], $sheet_format
);
If it fails
I want to extend any apologies necessary for my last
post. I am not a violent person its just I get
annoyed when some people are negative, or to me, are
condescending. I was not mad just upset and bothered.
No biggy and the past is in the past. : )
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
I have a string like so:
/home/dbsmith/passwd.oftappp1.hpux and I need to parse
out oftappp1 and hpux.
I have tried to use substr and and regexp with =~.
Here is what I have tried, but need some help cause I
am getting frustrated.
NOTE: strings after passwd are variable in length,
could be 3-10
--- D. Bolliger [EMAIL PROTECTED] wrote:
Derek B. Smith am Dienstag, 12. Dezember 2006 23:19:
I have a string like so:
/home/dbsmith/passwd.oftappp1.hpux and I need to
parse
out oftappp1 and hpux.
I have tried to use substr and and regexp with =~.
Here is what I have tried
Why is return 1 coded at the end of many programs. For
example:
I know it means true but what does this do and why?
thank you
derek
#!/usr/bin/perl
#use strict;
my $user_name = qq(dsmithxx);
my $user_password = qq();
my $sql_server = qq(x);
my ($dbh,$drh,$stmt);
local
--- Jay Savage [EMAIL PROTECTED] wrote:
On 12/8/06, Derek B. Smith
[EMAIL PROTECTED] wrote:
Why is return 1 coded at the end of many programs.
For
example:
I know it means true but what does this do and
why?
Derek,
For historical reasons, the final statement of any
script
The input for the EXE has to be taken from the
file provided by the
user.AndThe EXE shud get invoked by just
dragging and dropping the
input file on the EXE.
Assume, the input file is some text file
containing some raw data.
How should this be done?
You'll get the path
Date: Tue, 5 Dec 2006 14:02:29 -0800 (PST)
From: Derek B. Smith [EMAIL PROTECTED]
Subject: Re: Net::EasyTCP
To: beginners@perl.org
In-Reply-To: [EMAIL PROTECTED]
MIME-Version: 1.0
Content-Type: text/plain;
charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Message-ID: [EMAIL PROTECTED]
X
--- zentara [EMAIL PROTECTED] wrote:
On Sat, 2 Dec 2006 08:08:22 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
I dont understand there is no xs component and
I
dont understand So you could actually include
the
EasyTCP code, as a package right into your script.
Will u
--- zentara [EMAIL PROTECTED] wrote:
On Fri, 1 Dec 2006 20:31:11 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
I was hoping for socket data transfers to mimic an
sftp/ftp get without having to deploy code to the
clients and or deploying this module on the
clients.
Think
--- zentara [EMAIL PROTECTED] wrote:
On Thu, 30 Nov 2006 13:34:16 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
Hello... : )
I need to gather a single filename on hundreds of
servers ranging in *UX flavors from AIX, HP,
Solaris,
RH Linux and Tru64 then store them on on HPUX
--- zentara [EMAIL PROTECTED] wrote:
On Thu, 30 Nov 2006 13:34:16 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
Hello... : )
I need to gather a single filename on hundreds of
servers ranging in *UX flavors from AIX, HP,
Solaris,
RH Linux and Tru64 then store them on on HPUX
--- zentara [EMAIL PROTECTED] wrote:
On Thu, 30 Nov 2006 13:34:16 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
Hello... : )
I need to gather a single filename on hundreds of
servers ranging in *UX flavors from AIX, HP,
Solaris,
RH Linux and Tru64 then store them on on HPUX
--- D. Bolliger [EMAIL PROTECTED] wrote:
Derek B. Smith am Freitag, 1. Dezember 2006 20:31:
--- zentara [EMAIL PROTECTED] wrote:
On Thu, 30 Nov 2006 13:34:16 -0800 (PST),
[EMAIL PROTECTED]
I need to gather a single filename on hundreds
of
servers ranging in *UX flavors from AIX
--- Jay Savage [EMAIL PROTECTED] wrote:
On 11/30/06, Hotz, Harry [EMAIL PROTECTED] wrote:
I have a new AIX 5.3 server that comes
with a default Perl 5.82.
I have a DB2 programmer that has scripts from an
old AIX 4.3 server that
used Perl 5.005_03. He will have to rewrite his
Hello... : )
I need to gather a single filename on hundreds of
servers ranging in *UX flavors from AIX, HP, Solaris,
RH Linux and Tru64 then store them on on HPUX server.
I was initially thinking an scp command like so
foreach my $server in (@servers)
scp /etc/passwd /tmp/passwd.$SERVER
but
Hello,
I want to get a listing of Window services and each
associated status and its startup type. I looked
at Win32::Daemon::Simple but wasn't sure if this is a
good module for doing so?
W/out using a module,
Is there a registry entry for each service I could
parse or a database that I
that what shows up in the Services
MMC are not ALL the
Services the OS recognizes, but only the ones the
writers of each
Service chose to display in the MMC. Go figure.
-Original Message-
From: Derek B. Smith
[mailto:[EMAIL PROTECTED]
Sent: Friday, October 27, 2006 9:23 AM
--- Paul Johnson [EMAIL PROTECTED] wrote:
On Fri, Oct 20, 2006 at 08:11:36AM -0500,
[EMAIL PROTECTED] wrote:
Computer software consists of only two
components: ones and
zeros, in roughly equal proportions. All that is
required is to
sort them into the correct order.
Andrew
--- Chris Share [EMAIL PROTECTED] wrote:
Thanks for the info. Isn't this what the Perl
Package Manager is for?
Rob Dixon wrote:
Chris Share wrote:
I'm trying to implement the following code:
##
require LWP::UserAgent;
-- Andreas Puerzer [EMAIL PROTECTED] wrote:
Tom Phoenix schrieb:
On 10/18/06, Chris Share [EMAIL PROTECTED]
wrote:
I've got a question about $| = 1;
If I add $| = 1; at the top of the program this
fixes the problem and
the program runs as expected.
Normally,
--- Derek B. Smith [EMAIL PROTECTED]
wrote:
-- Andreas Puerzer [EMAIL PROTECTED] wrote:
Tom Phoenix schrieb:
On 10/18/06, Chris Share [EMAIL PROTECTED]
wrote:
I've got a question about $| = 1;
If I add $| = 1; at the top of the program this
fixes
--- Dr.Ruud [EMAIL PROTECTED] wrote:
Norbert Preining schreef:
The Perl Book says: Auto increment and decrement
work as in
C. So if I take this C program:
#include stdio.h
#include stddef.h
int main() {
int a;
int b;
a=3;
b=(++a)+(a++);
--- Rob Dixon [EMAIL PROTECTED] wrote:
Derek B. Smith wrote:
--- Dr.Ruud [EMAIL PROTECTED] wrote:
Norbert Preining schreef:
The Perl Book says: Auto increment and decrement
work as in
C. So if I take this C program:
#include stdio.h
#include stddef.h
int main
--- Marc Sacks [EMAIL PROTECTED] wrote:
I needed to find out the length of an array and did
it by referencing
the array in scalar context. However, use warnings
indicated that this
is a deprecated feature. Is there a non-deprecated
way to do this
(other than looping through the whole
I dont understand what the point of canonpath is here:
It seems to me canonpath only appply so links.
##-- Show me all installed Modules --##
use File::Find 'find';
use File::Spec::Functions;
print Your installed modules on $^O are:\n;
print - x 38,\n;
find { wanted = sub { print canonpath
-- RICHARD FERNANDEZ [EMAIL PROTECTED] wrote:
Hi folks,
I have the following in a CGI script:
When this code gets run (via webpage) I get the
following in the
error_log:
snip
output:
result: 256
STDOUT:
STDERR:
We trust you have received the usual lecture from
the
--- RICHARD FERNANDEZ [EMAIL PROTECTED] wrote:
Did you edit the sudoers file using visudo -f
file
Yes.
Show us the sudoers file using cat -etu file.
# cat -etu /usr/local/etc/sudoers
/tmp/sudoers.richf
# less /tmp/sudoers.richf
# sudoers file.
#
# This file MUST be edited with
returns true or false (1 or '') and in list
context it returns the
contents of any capturing parentheses in the
pattern.
The expression:
( $ptypeline =~ /movable.+(sine|geo|radial|ortho)/i
)[ 0 ]
is a list slice so the regular expression is in list
context but the slice is
a
-- Mathew Snyder [EMAIL PROTECTED] wrote:
Sorry. Just had to do it. :)
--
Mathew Snyder
--
It got a laugh from me!
thank you
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
-- Charles K. Clarkson [EMAIL PROTECTED] wrote:
John Ackley wrote:
: while( ($service) = $SERVICE-fetchrow_array ) {
According to the DBI docs:
If there are no more rows or if an error occurs,
then fetchrow_array returns an empty list.
When a value is returned,
confused. Will you explain again?
I think you missed an explanation step between a and
b?
Reagardless it work so thank you.
--- D. Bolliger [EMAIL PROTECTED] wrote:
Derek B. Smith am Donnerstag, 28. September 2006
22:28:
Why not just specify a non-digit for the first
character:
my
sub getfile {
my $filename = shift;
open F, $filename or die open failed: $!;
my $contents = '';
while (F) {
$contents .= $_;
}
close F;
return $contents;
}
This is inefficient, because the F operator makes
Perl go to all the trouble of breaking the file into
lines and returning them
-- Mumia W. [EMAIL PROTECTED]
wrote:
On 09/29/2006 12:15 PM, Derek B. Smith wrote:
--- D. Bolliger [EMAIL PROTECTED] wrote:
Derek B. Smith am Donnerstag, 28. September 2006
22:28:
Why not just specify a non-digit for the first
character:
my @a = ( 0 .. 9, 'a' .. 'z', 'A' .. 'Z
--- Derek B. Smith [EMAIL PROTECTED]
wrote:
I need to substitute a conversion using chr, but
have
failed on multiple attempts. Basically if the first
element contains a # then convert it. Will anyone
advise?
thank you
derek
#if first char is a-z then print it else warn
#chop string
-- Derek B. Smith [EMAIL PROTECTED]
wrote:
--- Derek B. Smith [EMAIL PROTECTED]
wrote:
I need to substitute a conversion using chr, but
have
failed on multiple attempts. Basically if the
first
element contains a # then convert it. Will anyone
advise?
thank you
derek
--- Mumia W. [EMAIL PROTECTED]
wrote:
On 09/28/2006 08:16 AM, Derek B. Smith wrote:
--- Derek B. Smith [EMAIL PROTECTED]
wrote:
I need to substitute a conversion using chr, but
have
failed on multiple attempts. Basically if the
first
element contains a # then convert
--- Mumia W. [EMAIL PROTECTED]
wrote:
On 09/28/2006 12:04 PM, Derek B. Smith wrote:
**
The input data is a 6 character randomized string
that
could start with a # such as 6FhJ9Z. If it does
start
with a number then I need to convert
Why not just specify a non-digit for the first
character:
my @a = ( 0 .. 9, 'a' .. 'z', 'A' .. 'Z');
my $password = join '', $a[ 10 + rand( @a - 10 ) ],
map $a[ rand @a ], 1 .. 5;
John
Ok great, but I do not fully understand this. Will you
explain in English?
thx
I need to substitute a conversion using chr, but have
failed on multiple attempts. Basically if the first
element contains a # then convert it. Will anyone
advise?
thank you
derek
#if first char is a-z then print it else warn
#chop string into individual characters
my @chars = unpack
(A1 x
-- JupiterHost.Net [EMAIL PROTECTED] wrote:
I'm not sure what Derek is looking for, either,
but have a look at:
* bestpractical.com/rt/
An open-source request/bug/job tracker, which is
also used as part of
the CPAN projcet: rt.cpan.org
* www.cpanforum.com
Open-source Perl
| Regents St | London W1
1AA | UK * 020 776
50849 * lee(at)server-sidesystems.ltd.uk
-Original Message-
From: Derek B. Smith
[mailto:[EMAIL PROTECTED]
Sent: 18 September 2006 20:38
To: Perl List
Subject: transition to Perl developer
To the Gurus,
I am in the process
--- Lee Goddard [EMAIL PROTECTED] wrote:
--- Derek B. Smith
[mailto:[EMAIL PROTECTED] wrote:
--- Lee Goddard [EMAIL PROTECTED] wrote:
Most of the docs you'll ever need are in perldoc
Perldoc perl
Perldoc perltoc Table of contents
perlboot
And why would this be? Becasue it does not load the
entire data set at once or aka one at a time?
If you really need to do this in place due to memory
constraints, I
would advise to run the iteration from back to front,
i.e.
foreach my $indx (reverse 0..$#$ref_array)
--- JupiterHost.Net [EMAIL PROTECTED] wrote:
Derek B. Smith wrote:
Is there a Perl open source project currently
underway
wherein anyone can contribute by writing code for
the
projects completion such as Jbilling? Jbilling is
an
Derek, reread that. That question makes no sense
To the Gurus,
I am in the process of making a transition over to a
Perl Developer. From a knowledge standpoint, is there
anything I should know or need to know. For example I
do not know OO that much.
What about any specific modules that are useful?
Any other advice?
thank you
derek
I need some help in this again. Firt I built a hash
consisting of 52 unique subdir names, but 3 of these
sub-dirs have a dash like so bpjava-msvc. During the
translation is the coorect way to ignore the by using
the \?
my %subdir_for = (
'bpjava\-msvc' = 23,
'bpjava\-susvc' = 24,
--- Tom Phoenix [EMAIL PROTECTED] wrote:
On 9/14/06, Derek B. Smith
[EMAIL PROTECTED] wrote:
my %subdir_for = (
'bpjava\-msvc' = 23,
'bpjava\-susvc' = 24,
'bpjava\-usvc'= 25,
)
Those backslashes aren't doing anything. But they
aren't needed,
either; hyphen isn't
--- Tom Phoenix [EMAIL PROTECTED] wrote:
On 9/11/06, Derek B. Smith
[EMAIL PROTECTED] wrote:
I need to compress a bunch of files, so instead of
making a system call to gzip I figured to try out
Archive::Zip.
After running this code it creates a new file but
is
larger in size
--- Rob Dixon [EMAIL PROTECTED] wrote:
Derek B. Smith wrote:
--- Tom Phoenix [EMAIL PROTECTED] wrote:
On 9/11/06, Derek B. Smith
[EMAIL PROTECTED] wrote:
I need to compress a bunch of files, so instead
of making a system call to
gzip I figured to try out Archive::Zip. After
running
I need to compress a bunch of files, so instead of
making a system call to gzip I figured to try out
Archive::Zip.
After running this code it creates a new file but is
larger in size.
How do I use archive zip to simply zip files so that
they are generally smaller in size?
thank you
derek
All,
Is there a commonly known way or method to limit the
number of arguments that a subroutine can store or
pass?
thank you
derek
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To
store where?
or pass?
pass to what?
Did you mean: Is there a way for a subroutine to
react to a call with to many
arguments?
sub accept_max_5_arguments {
die 'too many arguments!' if @_ 5;
}
sub accept_max_x_arguments { # apart from the first
my $maxargs=shift;
--- D. Bolliger [EMAIL PROTECTED] wrote:
Derek B. Smith am Mittwoch, 30. August 2006 20:44:
store where?
or pass?
pass to what?
Did you mean: Is there a way for a subroutine to
react to a call with to many
arguments?
sub accept_max_5_arguments {
die 'too
# This might come closer to what you want.
foreach my $log (@NBlogs2) {
if ($log =~ m{([[:alpha:]]+)/log.\d+}) {
my $word = $1;
my $number = $subdir_for{$word};
qx(echo cp $log $oldir/$number);
}
}
All,
I am trying to run logic that will copy/delete 3
versions of log.\d+ files to their respective
directories. Because there are so many directories, I
have built a hash table instead of using a bunch of
if else conditions with reg exps. My problem is it
is not returning the words_num
try this syntax:
my $test = system (/usr/bin/snmpget -v1 10.1.11.18
-c secret
.1.3.6.1.4.1.710.7.1.5.1.23.1.13.1|awk '{print $4}');
or
my $test = qx(you command above w/no quotes needed);
or
open (SNMP, snmpget -v1 10.1.11.18 -c secret
.1.3.6.1.4.1.710.7.1.5.1.23.1.13.1 ) or die failed
--- John W. Krahn [EMAIL PROTECTED] wrote:
Derek B. Smith wrote:
All,
Hello,
I am trying to run logic that will copy/delete 3
versions of log.\d+ files to their respective
directories. Because there are so many
directories, I
have built a hash table instead of using a bunch
All,
I am trying to run logic that will copy/delete 3
versions of log.\d+ files to their respective
directories. Because there are so many directories, I
have built a hash table instead of using a bunch of
if else conditions with reg exps. My problem is it
is not returning the words_num
From the previous emails, I do not understand what
parts of this code is doing and why is this practical?
The part is $union{$e} = 1 and $isect{$e} = 1 .
Also %count is never used.
thank you
derek
use warnings;
@a = (1, 3, 5, 6, 7, 8);
@b = (2, 3, 5, 7, 9);
@union = @intersect= ();
%union =
Apparently I can no longer send email to this list
from my work account because of:
The following message to beginners@perl.org was
undeliverable.
The reason for the problem:
5.1.0 - Unknown address error 550-'Mail from
cardinal.com rejected because it does not accept
bounces. This violates RFC
63 matches
Mail list logo