smrtalec [EMAIL PROTECTED] wrote:
:
: #! /usr/bin/perl -w
You should add:
use strict;
: use DBI;
: use CGI qw/:standard :html3/;
: use CGI::Carp qw(fatalsToBrowser);
This is great for debugging. Make sure you remove it
once you go into production.
When outputting to the browser
before I begin thanks for taking the time to help me out.
print
header(),
start_html( 'This page has no title' ),
gen_table( '%Ave%' ),
end_html();
sub gen_table {
my $search = shift;
# define table heading
my @rows= th( [ 'id no.',
Question #1: Does anyone have any favorite document
that is a style guide for perl programmers? There are
entire books on the subject of style for C++
programmers, I've not seen any for perl, though.
Well there is the perlstyle doc page,
perldoc perlstyle
that gives general suggestions
I want to allow my users to login to the site and give them access to
forums, classifieds, and other user specific information. I've been
trying to figure this out all week, butt have not come up with a
workable solution. Here are a few questions:
1. How do I use .htpasswd file with a MySQL
smrtalec [EMAIL PROTECTED] wrote:
:
: before I begin thanks for taking the time to help me out.
You're welcome. That's what we are here for.
: print
: header(),
: start_html( 'This page has no title' ),
: gen_table( '%Ave%' ),
: end_html();
:
:
: sub
NAME
beginners-faq - FAQ for the beginners-cgi mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email
after mulling over your responce for a while a trying several versions. I finally have
a working script that I understand so thank you very much. now I have to figure out
the forms section and passwording. The only question I have is security wit respect
to passwords. The options I have is
On Sun, 25 Jan 2004 22:48:55 -0800 (PST)
Joe Echavarria [EMAIL PROTECTED] wrote:
Where can i find a perl code that translate numbers
to words ?, like 100.00 for one hundred ...
I need it to glue it with some other code.
You might want to look at;
Lingua::EN::Numericalize
(Replaces
I am trying to learn the best way to send HTML formatted reports via
e-mail using the standard modules that come with Perl 5.8. The examples
I have seen assign blocks of HTML code to scalars and pass them to the
NET::SMTP datasend() method etc. I was wondering if there was a better,
more
Paul == Paul Harwood [EMAIL PROTECTED] writes:
Paul I am trying to learn the best way to send HTML formatted reports via
Paul e-mail using the standard modules that come with Perl 5.8. The examples
Paul I have seen assign blocks of HTML code to scalars and pass them to the
Paul NET::SMTP
Hi all, and Happy new year to East Asians folks here,
I have an idea to buy a pocket pc, but before I buy it, I hope to confirm
something...
1. Can Perl run on Windows CE or Palm ( Same as subject )
2. If I can, Is there any modules would helpful on develope my script for these
platforms ?
3.
John McKown wrote:
On Sat, 24 Jan 2004, Marcelo wrote:
Which regular expression would you use to remove the title and
/title from a line like this one:
titleHere goes a webpage's title/title
Thanks a lot in advance.
Did you what that _exact_ input? I.e. always title.../title? If so,
Hey Charles,
This is what your script returned
Executing this: 'MakeFile.pl'
'system' returned: 'No such file or directory'
What's the next step ?
Pete
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Charles Lu wrote:
If I want to randomly generate a dice (4 side) roll, I can use the
following expression:
$roll = 1 + int( rand(4));
This assumes that every side of this dice has equal chance of being
rolled (0.25). Thats easy. Now What if I say, that the probability of
rolling a 3 is
--As off Sunday, January 25, 2004 5:30 PM -0800, Paul Harwood is
alleged to have said:
I am trying to learn the best way to send HTML formatted reports via
e-mail using the standard modules that come with Perl 5.8. The
examples I have seen assign blocks of HTML code to scalars and
pass them to
From: Paul Harwood [EMAIL PROTECTED]
I am trying to learn the best way to send HTML formatted reports via
e-mail using the standard modules that come with Perl 5.8. The
examples I have seen assign blocks of HTML code to scalars and pass
them to the NET::SMTP datasend() method etc. I was
From: Ravi Malghan [EMAIL PROTECTED]
Hi: I have a existing variable called $router which is
192.168.1.1. I want to create a array which looks
like @Counter192.168.1.1.
Please read Why it's stupid to `use a variable as a variable name'
by M-J. Dominus
Pete [EMAIL PROTECTED] wrote:
:
: Hey Charles,
: This is what your script returned
:
: Executing this: 'MakeFile.pl'
:
: 'system' returned: 'No such file or directory'
:
:
: What's the next step ?
Try using the full path to MakeFile.pl. Something
like:
system_call_test(
How come when I push a variable to an array it puts one whitespace before
the variables on all the lines except the first one? I would except all
the lines not to have the extra white space.
Is there an easier way to fill an array with a variable without using the
push?
$last printed out
This works
Foreach ( @{$hash{$key1}{$key2}} )
This does note
Foreach ( @{($hash{$key1}{$key2})[9..1]} )
This gives me this error
Can't use undefined value as an array reference.
TIA,
Paul Kraus
---
PEL Supply Company
Network Administrator
At 11:17 AM 1/26/04 -0500, you wrote:
print @temparray;
Take the quotes off.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
For Quality purpouses, Anthony J Segelhorst 's mail on Monday 26 January 2004
17:17 may have been monitored or recorded as:
How come when I push a variable to an array it puts one whitespace before
the variables on all the lines except the first one? I would except all
the lines not to have
Hi all,
I use the following code to use a module I made:
use lib $ENV{HOME}/Library/Scripts/Modules;
use Test::Template;
my ($update_path, $gallery_title) = Test::Template::choose();
The module sits in /Users/jan/Library/Scripts/Modules/Test. Now Perl tells me it
cannot locate the subroutine
Paul Kraus [EMAIL PROTECTED] wrote:
:
: This works
:
: Foreach ( @{$hash{$key1}{$key2}} )
:
: This does note
:
: Foreach ( @{($hash{$key1}{$key2})[9..1]} )
:
: This gives me this error
: Can't use undefined value as an array reference.
:
foreach ( reverse @{ $hash{$key1}{$key2} }[ 1
Hi Stuart...
Below was one of my first real scripts, that is, that folks at
work use. I did mine interactively. It goes through a file of arbitrary
length asking the user to change xxx values for ComputerID=xxx and for
Address=xxx. I think the next-to-last line is slightly
Paul Kraus [EMAIL PROTECTED] wrote:
:
: This works
:
: Foreach ( @{$hash{$key1}{$key2}} )
:
: This does note
:
: Foreach ( @{($hash{$key1}{$key2})[9..1]} )
:
: This gives me this error
: Can't use undefined value as an array reference.
:
foreach ( reverse @{
my ($update_path, $gallery_title) = Test::Template::choose();
Can I assume that your module has the line package Test::Template; at the
top of the file? If not, that is why.
use Test::Template;
This says load {lib directory}/Test/Template.pm.
Test::Template::choose();
This says execute
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address):
On Jan 26, Paul Kraus said:
foreach ( @{($hash{$key1}{$key2})[9..1]} )
It should be:
foreach ( @{ $hash{$key1}{$key2} }[1 .. 10] ) { ... }
based on your other email.
--
Jeff japhy Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734
Hi,
I've got my Spreadsheet::ParseExcel module and I can parse it using the Linux
example: parsing from Teodor Zlatanov at
http://www-106.ibm.com/developerworks/linux/library/l-pexcel/ but I'm not sure how it
works.
I need to upload an Excel Sheet to a database table and I'm having trouble
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
Sent: Monday, January 26, 2004 12:10 PM
To: Paul Kraus
Cc: 'Perl Beginners'
Subject: Re: hash of hash of array slices
On Jan 26, Paul Kraus said:
foreach ( @{($hash{$key1}{$key2})[9..1]} )
It should be:
: -Original Message-
: From: Paul Kraus [mailto:[EMAIL PROTECTED]
: Sent: Monday, January 26, 2004 10:52 AM
: To: 'Charles K. Clarkson'; 'Perl Beginners'
: Subject: RE: hash of hash of array slices
:
:
: Paul Kraus [EMAIL PROTECTED] wrote:
: :
: : This works
: :
: : Foreach (
Hi,
I'm matching html using regex and use something like this to grab a
chunk of text up to the next html tag:
font([^]+)/font
But I'd like to say match everything that does not include the string
br rather than match everything that does not include a
character. Anyone got any suggestions?
I think that only applies to a list slice, i.e. (split /\s+,$_)[3..9],
but an array slice doesn't need it, i.e. @array[2]
-Original Message-
From: Paul Kraus [mailto:[EMAIL PROTECTED]
Sent: Monday, January 26, 2004 9:38 AM
To: [EMAIL PROTECTED]
Cc: 'Perl Beginners'
Subject: RE: hash of
On Jan 26, Mark Maunder said:
I'm matching html using regex and use something like this to grab a
chunk of text up to the next html tag:
font([^]+)/font
But I'd like to say match everything that does not include the string
br rather than match everything that does not include a
character.
Hi Charles
Still no luck...
I tried:
system_call_test( 'C:\Inetpub\wwwroot\ASPtoPerl\MakeFile.pl')
system_call_test( 'C:/Inetpub/wwwroot/ASPtoPerl/MakeFile.pl')
I even moved the File to the scripts folder and tried:
system_call_test( 'C:\Inetpub\Scripts\MakeFile.pl')
Any more ideas ?
Thanks
I've missed some of this thread - what is the output of
c:\assoc .pl
(should say something like .pl=Perl)
c:\ftype Perl
-Original Message-
From: PerlDiscuss - Perl Newsgroups and mailing lists
[mailto:[EMAIL PROTECTED]
Sent: Monday, January 26, 2004 9:05 AM
To: [EMAIL PROTECTED]
Pete [EMAIL PROTECTED] wrote:
:
: Hi Charles
:
: Still no luck...
:
: I tried:
: system_call_test( 'C:\Inetpub\wwwroot\ASPtoPerl\MakeFile.pl')
: system_call_test( 'C:/Inetpub/wwwroot/ASPtoPerl/MakeFile.pl')
:
: I even moved the File to the scripts folder and tried:
: system_call_test(
Thanks Jeff, that helps. I use HTML::Parser for various tasks, but for
this particular one, I need exact matching, hence the regex.
On Mon, 2004-01-26 at 09:57, Jeff 'japhy' Pinyan wrote:
On Jan 26, Mark Maunder said:
I'm matching html using regex and use something like this to grab a
chunk
Can I declare from this element to end with an array slice.
@arary[3...] but this doesn't work?.
Paul Kraus
---
PEL Supply Company
Network Administrator
---
800 321-1264 Toll Free
216 267-5775 Voice
216 267-6176 Fax
www.pelsupply.com
@arary[3...] but this doesn't work?.
What about @array[3..$#array]
PS: @arary = typo?
Wolf
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
- Original Message -
From: drieux [EMAIL PROTECTED]
To: Perl Beginners Mailing List [EMAIL PROTECTED]
Sent: Friday, January 23, 2004 19:53
Subject: Re: Loading and using modules using eval
IF the Text::process and XML::process functions are things
that you are building out you may
This is what that gets me:
Error Type:
PerlScript Error (0x80004005)
Global symbol $Server requires explicit package name
Sounds like perl is not starting automatically. Try this:
my $file_path = $Server-MapPath( /ASPtoPerl/MakeFile.pl );
my $exit_status = system_call_test(
Paul Kraus wrote:
Can I declare from this element to end with an array slice.
@arary[3...] but this doesn't work?.
You can refer to the last index with $#arary, so:
@arary[3 .. $#arary];
Is that what you meant?
--
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
Since I added use Time::Format qw( %time } I get this error on any die
statement or end of program.
Everything runs fine and the program works fine it just dumps this at the
end.
Can't locate I18N/Langinfo.pm in @INC (@INC contains: C:/Perl/lib
C:/Perl/site/lib .) at (eval 1) line 30, DATA line
On Jan 26, 2004, at 8:38 AM, Jan Eden wrote:
[..]
The module sits in /Users/jan/Library/Scripts/Modules/Test. Now Perl
tells me it cannot locate the subroutine choose. If I place
Template.pm directly into the path set in the use lib line and
remove the Test:: at both places, everything works
From: Johnson, Shaunn [EMAIL PROTECTED]
I want to move my perl script from Linux to Windows NT.
The Linux script connects to Oracle via the DBI modules I
have installed. I want to do the same on NT, but I'm not
sure if the connection strings / values are the same.
They should be.
Should
Pete [EMAIL PROTECTED] wrote:
:
: This is what that gets me:
:
: Error Type:
: PerlScript Error (0x80004005)
: Global symbol $Server requires explicit package name
Sorry, that's a perl error. $Server is provided by ASP.
You need to add $Server to the 'our' statement. The whole
thing
This is what that gets me:
Error Type:
PerlScript Error (0x80004005)
Global symbol $Server requires explicit package name
You have a syntax error in your perl program. Try running perl -c on
it from the command line.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
What about translating the numbers to spanish string
equivalent ?
--- Owen [EMAIL PROTECTED] wrote:
On Sun, 25 Jan 2004 22:48:55 -0800 (PST)
Joe Echavarria [EMAIL PROTECTED] wrote:
Where can i find a perl code that translate
numbers
to words ?, like 100.00 for one hundred ...
I
Mark Setzer wrote:
Hey there,
Wasn't sure which mailing list to send this to but maybe someone can
point me in the right direction. When perl is invoked (presumably by
debian's dpkg command, since that's what causes the error), I get this
message:
/usr/bin/perl: relocation error:
Try running dbish or dbish.bat from the cmdline. It usually comes as part
of the dbi install and will tell you what drivers you've got and will let
you select, connect, and try out some SQL there. You can fine-tune your
params with it.
At 09:05 PM 1/26/04 +0100, you wrote:
From: Johnson,
On Mon, 26 Jan 2004 14:57:35 -0500
Paul Kraus [EMAIL PROTECTED] wrote:
Since I added use Time::Format qw( %time } I get this error on any die
statement or end of program.
Everything runs fine and the program works fine it just dumps this at the
end.
Can't locate I18N/Langinfo.pm in @INC
I believe what you want is Lingua::ES::Numeros.
-Original Message-
From: Joe Echavarria [mailto:[EMAIL PROTECTED]
Sent: Monday, January 26, 2004 12:13 PM
To: Owen; [EMAIL PROTECTED]
Subject: Re: Perl code
What about translating the numbers to spanish string equivalent ?
--
To
On Mon, 26 Jan 2004 12:13:14 -0800 (PST)
Joe Echavarria [EMAIL PROTECTED] wrote:
What about translating the numbers to spanish string
equivalent ?
Well try searching CPAN, www.cpan.org
They have modules for Klingon, so they are bound to have spanish modules
Here's one
Lingua::ES::Numeros
For Quality purposes, Anthony J Segelhorst 's mail on Monday 26 January
2004
17:17 may have been monitored or recorded as:
How come when I push a variable to an array it puts one whitespace
before
the variables on all the lines except the first one? I would except all
the lines not to have
Wolf Blaum wrote:
For Quality purpouses, Anthony J Segelhorst 's mail on Monday 26 January 2004
17:17 may have been monitored or recorded as:
How come when I push a variable to an array it puts one whitespace before
the variables on all the lines except the first one? I would except all
Hi all,
Can someone give me a hand understanding why I am getting this error.
This script telnets into a telnet server (cisco) then telnets into other
cisco router to grab there configs. I get these errors when trying to
connect to certain routers (5, 11,12,13,14). If I look in my dump logs I
Hi,
Does anyone know of any perl modules that implement a basic DNS server?
After a quick search, I only found Stanford:DNSserver.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
59 matches
Mail list logo