I found out what the problem is. If you write
$q-table({-border=undef},
#caption('When Should You Eat Your Vegetables?'),
$q-Tr({-align=CENTER,-valign=TOP},
[
$q-th(['Vegetable', 'Breakfast','Lunch','Dinner']),
$q-td(['Tomatoes' , 'no',
Try this:
open(FILE, /home/file.txt) or die Can't open file\n;
while(FILE){
if (/(\d+)\s+(\w+).+?$/){
print $1\t$2\n;
}
}
This implies that your line have numbers, then a space, then a word, then anything
else, and you just want the numbers, then a
-Original Message-
From: Octavian Rasnita [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 31, 2002 4:47 AM
To: [EMAIL PROTECTED]
Subject: Is it a difference?
Hi all,
I've seen these 2 types of defining the CGI object and both work.
my $q = new CGI;
my $q = CGI - new();
-Original Message-
From: Hytham Shehab [mailto:[EMAIL PROTECTED]]
Sent: Friday, June 01, 2001 4:05 AM
To: [EMAIL PROTECTED]
Subject: creating a session
hi guys,
i got the cgi::session module, but it is a front end to
Apache::Session
which is not available for win32, how
'htpasswd' is an Apache web server function rather than a Perl function. It
originated on UNIX but is also available for Win32. On Win32, usernames and
passwords are limited to 255 characters. I'm not sure that's really a limit
to be concerned about though...when was the last time you saw a
Why not just set up a FTP site? I assume the people who want to upload those
large files will be familiar with FTP.
-Original Message-
From: Octavian Rasnita [mailto:[EMAIL PROTECTED]]
Sent: Sunday, June 02, 2002 11:55 AM
To: [EMAIL PROTECTED]
Subject: The size of the uploaded file
Hi
I see the word 'cat' being used an awful lot lately here and have
encountered it in other readings. What is cat and what is it used for?
#!/usr/local/bin/perl
print ' EOF'
Camilo Gonzalez
Web Developer
Taylor Johnson Associates
[EMAIL
Type:
man cat
Cheers,
Kevin
On Mon, Jun 03, 2002 at 08:54:34AM -0500, Camilo Gonzalez
([EMAIL PROTECTED]) said something similar to:
I see the word 'cat' being used an awful lot lately here and have
encountered it in other readings. What is cat and what is it used for?
-Original Message-
From: Camilo Gonzalez [mailto:[EMAIL PROTECTED]]
Sent: Monday, June 03, 2002 9:55 AM
To: '[EMAIL PROTECTED]'
Subject: What is cat?
I see the word 'cat' being used an awful lot lately here and have
encountered it in other readings. What is cat and what is it
David,
Since there are a lot of newbies here, can you please enumerate on the pains
and differences between both FTPs and what SCP is?
-Original Message-
From: David T-G [mailto:[EMAIL PROTECTED]]
Sent: Monday, June 03, 2002 9:17 AM
To: [EMAIL PROTECTED]
Cc: Camilo Gonzalez
Subject:
Camilo, et al --
...and then Camilo Gonzalez said...
%
% David,
%
% Since there are a lot of newbies here, can you please enumerate on the pains
% and differences between both FTPs and what SCP is?
Oh, dear. Now I've stepped in it :-)
In brief, and without attempting to cover *all* of the
What am doing wrong? Im try to send an e-mail that will appear as formatted HTML, Im
missing something but dont know what. In my example below I have a hyperlink which I
would like to appear as HTML and a font color, but they appear in the e-mail as raw
HTML, what am I leaving out? A Mime?:
Hi I am trying to write a perl cgi script that interfaces with Majordomo, I
would like to create a mailing list in Majordomo programatically (i.e. have
Perl read a through some email addresses strored in a mysql database and
feed that to majordomo) and then have majordomo email everyone on the
Fred,
Thank Jah this problem was recently successfully solved! Try this:
open(MAIL,|$mailprog -t);
print MAIL Content-Type: text/html\n;
print MAIL To: $comm\@courts.state.ny.us\n;
print MAIL From: fsahakia\
@courts.state.ny.us\n;
print MAIL Subject: Forwarded \n\n;
print MAIL This person has
print the contents of a file to the screenfrom a terminal
cat [filename]
Camilo Gonzalez wrote:
I see the word 'cat' being used an awful lot lately here and have
encountered it in other readings. What is cat and what is it used for?
#!/usr/local/bin/perl
print ' EOF'
Fred, Camilo, et al --
...and then Camilo Gonzalez said...
%
% Fred,
%
% Thank Jah this problem was recently successfully solved! Try this:
%
% open(MAIL,|$mailprog -t);
% print MAIL Content-Type: text/html\n;
% print MAIL To: $comm\@courts.state.ny.us\n;
...
Note that, although he's posted
David,
I admire your principles. This is something that has come up before and
after some trial and error, what I proposed to him seemed to work. I too
feel HTML email is evil but some of us are stuck being prostitutes to keep
the wolves from our door.
-Original Message-
From: David T-G
Camilo --
...and then Camilo Gonzalez said...
%
% David,
%
% I admire your principles. This is something that has come up before and
Heh :-)
% after some trial and error, what I proposed to him seemed to work. I too
Well, that's good. I'm glad he's managed to get something out the door.
I
Fred --
...and then Fred Sahakian said...
%
% What am doing wrong? Im try to send an e-mail that will appear as formatted HTML,
Im missing something but dont know what. In my example below I have a hyperlink which
I would like to appear as HTML and a font color, but they appear in the
I don't personally share the 'HTML e-mail is evil' philosophy. And even if
you're in the ascii-only camp, HTML mail isn't going anywhere anytime soon.
People will ask how to generate and parse it, and there are plenty of Perl
tools and modules to do so.
I see that it was said only a really cool
Does PINE do anything well? ducks
Wait! I'm thinking. Is this a trick question? ;)
Scot R.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.365 / Virus Database: 202 - Release Date: 5/24/2002
--
To
Hi all,
I have a path to a file name. (In a script for uploading files).
I want to allow only the a-z, A-Z, and 0-9 characters and I want to replace
all others with _ when writing the file to the server.
Can you tell me what would be this regular expression?
Thank you.
Teddy,
[EMAIL
Well, simply that when you get a password you encrypt it and check if that
matches the encrypted password voila! The hashing algorithms work on the
premise that it should be very hard to find two different passwords hashing
to the same value.
If you have some spare time, read about the
Dear Jenda and all,
I have been trying to access the Repositories and even after setting the
HTTP_Proxy to the Proxy server as http://191.1.32.***:
http://191.1.32.***: 8080...it has not worked.
C:\Perl\repositoryppm
PPM interactive shell (2.1.5) - type 'help' for available commands.
PPM
You can use a module File::Basename or I use for my scripts a simple
one to extract the filename of my scripts to use in displays(Basic
assumption is a valid filename being searched):
my $MyFilename ;
if ( /^.+[\\\/](.+)/ ) { # assuming full or partial filename is in
$_
Hi,
The question appears if your data is reset in database after transaction or
during transaction.
If after transaction is the case then you should take care on commit
mechanism of transaction.
Some database interfaces or databases can be set to so called auto-commit
where commit is
issued to
Hi, I have this snippet of code which actually works, but I would like to
get rid of the warning
[PbFe]$ more foobar.pl
#!/usr/bin/perl -w
#my $helloworld;
my $hello='helloworld';
${$hello}='foo';
print STDOUT $helloworld.\n;
[PbFe]$ ./foobar.pl
Name main::helloworld used only once:
I think the general answer you will get is don't do it that way for
various reasons. It is only ever a good idea if there are absolutely no
alternatives, and even then you should always rethink doing it that way.
This code will do exactly the same thing except it uses keys in a hash to
give you
From: Postman Pat [EMAIL PROTECTED]
I am trying to create a small database with the information like this:
Each record has a name ie :
Dog
And has the following traits:
color
weight
nick
Well ... actually the subject you've chosen contains the name of a
module you could use. The
From: Josh [EMAIL PROTECTED]
Ok Heres the deal :) I have a script to write to a dat file and the
basic output in the dat file is
username:plan: so an example would be
computer:50: meaning the username computer has 50 hours of paid dialup
access.
Now Lets say computer calls and wishes
From: Jackson, Harry [EMAIL PROTECTED]
I am trying to compile a script to an executable in Win NT and getting
the following.
Converting 'Search_Remedy.pl' to Search_Remedy.exe
Warning: Can't locate Tie/Registry.pm at
C:\Perl\site\lib\DBD\Oracle.pm line 106 @INC = C:\Perl\lib,
Good Morning,
In the error below where it says Not a Win32::OLE object Should I read
that as it is not defined on my server or it is not defined in OLE.pm?
##BOF##
CGI Error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
Heya,
I just read this article --
http://use.perl.org/articles/02/06/01/1944202.shtml?tid=6
http://use.perl.org/articles/02/06/01/1944202.shtml?tid=6
Being very new to perl, I don't understand what impact most of these changes
will have, but I'm particularly interested in the addition of the
Some where it resets back to zero all the time
You do foreach $row, then you set all of your variables to pieces of @$rows.
Note the trailing 's'. Typo strikes again. All of those values are probably
undefined, since I assume $rows is undefined, thus they get inserted as 0 or
''.
Simply
-Original Message-
From: Ron Powell [mailto:[EMAIL PROTECTED]]
Sent: Monday, June 03, 2002 6:23 AM
To: '[EMAIL PROTECTED]'
Subject: Perl 5.8.0rc1 changelogs. What are you most excited about?
Heya,
I just read this article --
On Monday, June 3, 2002, at 03:21 , Hanson, Robert wrote:
I think the general answer you will get is don't do it that way for
various reasons. It is only ever a good idea if there are absolutely no
alternatives, and even then you should always rethink doing it that way.
below I will try to
From: Manoj Jacob [EMAIL PROTECTED]
Dear Jenda and all,
I have been trying to access the Repositories and even after setting
the HTTP_Proxy to the Proxy server as http://191.1.32.***:
http://191.1.32.***: 8080...it has not worked.
My repository was down due to a hardware failure. Sorry
Perl 5.6.0
OS: NetBSD 1.5.2 (and Solaris 7)
I've got a program that regularly sends mail to people, however once in a
while I get a report from someone stating that they missed a piece of
mail. It's not all the time or I would have a major problem on my hands.
I'm using the following construct:
On Monday, June 3, 2002, at 06:23 , Ron Powell wrote:
Heya,
I just read this article --
http://use.perl.org/articles/02/06/01/1944202.shtml?tid=6
http://use.perl.org/articles/02/06/01/1944202.shtml?tid=6
Being very new to perl, I don't understand what impact most of these
changes
will
--- FLAHERTY, JIM-CONT [EMAIL PROTECTED] wrote:
foreach $row(@$array_ref) {
my($num,$title,$media,$serial,$time,$class,$remarks,$custody,$loc,
$format,$qty,$lab,$rew,$sta,$history5,$check) = @$rows;
$history2 = $history5;
$history2++;
}
$dbh2 =DBI -connect($data_source, $username,
On Monday, June 3, 2002, at 07:17 , Chuck Tomasi wrote:
[..]
I've got a program that regularly sends mail to people, however once in a
while I get a report from someone stating that they missed a piece of
mail.
you may wish to check if there is a user::Headspace upgrade
you can install in
Hi,
Is there a good method to do this? I need to remove the stop words from the comment
field of every record. There are about 20,000 records. The comments look like this:
Yersinia pestis strain Nepal (aka CDC 516 or 369 isolated from human) 16S-23S in
tergenic region amplified with 16UNIX
On Monday, June 3, 2002, at 07:53 , Jason Frisvold wrote:
Am I in the dark here? I thought the latest stable was 5.6.1?
What's with 5.7.x?? I know 5.8.x is brandy new... And 6.x is
apparently going to be the new god to follow...
hence why I have not worried about going to 5.7.X yet
Jason, et al --
...and then drieux said...
%
% On Monday, June 3, 2002, at 07:53 , Jason Frisvold wrote:
%
% Am I in the dark here? I thought the latest stable was 5.6.1?
% What's with 5.7.x?? I know 5.8.x is brandy new... And 6.x is
% apparently going to be the new god to follow...
Hello all. I am working on my script, and I would like to be able to use
STDIN as a filehandle input unless a filename is specified. I have used the
getopt for the filename, let's say $opt_f.
I thought I would do something like this:
( $opt_f ) ? open( INFILE, $opt_f ) or die( Can't open...) :
On Monday, June 3, 2002, at 08:43 , David T-G wrote:
[..]
If you want to stay up to speed, all you have to have are
N.even.highest
and you're there, and you don't have to worry about an interface changing
or something breaking from one day to the next as you would with good old
(well, new
On Jun 3, Balint, Jess said:
Hello all. I am working on my script, and I would like to be able to use
STDIN as a filehandle input unless a filename is specified. I have used the
getopt for the filename, let's say $opt_f.
I would use the magic of @ARGV and , and do this:
@ARGV = $filename if
All this means is that we are that much closer to Perl 6, or is it?
Either way, I get that warm feeling deep inside when I think about the
wonders of Perl 6.
Nikola Janceski
If I had only known. I would have become a locksmith.
-- Albert Einstein (1879-1955)
-Original Message-
On Monday, June 3, 2002, at 09:27 AM, Jeff 'japhy' Pinyan wrote:
On Jun 3, Balint, Jess said:
Hello all. I am working on my script, and I would like to be able to use
STDIN as a filehandle input unless a filename is specified. I have used
the
getopt for the filename, let's say $opt_f.
drieux --
...and then drieux said...
%
% On Monday, June 3, 2002, at 08:43 , David T-G wrote:
% [..]
% If you want to stay up to speed, all you have to have are
% N.even.highest
% and you're there, and you don't have to worry about an interface changing
% or something breaking from one day to
Weekly posting statistics for perl.beginners - week 22 of 2002.
From Monday 2002-05-27 to Sunday 2002-06-02 there were
478 articles posted (25031 lines) by 117 authors, giving an average
4.09 articles per author, and an average article length of 52 lpa.
The average number of articles per day
On Jun 3, bob ackerman said:
@ARGV = $filename if $opt_f;
why '' ? isn't '$filename' enough for get '' to open and read from that
file?
I feel safer when I explicitly state the mode. Unless you want the user
to put 'foo |' as the filename (that is, the output of a pipe), then you
should
On Monday, June 3, 2002, at 10:37 AM, Jeff 'japhy' Pinyan wrote:
On Jun 3, bob ackerman said:
@ARGV = $filename if $opt_f;
why '' ? isn't '$filename' enough for get '' to open and read from
that
file?
I feel safer when I explicitly state the mode. Unless you want the user
to put
I am sure Jeff has a bunch of files lying around named:
haha
|-what?
and good old
`rm -rf *`
I put that last one in my home directory just to scare the beejesus off the
sysadmin guys.
If you want to make it just use:
touch '`rm -rf *`'
-Original Message-
From: Jeff 'japhy' Pinyan
On Monday, June 3, 2002, at 10:45 AM, bob ackerman wrote:
On Monday, June 3, 2002, at 10:37 AM, Jeff 'japhy' Pinyan wrote:
On Jun 3, bob ackerman said:
@ARGV = $filename if $opt_f;
why '' ? isn't '$filename' enough for get '' to open and read from
that
file?
I feel safer when
Jenda Krynicky wrote:
I believe they meant goto NAME.
illuminating example snipped
This way perl doesn't create a new record in the call stack every
time you call the _fib().
As you can see if you comment out the return in fib_() and remove
the comment from croak ... and use Carp;.
I am getting the following error when I execute my script. It is not
erroring out nor is it not working as I think it should. I am just curious
why this is happening. Any Ideas?
Thanks
Lance
CODE:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
ERROR:
Name
you have -w or use warnings; You should only use a slice of the info you
want.
from the warnings I see you want min and hour.
use:
($min,$hour)= ( localtime(time) )[1,2]; # no warnings
-Original Message-
From: Lance Prais [mailto:[EMAIL PROTECTED]]
Sent: Monday, June 03, 2002 1:55
You are running with warnings turned on, and Perl is just warning you that
you *might* have made a mistake by creating a variable then not using it.
In this case it isn't a mistake, but it will still warn you about it.
Snippet from perldoc perlrun
-w prints warnings about variable names
try putting my before the declaration
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
-Original Message-
From: Lance Prais [mailto:[EMAIL PROTECTED]]
Sent: Monday, June 03, 2002 1:55 PM
To: Perl
Subject: Day Month Issues
I am getting the following error
Got a question for you guys out there.
I currently have a list of records that I need to search for in a
mult-db that we have. I was wondering if perl would be faster to process
or stick with my .ksh script that uses sqlplus. Here's how the current
setup is
cat input file and read for record
On Monday, June 3, 2002, at 10:08 , David T-G wrote:
[..]
% I think a lot of us were pushing production perl code out the
% door with 5.5.3 - because we needed the features that were there
Whoops! Sorry; the change to this numbering system was with 5.6; 5.005
was production, too. Read
-Original Message-
From: Joseph Bajin [mailto:[EMAIL PROTECTED]]
Sent: Monday, June 03, 2002 2:34 PM
To: [EMAIL PROTECTED]
Subject: Perl DBI vs SQLPLUS
Got a question for you guys out there.
I currently have a list of records that I need to search for in a
mult-db that we
On Sat, Jun 01, 2002 at 05:58:58PM -0700, tom poe wrote:
I copied the dirs/files to the upgrade 5.6.1, but no change, so I go, OK,
I'll make sure Pg.pm is copied over, then I'll get rid of the old one, and
this is just weird. Anyone have a thought about This?
Copying the files over
I have a reporting program that outputs ASCII reports into a folder. If a
certain report is run more that once, the old report is not written over,
but rather, a number appended to the end of the name.
For example, I may have a report: HTTPLogWed
If someone runs this report a second time, the
On Monday 03 June 2002 12:54, Michael Fowler wrote:
Copying the files over manually is usually a bad idea. Even if you do
manage to get all of the files (which you probably didn't, I will explain
later), the binary portions are probably not going to be compatible from
one version of perl to
There used to be a url_get library, is there something else now? i couldn't
find anything on CPAN, this is a http protocol issue right? I just want to
have a user enter a url on a form page, then crawl that url for the specified
text string. Thank you
--
To unsubscribe, e-mail: [EMAIL
Hi any help appreciated...
I am reading a file consisting of lines with upto 2 sets if data seperated
by : ie
13:fred
12:nancy
lional:
each line is split into @a1 and @a2, here is my problem - if line does not
have @a2 as in example line 3 above, I want it to take the value from line
2
ie -
[EMAIL PROTECTED] wrote:
-Original Message-
From: Joseph Bajin [mailto:[EMAIL PROTECTED]]
Sent: Monday, June 03, 2002 2:34 PM
To: [EMAIL PROTECTED]
Subject: Perl DBI vs SQLPLUS
Got a question for you guys out there.
I currently have a list of records that I need to search for in a
Look at the LWP::* modules (LWP::UserAgent, or LWP::Simple, in
particular). It comes with the libnet distro on the CPAN.
Cheers,
Kevin
On Mon, Jun 03, 2002 at 04:22:17PM -0400, david ([EMAIL PROTECTED]) said
something similar to:
There used to be a url_get library, is there something else
Hi -
Check out LWP::UserAgent and HTML::TokeParser.
The following script gets my SETI@home stats. Flesh it
out with you token parsing, better error handling, etc.
Aloha = Beau.
use strict;
use warnings;
use LWP::UserAgent;
use HTML::TokeParser;
my $url =
How about writing it like this ??
Assuming
a) The numeric value is in 1st col and the text in 2nd col (after :)
b) Wherever numeric value is not present, the text is in the first column.
c) The numeric value needs to be picked up from the last successful read of the
numeric value if not
At 11:19 AM 6/3/02 -0700, drieux wrote:
[ name withheld to protect the innocent.]
[..]
From reading your response, below, I take it that you don't think very
highly of the SWITCH command? Can you elaborate just a little for me as
to why? You see, I've dabbled in other languages (most
Steven Massey wrote:
Hi any help appreciated...
Hello,
I am reading a file consisting of lines with upto 2 sets if data seperated
by : ie
13:fred
12:nancy
lional:
each line is split into @a1 and @a2, here is my problem - if line does not
have @a2 as in example line 3 above, I
Given: A list of MS Word .doc files
Objective: Convert the initial list to a list of PostScript .ps files.
I know how to do it manually through the Windows GUI using a PostScript
printer driver and printing to file. I would like to learn how to automate
the task using a Perl script.
Any
75 matches
Mail list logo