uot;
in my URL path. Changing it to something else ("\bin2") resolved the
problem.
Obviously, out of the box IIS6 disdains folders of such name as a security
precaution. Permitting that is something I haven't looked into yet.
My 0.02,
Shawn
__
never
mentioned CPAN.
If I was to read this article without ever knowing Perl, I would never have touched
it, and that would be a shame.
Shawn
___
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
$string=~s/\.|\s+|\://g;
Shawn
- Original Message -
From: "web_tur" <[EMAIL PROTECTED]>
To: "active" <[EMAIL PROTECTED]>
Sent: Friday, November 02, 2001 6:45 AM
Subject: remove dots from string
> Dear Sirs,
>
> I try and try but no results.
econd...
Shawn
- Original Message -
From: "Gisle Askestad" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, August 24, 2001 5:03 AM
Subject: Active Perl vulnerable to hacker attempt?
>
> Hello group
>
> I'm runing Apache 1.3.20 and A
Are you reading Lincoln's book (Official Guide to Programming with CGI.pm)?
It is a very good place to start, but O'Reilly has several books that pick
up where it leaves off..
Shawn
- Original Message -
From: "Ken Fair" <[EMAIL PROTECTED]>
To: "Active Perl
from Unix you can do this:
system("echo command | at now");
-Original Message-
From: Conrad, Bill (ThomasTech) [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 21, 2001 3:38 PM
To: [EMAIL PROTECTED]
Subject: Using EXEC to force execution in Background on UNIX.
Hi All
Is the
IIS 4 and 5 have the inability to reload global environment variables. I've
had this issue before. Restarting IIS or its services does nothing. The
only solution that worked for me is to reboot the server.
-Original Message-
From: Charles Santhouse [mailto:[EMAIL PROTECTED]]
Sent: Wedn
ing a return
HTML page and not an error... If your script calls sendmail without an
error check, it will error out quietly, and go on with other things.
Shawn
- Original Message -
From: "Dom Alfrey" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, July 26, 2001
I would use:
$email_addr = "[EMAIL PROTECTED]"
($email_id) = $email_addr =~ /(.+)@/;
-Original Message-
From: FAIZ ZAHIR [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, July 24, 2001 2:43 PM
To: [EMAIL PROTECTED]
Subject: Regular Experssion
How do i match e-mail id in the form: [EMAIL PROTEC
Well, this will be the last I say on this...
The reason we got into it was because Matt has done a lot for the Perl
community. He has written scripts, documented them, and given them away for
free.
That was the gist of the conversation...
Shawn
- Original Message -
From: "Geoff
does Mr. Goddard :-)
Shawn
> As for Gates: 90% of your users and clients would not
> exists were it not for Gates. And I bet he gives more
> away than you, Mr McKinley.
>
> Lee
___
ActivePerl mailing list
[EMAIL
no matter what, there will always be a hack for EVERY setup.
Shawn
> Specifically, if you use formmail.pl, an E-mail spammer can plug in his
own
> recipient addresses and send thousands of messages that appear to come
from
> your web server. I have a friend who works for a company tha
l'} !~ /[\w\-]+\@[\w\-]+\.[\w\-]+/) { # if $in{'email'} does
NOT match the regex;
one of the items was not filled out or the email was invalid, report
error;
} else {
Everything is there and email is correct, run the rest of the script;
}
Shawn
___
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
er:\n$start\n\n";
for (my $x=0;$x
I am sure it can be condensed some more, but I am not sure you are going to
get a single regex to do what you are wanting...
BTW, thanks, I did not know about (?:.*). I guess I will have to see how
much processing time this neat little trick will save :-)
Sh
how about
my $Time = (time);
# epoch seconds
or
my $Time = localtime();
# real world time
Shawn
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of Chunbo
> Shao
> Sent: Monday, June 25, 2001 8:57 AM
> To: [EMAIL PROTECTED]
=~ s/ ($search)/$1\n/g;
chomp $text;
print $text;
}
Play with the $search, there are some oddities (you will notice the spaces
added and taken away through the regexes...
Shawn
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Beha
Yes, grep has some great benefits if used properly! Unfortunately a lot of
people, myself included up until a couple of months ago, either don't know
about or how to use it. I didn't figure I would throw it out there since
there was already some confusion :-)
Shawn
> Or in
e () {
chomp;
# $line contains line from a.txt
Shawn
> > > open (IN, "a.txt") ;
> > > while () {
> > > chomp ($line = <>);
> > > # $line contains line from a.txt
> >
> > No $line contains a line from a file whose name is in @ARGV or from
w I would go about removing that entry?
>
> -Wes
>
> P.S. Thanks for your input...it is most appreciated.
> > -Original Message-
> > From: Shawn [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, March 21, 2001 1:45 PM
> > To: North, Wesley J; [EMAIL PROTE
(my $new_string = $old_string) =~ s/#ifdef SCCS_USED.*?#endif//gsm;
Have you tried something like this?
Shawn
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of North,
> Wesley J
> Sent: Wednesday, March 21, 2001 3:34 PM
> To:
I am not familiar with PWS, but Apache is free, and there is a huge apache crowd
to help out with things :-)
Shawn
- Original Message -
From: "Kaspars Vilkens" <[EMAIL PROTECTED]>
To: "Activeperl LISTSERV" <[EMAIL PROTECTED]>; "Perl-Web
LISTS
@found = grep { /\.gif$/i } @files;
This will find all elements of @files that end with .gif and store the results
in @found.
Shawn
> Is there a quick way to check if an element exists in a list?
>
> Currently, I have:
>
> @mylsit = ("foo", "bar", "
Yes, you are correct, replace 'unless ($line = $name)' with 'unless ($line eq
"$name\n")'... That's what I get for not testing it before I posted... Sorry
about that Lee and list.
Shawn
- Original Message -
From: "Joerg Plate" <[EMAIL
open (FILE, "$file");
while ($line = ) {
unless ($line = $name) { # name being the one you want to take out
$new_file .= $line;
}
}
close (FILE);
open (FILE, "$file");
print FILE $new_file;
close (FILE);
Shawn
- Original Message -
From: &q
Here is some really ugly, and slow, code, but I just had to try it.
Shawn
$| = 1;
print "Content-type: text/html\n\n";
my $length_of_search = 2;
my $some_var = "This is 123 FE 321 DGEFGD just a simple test of a script AB";
my ($num, $test_set_1, $test_set_2, %seen);
rs (CGI) and
always change mine in the first place.
Shawn
___
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
n it.
An excellent book on regex's is Mastering Regular Expressions by
Orielly.
Shawn
- Original Message -
From: "Henry Potter" <[EMAIL PROTECTED]>
To: "Shawn" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Monday, December 04, 2000 9:25 PM
Su
l. Unless you
are running on a UNIX box or a secured directory of NT, you should not have any
problems accessing the cgi script.
To display the html format in a browser, you must send an HTTP header (print
"Content-type: text/html\n\n";), otherwise
28 matches
Mail list logo
