Hi Randal,
I must take issue with you here. Whatever the convenience of such utilities in a
production environment, there is a definite advantage to the learning process in
hand-coding. I learned something just from reading the example--that there was a
specific MIME for httP posts. Whatever
Nearly, but it needs to be:
if ( $qs ne $secret_word_guest and $qs ne $secret_word )
^^^
or consider
unless (grep $qs eq $_, ($secret_word, $secret_word_guest) )
{
:
}
Cheers,
Rob
"John W. Krahn" <[EMAIL PROTECTED]> wrote in message
[
It might help if you told us specifically how you tried to install it. Did
you use the CPAN shell? Did you use any Makefile.PL options?
Basically it isn't installed (tests failed, prerequisits missing?), or it
isn't installed where it needs to be. Any details on the install would be
helpful, po
Ever had the feeling you've been doing too much!
OK, for the first time ever I am attempting to install bits from CPAN (Is
that groaning I hear). I am installing the Tk Bundle, so I follow all the
bits from the Camel book, as the readme has no instructions. According to my
listing I have Bundle
David Gilden wrote:
>
> Hello,
Hello,
> in the following
>
> # Goal: check against two different passwords.
>
> #!/usr/bin/perl
> my $qs = 'c';
> my $secret_word = 'a';
> my $secret_word_guest = 'b';
>
> if ($qs !~ /$secret_word_guest|$secret_word/) {
You need boundaries for an exact matc
Has any used the Perl version of .net?
http://aspn.activestate.com/ASPN/Downloads/PerlASPX/More
What are your thoughts on it? Where did you get your documentation?
Paul Kraus
Network Administrator
PEL Supply Company
216.267.5775 Voice
216-267-6176 Fax
www.pelsupply.com
--
To unsubscribe, e-ma
Well it is probably off topic, but a good discussion anyways. Seems like some
combination of cvs/rcs+bugzilla might do close to the job for you and free at that
:-), though that may shift the burden from yourself to your developers and that may or
may not go over so well with them.
On top of u
You might check out Advanced Perl Programming, though as far as I can tell much of
what it contains was rolled into Programming Perl 3rd Edition. For those of us
starting on PPv1 or PPv2 we didn't have that problem :-). You might also check out OO
Perl by Damian Conway, it is still a very good
I have read learning Perl and have begun programming Perl. The later
seems to move kind of slow and goes to more depth then I need right now.
More of a C. Science book with C. Science history mixed in. Is there a
better way to go about this. I like programming Perl but would enjoy it
more and get m
If this is off topic just tell me to shut the hell up :)
What software would you recommend for project management. I am a one man
it guy supporting about 100 people in 2 locations. I currently use
outlook (yuck) and I am having a hard time have a clear organized work
schedule. I want an app that w
Thank you for the advice.
> > open( STATES, "sort $hotline |" )
> > or cust_die( "Cannot open files to get states
> > ($hotline,$newtofile,$newmover): $!\n" );
>
> What does the $hotline variable contain? Is there any reason
> to use an
> external sort instead of perl's built-in sort?
OK, you'll kick yourself /really/ hard this time!
1/You build your HTML in $query_msg and then do the substitute in
$query_message
2/None of those quotemeta() calls do anything, as you're throwing away
the results
Don't worry - soon be Christmas :-))
Cheers,
Rob
- Original Messag
"Satya Devarakonda" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hi,
>
Hi Satya
> I have a set of strings in array @search_key and a log file loaded into an
> array @modem_log.
>
> I want to extract lines that contain the keys and load them into four
> arra
When I run the following code I get this error: Can't call method
"Worksheets" on an undefined value.
I added the die statement for the $book declaration and it does die.
Which makes me believe that it cannot find $excelfile.
So I tried coding the full path and I get the same result. armonth.xls
is
I see one problem right away...
> my @search_out = qw( \@env_start \@env_end
> \@env_files \@env_bytes \@env_errors );
The keyword "qw" is used to denote that the values are strings... in your
case they aren't strings, they are references. You should do this
instead...
my @search_out = (\@e
Hi Ian
I'm thinking about this one: I've used SNMP but not with Perl.
In the mean time, look here for a list of SNMP-related RFCs.
http://directory.google.com/Top/Computers/Internet/Protocols/SNMP/RFCs/
Rob
"Ian Zapczynski" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMA
Hi,
I have a set of strings in array @search_key and a log file loaded into an
array @modem_log.
I want to extract lines that contain the keys and load them into four
arrays - @env_start, @env_end, @env_files, @env_bytes, @env_errors.
Can somebody tell me if what I am doing below is right?
Than
How about this:
if ($qs !~ /($secret_word_guest|$secret_word)/) {
or
if ($qs ne $secret_word_guest && $qs ne $secret_word_guest) {
-Original Message-
From: David Gilden [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 23, 2002 9:15 AM
To: [EMAIL PROTECTED]
Subject: check against two
Hello,
in the following
# Goal: check against two different passwords.
#!/usr/bin/perl
my $qs = 'c';
my $secret_word = 'a';
my $secret_word_guest = 'b';
if ($qs !~ /$secret_word_guest|$secret_word/) {
print "fail\n";
} else {
print "go, ok\n";
}
another ver
Hello all,
I hope my question isn't too specific for this list. I'm still learning
the basic concepts of SNMP, but I need my current script to send an SNMP
trap to a host here upon failure. I am hoping to use Net::SNMP to do
so, but I think I'm unclear of the syntax due to my current lack of
On my FreeBSD box I use Xemacs and nedit . I enjoy nedit
very much. Nedit is small, fast, and does a nice job of perl syntax
highlighting.
nyec
On Monday 23 December 2002 06:33 am, Joseph Ruffino wrote:
> Paul,
>
> I use Programmer's File Editor for Windows also. I have found it
> very easy t
Try
echo "secret_number" | passwd
or
echo "secret_number" | passwd -
Where secret_number is the password
__
William Ampeh (x3939)
Federal Reserve Board
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Paul,
I use Programmer's File Editor for Windows also. I have found it very
easy to use, and very helpful debugging my program visually. I can see
the typos better than with Notpad.
Joseph Ruffino
Automated Systems Assistant
Gail Borden Public Library District
--
To unsubscribe, e-mail: [EM
Hello all,
I have several users that I need to manage on a few (RH Linux) servers
and I have recently run into the need to move user lists from one box to
another. I know I can copy the passwd and shadow files over from box to
box, but I'm not sure that I want to move the user and group ID's from
Damn. That'll teach me to cut 'n' paste :-/ Try:
print "\n";
print while <>;
print "\n";
/R
"Rob Dixon" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> OK, I think you need this:
>
> print "\n";
> print while <>;
> print "\n" and close
Sorin Marti wrote:
>
> Hi all,
Hello,
> I've written a very simple script which puts xml-documents together...
> Now I want to add a root node at the beginning and one at the end.
>
>
> [content]
>
>
> How do I do that?
>
> #/usr/bin/perl
>
> while( @ARGV ){
> $filename=shift @AR
Hi Sorin
What module are you using, if any, to build your XML?
Rob
"Sorin Marti" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hi all,
>
> I've written a very simple script which puts xml-documents together...
> Now I want to add a root node at the beginnin
Hi all,
I've written a very simple script which puts xml-documents together...
Now I want to add a root node at the beginning and one at the end.
[content]
How do I do that?
#/usr/bin/perl
while( @ARGV ){
$filename=shift @ARGV;
open( DATEI, "<$filename" );
while( ){
print unl
Hi
You'll kick yourself...
$query_message =~ s/:\)//;
First slash terminates the substitute.
Use
$query_message =~ s[:\)][];
or similar.
Rob
"Mystik Gotan" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hi there!
>
> I've got a problem. I scri
Hi there!
I've got a problem. I scripted a nice guestbook script. All working fine,
and then I thought about adding smilies to the script. Now, the only
solution doing this is using tr/// or s///. Tried both, no effect. I really
tried a lot, but still getting some errors. So, I thought, adding
Yeam it's pretty vague. But maybe he needs concentating:
$var = "boo!";
$var .= "eek!";
$var .= "\n";
$var .= "were you scared?";
print $var;
Which will print something like:
boo! eek!
were you scared?
--
Bob Erinkveld (Webmaster Insane Hosts)
www.insane-hosts.net
MSN: [EMAIL PROTECT
31 matches
Mail list logo
