Hi,
How can I write exception with Perl ?
Any thing like this:
If (Application generate Error)
{
message_html('Error ')
}
Thanks
KN
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
on Fri, 14 Feb 2003 12:38:16 GMT, [EMAIL PROTECTED] (Khalid Naji)
wrote:
How can I write exception with Perl ?
See, e.g., Object Oriented Exception Handling in Perl
by Arun Udaya Shankar, available at
http://www.perl.com/pub/a/2002/11/14/exception.html
--
felix
--
To unsubscribe,
Hello all,
I'm in the process of writing a cgi based chatroom,
and I need to figure out a way to tell who is
currently logged in the chatroom.
The web page is a frameset with three frames: the
first one has a listing of the chatrooms you can go
to, the second is the actual chatroom itself which
Hi List,
Sorry if this is a little offtopic but I'm trying to learn DBI for a
CGI I'm writing. Been reading http://www.perldoc.com/cpan/DBI.html but
seems a little over complex for what I need...just inserts, updates, and
queries really. Portability isn't too important. Probably going to
Basically, i'm trying to write a little abstraction layer
Someone already did the work for you, check out Class::DBI.
Here is a good article on it, it might be all you need.
http://www.perl.com/pub/a/2002/11/27/classdbi.html
Rob
-Original Message-
From: Peter Kappus [mailto:[EMAIL
Hello all:)
You have been greaet helps to me in the past, and im hoping you can help now:) A
friend of mine is
in a class learning perl and her script keeps getting an error that there is a bracket
missing on
line 190. When i looked at it, all i could see was the nested statement problem i had
First if statement.
$length = length($firstname);
if (!$length)
{
print Not a valid First Name, try again.\n;
next;
---{
Greg Smith
-Original Message-
From: t [mailto:[EMAIL
t wrote:
Hello all:)
You have been greaet helps to me in the past, and im hoping you can help now:) A friend of mine is
in a class learning perl and her script keeps getting an error that there is a bracket missing on
line 190. When i looked at it, all i could see was the nested statement
Thanks to Rob for his Class::DBI suggestion earlier. Looks like what I
needed was simply:
my %hash;
return $sth-fetchall_arrayref(\%hash);
to return an array of hashes...
As I'm continuing with my latest project, I'm finding myself wishing I could
do some PHP type
On Thu, 2003-02-13 at 10:38, yargo wrote:
Where can I get a good TK tutorial, in order to learn the TK basics ?
TIA,
YG
http://www.perl.com/1999/10/perltk/
--
jd
[EMAIL PROTECTED]
Bad spellers of the world untie!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
Bryan Harris wrote:
Yes, I learned about paste today, very handy. Unfortunately paste doesn't
always work right...
t1
10 14
11 15
12
13
t2
20 26
21 27
22
23
24
25
% paste t*
10 14 20 26
11 15 21 27
12 22
13 23
24
I'm trying to write a script that will open a socket connection to a
website and return a gif. I got it working to the point where and send
the request and receive the response, I was able to remove the HTTP
headers the only problem is that the GIF wont display properly. I
downloaded the gif via
Hi,
How, where to get started?
On Windows to have Perl search a text file and display all of the file
on STDOUT but the matched words to show in color.
I can do some regex. But I haven't a clue about how to color matched
words or if it can be done on Windows. I know the Vim editor can do
--On 13 February 2003 22:11 -0800 Alan C. [EMAIL PROTECTED] wrote:
On Windows to have Perl search a text file and display all of the file on
STDOUT but the matched words to show in color.
I can do some regex. But I haven't a clue about how to color matched
words or if it can be done on Windows.
Hi -
-Original Message-
From: Daryl [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 14, 2003 12:49 AM
To: [EMAIL PROTECTED]
Subject: Re: On STDOUT show matched words in color
--On 13 February 2003 22:11 -0800 Alan C. [EMAIL PROTECTED] wrote:
On Windows to have Perl search
--On 14 February 2003 00:53 -1000 Beau E. Cox [EMAIL PROTECTED] wrote:
Or you could use 'Win32::Console' (packaged with ActivePerl).
You can assert complete control of the screen with this
module. See the docs.
Ah thats cool - I don't use windows often wasn't aware that the default
console
R. Joseph Newton wrote:
Mark VanMiddlesworth wrote:
this is a script that systematically pings every host on the network,
and writes the output to the screen. If the -n arg is specified, it
will also write to a disk. What's wrong with the syntax, especially
line 12?
Why am I supposed to
R. Joseph Newton wrote:
Mark VanMiddlesworth wrote:
What's wrong with the syntax, especially line 12?
if ($arg = -n) {$e = 0} # Line 12
You are asking, in the line above, whether your assignment of -n to
the scalar $arg succeeded. Answer: true, always.
Not quite. Mark
Bryan Harris wrote:
I'm interested in doing the equivalent of a horizontal cat on a
bunch of files. That is, instead of listing them one after another,
I'd like them catted next to each other horizontally (tab
separated).
Hi Bryan.
This seemed kinda neat. Thanks to David for the data :)
Beau E. Cox wrote:
-Original Message-
From: Daryl [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 14, 2003 12:49 AM
To: [EMAIL PROTECTED]
Subject: Re: On STDOUT show matched words in color
--On 13 February 2003 22:11 -0800 Alan C. [EMAIL PROTECTED]
wrote:
On Windows to have Perl
From: [EMAIL PROTECTED]
how fast are the perl executables when compared with perl scripts
They run at exactly the same speed. And the startup is usualy a
little slower.
Of course that depends on the disk speed and CPU speed.
and
also when compared with C executable on linux ?
Depends.
If
Remember that the perl is being run server-side. It won't be able to read
form values on the same page ( unlike JavaScript ). You have to submit to a
cgi script, which can then read the various form values.
Guy P [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
I'm tying to write a script which will connect to all PCs in an internal
network to update select files. I currently have it working using
system(net use ...)
but I would like to use whatever module will replicate that
connection/login/logout functionality; can anyone tell me which
module(s)
Hi
How can y give s sbstition order of the kind
@string=~s/nonalfanum//g;
in these two cases?
1-wich will search and replace with (empty char) all nunnumeric or nonalphabetic
chars?
2-wich will search and replace with (empty char) all nunnumeric or nonalphabetic
chars with the exception of
This is one way:
A) Save script.pl
use strict;
while(@ARGV){
my $text = shift;
$text =~ s/[^a-z0-9]//ig; # 1
# $text =~ s/[^a-z0-9_@.-]//ig;# 2
print $text\n;
}
B) usage: script.pl am13-+km9 am13-+km9_@.-$#!%^*()
1. comment out #2 above
2. comment out #1 above
I have ActivePerl 5.6.0 on Win2000 (in a DOS box). I want to
find all .CSV files starting in the directory where the perl
script is. I have a program but no files are processed. Can
someone help me to get this to work? Here is the code:
I have this subroutine which works pretty well for one value, but I need to be able to
parse the input text box ($PegText) so I can loop over the entry's..
I assume I can use $PegText-get($index1,$index2); I just don't know how to use it..
how does the setup the initial $index2 to look for the
On Thu, 13 Feb 2003 20:57:05 -0800 (PST), Patricia Hinman [EMAIL PROTECTED] wrote:
OOPS mistake corrected
I did stumble across a method call to a cryption()
---wrong crypt() is the method --
I have just discovered it is a unix
on Fri, 14 Feb 2003 14:39:48 GMT, [EMAIL PROTECTED] (Chuck) wrote:
I have ActivePerl 5.6.0 on Win2000 (in a DOS box). I want to
find all .CSV files starting in the directory where the perl
script is. I have a program but no files are processed. Can
someone help me to get this to work?
I'm trying to use the catfile method in the File::Spec module. The following
program (called test.pl):
Use File::Spec::Unix;
$c = catfile(aa, bb); # line 2
Gives this error: Undefined subroutine main::catfile at test.pl line 4.
I've set PERL5LIB to the correct directory,
On Thu, 13 Feb 2003 20:32:26 -0800 (PST), Patricia Hinman [EMAIL PROTECTED] wrote:
--- Wiggins d'Anconia [EMAIL PROTECTED] wrote:
Always group reply so that the rest of the list can
help and be helped by the discussion.
Sorry if I sent
Hello All,
Is the only way to copy a file from one directory to another by using the
copy module...?
Would anyone have a snipet of code copying a file from one dir to another...
Any assistance would be appreciated...
Thank you,
Mike
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
On Fri, 14 Feb 2003 10:13:06 -0500, Michael Pastore [EMAIL PROTECTED]
wrote:
Hello All,
Is the only way to copy a file from one directory to another by using the
copy module...?
Would anyone have a snipet of code copying a file from one
-Original Message-
From: Gazi, Nasser (London) [mailto:[EMAIL PROTECTED]]
Sent: 14 February 2003 15:07
To: [EMAIL PROTECTED]
Subject: Help - Trying to use File::Spec module
I'm trying to use the catfile method in the File::Spec
module. The following
program (called test.pl):
On Fri, 14 Feb 2003 15:07:21 -, Gazi, Nasser (London)
[EMAIL PROTECTED] wrote:
I'm trying to use the catfile method in the File::Spec module. The following
program (called test.pl):
Use File::Spec::Unix;
$c = catfile(aa,
Is the only way to copy a file from one directory to another
by using the
copy module...?
Would anyone have a snipet of code copying a file from one
dir to another...
Any assistance would be appreciated...
Have you checked the docs for File::Copy ?
one example:
use
link (sourcefile, destination);
Creates a hard link to an existing file. A hard link is a new inode that
points to an existing data stream; that is, it's a duplicate directory entry
for an existing file. The duplicate has a different name and different
permissions and access times. Only the inode
Thanks..
File::Spec::Unix::catfile() works.
However, I'm having to use perl 5.005_03 and for this doesn't seem to have
the the file File/Spec/Functions.pm, so use File::Spec::Functions doesn't
work.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: 14
Andre wrote:
Hi
How can y give s sbstition order of the kind
@string=~s/nonalfanum//g;
in these two cases?
1-wich will search and replace with (empty char) all nunnumeric or
nonalphabetic chars?
s/[\W_]//g;
2-wich will search and replace with (empty char) all nunnumeric or
Is the only way to copy a file from one directory to another
by using the
copy module...?
Sorry. I misread your question. You could shell out to the system copy as
Wiggins mentioned. But why not use the module ?
one example:
use strict;
use File::Copy;
# a bunch
Chuck,
Randal has two awesome articles about finding files that were in Linux
Magazine.
http://www.stonehenge.com/merlyn/LinuxMag/col45.html
http://www.stonehenge.com/merlyn/LinuxMag/col46.html
HTH,
Kevin
On Fri, 2003-02-14 at 09:39, Chuck wrote:
I have ActivePerl 5.6.0 on Win2000 (in a DOS
I forgot to add that on the version of perl I am using (5.005_03), the
following doesn't seem to work:
Use File::Spec::Unix qw(catfile);
This is a pain. Anyone know why this might be?
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: 14 February 2003 15:27
Hi - (I'm the 'someone' who said crypt worked on windows) -
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 14, 2003 5:06 AM
To: Patricia Hinman; [EMAIL PROTECTED]
Subject: RE: crypt() unix function, what about windows cryption?
.htpasswd
Chuck wrote:
I have ActivePerl 5.6.0 on Win2000 (in a DOS box). I want to
find all .CSV files starting in the directory where the perl
script is. I have a program but no files are processed. Can
someone help me to get this to work? Here is the code:
Nasser Gazi wrote:
I forgot to add that on the version of perl I am using (5.005_03), the
following doesn't seem to work:
Use File::Spec::Unix qw(catfile);
This is a pain. Anyone know why this might be?
File::Spec doesn't use Exporter. You need to call it as:
File::Spec-catfile();
NOT
James Kipp wrote:
Is the only way to copy a file from one directory to another
by using the
copy module...?
Sorry. I misread your question.
Yeah, so did I :)
You could shell out to the system
copy as Wiggins mentioned. But why not use the module ?
/R
--
To unsubscribe, e-mail:
Thanks!
That does help. I was reading this page which talks
about unix and windows crypt().
http://www.tech.irt.org/articles/js164/
Now I'm wondering how to encrypt the password on the
client side. Is that possible? All the scripts are
visible from view source. But it makes just one more
Still a little bit confused;
So what if someone just creates an HTML with a hidden field containing any
login:time plus another hidden with MD5 hash made out of his own
IP+login+time and submits it?
Then they just bypassed your security :) The thing is that you take a
string built out of
On Thu, 13 Feb 2003 20:57:05 -0800 (PST), [EMAIL PROTECTED] (Patricia
Hinman) wrote:
OOPS mistake corrected
I did stumble across a method call to a cryption()
---wrong crypt() is the method --
I have just discovered it is a unix function. It
doesn't decrypt. One must always crypt
Are you trying to download and save the file or display it?
If you are trying to display it make sure you have the proper Content-type: image/gif
header before any other output.
If you are trying to download it then try Net:FTP, much sexier for file tranfers.
Dan
I'm trying to write a
R. Joseph Newton wrote:
Mark VanMiddlesworth wrote:
What's wrong with the syntax, especially line 12?
if ($arg = -n) {$e = 0} # Line 12
Sorry if I'm misunderstanding what your're tryin gto do but to me it seems :
$arg = $ARGV[0]; # or whatever/however you assign
Thank you to all who responded...used several folks advice shelling out to
OS using the system function to copy the file...
Works great...
Have a wonderful weekend..
Mike
-Original Message-
From: Michael Pastore
Sent: Friday, February 14, 2003 10:13 AM
To: [EMAIL PROTECTED]
Subject:
On Fri, 14 Feb 2003 09:12:52 -0800 (PST), Patricia Hinman [EMAIL PROTECTED] wrote:
Thanks!
That does help. I was reading this page which talks
about unix and windows crypt().
http://www.tech.irt.org/articles/js164/
Now I'm wondering how
If you don't mind, I think there are still some of us that are wondering;
why don't you want to use File::Copy?
-Original Message-
From: Michael Pastore [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 14, 2003 10:14 AM
To: Michael Pastore; [EMAIL PROTECTED]
Subject: RE: copying a file
Timothy Johnson wrote:
If you don't mind, I think there are still some of us that are
wondering; why don't you want to use File::Copy?
Hear hear!
/R
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Tim/Rob/All,
Being a Perl nubieand not having alot of experience in installing and
using Perl modules...I decided to go the route of using the system
function..
I took a look at CPAN and what was involved in installing the module and
using it (was confused)...looked pretty involved..at least
There are measures that can be taken to make it
harder for someone to get the source, but there is
no way to prevent it. There is also little reason
to, that I can see, most things that are done with
javascript are relatively simple anyways, and since
it is an open language so someone could
On Fri, 14 Feb 2003 13:56:57 -0500, Michael Pastore [EMAIL PROTECTED]
wrote:
Tim/Rob/All,
Being a Perl nubieand not having alot of experience in installing and
using Perl modules...I decided to go the route of using the system
From: Michael Pastore [EMAIL PROTECTED]
Tim/Rob/All,
Being a Perl nubieand not having alot of experience in installing
and using Perl modules...I decided to go the route of using the system
function..
I took a look at CPAN and what was involved in installing the
Jenda Krynicky wrote:
From: Michael Pastore [EMAIL PROTECTED]
Tim/Rob/All,
Being a Perl nubieand not having alot of experience in installing
and using Perl modules...I decided to go the route of using the
system function..
I took a look at CPAN and what was involved in
--- Jenda Krynicky [EMAIL PROTECTED] wrote:
Being a Perl nubieand not having alot of experience in
installing and using Perl modules...
While this may be a valid reason not to use a module it's not
applicable to File::Copy.
The module is part of the core, you already have it! Just
system ('copy d:\server\vsiwork\*.tag d:\server\vsiout');
btw, for security reasons, you might want to consider converting that
to
system qw/ copy d:\server\vsiwork\*.tag d:\server\vsiout /;
or to be more visually explicit for nuB's,
system
From: Paul [EMAIL PROTECTED]
system ('copy d:\server\vsiwork\*.tag d:\server\vsiout');
Since you're obviously on a WinDOZE system, though, make sure you
don't use doublequotes around file paths; d:\server\vsiwork\*.tag
interpolates the backslashes, so you end up with a string that looks
Hello all.
I've reading some messges relating to the use of modules.
How can I know what modules are installed in the server???
I have my site hosted on a Server far away from here. And it provides me
Perl with the most commonly used modules. Being that I'm not an expert on
Perl I don't know
Andre wrote:
Hi
Hello,
How can y give s sbstition order of the kind
@string=~s/nonalfanum//g;
^^
The =~ operator binds to scalars NOT arrays.
$string =~ s/[^[:alnum:]]+//g
in these two cases?
1-wich will search and replace with (empty char) all nunnumeric or nonalphabetic
Dear sirs
i need to drive a postgres database using a perl script.
I also have to tell you that i need to run this stuff on a OpenBSD 3.1 box.
First of all, i need to ask you which module should i use.
Honestly, i tried to install the pgsql_perl5-1.9.0.tar.gz but it didn't
pass the make step -
Mailing Lists wrote:
I also have to tell you that i need to run this stuff on a OpenBSD 3.1
box.
another OpenBSD user :-)
cc -c -I/usr/local/include/postgresql/libpq-fe.h -fno-strict-aliasing
-I/usr/local/include -O2-DVERSION=\1.9.0\ -DXS_VERSION=\1.9.0\
-DPIC -fPIC
How can I know what modules are installed in the server???
duh. Feeling dense.
I think there should be a way, but can't think of how to get a full
listing. Maybe the Config.pm?
Anyway, to test for any *given* module(s), try
perl -MModule::Name -e 'print Module::Name is installed\n'
thus, to
This works to get your average file ::
use LWP::Simple;
my $content = get($url);
print $content;
is there a way to give a user name and password if $url is .htaccess protected?
Something like ::
use LWP::Simple;
my $content = authenticate_and_get($url, $user, $pass);
print $content;
IE if
--- John W. Krahn [EMAIL PROTECTED] wrote:
How can y give s sbstition order of the kind
@string=~s/nonalfanum//g;
Assuming @string was intended to be an array of values to scrub
otherwise, use $string.
in these two cases?
1-wich will search and replace with (empty char) all nunnumeric
Reading over Friedl's Mastering Regular Expressions, and he gives a
problem on pp. 143-144 where a poorly formed expression takes
might-as-well-be-forever to finish.
I can't replicate the problem.
I'm using 5.8. Have they upgraded that problem away?
I wanted to duplicate the results as
Paul wrote:
How can I know what modules are installed in the server???
duh. Feeling dense.
I think there should be a way, but can't think of how to get a full
listing. Maybe the Config.pm?
try:
[xx@panda]$ perl -MFild::Find -e
'find(sub{print $File::Find::name\n if(/\.pm$/)},$_)
Paul wrote:
y/[A-Za-z0-9]/[A-Za-z0-9]/d for @string;
This replaces alphas and digits with themselves, and deletes everything
else; it does so for each item in @string iteratively.
hua?
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
Hi
Does anyone know if there is a module or function of a model in wich i send an array
with the contents in html or text and ir returns me an array of the parsed emails
adresses that were in the input data?
Where do i get it?
Thanks
Dan Muey wrote:
Something like ::
use LWP::Simple;
my $content = authenticate_and_get($url, $user, $pass);
print $content;
IE if you got $url in a browser it will prompt you for your username and
password.
try:
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
my $agent = new
Paul wrote:
--- John W. Krahn [EMAIL PROTECTED] wrote:
Why are you replying to me instead of the OP? :-)
How can y give s sbstition order of the kind
@string=~s/nonalfanum//g;
Assuming @string was intended to be an array of values to scrub
otherwise, use $string.
in these two
Andre wrote:
Hi
Does anyone know if there is a module or function of a model in wich i send an array with the contents in html or text and ir returns me an array of the parsed emails adresses that were in the input data?
Where do i get it?
Thanks
Have a look at the Mail::Address module.
It's not the point. Added that variable, and still i receive the same error.
It seems like it doesn't wanna find the libpq-fe.h file...
At 17.55 14/02/2003 -0500, David Kirol wrote:
I don't see LD_LIBRARY_PATH in you env vars. Consult the docs for details
but I bet that's where the problem
Hi -
-Original Message-
From: Paul [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 14, 2003 1:14 PM
To: [EMAIL PROTECTED]
Subject: regex confusion
Reading over Friedl's Mastering Regular Expressions, and he gives a
problem on pp. 143-144 where a poorly formed expression
Mailing lists wrote:
It's not the point. Added that variable, and still i receive the same
error.
It seems like it doesn't wanna find the libpq-fe.h file...
At 17.55 14/02/2003 -0500, David Kirol wrote:
I don't see LD_LIBRARY_PATH in you env vars. Consult the docs for details
but I bet
Mailing lists wrote:
Dear sirs
i need to drive a postgres database using a perl script.
I also have to tell you that i need to run this stuff on a OpenBSD 3.1
box.
First of all, i need to ask you which module should i use.
Honestly, i tried to install the pgsql_perl5-1.9.0.tar.gz but it
Thanks that worked perfect!! And a little bit of print
$request-content() and it is done! Thanks Again!!
david wrote:
Dan Muey wrote:
Something like ::
use LWP::Simple;
my $content = authenticate_and_get($url, $user, $pass);
print $content;
IE if you got $url in a browser it will prompt
km == km [EMAIL PROTECTED] writes:
km how fast are the perl executables when compared with perl scripts and
km also when compared with C executable on linux ?
meta-response to all responders on this thread - See, this is exactly
why we should *NOT* answer the original question until we
Jeff == Jeff Westman [EMAIL PROTECTED] writes:
Jeff It's not that I am resistant. Both scripts are used by other processes
Jeff (called from shell scripts, not perl scripts), so it is pointless to add it
Jeff as a sub-routine, otherwise that would be the ideal method I think.
In that case,
84 matches
Mail list logo