There are many interesting data about Perl in perlhist. For example,
perldoc perlhist | perl -ne 'print if /larry.+\d+-\w+-\d+/i' | head -1
Larry 1.000 1987-Dec-18
Happy Birthday Perl!
Btw, how can we do the above without using "head -1"? Any Perl way?
--
To unsubscribe, e-ma
On Thu, Dec 18, 2003 at 03:08:05PM +0530 Swaminathan Gopal wrote:
> There are many interesting data about Perl in perlhist. For example,
>
> perldoc perlhist | perl -ne 'print if /larry.+\d+-\w+-\d+/i' | head -1
>Larry 1.000 1987-Dec-18
>
> Happy Birthday Perl!
>
> Btw, how c
Ajey wrote:
>
> how can i find which perl modules are installed on linux os?
> regds
Hi.
That's exactly what the ExtUtils::Installed was created for:
use strict;
use warnings;
use ExtUtils::Installed;
my $install = new ExtUtils::Installed;
print map "$_\n", $install->modules;
HTH,
> "Randal L. Schwartz" <[EMAIL PROTECTED]> wrote:
>
> > > "Sara" == Sara <[EMAIL PROTECTED]> writes:
> >
> > Sara> I am looking for a way to encrypt & decrypt an email addy to
> > Sara> prevent spam while posting a message to discussion board.
> >
> > You also asked this, and I answered i
Does anyone know of a way to find the default printer?
I have found there are some ways to do it on a single
platform, but I was wondering if there is a way to do
it without any OS proprietary code.
I have a script that will need to find the default
printer on Win(98 - XP), *nix, and Mac(OS 8 and
YOu may use Printer.pm
I have only used with Linux but seems the Printer() print_command() take
the platform dependent arguments.
You can use control statements and take care of that.
There might be a better answer, I'll look forward to it.
HTH
On Thu, 2003-12-18 at 08:35, Shawn McKinley wrote:
On Dec 18, 2003, at 12:03 AM, Bill Jastram wrote:
James:
I'm happy to help, but keep your replies on the list so we can all
learn/help.
Can printf set the value in spaces of tab (\t)? I need to do three
column
output with perl for mailing labels.
You bet:
>perl -e 'printf "%20s %20s %20s\n", "
On Dec 18, 2003, at 3:08 AM, Rob Dixon wrote:
That's exactly what the ExtUtils::Installed was created for:
use strict;
use warnings;
use ExtUtils::Installed;
my $install = new ExtUtils::Installed;
print map "$_\n", $install->modules;
why on my linux box does that print
meatbop: 58:] .
Drieux wrote:
>
> On Dec 18, 2003, at 3:08 AM, Rob Dixon wrote:
>
>> That's exactly what the ExtUtils::Installed was created for:
>>
>> use strict;
>> use warnings;
>>
>> use ExtUtils::Installed;
>>
>> my $install = new ExtUtils::Installed;
>> print map "$_\n", $install->modules;
>
>
Hi Bill,
We are also looking for the same solution
My problem is, I have to fetch data from tbe database
and display it on browser. The datbase is very huge.
It is taking more time to query the data. Mean while
timeout error is occuring on the browser.
So, we are also looking for the same soluti
On Dec 18, 2003, at 10:40 AM, david wrote:
[..]
#!/usr/bin/perl -w
use strict;
use ExtUtils::Installed;
print join("\n",grep /\.pm$/,
ExtUtils::Installed->new->files('Perl')),"\n";
[..]
clearly a step in the right direction.
But there is this minor nit that I find
a bit worrisome.
vladimir: 67:
Mallik wrote:
> Hi Bill,
>
> We are also looking for the same solution
>
> My problem is, I have to fetch data from tbe database
> and display it on browser. The datbase is very huge.
> It is taking more time to query the data. Mean while
> timeout error is occuring on the browser.
>
> So, we ar
Does a compound statement need to end with an "else" ?
I know -
if (expression) {
statement;
} elsif (expression) {
statement;
}
works but I've never seen a block like that in a book yet. I usually
see something like -
if (expression) {
statement;
} elsif (expression) {
Hello Kenton,
It depends on what you want to do. There is not really a "right way", since
the two series of statements you mention will lead to different results.
(I added numbers to the different parts of your examples, makes them a bit
easier to follow)
> if (expression1) {
> statement1;
Kenton Brede wrote:
> Does a compound statement need to end with an "else" ?
No.
>
> I know -
>
> if (expression) {
> statement;
> } elsif (expression) {
> statement;
> }
>
> works but I've never seen a block like that in a book yet. I usually
> see something like -
>
> if (exp
On Thu, 18 Dec 2003 13:35:17 -0600
Kenton Brede <[EMAIL PROTECTED]> wrote:
> Does a compound statement need to end with an "else" ?
Technically No. But what if you haven't covered all the options?
So I would suggest adding after the last elsif
} elsif ($string[0] =~ m/^\w/) { # limit search st
- Original Message -
From: "William Martell" <[EMAIL PROTECTED]>
To: "perl-win32-users" <[EMAIL PROTECTED]>
Sent: Thursday, December 18, 2003 11:24 AM
Subject: Win32::OLE, Simple Question
> Hello All,
>
> Could anyone help me with this script. I am trying to write an excel file
> with t
On Dec 18, 2003, at 11:35 AM, Kenton Brede wrote:
[..]
I've posted the following code to use as an example. Any critique of
the code in addition to my specific question is welcome:) I just don't
see a reason to stick an "else" statement on the end of that block.
http://www.nixnotes.org/perl_dump.
Drieux wrote:
>
> On Dec 18, 2003, at 3:08 AM, Rob Dixon wrote:
>
> > That's exactly what the ExtUtils::Installed was created for:
> >
> > use strict;
> > use warnings;
> >
> > use ExtUtils::Installed;
> >
> > my $install = new ExtUtils::Installed;
> > print map "$_\n", $install->modules;
On Dec 18, 2003, at 12:41 PM, Rob Dixon wrote:
[..]
It reads the .packlist files that result from the installation.
Seems like your stuff has been hacked.
"Vendor Supplied, Vendor Supported"
I think is the phrase you were looking for.
Ironically, the modules that i did the build and
install of show
Hello,
been trying to come up with a way, while going through a loop to alternate a
table cell color
IE.
while (..) {
# To alternate a td cell color for each loop cycle so I end up
# with something like this:
# 1st loop
# 2nd loop.
# 3rd loop..
# 4th loop.
Hello all
While traversing a loop across and array, how can I access array
positions further down the array, like say if I am on a loop looking at
position 23, how can I check the value of say position 24 or 32 while my
loop counter is on position 23.
Thanks
perl knucklehead
--
To unsubscrib
On Dec 18, 2003, at 5:48 PM, Mike Blezien wrote:
Hello,
been trying to come up with a way, while going through a loop to
alternate a table cell color
See if this gets you thinking along the right lines:
my $odd = 1;
while (<>) { # some kind of loop...
if ($odd) {
Eric Walker wrote:
> Hello all
> While traversing a loop across and array, how can I access array
> positions further down the array, like say if I am on a loop looking
> at position 23, how can I check the value of say position 24 or 32
> while my loop counter is on position 23.
>
> Thanks
> perl
On Thu, Dec 18, 2003 at 04:57:26PM -0700, Eric Walker wrote:
> Hello all
> While traversing a loop across and array, how can I access array
> positions further down the array, like say if I am on a loop looking at
> position 23, how can I check the value of say position 24 or 32 while my
> loop co
I got it so I need a counter which sends me to a for loop instead of a
foreach. Thanks..
perlknucklehead
On Thu, 2003-12-18 at 17:07, Paul Johnson wrote:
On Thu, Dec 18, 2003 at 04:57:26PM -0700, Eric Walker wrote:
> Hello all
> While traversing a loop across and array, how can
On Dec 18, 2003, at 5:57 PM, Eric Walker wrote:
Hello all
While traversing a loop across and array, how can I access array
positions further down the array, like say if I am on a loop looking at
position 23, how can I check the value of say position 24 or 32 while
my
loop counter is on position 2
On 12/18/2003 7:00 PM, James Edward Gray II wrote:
On Dec 18, 2003, at 5:48 PM, Mike Blezien wrote:
Hello,
been trying to come up with a way, while going through a loop to
alternate a table cell color
See if this gets you thinking along the right lines:
my $odd = 1;
while (<>) {# som
Eric Walker <[EMAIL PROTECTED]> wrote:
> I got it so I need a counter which sends me to a for loop instead of a
> foreach. Thanks..
>
> perlknucklehead
I believe that 'for' and 'foreach' are completely interchangable. I remember
reading somewhere that one was a synonym for the other.
Maybe som
On Thu, Dec 18, 2003 at 07:26:03PM -0500, Randy W. Sims wrote:
> On 12/18/2003 7:00 PM, James Edward Gray II wrote:
> >On Dec 18, 2003, at 5:48 PM, Mike Blezien wrote:
> >
> >>Hello,
> >>
> >>been trying to come up with a way, while going through a loop to
> >>alternate a table cell color
> >
On Thu, Dec 18, 2003 at 04:31:20PM -0800, Jeff Westman wrote:
> Eric Walker <[EMAIL PROTECTED]> wrote:
>
> > I got it so I need a counter which sends me to a for loop instead of a
> > foreach. Thanks..
> >
> > perlknucklehead
>
> I believe that 'for' and 'foreach' are completely interchangable.
Paul Johnson <[EMAIL PROTECTED]> wrote:
> On Thu, Dec 18, 2003 at 07:26:03PM -0500, Randy W. Sims wrote:
> > On 12/18/2003 7:00 PM, James Edward Gray II wrote:
> > >On Dec 18, 2003, at 5:48 PM, Mike Blezien wrote:
> > >
> > >>Hello,
> > >>
> > >>been trying to come up with a way, while going throu
Thx's James worked fine,... the simplest way is usually the most obvious
over-looked way :)
MikeBlezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
Providing Internet Solutions that work!
http://www.thunder-rain.com
James Edward Gray II wrote:
On Dec 18, 2003, at
* Mike Blezien <[EMAIL PROTECTED]> [2003-12-18T18:48:23]
> been trying to come up with a way, while going through a loop to
> alternate a table cell color
I always do something more like:
my $i;
while (<>) {
print " ... \n"
}
The benefit here is that someday I can replace the 2 with
On Dec 18, 2003, at 8:54 PM, Ricardo SIGNES wrote:
* Mike Blezien <[EMAIL PROTECTED]> [2003-12-18T18:48:23]
been trying to come up with a way, while going through a loop to
alternate a table cell color
I always do something more like:
my $i;
while (<>) {
print " ... \n"
}
The benefit
I am reading in a csv file and it has a control character ^M at the end
of each line how can I remove these charaters, I have tried the following
and had no success.
$a=~s/\^M//;
$a=~s/^M//;
Any help appreciated thanks.
--
Regards
David Inglis
0408502342
--
To unsubscribe, e-mail: [EMA
On 12/20/2003 8:21 AM, David Inglis wrote:
I am reading in a csv file and it has a control character ^M at the end
of each line how can I remove these charaters, I have tried the following
and had no success.
$a=~s/\^M//;
$a=~s/^M//;
Any help appreciated thanks.
^M is the carriage return. Try s/
Hi All,
I would like to "zip" a file using perl script. I used following command:-
system ("zip ");
However this command fails when the filename is more than 8 characters. Since DOS does
not support more than 8 characters. Is there any way by which I can zip a file, whose
name is 9+ character
Manish Uskaikar wrote:
Hi All,
I would like to "zip" a file using perl script. I used following command:-
system ("zip ");
However this command fails when the filename is more than 8 characters. Since DOS does not support more than 8 characters. Is there any way by which I can zip a file, whose
On 12/19/2003 12:38 AM, Manish Uskaikar wrote:
Hi All,
I would like to "zip" a file using perl script. I used following command:-
system ("zip ");
However this command fails when the filename is more than 8 characters. Since DOS does not support more than 8 characters. Is there any way by whic
40 matches
Mail list logo
