Hello,
I am in the process of developing a CGI application that requires user
authentication. In the past I have developed a simple login screen where I
validated the user and forwarded the request based on the result.
I would like to progress to the next level and pass the authentication to
Hi all,
What is the UNIX grep equivalent in perl?
For eg:
vobs=`cleartool lsvob -s -host blrk4005a|grep $vob_tag`;
here the grep is UNIX grep?
What about in perl is there any function equivalent?
Regards
j
perldoc -f grep
--- Javeed SAR [EMAIL PROTECTED] wrote: Hi
all,
What is the UNIX grep equivalent in perl?
For eg:
@vobs=`cleartool lsvob -s -host blrk4005a|grep
$vob_tag`;
here the grep is UNIX grep?
What about in perl is there any function equivalent?
Regards
j
Javeed Sar wrote:
Hi all,
Hello,
What is the UNIX grep equivalent in perl?
For eg:
@vobs=`cleartool lsvob -s -host blrk4005a|grep $vob_tag`;
here the grep is UNIX grep?
What about in perl is there any function equivalent?
my @vobs = grep /\Q$vob_tag/, `cleartool lsvob -s -host
Hi List,
I have an online web map created through mapinfo-when
you click on a part of the JPEG image it loads a CGI
script and passes a unique 12 digit number which then
identifies where on the map it is.
After the road/point has been selected and the cgi
script has returned the location-it
If you are generating the email CGI form on the fly,
you can pass the number as a hidden INPUT field :
eg:
form xxx, action= , method=
... INPUT fields as needed
input type=hidden name=ID value=123456789123
/form
Hope it helps.
Ben Crane a écrit :
Hi List,
I have an online web
Hi, Bruno:
Unfortunately, I don't have one laying around in my inbox right now.
(The one that arrived right after I sent my original inquiry!) When I do
get one, though, I'll forward it on to you.
Thanks!
--
Eric P.
Sunnyvale, CA
On Thu, 3 Oct 2002, Bruno Negrao - Perl List wrote:
Hi
Can anyone point me to a regexp tutorial (or manpage for that matter). I
can't seem to find good information that's too indepth on the subject (and
some of you guys look like regexp wizards).
thanks,
shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
block that mailing address.
--- Eric Pretorious [EMAIL PROTECTED] wrote:
Hi, Bruno:
Unfortunately, I don't have one laying around in my
inbox right now.
(The one that arrived right after I sent my original
inquiry!) When I do
get one, though, I'll forward it on to you.
Thanks!
I have learnt a lot from these pages:
http://japhy.perlmonk.org/book/
//Dave
-Original Message-
From: Fogle Cpl Shawn B [mailto:[EMAIL PROTECTED]]
Sent: den 8 oktober 2002 09:27
To: '[EMAIL PROTECTED]'
Subject: Perl regexp tutorial?
Can anyone point me to a regexp tutorial (or
Give a 'config file' with 100 or so entries of global subs like:
/nli/|[nli]|nli,p
/nlt/|[nlt]|nlt,p1
/nlp/|[nlp]|nlp,p3
/nlh/|[nlh]|nlh,p2
And so on...
I read these into a hash (sPiChars) with 'replace' value as key and the
RegEx of the search terms as value of that give key. Then as I go over
On Tue, 8 Oct 2002, Faymon, Kurt wrote:
Give a 'config file' with 100 or so entries of global subs like:
/nli/|[nli]|nli,p
/nlt/|[nlt]|nlt,p1
/nlp/|[nlp]|nlp,p3
/nlh/|[nlh]|nlh,p2
And so on...
I read these into a hash (sPiChars) with 'replace' value as key and the
RegEx of the search
Hi Kurt,
You can save yourself the if statement. If the pattern is not found the
s/// will not proceed. That will save process ting the line twice when you
do match the pattern.
Other than that, you are changing nl followed by a single letter to pX
with X being a digit corresponding to that
From: Faymon, Kurt [EMAIL PROTECTED]
Give a 'config file' with 100 or so entries of global subs like:
/nli/|[nli]|nli,p
/nlt/|[nlt]|nlt,p1
/nlp/|[nlp]|nlp,p3
/nlh/|[nlh]|nlh,p2
And so on...
I read these into a hash (sPiChars) with 'replace' value as key and
the RegEx of the search
From: Johnstone, Colin [EMAIL PROTECTED]
I have successfully sent just plain text emails using sendmail but can
I send HTML emails, I have tried this with no success.
$from=foo\@bar.com;
$to= shift;
$subject=Latest News!;
$sendmailpath=/usr/sbin/sendmail;
open
From: Dennis LaPine [EMAIL PROTECTED]
I've had this script configured and running on two other servers
without any problems. I'll be a monkeys uncle if I can get this to run
on the new server we have moved to. This is a Linux based server and I
...
Before you do anything
Here is a little script I am working on, first part executes without any
problem... The database is deleted from MySQL but the second part of the
script which is supposed to take a file on my disk and insert it into my db
does not work...
Second part (after for (split(//
#!/usr/bin/perl
$in =
Hi List,
I have a problem, when I try to redirect to a new
site...I get the following text in the browser window:
Status: 302 Moved location: www.yahoo.com
it doesn't immediately go to yahoo.
regards
Ben
__
Do you Yahoo!?
Faith Hill -
From: Ben Crane [EMAIL PROTECTED]
I have a problem, when I try to redirect to a new
site...I get the following text in the browser window:
Status: 302 Moved location: www.yahoo.com
it doesn't immediately go to yahoo.
Most probably you've already printed the header so this is treated as
Gregory Bernard wrote:
Here is a little script I am working on, first part executes without any
problem... The database is deleted from MySQL but the second part of the
script which is supposed to take a file on my disk and insert it into my db
does not work...
Second part (after for
Colin Johnstone wrote:
HI all,
I need help sending HTML emails with sendmail have tried this
$from=foo\@bar.com;
$to= shift; ## yes this is enclosed in a function and I pass the email address as a
parameter
$subject=Latest News!;
$sendmailpath=/usr/sbin/sendmail;
open
Davide Copelli wrote:
I need to stop modifing the code I made in perl for a web application.
Don't modify it any longer.
Or did you mean that others should not change them any longer.
You find some information under
perldoc -q compile
perldoc -q hide
I am using Linux and I have a web space
All,
I'm looking for suggestions on how I can accomplish running a perlscript to
e-mail me when a certain log condition is met.
My idea is that I will call the perlscript from syslog.conf:
local2.* |exec /sbin/perlscrip.pl
How do I get perl to take input from syslogd?
How would I make sure
On Tue, 8 Oct 2002 10:10:55 +1000 , [EMAIL PROTECTED]
(Colin Johnstone) wrote:
I need help sending HTML emails with sendmail have tried this
open (SENDMAIL, | $sendmailpath -t);
print SENDMAIL Content-Type: text/html\n;
print SENDMAIL Subject: $subject\n;
print SENDMAIL From: $from\n;
print
Hi! I'm sure this is simple and I'm overlooking something but here goes. I'm trying to
write a script that will ping a machine but print it's results to a file (in Wordpad;
I'm using NT) and the file will open and show the results. I'm able to ping and I'm
able to direct it to a file but it's
Hello all
I have an array like this:
@array=(1,2,3,4,5,6);
And I would like to join the element starting from the third one until
the lasta want. Something like:
join (,,$array[2],$array[3],$array[4],$array[5]);
The problem I have is that this array will chance from time to time
sometimes
Diego Riano wrote:
I have an array like this:
@array=(1,2,3,4,5,6);
And I would like to join the element starting from the third one until
the lasta want. Something like:
join (,,$array[2],$array[3],$array[4],$array[5]);
The problem I have is that this array will chance from time
read up on slices;
join (,, @array[2 .. $#array]);
-Original Message-
From: Diego Riano [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 10:51 AM
To: [EMAIL PROTECTED]
Subject: Joining array elements
Hello all
I have an array like this:
@array=(1,2,3,4,5,6);
From: Anthony Beaman [EMAIL PROTECTED]
Hi! I'm sure this is simple and I'm overlooking something but here
goes. I'm trying to write a script that will ping a machine but print
it's results to a file (in Wordpad; I'm using NT) and the file will
open and show the results. I'm able to ping and
.--[ [EMAIL PROTECTED] wrote (2002/10/08 at 09:55:09) ]--
|
| All,
|
| I'm looking for suggestions on how I can accomplish running a perlscript to
| e-mail me when a certain log condition is met.
|
| My idea is that I will call the perlscript from syslog.conf:
|
|
.--[ Diego Riano wrote (2002/10/08 at 16:50:41) ]--
|
| Hello all
|
| I have an array like this:
|
| @array=(1,2,3,4,5,6);
|
| And I would like to join the element starting from the third one until
| the lasta want. Something like:
|
| join
Instead of iterating through the keys and then using the key to get the value,
it's easier on the eyes and I believe a little bit more efficient (could be
wrong there) to do it this way:
while ( (my $key, my $value) = each %yourhash ) { ... }
This saves you from having to use
Hello All,
I'm installing Proc::Spawn and I find this:
/usr/bin/perl Makefile.PL
Checking if your kit is complete...
Looks good
Could not eval '
package ExtUtils::MakeMaker::_version;
no strict;
local $VERSION;
join ,, @array[2...$#array];
works nicely for me.
Frank Wiles wrote:
.--[ Diego Riano wrote (2002/10/08 at 16:50:41) ]--
|
| Hello all
|
| I have an array like this:
|
| @array=(1,2,3,4,5,6);
|
| And I would like to join the element starting from the third one until
Hi list,
can one redirect from a web page that cannot be found?
i.e. If for some reason www.yahoo.com came up blank
can perl redirect back to the original page or to an
error page?
Ben
__
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos
BTW, what George is showing there is an Array Slice. That's why the @
symbol is used instead of the $ symbol. I'd recommend looking it up in the
perldocs.
-Original Message-
From: George Schlossnagle [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 9:26 AM
To: Frank Wiles
Hi ...
I am trying to understand the auto-incr/decr out of the 'perlop' man page.
I could not fully understand the following.
If, however, the variable has been used in only string contexts since it was set, and
has a value that is not the empty string and matches the pattern
Can someone help me please?
Can you be more specific about what you don't understand?
If $foo is a string of alpha characters and you use ++ you get a string with
the last character incremented alphabetically.
This does not work both ways, -- does not reverse the effect of ++ on
strings.
you would probably want to do that in the .htaccess file in a root
directory... there is some documentation if you search google.com for
..htaccess custom error message
--
Dra'Kon
Humans are poor excuses for eons of monkey inbreeding. -Chris Marlor
Thanks Mark.
I mean how is the following possible.
print ++($foo = 'Az'); # prints 'Ba'
print ++($foo = 'zz'); # prints 'aaa'
Thanks
Anil
- Original Message -
From: Mark Anderson [EMAIL PROTECTED]
To: Anil Shekhar [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Tuesday,
Not answering the question, more like adding to it. :) There was recently a
fair bit of discussion on Perl profilers. I wonder if a Profiler would be
applicable to socket info?
= Original Message From Jessee Parker [EMAIL PROTECTED] =
Is there a way to keep track of the number of
That's still not terribly specific. Actually the second case of zz=aaa
throws me but looking at it, this is my *guess* (someone PLEASE correct me).
The first case is possible because (intuitively) B follows A and 'a' follows z
(in a wraparound sort of way). The wraparound causes a carry so
Steve Grazzini wrote:
And besides, open() is not particularly easy to
override. You'd have to account for all of:
open FH, $path;
open FH, $path;
open FH, , $path;
open FH, , \$sstream;
open FH, command |;
open FH, | command;
i don't recommand people do all of the
I think you're right. Here is an excerpt from the perlop perldoc.
If, however, the variable has been used in only string contexts since it
was set, and has a value
that is not the empty string and matches the pattern /^[a-zA-Z]*[0-9]*\z/,
the increment is done as a string, preserving each
I was just playing with Net::POP3 this past weeked. Here's a working
script. It's not great, but I got the basics working, and you can mess
with it.
Shawn
#|/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\|
# Code
#|/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\|
#!/usr/bin/perl
#use Net::FTP;
you can always parse netstat , and have it refresh (sleep and loop) every
few seconds
-Original Message-
From: Jessee Parker [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 12:59 PM
To: [EMAIL PROTECTED]
Subject: Number of open sockets
Is there a way to keep track of
On Mon, Oct 07, 2002 at 08:37:15AM -0400, SilverFox wrote:
SPAM: Start SpamAssassin results --
SPAM: This mail is probably spam. The original message has been altered
SPAM: so you can recognise or block similar unwanted mail in future.
SPAM: See
Can someone tell me how to get passed this error?
The Config files it's looking for is there.
Can't locate config.cgi in INC (INC contains: /usr/lib/perl5/5.6.1/i686-linux
/usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i686-linux
/usr/lib/perl5/site_perl/5.6.1
which do you have:
use config.cgi;
require config.cgi;
in your code?
Where is the file located? did you check the case of the file name in the
script and at it's location?
we need more info.
-Original Message-
From: Bootscat [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08,
Shawn Milochik wrote:
I was just playing with Net::POP3 this past weeked. Here's a working
script. It's not great, but I got the basics working, and you can mess
with it.
It's a nice script, the only things that could be improved is to write
it more Perlish :-)
#!/usr/bin/perl
use
Fogle Cpl Shawn B wrote:
Can anyone point me to a regexp tutorial (or manpage for that matter). I
can't seem to find good information that's too indepth on the subject (and
some of you guys look like regexp wizards).
http://www.oreilly.com/catalog/regex2/
John
--
use Perl;
program
Dan Cox wrote:
How would I get the IP address that is dynamically assigned to my modem
and assign it to a variable? I'm using windows and would prefer not to
use Win32::Registry. Thanks for any help.
Dan Cox
check out IO::Socket and IO::Interface. example:
#!/usr/bin/perl -w
use strict;
And don't forget the standard 'perldoc perlre'.
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 11:20 AM
To: [EMAIL PROTECTED]
Subject: Re: Perl regexp tutorial?
Fogle Cpl Shawn B wrote:
Can anyone point me to a regexp tutorial (or
Janek Schleicher wrote:
Shawn Milochik wrote:
@message = undef;
You missed this one Janek. :-)
To the OP, you are assigning the value undef to the first array
element. That statement is the same as:
$message[0] = undef;
If you populate the array with push() you now have an extra
Hi! I'm taking a refresher look at Learning Perl on Win32 (O'Reilly book) and I'm
wondering if there are any notes posted for this book or any kind of notes or
cheatsheets for Perl. I found the Perl Intro on Learning Perl.org to be helpful and
anything like that would be great. I've gone
Silverfox wrote...
[snip]
: OK...I rewrote the code..created the sub's..this is what am getting..any
: ideas:
I may be totally off the mark, but I think it's an issue of namespaces. Sort
of a variation of the same problem as before. Keep reading...
: ERROR:
: [laptop@localhost perl]$ ./aim.pl
:
can you give us a sample of your script showing the line in question
On Tue, Oct 08, 2002 at 02:05:28 -0500, Bootscat wrote:
Can someone tell me how to get passed this error?
The Config files it's looking for is there.
Can't locate config.cgi in @INC (@INC contains:
Try http://www.barcharts.com/barcharts/chartDetails.asp?sku=555-6
__
Stephan Gross 732-548-3494 [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
David [EMAIL PROTECTED] wrote:
Steve Grazzini wrote:
And besides, open() is not particularly easy to
override. You'd have to account for all of:
open FH, $path;
open FH, $path;
open FH, , $path;
open FH, , \$sstream;
open FH, command |;
open FH, | command;
i don't
He just sent it to me for some reason, but I can't find the problem.
Be sure to CC Bootscat as he is the original poster.
-Original Message-
From: Bootscat [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 4:51 PM
To: Nikola Janceski
Subject: Re: Need urgent help
Here's how
Thanks for the suggestions. I'm pretty new to Perl, as you can tell. I
came from Javascript most recently, and (sorry) Visual Basic. I am a linux
user and fan, although I'm writing this from work, where I have to use
Windows. I mainly posted this script to try to help the person who posted
a
Hi!
Go to barcharts.com. They have a convenient cheatsheet for Perl - 8 1/2
x 11, six pages,laminated.
Jim
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Tue, Oct 08, 2002 at 01:45:27PM -0700, Jim Thomason wrote:
Hi!
Go to barcharts.com. They have a convenient cheatsheet for Perl - 8 1/2
x 11, six pages,laminated.
Hmm. That's two recommendations for this, but I'm not sure I would
trust anything that claims to be about PERL, the
Here's one I had sent to me after postage in reply to Eric's email on naver.com.
This's expected to bounce.
Alfred,
--
block that mailing address.
--- Eric Pretorious [EMAIL PROTECTED]> wrote: >
Hi, Bruno:
>
> Unfortunately, I don't have one laying around in
in that casem just humour me and try
require './config.cgi';
i have heard that can solve some problems
On Tue, Oct 08, 2002 at 04:17:50PM -0400, Nikola Janceski wrote:
He just sent it to me for some reason, but I can't find the problem.
Be sure to CC Bootscat as he is the original poster.
On Tue, Oct 08, 2002 at 10:00:09AM -0700, Anil Shekhar wrote:
Thanks Mark.
I mean how is the following possible.
print ++($foo = 'Az'); # prints 'Ba'
print ++($foo = 'zz'); # prints 'aaa'
(I'm obviously not Mark, but I figure I'll give this a shot)
That's how the ++
On Tue, Oct 08, 2002 at 09:59:16AM -0700, Jessee Parker wrote:
Is there a way to keep track of the number of open sockets your program
might have that are in a TIME_WAIT (I think it is) state?
The problem is if a socket is in a TIME_WAIT state it's no longer open by
your program. The socket
Is there any concise method of fully evaluating the arithmetic
expressions in here documents, rather than just one level of
substitution?:
sub RotationMatrix {
my $theta = $_[0] * 3.14159265 / 180.0;
my $m = cos($theta);
my $n = sin($theta);
my $T =
Hey Paul,
My MUA believes you used Mutt/1.3.28i
to write the following on Tuesday, October 8, 2002 at 5:19:38 PM.
PJ let me suggest The Perl Reference Guide, by Johan Vromans. Johan
PJ is a long standing member of the Perl community who has been
PJ keeping this guide pretty much since
Jim Ockers wrote:
Is there any concise method of fully evaluating the arithmetic
expressions in here documents, rather than just one level of
substitution?:
sub RotationMatrix {
my $theta = $_[0] * 3.14159265 / 180.0;
my $m = cos($theta);
my $n = sin($theta);
my $T =
Try compiling the code and then spinning up the compiled version.
Don
-- Forwarded Message --
Subject: running a perl script as a service on W32 box
Date: Mon, 07 Oct 2002 13:03:28 -0400
From: david odell [EMAIL PROTECTED]
To: beginners perl [EMAIL PROTECTED]
I can install
71 matches
Mail list logo