Teresa Raymond [EMAIL PROTECTED] wrote in message
news:p05100301b8de2cf961a1@[67.36.181.234]...
What I've done is:
1) have login page w/ hidden input name=formname w/ some value leads to
2) cgi prog that cks that formname eq some value and the username
password1 and password2 first
Hi all,
Is it possible to use a text field for uploading files, or I need to use
only a file field?
I have some reasons for wanting only a text file.
Thanks.
Teddy
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
If you want to upload the file as a file, you need to use a file field. If
you want to paste the text into a text field and then save it as a file on
the server, that's another story.
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-Original Message-
From:
octavian Rasnita wrote:
Is it possible to use a text field for uploading files, or I need to use
only a file field?
I have some reasons for wanting only a text file.
use an input type=file name=up_file in your html. to restrict
file types, examine the uploaded file's content type:
use
I've been using CGI.pm for a few months now, and whileI'm thrilled with
what I can do with it, I'm terribly frustrated with the HTML output it
creates -- not the way the browser parses it, but the source output.
I often need to debug what was sent, and I hate going through these HUGE
lines of
How about:
use CGI::Pretty
On Mon, 2002-04-15 at 14:44, Nikola Janceski wrote:
uh... remember our friend... the $\
$\ = \n;
can make some nice things!
-Original Message-
From: Matthew Weier O'Phinney [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 4:57 PM
On Mon, 15 Apr 2002 17:53:50 -0400, Don Krause wrote:
How about:
use CGI::Pretty
WOW! I didn't know this existed -- or where to look! Thanks. By the way,
from looking at the perldoc for the module, I'm still uncertain of how to
invoce it -- is it INSTEAD of
use CGI;
or IN ADDITION to
IANAE, but I've been using it in addition to, ie:
use CGI qw(-debug :standard);
use CGI::Pretty;
On Mon, 2002-04-15 at 15:02, Matthew Weier O'Phinney wrote:
On Mon, 15 Apr 2002 17:53:50 -0400, Don Krause wrote:
How about:
use CGI::Pretty
WOW! I didn't know this existed -- or where
Hey All,
I am just about to go ahead and start validating form data. I was
thinking about tackling it in the following way...
$data1 = param(data1);
$data2 = param(data2);
$data3 = param(data3);
$data4 = param(data4);
if ($data1 ne Whatever) {
print Not equal;
elsif ($data2 ne Test) {
Exactly what I'm looking for! (Amazing stuff)
Out of intrest, if I wanted to look at the exact no. sold
ie. get output like: apples, 4, 3 and 0
where would I start looking?
Many many thanks!
Mark
On Friday 12 April 2002 15:55, you wrote:
On Friday, April 12, 2002, at 03:56 ,
hi
im trying to write a script that does a search on a remote website. the script needs
to fill in a form field with a search word and save all the results. there is three
different form fields on the webpage, but im only interested in the first one. the
results comes in 10 per page only,
Hi all,
I'm writing a number of small apps that will all need the same config file,
so using RT2 as a basis as that already uses it, I've created the following
RWConfig.pm, and ProcStock4 which is trying to use it.
The only drawback I've seen so far is that I have to include the 'use vars'
Hi guys
I was wondering if you could help me.
If I read a value of 123.456 and I would like to print this value out as
123456 (without decimals), how can I go about it without doing any
multiplication ?
I would be most grateful for any advice.
Thanks in advance
Tony
Hi guys
I was wondering if you could help me.
If I read a value of 123.456 and I would like to print this value out as
123456 (without decimals), how can I go about it without doing any
multiplication ?
$number =~ tr'.''d; # Use transliteration to delete the dot.
There are of course other
* Ho, Tony [EMAIL PROTECTED] [2002-04-15 12:15 +0200]:
If I read a value of 123.456 and I would like to print this value out as
123456 (without decimals), how can I go about it without doing any
multiplication ?
$value=~y/.//d;
--
Johannes Franken
Professional unix/network development
On Sun, 14 Apr 2002 16:36:39 -0400 (EDT), [EMAIL PROTECTED] (Shaun Fryer) wrote:
I'm having a little difficulty understanding how CGI::ReadParse is
supposed to work. I have the misfortune of only knowing how to use
cgi-lib.pl for parsing form data. It's extremely easy. Now I have the
problem of
Hi!
I want to get a file name from command line, like this:
somecommand.pl filename
How I can realize it? How it realizes with several files:
somecommand.pl file1,file2... fileN?
Thanks.
--
---!
My blessing!
Ramis. !
---!
http://www.samtan.fromru.com
mailto: [EMAIL
Thanks for the advice. The problem with a web based app in my case is the
TCO for users of my application. I want it to be as affordable as possible
for users. If I make it web based, the user will have no choice but to sign
up for some type of wireless service which will drive up the TCO
Hi,
I need some help in converting strings that contain numbers back into numeric form.
Apparently, when I sort string formatted number, the arrangement was according to
alphanumeric order (eg. 1, 10,11,2,20,21,3,30... ).
Thanks,
TY
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
* Ramis [EMAIL PROTECTED] [2002-04-15 22:14 +0200]:
I want to get a file name from command line
Perl pushes then to a list named @ARGV .
So you can access them with any function that
operates on lists, like
foreach, shift, pop or just $ARGV[n] .
How it realizes with several files:
on Mon, 15 Apr 2002 13:14:40 GMT, Mok T.Y.-R15382 wrote:
I need some help in converting strings that contain numbers back into
numeric form. Apparently, when I sort string formatted number, the
arrangement was according to alphanumeric order (eg. 1,
10,11,2,20,21,3,30... ).
Are you using
Mok == Mok T Y [EMAIL PROTECTED] writes:
Mok Hi, I need some help in converting strings that contain numbers
Mok back into numeric form. Apparently, when I sort string
Mok formatted number, the arrangement was according to alphanumeric
Mok order (eg. 1, 10,11,2,20,21,3,30... ).
* Mok T.Y.-r15382 [EMAIL PROTECTED] [2002-04-15 15:14 +0200]:
I need some help in converting strings that contain numbers back into
numeric form.
No need to convert: Perl doesn't differ between numbers and strings.
Yes, this is completely unlike C, and normally it works as expected.
Just in
Hi,
I tried the perlcc process this w/e and I am sure I am using it correctly, i.e.
proper parms, good perl program etc but I keep getting a vague error, i.e.
the system cannot find the specified file - and it gives NO hint
of which file it wants, i.e. .pm, .dll etc?
Is there an FAQ for perlcc
Hey folk,
This list has now been around for just over a year. It was created on
April 11, 2001 and announced on use Perl; a few days later. Considering
the number of people on here, there have been minimal issues with
flaming, OT posts, and general mayhem (let's keep it up!). In all, based
on
* [EMAIL PROTECTED] [2002-04-15 15:45 +0200]:
Sorry, cutpaste did it again. In my mail, please replace
@sorted_alphabetically = sort {$a = $b} @mylist;
with
@sorted_alphabetically = sort {$a cmp $b} @mylist;
--
Johannes Franken
Professional unix/network development
On Monday, April 15, 2002, at 02:01 , Mark. wrote:
[..]
Out of intrest, if I wanted to look at the exact no. sold
ie. get output like: apples, 4, 3 and 0
[..]
http://archive.develooper.com/beginners%40perl.org/msg23928.htmlo
this was the option from David Grey that showed up on the list,
I want to get a file name from command line, like this:
somecommand.pl filename
#!/usr/bin/perl -w
my $filename = shift;
print $filename;
How I can realize it? How it realizes with several files:
somecommand.pl file1,file2... fileN?
Arguments are stored in @ARGV, which is also @_ at the
How do I execute a shell command in perl? Also I want to check the return
status of the shell command, can I just assign a variable to it and check to
see the value of the variable once the command is complete?
Thanks!
Matt Fuerst
www.jackasscritics.com
--
To unsubscribe, e-mail: [EMAIL
Is there a more efficient way of approaching this?
I open 1 file for reading and another for writing. The script examines each
line of the file being read and if any of the following words or digits
matches, skip the line and go to the next. Write everything else to another
file.
while
Matt == Matt Fuerst [EMAIL PROTECTED] writes:
Matt How do I execute a shell command in perl?
With the backtick operator:
$result = `ls`;
Matt Also I want to check the return status of the shell command,
Matt can I just assign a variable to it and check to see the value
I asked this same question..
The second way would be more efficent if you put the pattern that will match
more often first/at the top.
-Original Message-
From: Dave Chappell [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 10:30 AM
To: [EMAIL PROTECTED]
Subject: examining a
On Apr 15, Dave Chappell said:
I open 1 file for reading and another for writing. The script examines each
line of the file being read and if any of the following words or digits
matches, skip the line and go to the next. Write everything else to another
file.
while (IN) {
next if
I did ...I went to \perl\bin and found perlcc.bat - I then copied
my .pl program (lamore.pl) there and typed:
perlcc -o z.exe lamore.pl
It started running and invoked Perl twice and then coughed up
that message. I browsed perlcc.bat and did not find the message
in there so it must be coming from
Can someone point me toward resources on how to conduct a cron job in script? I
have no access to the server via telnet, so this would have to be script based. I
am using the Perl command sleep $sec now, but there may be some issues with
that. Self perpetuation can be a bad thing for system
use warnings;
use strict;
my (@fruitname, %fruit, %totals);
my $tab=9;
open DATA, data.txt;
@fruitname = split /[,\s]+/ = DATA;
#@fruit{ @fruitname } = undef;
while ( DATA ) {
my @values = split /[,\s]+/; # = $_ ;
for (my $x=0; $x=$#values; $x++) {
push @{ $fruit{$fruitname[$x]} } =
On Monday, April 15, 2002, at 08:04 , Collins, Joe (EDSI\BBDR) wrote:
I also tried the same stuff in c:\ and received the same messages.
Any ideas?
Joe
I'm very new to this as well - but a thought:
do you have a 'real compiler' on the machine? It is not clear
to me that the perlcc is
It is a Linux server. Sorry I didn't make it more clear, not only do I not
have telnet access, neither do I have command line access. As for the man
on crontab, I could not locate that nor is it covered at www.Perl.org.
However, there is a nice little tutorial at
On Monday, April 15, 2002, at 08:52 , Ron Goral wrote:
It is a Linux server. Sorry I didn't make it more clear, not only do I
not
have telnet access, neither do I have command line access. As for the man
on crontab, I could not locate that nor is it covered at www.Perl.org.
However,
Hello,
I was wondering if someone could provide some advice on how to tweak a perl script to
deal with double-byte (UTF_8 S-JIS) characters from within perl. I've read a TPJ
article by Jeff Friedl. I've also searched CPAN and found many different modules -
IMAP*, UTF-*, and on and on and am a
on Mon, 15 Apr 2002 16:36:44 GMT, John Mooney wrote:
I was wondering if someone could provide some advice on how to tweak
a perl script to deal with double-byte (UTF_8 S-JIS) characters
from within perl
Are you familiar with the 'Perl, Unicode and i18N FAQ' at
Do I need something else, i.e. path settings or whatever?
My source:
use strict;
my $ans=3*12;
print 3x12=$ans\n;
My platform: Windows XP
I am in directory c:\ and invoke as shown.
perlcc -o z.exe z.pl
--
Compiling z.pl:
Sorry to send this, but I could not post to the list for some reason. This
lasted all last week and I wanted to see it if works now.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hello all, now that this works . . .
I am trying to send the output from a database query over and FTP connection
into a remote file. When I run it like:
sqlrun mysqlfile.sql | myperlscript.pl
It seems to work alright. What I would like to do is have the perl scripts
kick off the query through
you probably want to use open();
open(COMMAND, sqlrun mysqlfile.sql |) or die cannot execute: $!;
while(COMMAND){
#ftp stuff
}
-Original Message-
From: Balint, Jess [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 3:05 PM
To: '[EMAIL PROTECTED]'
Subject: Sending Command
Can I still receive the exit code from that command that way? That is how I
am testing if the query ran correctly. Hence:
$code = system( sqlrun mysqlfile.sql );
print Error if $code;
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 3:17
I did a little looking into this, since you have obviously decided that this
is something you need. If you check out perlcc.bat, then you will see that
there is a system() call. The system call references $Config{cc}, which if
you look farther up the ladder, seems to point to a file that
On Mon, Apr 15, 2002 at 10:42:45AM +0200, Martin A. Hansen wrote:
im trying to write a script that does a search on a remote website. the script needs
to fill in a form field with a search word and save all the results. there is three
different form fields on the webpage, but im only
yes... but I don't think you are checking the exit status if that's all you
are doing, don't know much about the bit status it returns but it's the same
for system and open for a command.
-Original Message-
From: Balint, Jess [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002
I think open() is giving me the process ID of the query. Is there any way to
pipe the output of a system command to a filehandle? Or even stdout?
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 3:24 PM
To: 'Balint, Jess'; Nikola Janceski
Do you NEED the return code from the system call? Is there some text
returned when you perform the query to determine if it was successful? If
so, you can just use backticks and parse the output first to see if it was
successful.
$output = `sqlrun mysqlfile.sql`;
$output =~ /failed/ ||
Ah yes, good call. I think I can still use open, like this:
open( OUTPUT, sqlrun file.sql 2 $$.log | );
bla bla bla
print No error if( -z $$.log );
Thanks!
-Original Message-
From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 3:34 PM
To: 'Balint, Jess';
Is there a way that I can have access to this list without receiving 150
emails a day? In other words, if I un-subscribe, does that mean that I
can't use it anymore? Or does it just mean that I won't receive all these
emails but will still be able to post a question?
--
To unsubscribe,
Well sure, but that would be cheating. ;)
Seriously, though, I think you can subscribe to a digest that will give you
all of the day's posts consolidated into one email.
-Original Message-
From: Troy May [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 12:52 PM
To: Perl
I don't know the answer to your question but I have had the same problem,
but I found a simple solution.
I made a Perl folder in Outlook 2000 and hit Organize on the Toolbar.
Organize will let you associate all emails from Perl Beginners into this
folder away from your work folder.
This way
Now, on the flip side, comes the hard part. The FTP server has a connection
timeout. IE if I log on, the connect will only last 5 idle minutes and then
drop. What could I do to initiate the FTP connection once the data starts
being received through the file handle? I could do
while(FILEHANDLE) {
On Monday, April 15, 2002, at 12:12 , Timothy Johnson wrote:
I did a little looking into this, since you have obviously decided that
this
is something you need. If you check out perlcc.bat, then you will see
that
there is a system() call. The system call references $Config{cc}, which
My only pet peeve with trying to organize list emails is the number of
people who have created aliases out of random letters. My rule is starting
to get pretty long. It has to look for [EMAIL PROTECTED], beginners, perl,
subject lines of perl, Win32::, etc., just to get most of them, and every
um... have you tried filtering by [EMAIL PROTECTED] in the header?
it's always there, and there is an option in Outlook for it in the rules
wizard.
-Original Message-
From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 4:02 PM
To: 'Paul Ennis'; 'Troy May'
http://nntp.perl.org/group/perl.beginners/
Cheers,
Kevin
On Mon, Apr 15, 2002 at 12:51:32PM -0700, Troy May ([EMAIL PROTECTED]) said
something similar to:
Is there a way that I can have access to this list without receiving 150
emails a day? In other words, if I un-subscribe, does that mean
Bingo! Yep. That's what I just did. So far it caught them all.
Thanks alot! I hated sifting through hundreds of emails to get to my
important ones.
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 1:14 PM
To: 'Timothy Johnson'; 'Paul
Saweet! Didn't see that one... I'd feel sheepish if I didn't feel so free
of the annoyance.
-Original Message-
From: Troy May [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 1:19 PM
To: Nikola Janceski; 'Timothy Johnson'; 'Paul Ennis'
Cc: Perl Beginners
Subject: RE: Question
Now if we could just get people to stop sending those annoying message
loop emails. Even WITH a rule that gets annoying.
-Original Message-
From: Troy May [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 1:19 PM
To: Nikola Janceski; 'Timothy Johnson'; 'Paul Ennis'
Cc: Perl
I just subscribe to the [EMAIL PROTECTED] and so I get only a few
emails everyday but all messages exchanged as attachments to these emails.
Hope this helps
-Original Message-
From: Troy May [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 4:19 PM
To: Nikola Janceski; 'Timothy
Yes, I want to be able to check mailboxes; this is a script to create and
manage mailing lists. So, I want to be able to collect and distribute
emails sent to a list, respond to subscriptions/unsubscriptions, requests
for help, etc. without having to have a human monitor the mailboxes all the
Another cool feature is if you filter all perl stuff to a folder is the
View-Current View-By conversation topic. (I also auto delete all mails
from perl that is older than one day, I have big restriction on the size of
my mail and 100+ mails can get big).
-Original Message-
From:
Fork doesn't work properly. That's about all I've found so far.
- Original Message -
From: drieux [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, April 15, 2002 1:04 PM
Subject: Cygwining off Re: perlcc - newbie - cannot compile successfully -
sample sessio n
On Monday, April
Greetings;
For ssh access get Tera Term and the SSH extensions.
I use it both at home and at work and it works and
is simple to set up.
You can find them using Google.
Good Luck!
Dennis
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I'm sure this is frequently asked, and I am truly sorry if it is, but
reading through my mail I don't see this question anywhere:
Curious as to how I would go about creating bidirectional sockets, ie.
client sends information to the server, then server responds to the
client. I need to know
At 04:03 PM 4/15/2002 -0700, Dennis G. Wicks wrote:
Greetings;
For ssh access get Tera Term and the SSH extensions.
I use it both at home and at work and it works and
is simple to set up.
You can find them using Google.
Good Luck!
Dennis
Putty is another alternative. Single file, no dll's.
On Mon, 15 Apr 2002 09:47:23 -0400, [EMAIL PROTECTED] (Joe Collins)
wrote:
Hi,
I tried the perlcc process this w/e and I am sure I am using it correctly, i.e.
proper parms, good perl program etc but I keep getting a vague error, i.e.
the system cannot find the specified file - and it gives NO
#reap the children to avoid zombies
waitpid $_ for (@children);
Do I need to pop the pid's from the stack children?
Thanks,
Ahmed
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Monday, April 15, 2002, at 10:32 AM, Raghupathy, Ramesh . wrote:
Bob,
You are right about what I wanted to achieve. I was wondering, if I
could
do it using just pattern match, without using any control structures like
(if, while ...),
i had to use one loop. sorry.
@x=;
On Monday, April 15, 2002, at 02:31 PM, James Taylor wrote:
I'm sure this is frequently asked, and I am truly sorry if it is, but
reading through my mail I don't see this question anywhere:
Curious as to how I would go about creating bidirectional sockets, ie.
client sends information
On Mon, 2002-04-15 at 17:31, Ahmed Moustafa wrote:
#reap the children to avoid zombies
waitpid $_ for (@children);
Do I need to pop the pid's from the stack children?
Thanks,
Ahmed
You are better off trying
$SIG{CHLD} = 'IGNORE';
at the top of your program and seeing if zombies
You are better off trying
$SIG{CHLD} = 'IGNORE';
at the top of your program and seeing if zombies are left out there.
There were no zombies left after the program termination. Then, I don't need
even to push the ids from the children in the stack, right?
Missile Address: 33:48:3.521N
Hello All,
I was just wondering how I would go about stripping the $ sign from the
following string?
$string = $20.90;
$string =~ s/$//; -- I figured this would work fine?
Any ideas?
Regards,
Dan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
You need to escape the $ in the regex:
$string =~ s/\$//;
-Original Message-
From: Daniel Falkenberg [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 15, 2002 5:16 PM
To: [EMAIL PROTECTED]
Subject: Strip $ from variable
Hello All,
I was just wondering how I would go about stripping the
You are better off trying
$SIG{CHLD} = 'IGNORE';
at the top of your program and seeing if zombies are left out there.
There were no zombies left after the program termination. Then, I don't
need
even to push the ids from the children in the stack, right?
Something happened when I
Hey All,
I am just about to go ahead and start validating form data. I was
thinking about tackling it in the following way...
$data1 = param(data1);
$data2 = param(data2);
$data3 = param(data3);
$data4 = param(data4);
if ($data1 ne Whatever) {
print Not equal;
elsif ($data2 ne Test) {
Kevin Meltzer [[EMAIL PROTECTED]] quoth:
*
*http://nntp.perl.org/group/perl.beginners/
Which reminded me to finally add the nntp stuff to the listings so
http://lists.cpan.org/showlist.cgi?name=beginners, etc. should do for
future reference.
e.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
On Monday, April 15, 2002, at 07:46 PM, Daniel Falkenberg wrote:
Hey All,
I am just about to go ahead and start validating form data. I was
thinking about tackling it in the following way...
$data1 = param(data1);
$data2 = param(data2);
$data3 = param(data3);
$data4 = param(data4);
On Monday, April 15, 2002, at 08:58 PM, Daniel Falkenberg wrote:
Hello All,
How would I go about checking to see if a variable contains an @ symbol?
$email = [EMAIL PROTECTED];
if ($email ne @ || $email eq ) {
print Please make sure your type your email address in correctly;
} else {
I think the preferred way to do a negative match is with the !~ operator.
if( $email !~ /@/ )
at this point you don't really need to check if $email eq , because if it
does it will not have an @ in it.
I'm not sure, but you might also have to escape the @.
-Original Message-
From:
84 matches
Mail list logo