Hi
I have done (b) for coding see below, could someone assist with
(a) (b) (d)
#!/usr/local/bin/perl -w
my $num_rows;
my $i;
my $r;
$num_rows = ;
for ($r = 1; $r <= $num_rows; $r++)
{
for ($i=1; $i<= $r; $i++) {print (" \n");}
for ($i = $num_rows + 1 - $r;$i>=1; $i--){ pr
Q: About perlcc, How to make multi-platform file.
I tried command "perlcc a.pl" and got a.exe.
I could run it on Apache-Linux when I change the name a.exe to a.pl.
But, I could not run it on Apache-FreeBSD server.
How to make multi-platform
I have written following coding to produce a triangle pattern(see below);
I now want to produce following paterns I can't figer this out
(a)(b) (c) (d) diamond
** * * * * * * * * *
Frank J. Schmuck wrote:
> I was wondering what happened to fliptop's cgi tutorial? I moved in the
> middle of it and can no longer find a working URL.
hi frank
sorry, but when i changed my hosting i didn't move the tutorial. i
still have it; however i am working on a new version that is upd
Hi,
I'm new to all of this and a bit lost. I have Apache 1.3.22 running on an
NT machine and want to create Perl CGI scripts. I know I need a Perl
interpreter. Which one or where do I found it?
Cheers Stephen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EM
+ACI-Gunther Birznieks+ACI- wrote:
+AD4- There are probably multiple issues with this script. I don't really have
+AD4- the time to do a security audit for you but in a 5 minute glance
+AD4-
+AD4- A) -t is supposed to be -T if you are enabling taint mode
Doh+ACE- Missed that one.
+AD4- B) It a
I have an hash array $Hash($array), I don't know to re-initialization it?
I tried %Hash = (), @Hash = (). But it does not works.
I need some help.
Thanks,
allen
-Original Message-
From: GsuLinuX [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 13, 2002 2:31 PM
To: Hanson, Robert;
On Wed, 13 Feb 2002 at 23:48 GMT, David Gilden wrote:
> Can someone point why the following is not working?
According to the CGI.pm doc (perldoc CGI):
The redirect() function redirects the browser to a different URL.
If you use redirection like this, you should not print out a
header
Hello CGI world,
I have a script for students to take a course assessment. They receive
a score of something out of 10 when they're done. Any idea why those
students who use IE's or AOL'd browser automatically receive a 0/10? If
a student uses Netscape they will be scored properly. I'm guessi
Can someone point why the following is not working?
Thanks
Dave G.
#!/usr/bin/perl -w
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
$which_button = lc(param('submit'));
print header;
print $which_button;
if ($which_button eq "continue to next section") {
There are probably multiple issues with this script. I don't really have
the time to do a security audit for you but in a 5 minute glance
A) -t is supposed to be -T if you are enabling taint mode
B) It appears as if there is very little checking done on the path that is
issued. Things like
I was wondering what happened to fliptop's cgi tutorial? I moved in the
middle of it and can no longer find a working URL.
Thanks
Frank
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
thanx from Istanbul:)
i'll try it...
funky
- Original Message -
From: "Hanson, Robert" <[EMAIL PROTECTED]>
To: "'GsuLinuX'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, February 14, 2002 12:03 AM
Subject: RE: buton names
> Oh, I see. Errr... I agree with Camilo.
>
> If you
Oh, I see. Errr... I agree with Camilo.
If you really wanted to do it that way you could have the script redirect to
the second script Like this:
if ( param('button1') ) {
print "Location: somescript.cgi?$params\n\n";
}
elsif ( param('button2') ) {
print "Location: anotherscript.cgi?$p
I understood his request differently, that he wanted to send the parameters
to different scripts depending on the submit button pushed.
-Original Message-
From: Hanson, Robert [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 13, 2002 3:44 PM
To: 'GsuLinuX'; [EMAIL PROTECTED]
Subject:
You can do it just like that.
Given this HTML form:
You can use this script:
#!/usr/bin/perl
use CGI qw/:standard/;
print header();
if ( param('button1') ) {
print "Button 1 was pushed!";
}
elsif ( param('button2') ) {
print "Button 2 was pushed!";
}
Camilo, why is that a probl
You're asking for a peck of trouble. One solution I would consider is
JavaScript's onSubmit() method.
-Original Message-
From: GsuLinuX [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 13, 2002 2:22 PM
To: [EMAIL PROTECTED]
Subject: buton names
Hola! ,
There are 2 submit butons un
Webmaster wrote:
> I'll looking for a way to get the image size (jpg or gif). I had a look around and
>found some information on it. However, none of these page provide an example well
>enough to get an idea how to use it.
http://search.cpan.org/search?dist=Image-Size
--
To unsubscribe, e
Hola! ,
There are 2 submit butons under my form and the information entered to the form will
be send to different cgi's. How can i do this?
One idea i thougt is to give names to the buttons and in the cgi :
if buton name is "buton1"
{ code1 }
if buton name is "buton2"
{code2 }
how can i do th
If the file is binary - you have to use the Read() function - check the PERL
documentation - tons of info on this ...
-Original Message-
From: Octavian Rasnita [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 13, 2002 2:48 PM
To: [EMAIL PROTECTED]
Subject: Reading a file
Hi all,
I w
> -Original Message-
> From: Octavian Rasnita [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, February 13, 2002 2:48 PM
> To: [EMAIL PROTECTED]
> Subject: Reading a file
>
>
> Hi all,
> I would like to read a file line by line if possible, but the
> file is not
> text only, and I can't re
Hi all,
I would like to read a file line by line if possible, but the file is not
text only, and I can't read it.
Do you have any idea what should I do to read it with Perl?
Thank you.
Teddy,
My dear email address is [EMAIL PROTECTED]
_
Hi there,
I'll looking for a way to get the image size (jpg or gif). I had a look around and
found some information on it. However, none of these page provide an example well
enough to get an idea how to use it.
Any Ideas???
I've been asked if this script is secure. I believe it is. Can anyone find
any problems with it?
#!/usr/bin/perl -w -t
use strict;
use Apache;
$ENV{GATEWAY_INTERFACE} =~ /^CGI-Perl/ or die "GATEWAY_INTERFACE not Perl!";
my $r = Apache->request();
my %args = $r->args();
my $path = $r->uri;
##
On Tue, 12 Feb 2002 08:24:08 -0800, [EMAIL PROTECTED] (Octavian Rasnita) wrote:
>Hi all,
>I made a counter in Perl and if a visitor refreshes the page, the counter
>increases.
>Can I modify the Perl script so that won't happend?
>Thanks.
>Teddy,
It's not perfect, but some people check the
REMOTE
Hey!!!
This man is really hot, he must be the man of the hour with more power.
thanks
and just for this last one modfication to the obove:
"Now I need to read in the extension from the command line"
John how long are you into perl?
Cheers
Bruce
>>> John Edwards <[EMAIL PROTECTED]> 02/
foreach my $f ( @files ){
# Iterate through the @files array, foreach iteration set the value of $f
to the next element of @files
if( $f =~ /private/ ){ next; }
# If the scalar $f contains the text "private", then stop this iteration
and move onto the next one
chomp $f;
#
Please explain to me what this code does, here I'm tying to rename files
in current directory to 1.fil, 2.fil, ...
foreach my $f ( @files ){
if( $f =~ /private/ ){ next; }
chomp $f;
$fil{$f} = 0;
# if we match the extension...
if( $f =~ /\.$extension$/ ){
28 matches
Mail list logo