Just so everyone knows, it was for a print friendly part of a CMS-type
script. With all your help, it was solved, with a regex. It wasn't just for
the body tag, It is for EVERY tag, and I blocked the BGCOLOR, BACKGROUND,
STYLE, CLASS, ID, COLOR, and more attributes to totally make the page both
I'm saying it could be bgcolor="COLOR" or bgcolor=COLOR
In a message dated 3/20/2003 12:35:02 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> Hi
>
> Can anyone tell me what does $. in perl mean ?
> And also anyplace I will get references about these in quick time
> ie. a handbook type ?
>
It is an alternitive for $INPUT_LINE_NUMBER. All the
I'm making something, and need to block out BGCOLOR attribute. The problem
is, the BGCOLOR could be with or without quotation marks. This is the code I
used:
$article =~ s/ bgcolor=("?)(.*?)("?)//gi
It doesn't work to my liking, and was hoping someone else had a better
solution.
William
Elizabeth Castro's Perl and CGI for the WWW: Visual Quickstart Guide.
In a message dated 3/18/2003 8:45:04 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> What is the best book for a beginner to get started with on Perl and CGI?
>
$string = "the\n\tlucky\n\t\tcoin";
if ($string =~ m/^(\s)*the(\s)*lucky(\s)*coin(\s)*$/) {
print "Yup";
}
Someone may have a better solution, but here is mine:
use strict;
my (@array, $y, $x, $rnd);
until ($y == 10) { push(@array, $y); $y++;}
push(@array, qw(a b c d e f g h i j k l m n o p q r s t u v w x y z));
#Make the @array
$x = 50;#numer of numbers taken
while ($x > 0) {
$rnd = int(
In a message dated 2/28/2003 5:28:56 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> I have started learning perl language and to this effort I have bought the
> book programming perl from O\'Reilly .Can anyone tell me whether this one
> is okay and how to exactly go forward learning per
In a message dated 1/24/2003 2:32:26 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> my problem is, the cgi can't append the password, shadow and group
> file. How can I make my script to work? I don't have any idea now if
> its possible to make the script work
I won't act like I know the
In a message dated 1/24/2003 1:42:42 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> #!/usr/bin/perl -w
> #
> # emails comments from the site to my address
> #
> use strict;
> use CGI;
> #
> #
> my $q = new CGI;
> my $name = $q->param( "name" );
> my $email = $q->param( "email" );
> my $co
In a message dated 1/21/2003 2:47:44 PM Eastern Standard Time, [EMAIL PROTECTED]
writes:
> How do I split the big file up into smaller bits - ex. One sub function
> per file? (How too do it isn't a problem) but how do I tell the main
> function how to find the files where the sub function is loc
In a message dated 1/21/2003 12:15:36 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> I am writing a cgi script to run as a cron job. when
> it runs i need the date of 'one year ago today' in the
> format '-MM-DD' to be stored in a variable to be
> used later in the script. I am abou
In a message dated 1/21/2003 12:31:17 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> I've tried this method, but it doesn't work for Perl 5.8 but only for Perl
> 5.6.1
That is because of the build of ActiveState. Perl 5.6.1 is a 6xx (right now
633 I think) and Perl 8.0 is on a 8xx
http
In a message dated 1/20/2003 12:18:33 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> I am trying to install Time::HiRes module and I am getting the following
> error:
>
> C:\>ppm
> PPM interactive shell (2.1.6) - type 'help' for available commands.
> PPM> install Time-HiRes
> Install pa
In a message dated 1/18/2003 6:43:00 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> I was looking for
> something similar to the PHP addslashes(). Or maybe replace, like
> replace(strAdd, "@", "\@").
You could just say
$email = '[EMAIL PROTECTED]';
The '..' is without interpolation, and
In a message dated 1/17/2003 6:04:41 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> Is it possible to name a variable as the numeric value of a scalar?
Well, all scalar variables you create must start with a letter. But, if
you're talking about something like this:
$var = "hello";
${$va
If your on a Unix system, you can install the GD modules very simply like you
would any (check out the help files on cpan.org, and of GD itself. ("perldoc
-q install" will work too)) The installation instructions I gave was for GD
on a Widows ActivePerl system, because someone asked.
In a message dated 1/14/2003 4:33:13 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
>
> Can anybody tell me how to install GD for Active State Perl? Thanks a lot.
Go: http://www.activestate.com/PPMPackages/zips/6xx-builds-only/GDTextUtil.zip";>Here
and download GD.zip. Unzip, and chdir
In a message dated 1/13/2003 9:26:43 PM Eastern Standard Time, [EMAIL PROTECTED]
writes:
> Does any one have a module that I can use to generate bar graphs using
> a cgi ?
GD module, specificly GD::Graph.
In a message dated 1/11/2003 8:55:37 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> When processing the form the date in this format 3/1/2003 is converted to
> 3%2F1%2F2003.
>
> Can someone give me a regex to convert it back again please. Im only new to
> perl and am struggling with rege
In a message dated 1/11/2003 9:43:32 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> if ($SRF=1 and $SRL=1) {print"YES";)
You got the and right, but the conditional wrong. 2 equal signs for
conditionals.
So your example:
$SRF = 1; $SRL = 1;
if ($SRF==1 and $SRL==1) {print"YES";} #True
o
Post that part of your code so people can help you.
In a message dated 12/18/2002 12:13:38 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
>
> Anyway, perhaps one of you syntactical thought police could give me some
> insights to the rational. I find it very confusing that the $ and @
> characters
> are supposed to be used interchangeably
In a message dated 11/26/2002 5:08:23 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> Using "my $FORM{'changeaddress'}" doesnt work
It's a hash. Use
my %FORM;
In a message dated 11/11/2002 9:16:10 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
> was wondering if there is a module or someone may know of a quick means of
> convering a IP address to a host/domain address.
$ip = $ENV{'REMOTE_ADDR'};
@digits = split (/\./, $ip);
$address = pack ("C4
I wrote a script with Net::POP3. Right now, it gets the message by counting
the lines in the header and getting rid of them in the total message. It's a
dopey way to do it. Anyone know a better way to get the message by itself
still using the Net::POP3 Module?
God Bless,
Will
--
To unsubscr
In a message dated 9/19/2002 11:54:45 AM Eastern Daylight Time,
[EMAIL PROTECTED] writes:
> I want to parse an HTML document to get out the simple text from it.
> I've tried with HTML::Parser, but with no success. The POD documentation is
> not very good and I haven't seen any assignment as $t
Worked for me, quite well except for:
print "HTTP/1.0 200 OK\n";
Which errored. If you get rid of it, it works still. If it doesn't work for
you, it shouldn't be a browser error but a server one, I guess.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
ScriptLance.com is good.
29 matches
Mail list logo
