If you are tired typing my $self = shift;
There are modules out there that can build class for you.
http://search.cpan.org/search?query=Class%3A%3AStructmode=module
I'm using Class::Struct module coming with perl.
José.
-Original Message-
From: Kevin Pfeiffer [mailto:[EMAIL PROTECTED]
I need some explanation on following:
1. my skill of perl tells me so far to handle exceptions and write :
open(FH,$file) || die can not open $file : $! \n;
I've tried your code with a wrong file_name and got following message:
Can't open in.txt1: No such file or directory at parser2.pl line 22.
Are limitations of Perl/Tk listed some where ?
José.
-Original Message-
From: zentara [mailto:[EMAIL PROTECTED]
Sent: Friday, September 19, 2003 5:27 PM
To: [EMAIL PROTECTED]
Subject: Re: TK
On Fri, 19 Sep 2003 08:13:19 -0400, [EMAIL PROTECTED] (Paul Kraus)
wrote:
I saw someone
Hello,
I have a string which i know, it is a concatenation of fixed length of substring.
I would like to split it based on this known length and get as result
An array containing each substring.
Let say the known length is 2.
If the string is 'abcd', my array should be ('ab', 'dc')
And if my
Do you see any pitfall if i remove the 'm' on the regexp
And use $string =~ /.{1,$len}/g; instead ?
I have tried without the 'm', it works as well :-)
Thanks to all of you by the way...
José.
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 17,
Try ImageMagick module.
http://imagemagick.sourceforge.net/
http://search.cpan.org/author/JCRISTY/PerlMagick-5.57/Magick.pm
José.
-Original Message-
From: Ramprasad A Padmanabhan [mailto:[EMAIL PROTECTED]
Sent: Friday, September 12, 2003 4:58 PM
To: [EMAIL PROTECTED]
Subject: any easy
+1 to Bob;
José.
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]
Sent: Monday, September 08, 2003 5:29 PM
To: 'Akens, Anthony'; [EMAIL PROTECTED]
Subject: RE: Matching a section of test
Akens, Anthony wrote:
Sorry for the first post, didn't mean this as
a reply.
$in=12345678.90;
$out=big_money($in);
sub big_money {
$number = sprintf %.2f, shift @_;
1 while $number =~ s/^(-?\d+) (\d\d\d) /$1, $2/; $number=~
s/^(-?)/$1\$/; $number;
}
-Original Message-
From: Ronen Kfir [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 02, 2003
Try:
Win32::Process
I never used so far myself but can help for what you want.
http://search.cpan.org/author/GSAR/libwin32-0.191/Process/Process.pm
-Original Message-
From: Anthony J Segelhorst [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 02, 2003 1:50 PM
To: [EMAIL PROTECTED]
Cool !
I was just dealing with following needs:
* parse a text files on daily basis
* put the result into database
* buit a web application upon above database
* provide the client a web form where he can choose which graph to see
* on submit, connect to database, plot the graph and render it to
Found interesting info from here :
http://www.manning.com/getpage.html?project=verbruggenfilename=source.html
Others are welcome :-)
José.
-Original Message-
From: NYIMI Jose (BMB)
Sent: Friday, August 29, 2003 10:44 AM
To: K Old; Akens, Anthony
Cc: [EMAIL PROTECTED]
Subject: RE
perldoc -q backticks
José.
-Original Message-
From: Imtiaz Ahmad [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 28, 2003 10:48 PM
To: [EMAIL PROTECTED]
Subject: system call
Hi-
Can someone please tell me how do I modify following line so that the result gets
stored in the var.
May be LD_LIBRARY_PATH (environment variable) setting problem.
Try to add your external C library in it before running your perl script.
export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/home/lwire/perllib/clib
HTH,
José.
-Original Message-
From: Reid Beels [mailto:[EMAIL PROTECTED]
Sent:
Try
(@rows)=$sth-fetchrow_array;
Not
@rows=$sth-fetchrow_array;
José.
-Original Message-
From: Prachi Shah [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 21, 2003 11:06 PM
To: [EMAIL PROTECTED]
Subject: only first checked item passed
Hi all,
I have a CGI script which does a select
http://lists.perl.org/showlist.cgi?name=ptk
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 21, 2003 4:32 PM
To: [EMAIL PROTECTED]
Subject: Tk mailing list
I want to deal with the Tk.
Is there any relevant mailing list to gain
Hello,
I'm wondering why the CGI::Application module is not so popular in Perl's world like
it is the case for Struts in Java's world.
To me, there are both very similar due to the fact that they are serving the same
cause : framework to build reusable web applications.
Is that related to
Why not just use FTP (File Transfert Protocol) ?
See Net::FTP module
José.
-Original Message-
From: awards [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 14, 2003 6:09 PM
To: [EMAIL PROTECTED]
Subject: Socket
Hi,
I would like to know if it is possible to transfer files from one
...
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 13, 2003 8:54 PM
To: NYIMI Jose (BMB); [EMAIL PROTECTED]
Subject: RE: :Application
On Wed, 13 Aug 2003 12:33:19 -0500, Charles K. Clarkson
1. First of all upgrade your perl it's too old (perl is now up to 5.8).
2. to got http://www.activestate.com/Products/Download/Download.plex?id=ActivePerl and
click on MSI
3. do not forget to set properly your PATH to contain C:\Perl\bin if you have
installed perl under C:\Perl like most of
q4171,(08/11/03 23:30:48),
Makes me thing of CSV (comma separated value).
You may need to check CPAN for CSV module if
You have to parse a lot of such string from a given file.
José.
-Original Message-
From: Jerry Preston [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 12, 2003 10:38 AM
Getopt is a standard module you don't need to install it
since it comes with perl itself ...
I saw : gcc: not found
And it seems that you are on Windows OS ?
Read this to get started
http://jenda.krynicky.cz/perl/CPANppm.html
José.
-Original Message-
From: Trina Espinoza [mailto:[EMAIL
:[EMAIL PROTECTED]
Sent: Wednesday, August 13, 2003 7:33 PM
To: NYIMI Jose (BMB); [EMAIL PROTECTED]
Subject: RE: :Application
NYIMI Jose (BMB) [EMAIL PROTECTED] wrote:
:
: I'm wondering why the CGI::Application module is not
: so popular in Perl's world like it is the case for
: Struts in Java's
In your subroutine, return reference of each array (or hash) like this:
sub my_sub{
#blah
return ([EMAIL PROTECTED],[EMAIL PROTECTED]);
}
Calling:
my ($array_ref1,$array_ref2)=my_sub();
More Info ?
perldoc perlref
José.
-Original Message-
From: T.S.Ravi Shankar
For installations on Windows, read
http://aspn.activestate.com/ASPN/docs/ActivePerl/faq/ActivePerl-faq2.html
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, August 11, 2003 12:04 PM
To: [EMAIL PROTECTED]
Subject: Installing Modules
Hi all i am
Try
use LWP::UserAgent;
$ua = LWP::UserAgent-new;
$ua-proxy(['http', 'ftp'] = 'http://proxy.mydomain:port');
$req = HTTP::Request-new('GET',http://www.perl.com;);
$req-proxy_authorization_basic(username, password);
$res = $ua-request($req);
print $res-content if $res-is_success;
José.
C:\perldoc -f pop
pop ARRAY
pop Pops and returns the last value of the array, shortening the
array by one element. Has an effect similar to
$ARRAY[$#ARRAY--]
If there are no elements in the array, returns the undefined
value
Oh! You right
Pop will suppress the last value from your array.
But my $LastValue = $ARRAY[ $#ARRAY-1 ];
Will not return the last element of the array neither.
my $LastValue = $ARRAY[$#ARRAY]; will do it.
@ar=qw(1 2 3 4 5);
$i=$ar[$#ar-1];
print $i\n;
$i=$ar[$#ar];
print $i\n;
Output:
4
5
For more info check this:
http://search.cpan.org/author/GAAS/libwww-perl-5.69/lwpcook.pod#PROXIES
José.
-Original Message-
From: Darbesio Eugenio [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 07, 2003 5:02 PM
To: [EMAIL PROTECTED]
Subject: get http through a proxy authentication
Hi
use DBI module.
Here some usefull links:
http://dbi.perl.org/index.html
http://www.saturn5.com/~jwb/dbi-examples.html#connect
José.
-Original Message-
From: Visu [mailto:[EMAIL PROTECTED]
Sent: Monday, August 04, 2003 7:12 AM
To: [EMAIL PROTECTED]
Subject: connecting oracle
Hi,
There is also a good article on the topic at
http://www.stonehenge.com/merlyn/UnixReview/col30.html
snip
Now, this simple deep_copy routine will break if there are recursive data pointers
(references that point to already seen data higher in the tree). For that, you might
look at the dclone
use Data::Dumper;
print Dumper($ref);
-Original Message-
From: Tim Musson [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 3:40 PM
To: [EMAIL PROTECTED]
Subject: Re: Help please - still not understanding references I think...
Hey bseel,
My MUA believes you used
to
Have a look to this :
http://www.perldoc.com/perl5.8.0/pod/perlop.html#Conditional-Operator
HTH,
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 5:06 PM
To: [EMAIL PROTECTED]
Subject: ? thinger
I have been noticing the ? used
more simply as:
$a += ($a % 2) ? 10 : 2;
\snip
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 5:12 PM
To: NYIMI Jose (BMB)
Subject: RE: ? thinger
I don't have external internet access, so could you paste that page into an email
Knowledge is of two kinds. We know a
subject ourselves, or we know where we can
find information on it.
Samuel Johnson (1709 - 1784)
There are a lot of info from perldoc.
Type
C:\perldoc perldoc
To learn how to use perldoc ;)
José.
-Original Message-
From: [EMAIL PROTECTED]
Type y :-)
No, i don't know how to do that ...
-Original Message-
From: Miguel Angel Morales [mailto:[EMAIL PROTECTED]
Sent: Friday, July 25, 2003 12:56 PM
To: [EMAIL PROTECTED]
Subject: telnet problems
Hi all!
I open a telnet session to a router for creating IPv6 tunnels. The
I think he is missing quotes while assigning.
$a = abc\/edf\/a #is wrong !
José.
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Friday, July 25, 2003 1:52 PM
To: [EMAIL PROTECTED]
Subject: Re: search and match
Boon Chong Ang [EMAIL PROTECTED] wrote in message
s/a-z/A-Z/g should be s/[a-z]/[A-Z]/g;
You also use uc function like this :
print BACKUP uc $_;
#or
#print BACKUP uc ;
C:\perldoc -f uc
uc EXPR
uc Returns an uppercased version of EXPR. This is the internal
function implementing the \U escape in double-quoted
strings.
The SYNOPSIS of lib module is:
use lib LIST
The LIST stuff is important (LIST != EXPR).
So try:
use lib qw(/home/sites/prog/www/Module);
#or
use lib ('/home/sites/prog/www/Module');
Both should work.
José.
-Original Message-
From: awarsd [mailto:[EMAIL PROTECTED]
Sent: Thursday, July
Hum! Loadable object?
That's because perl is looking for HiRes.so which is
missing because you didn't install properly the module.
To install a module you should not just
create a folder and so forth ... as you did.
Better always to follow the
make
make test,
make install
In your case this
perl -f unlink
http://www.perldoc.com/perl5.8.0/pod/func/unlink.html
José.
-Original Message-
From: Boon Chong Ang [mailto:[EMAIL PROTECTED]
Sent: Friday, July 11, 2003 10:13 AM
To: [EMAIL PROTECTED]
Subject: delete file
Hi,
My name is Boon Chong. I have question. Just say,
The fact that you are still a novice in Perl
has nothing to do with socket's notions :)
As you will see from defintions sent in previous post
sockets are not specifics to Perl
you can do Socket Programming with
any decent programming language (C,Java,PHP,Python etc ..).
With Perl, the module
Try
http://lists.perl.org/showlist.cgi?name=perl.NET
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 09, 2003 8:53 PM
To: [EMAIL PROTECTED]
Subject: Dot Net
I was told that Perl is portable to the .NET (Dot NET)
environment.
Does
Try first to connect without DBI :
sqlplus scott/[EMAIL PROTECTED]
If success then
Try to get more info of failure using trace() function of DBI.
use DBI;
DBI-trace(2);
DBI-connect(...);
HTH,
José.
-Original Message-
From: mohini sathe [mailto:[EMAIL PROTECTED]
Sent: Monday, July 07,
To all Perl developers in America
Have a GREAT Independence Day.
Regards
José Nyimi
Belgium.
DISCLAIMER
This e-mail and any attachment thereto may contain information which is confidential
and/or protected by intellectual property rights and are intended for the sole use of
the
Yes,
Have a look to this :
http://search.cpan.org/src/TIMB/DBI_AdvancedTalk_2002/sld050.htm
HTH,
José.
-Original Message-
From: Miguel Angel Morales [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 11:25 AM
To: [EMAIL PROTECTED]
Subject: transactions in perl
Hi All!
I have
perldoc -f delete
http://www.perldoc.com/perl5.8.0/pod/func/delete.html
delete $array[0];#should delete the first row for example
José.
-Original Message-
From: Sitha Nhok [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 4:10 PM
To: [EMAIL PROTECTED]
Subject: removing a row in
Better if you send some relevant lines of your code :)
José.
-Original Message-
From: Miguel Angel Morales [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 4:40 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: Re: perl redirection
It is an IPv6 tunnelbroker, and when the
Check out ActiveState's PerlApp that comes with their Perl Dev Kit.
It does a very good job of packaging your Perl scripts in a compressed
executable that will extract and then run the script without Perl having to be
installed on the target machine.
There is also a product called perl2exe which
Hello,
I'm looking for a link where i can find information about Perl's best practices
programming.
Thanks in advance.
===
José Nyimi Mbambi
IT Analyst
http://www.proximus.be
DISCLAIMER
This e-mail and any attachment thereto may contain information which is
Here are some best practices i know:
1. use warnings or -w
2. use strict;
Could you extends the list please ?
José.
-Original Message-
From: NYIMI Jose (BMB)
Sent: Tuesday, June 24, 2003 8:58 AM
To: [EMAIL PROTECTED]
Subject: Perl Best Practices
Hello,
I'm looking for a link where
Because in the first statement @array is used in scalar context so it's like you wrote
something as
[EMAIL PROTECTED];
print $size.\n;
That's why you get the number of items contained in @array which is 3.
HTH,
José.
-Original Message-
From: Peter [mailto:[EMAIL PROTECTED]
Sent:
Beau,
Wouldn't Win32::API be much easier to use than Inline::C ?
José.
-Original Message-
From: Beau E. Cox [mailto:[EMAIL PROTECTED]
Sent: Friday, June 20, 2003 1:14 PM
To: Jenda Krynicky; [EMAIL PROTECTED]
Subject: Re: Accessing C/C++ Dlls using perl
- Original Message -
Already discussed in previuos mails.
Google the archive at
http://groups.google.com/advanced_group_search?group=perl.beginners
Search word plx for instance.
Result is
http://groups.google.com/groups?as_q=plxsafe=imagesie=UTF-8oe=UTF-8as_ugroup=perl.beginnerslr=hl=en
This one is interesting for
Here :
http://lists.perl.org/showlist.cgi?name=libwww
http://lists.perl.org/
José.
-Original Message-
From: Dan Muey [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 04, 2003 4:27 PM
To: Ben Crane
Cc: [EMAIL PROTECTED]
Subject: RE: cgi LWP::Simple script and Apache
So now my
use DBI;use DBD::Oracle;
is redundant
use DBI;
is sufficient.
José.
-Original Message-
From: Mark Martin [mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 03, 2003 12:47 PM
To: Bob Showalter; [EMAIL PROTECTED]
Subject: Re: DBI and Unique Keys
Bob,
here is the code with SQL
perldoc perlpod
or
http://www.perldoc.com/perl5.8.0/pod/perlpod.html
No i have never used pod to document my code, however many modules from cpan do.
Never really wanted till now ;)
For the help, i use the here doc as follow for instance :
my $helptxt=HELP;
Usage:
$0 -if input filename -of
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, March 24, 2003 4:58 PM
To: [EMAIL PROTECTED]
Subject: OLDB - ODBC
Does this belong in the DBI list? Sorry if the answer is yes.
*
Hi,
We have a problem. We run Perl for Window NT. We
-Original Message-
From: Palmer Greg [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 20, 2003 4:50 PM
To: NYIMI Jose (BMB)
Subject: RE: Unix ls -lrt | tail -1 in Perl
$filename = `ls -ltr|tail -1 $DIRECTORY`;
print $filename;
Sorry, i didn't mentioned that i wanted a pure perl
Hello,
How can I do this unix command in Perl ? : ls -lrt | tail -1
Actually, i would like to get the most recent file from a given directory.
Thanks in advance for your input.
José.
DISCLAIMER
This e-mail and any attachment thereto may contain information which is confidential
Maybe it's just me but I have no idea what any of that means.
Not just you, me too :)
José.
Could you be a little more specific/detailed. Any examples?
Are you talking about html links or *nix soft and hard links?
What are you trying to use Perl to do?
DISCLAIMER
This
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, March 17, 2003 5:04 PM
To: [EMAIL PROTECTED]
Subject: filehandle problem
How can I see what file handles are pointed at a given file.
I am having a problem where I open, read, and close a
Is CGI::Push module what you are looking for ?
http://search.cpan.org/author/JHI/perl-5.8.0/lib/CGI/Push.pm
José.
-Original Message-
From: Yupapa [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 13, 2003 6:45 AM
To: [EMAIL PROTECTED]
Subject: Programming a Chat Room (Server Push)
Read this from perldoc
C:\WINNTperldoc -q void
Found in C:\Perl\lib\pod\perlfaq6.pod
What's wrong with using grep or map in a void context?
Both grep and map build a return list, regardless of their
context. This means you're making Perl go to the trouble of
perldoc -f length
#!/usr/bin/perl -w
use strict;
my $num=123;
my $match=length($num);
print $match\n; # should print 3
__END__
José.
-Original Message-
From: David Gilden [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 12, 2003 5:09 PM
To: [EMAIL PROTECTED]
Subject: getting
There is no added value trying to make a module
only available for one subroutine,
I'd 'use' them (modules) all at the top of the script.
(for readability and maintainance reasons).
Try this and note how Data::Dumper module is available from suby,
Even though it was 'used' inside subx.
http://search.cpan.org/author/RDF/Clone-0.13/Clone.pm
José.
-Original Message-
From: Tom Norwood [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 11, 2003 12:28 PM
To: Wiggins d'Anconia
Cc: [EMAIL PROTECTED]
Subject: RE: Inheritance and clone()
I'm looking into writing some OO
http://search.cpan.org/author/SHERZODR/CGI-Session-3.92/
José.
-Original Message-
From: Xiongfei Wang [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 11, 2003 2:29 PM
To: Wiggins d'Anconia
Cc: [EMAIL PROTECTED]
Subject: Re: CGI:Session
Thanks for reponse.
I am very new to
perldoc -q install
José.
-Original Message-
From: Xiongfei Wang [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 11, 2003 2:29 PM
To: Wiggins d'Anconia
Cc: [EMAIL PROTECTED]
Subject: Re: CGI:Session
Thanks for reponse.
I am very new to perl.
A silly question is where i can
Hello,
I have following architecture:
Client:PowerBuilder8 client on Windows2000 (Perl not installed) : almost 200 users.
Business:Perl script on Sun Solaris (no Web Server, no Application Server, just a perl
script :) ).
RDBMS: Oracle
Requirements:
- Asynchronous communication between pb
Not a OT but there is a good maillist specially for dbi users at
http://lists.perl.org/showlist.cgi?name=dbi-users
Anyway try this:
[snippet of your code with some modif]
#The CGI.pm module will take input from the form.
use CGI qw(:standard );
my $name=param(name);
#Connecting to DB
my $dbh =
Look if the archive below contains some interesting info for what you want.
HTH,
José
== THE ARCHIVE
From: Ben Crane [EMAIL PROTECTED]
Is there a way of using perl's amazing
pattern-matching skills within VB???I find using VB to
query txt files, etc to be more cumbersome and less
friendly
http://archive.develooper.com/beginners%40perl.org/msg41915.html
HTH,
José.
-Original Message-From: Anand Ramakrishna
[mailto:[EMAIL PROTECTED] Sent: Monday, February 24, 2003 2:33
PMTo: [EMAIL PROTECTED]Subject: Help need in
GUI
Hello
all,
I am newbie to
Could you explain what are you trying to do, please ?
José.
-Original Message-
From: andres finlandes [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 21, 2003 9:39 AM
To: [EMAIL PROTECTED]
Subject: miliseconds
Hello.
Does anybody know how to manage miliseconds in
-Original Message-
From: Olivier Wirz [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 20, 2003 6:02 PM
To: [EMAIL PROTECTED]
Subject: Dynamic load of a Perl class
Hello,
Ich would like to load dynamically a Perl class (late binding).
For example, if I start a Perl
my $prevrec = ;
my $key = substr($prevrec,9,3);
I'd be using split here to avoid hard-coding the string's length
my $key=( split(/\s+/,$prevrec) )[1];
while() {
my $tmp = substr($_,9,3);
The same here ...
my $tmp=( split/\s+/ )[1];
next if $key eq $tmp;
print $prevrec;
I'd suggest LWP::Simple.
http://search.cpan.org/author/GAAS/libwww-perl-5.69/lib/LWP/Simple.pm
HTH,
José
-Original Message-
From: dan [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 19, 2003 8:38 PM
To: [EMAIL PROTECTED]
Subject: Getting HTML files from remote sites
-Original Message-
From: Kipp, James [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, February 11, 2003 4:25 PM
To: '[EMAIL PROTECTED]'; 'Perl'
Subject: RE: Finding Duplicates.
I have to find duplicate customers in are customer file
(around 60,000
customers). The file has been
This is a FAQ :
C:\perldoc -q alarm
Found in C:\Perl\lib\pod\perlfaq8.pod
How can I sleep() or alarm() for under a second?
If you want finer granularity than the 1 second that the sleep()
function provides, the easiest way is to use the select()
function as
Net::Telnet module is probably the starting place ...
http://search.cpan.org/author/JROGERS/Net-Telnet-3.03/lib/Net/Telnet.pm#SYNOPSIS
HTH,
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 07, 2003 10:05 AM
To: [EMAIL PROTECTED]
Searching from google gives one the following :
http://sources.redhat.com/ml/cygwin/2000-07/msg00975.html
The seach : http://www.google.be/search?q=Perl+in+VBie=UTF-8oe=UTF-8hl=nlmeta=
HTH,
José.
-Original Message-
From: Ben Crane [mailto:[EMAIL PROTECTED]]
Sent: Friday, February
C:\WINNTperldoc -q warnings
Found in C:\Perl\lib\pod\perlfaq7.pod
How do I temporarily block warnings?
If you are running Perl 5.6.0 or better, the use warnings
pragma allows fine control of what warning are produced. See the
perllexwarn manpage for more
-Original Message-
From: chad kellerman [mailto:[EMAIL PROTECTED]]
Sent: Saturday, February 01, 2003 6:38 PM
To: [EMAIL PROTECTED]
Subject: Use of uninitialized value in pattern match (m//) at
test.pl line 85.
Hi guys,
How can I get around this warning
Use of
Yes !
$obj-$method($args);
Seems to be equivalent to this in Java:
Object retobj = meth.invoke(methobj, arglist);
Like in Perl, Reflection is also possible in Java:
http://developer.java.sun.com/developer/technicalArticles/ALT/Reflection/index.html
Specially the following section interested me
perldoc lib
HTH,
José.
-Original Message-
From: Prachi Shah [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 31, 2003 7:50 PM
To: [EMAIL PROTECTED]
Subject: load modules not in @INC
Hi,
I have been using perl on Win32 ssytems so far but now am
switching to Unix.
But, I
This is a little bit Out of Topic but if somebody can give input I will greatly
appreciate!
I know that in Perl OO the name of a method can be a variable.
Which end up with code like this:
my $obj= new MyClass;
#here the thing
$obj-$method();
$method var holding the name of my method.
I would
Below, an input I have got from dbi-users forum.
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 30, 2003 5:39 PM
To: NYIMI Jose (BMB); [EMAIL PROTECTED]
Subject: RE: Perl OO - Dynamic method call
IMHO: This is not bad design
Just find out that Java provides something similar but not simple (for me :) )
For those who are interested:
http://java.sun.com/j2se/1.3/docs/guide/reflection/proxy.html
Ok, I stop bothering you all those Java stuff, sorry ;)
José.
-Original Message-
From: NYIMI Jose (BMB)
Sent
Give a look to this :
http://www.xml.com/pub/a/2001/02/14/perlsax.html
José.
-Original Message-
From: Nils-Anders Persson [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 29, 2003 10:09 AM
To: [EMAIL PROTECTED]
Subject: XML - Perl-variables using XML::Parser
Hello good
Your input is appreciated !
José.
-Original Message-
From: david [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 27, 2003 8:16 PM
To: [EMAIL PROTECTED]
Subject: RE: Concurrency problem
Nyimi Jose wrote:
#!/usr/bin/perl -w
use strict;
use Proc::ProcessTable;
use
Sorry :) but your script seems not doing what you explained above.
I have the impression that your problem is not related to a concurrency problem.
Could you send a more detailed code, please?
José.
Anyway, here some reads from Perl Cookbook :
16.11. Making a Process Look Like a File with
Also communicating applications via XML sounds like a job for SOAP ...
http://cookbook.soaplite.com/#soap%20cookbook
José.
-Original Message-
From: Enric Roca [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 27, 2003 12:21 PM
To: Beginners Perl
Subject: Concurrency problem
-Original Message-
From: Enric Roca [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 27, 2003 4:09 PM
To: NYIMI Jose (BMB); Beginners Perl
Subject: RE: Concurrency problem
José,
Thanks for the info, but forget that I'm using pipes. I need
that the perl script, when
C:\perldoc File::Basename
NAME
fileparse - split a pathname into pieces
basename - extract just the filename from a path
dirname - extract just the directory from a path
SYNOPSIS
use File::Basename;
($name,$path,$suffix) = fileparse($fullname,@suffixlist)
Have a look to :
http://search.cpan.org/author/LIBERTY/Cwd-2.06/Cwd.pm
José.
-Original Message-
From: Mark Goland [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, January 21, 2003 10:42 AM
To: Brian Ling
Cc: perl
Subject: Re: Path to script
my $path=`pwd` on *nix
my $path=`cd` on
-Original Message-
From: Brian Ling [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, January 21, 2003 10:59 AM
To: NYIMI Jose (BMB); Mark Goland
Cc: perl
Subject: RE: Path to script
Thanks for that,
I'll go with the File::Basename option as I may need to
change the 'pwd
C:\perldoc -f unlink
unlink LIST
unlink Deletes a list of files. Returns the number of files
successfully deleted.
$cnt = unlink 'a', 'b', 'c';
unlink @goners;
unlink *.bak;
Note: unlink will not delete directories
I would be writing this:
#!/usr/bin/perl -w
use strict;
foreach my $logfile (@wwwlogs) {
my %time=();
my ($wwwname,$cust,$YYMMDDay) = split(/\./,$logfile);
open (LOG, $logfile) || die Can't open $logfile : $! \n;
while (LOG) {
chomp;
Afterwards, to see how your nested hash looks like,
try this:
use Data::Dumper;
print Dumper(\%time);
José.
-Original Message-
From: Scot Needy [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 20, 2003 6:50 AM
To: Beginners Perl
Subject: Nested hash creation help !
Hi;
-Original Message-
From: Scot Needy [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 20, 2003 4:58 PM
To: NYIMI Jose (BMB); Beginners Perl
Subject: RE: Nested hash creation help !
Thanks Jose!
I have the hash created and now can see the values
using Data::Dumper but now I
C:\perl -e print length('06');
2
C:\
See
perldoc -f length
José.
-Original Message-
From: HO Tony (CSG)
Sent: Friday, January 17, 2003 12:08 PM
To: '[EMAIL PROTECTED]'
Subject: Length of String
Hi guys
Do you know whether there is a function in perl to find the
size of a
101 - 200 of 272 matches
Mail list logo
