On Fri, Oct 17, 2003 at 04:05:10PM -0700, Smoot Carl-Mitchell wrote:
> Steve Grazzini <[EMAIL PROTECTED]> wrote:
>
> > Have you actually tried ". perlscript" ? :-)
>
> This will not work.
Yes, anyone who tries it will realize this immediately. :-)
> system("ENVVAR=whatever; export ENVVAR; comm
On Oct 17, [EMAIL PROTECTED] said:
>I know about localtime(time); But I was wondering if there was a formula
>out there like 1066442632/60/60/24 that will say today is say 2003 10 17.
Well, localtime() also returns a list (when called in list context).
# get only the values we want
my ($day,
--On Friday, October 17, 2003 20:38 -0700 "[EMAIL PROTECTED]"
<[EMAIL PROTECTED]> wrote:
I know about localtime(time); But I was wondering if there was a
formula out there like 1066442632/60/60/24 that will say today is
say 2003 10 17.
Gee, I don't know what you're asking for here. I mean, if I
Paul Harwood wrote:
>
> I want to search a directory of log files and populate a list of those
> log files ONLY if they match today's date (localtime).
>
> $logs = 'c:\logs\W3SVC1';
> opendir LOGS, "$logs" or die "Can't open directory: $!\n";
> my @files = grep /\.TXT$/, readdir LOGS;
>
> #Righ
I know about localtime(time); But I was wondering if there was a formula
out there like 1066442632/60/60/24 that will say today is say 2003 10 17.
thanks
> On Oct 17, [EMAIL PROTECTED] said:
>
>>> [EMAIL PROTECTED] wrote:
>>>
How can I convert it to a readable date?
$now=time;
On Oct 17, [EMAIL PROTECTED] said:
>> [EMAIL PROTECTED] wrote:
>>
>>> How can I convert it to a readable date?
>>>
>>> $now=time;
>>>
>>> print $now return 1066442632
>>>
>>> I had tied perldoc time but it says:
>>> No documentation found for "time".
>>>
>>
>> perldoc -f time
>> perldoc -f localt
--On Friday, October 17, 2003 19:08 -0700 "[EMAIL PROTECTED]"
<[EMAIL PROTECTED]> wrote:
How can I convert it to a readable date?
$now=time;
print $now return 1066442632
Time is normally given as the epoch time: the number of seconds since
the beginning of the clock under UNIX (Jan 1, 1970).
Thanks, now I know how to use perldoc. But how do I convert that time?
I have an application that stores it in that format.
thanks,
> [EMAIL PROTECTED] wrote:
>
>> How can I convert it to a readable date?
>>
>> $now=time;
>>
>> print $now return 1066442632
>>
>> I had tied perldoc time but it say
[EMAIL PROTECTED] wrote:
How can I convert it to a readable date?
$now=time;
print $now return 1066442632
I had tied perldoc time but it says:
No documentation found for "time".
perldoc -f time
perldoc -f localtime
http://danconia.org
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additiona
How can I convert it to a readable date?
$now=time;
print $now return 1066442632
I had tied perldoc time but it says:
No documentation found for "time".
thanks,
-
eMail solutions by
http://www.swanmail.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED
I want to search a directory of log files and populate a list of those log files ONLY
if they match today's date (localtime).
$logs = 'c:\logs\W3SVC1';
opendir LOGS, "$logs" or die "Can't open directory: $!\n";
my @files = grep /\.TXT$/, readdir LOGS;
#Right here, I am wondering if there is a
thanks
>> -Original Message-
>> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
>> Sent: Friday, October 17, 2003 3:54 PM
>> To: [EMAIL PROTECTED]
>> Subject: making a variable execute
>>
>>
>> Can someone show me how to make this compute?
>>
>> my $a=2;
>> my $b=3;
>> my $oper="+";
>>
--On Friday, October 17, 2003 11:28 -0700 Chinku Simon
<[EMAIL PROTECTED]> wrote:
However, the number of mails that are being sent is pretty huge --
around 2000 mails in a span of 30 minutes.
The perl program crashes after sending around 700 mails with the
Bulk mail error log giving the following
Gregg O'Donnell wrote:
I have a form that needs to send it's data to multiple recipients (35 in all); is
there an easier way to do this?
# Region office email addresss
my @offices = ('[EMAIL PROTECTED]', '[EMAIL PROTECTED]', '[EMAIL PROTECTED]');
my $email_all = @offices;
This is basically non
On Fri, 17 Oct 2003 14:32:07 -0400
Steve Grazzini <[EMAIL PROTECTED]> wrote:
>
> Have you actually tried ". perlscript" ? :-)
>
This will not work. The shell "." command for the Bourne and Korn shell
effectively sources the file and expects it to contain shell commands.
You can fork a shell
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Friday, October 17, 2003 3:54 PM
> To: [EMAIL PROTECTED]
> Subject: making a variable execute
>
>
> Can someone show me how to make this compute?
>
> my $a=2;
> my $b=3;
> my $oper="+";
>
> my $c = $a $oper
Can someone show me how to make this compute?
my $a=2;
my $b=3;
my $oper="+";
my $c = $a $oper $b;
where $c would have a value of 5.
thanks,
-rkl
-
eMail solutions by
http://www.swanmail.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
I have a form that needs to send it's data to multiple recipients (35 in all); is
there an easier way to do this?
# Region office email addresss
my @offices = ('[EMAIL PROTECTED]', '[EMAIL PROTECTED]', '[EMAIL PROTECTED]');
my $email_all = @offices;
Thanks
-
--On Friday, October 17, 2003 13:46 -0500 "Charles K. Clarkson"
<[EMAIL PROTECTED]> wrote:
: (I've tried re-creating the
: HTML::Stream too, or just using the 'global' version.)
: This actually was my first try at it. Again, slide()
: works fine, but slide_() doesn't, even though it gets
: call
On Fri, 17 Oct 2003 11:43:51 -0700, "LoBue, Mark" <[EMAIL PROTECTED]> wrote:
> > > There is no way I know of for a child process to modify the
> > environment of
> > > it's parent. You might try having your perl program create a script
> > > some
On Fri, Oct 17, 2003 at 11:43:51AM -0700, LoBue, Mark wrote:
>>> You can also get tricky by running your perl script in the current
>>> environment using:
>>> . program_name (space after the dot)
>>> then your program could exit using exec('path/to/shell');
>>
>> I am not sure I understood the OP
Daniel Staal <[EMAIL PROTECTED]> :
:
: I actually tried that, using the following code:
[code sample snipped]
:
: But that doesn't seem to work either.
What do you mean by "doesn't seem to work"?
: (I've tried re-creating the
: HTML::Stream too, or just using the 'global' version.)
: This
On Oct 17, Nandita Mullapudi said:
> I have a list of elements- and for every element in the
>list, I want to carry out an operation with the previous
>element or the next one, as the case might be, how do I tell
>perl to look at the previous element?
I'd just do something like:
my $last = un
> > There is no way I know of for a child process to modify the
> environment of
> > it's parent. You might try having your perl program create a script
> > somewhere in the path, then the parent could execute it.
> >
> > You can also get tricky by running your perl script in the current
> > env
On Friday, October 17, 2003, at 10:15 AM, Kevin Old wrote:
Help with my script AND Comedy! Folks, don't forget to tip your
waitress...
Thank ya. I'll be here all week. :P
On Thu, 2003-10-16 at 17:53, James Edward Gray II wrote:
Okay, first, just have to ask this question: Are we doing this
On Fri, 17 Oct 2003 10:21:59 -0700, "LoBue, Mark" <[EMAIL PROTECTED]> wrote:
> > -Original Message-
> > From: Harter, Douglas [mailto:[EMAIL PROTECTED]
> > Sent: Friday, October 17, 2003 8:09 AM
> > To: Beginners Mailing List Perl (E-mail)
--On Friday, October 17, 2003 13:54 -0400 Steve Grazzini
<[EMAIL PROTECTED]> wrote:
You could use a lexically-scoped filehandle.
{
my $fh;
sub do_open { open $fh }
sub do_append { print $fh }
sub do_close { close $fh }
}
I actually tried that, using t
Hi,
I have a perl program which uses the Mail::Bulkmail v3.09 module to send out mails.
The SMTP
server we have is the lotus notes server.
However, the number of mails that are being sent is pretty huge -- around 2000 mails
in a span of
30 minutes.
The perl program crashes after sending around
On Fri, Oct 17, 2003 at 12:38:33PM -0500, Daniel Staal wrote:
> I need to open a filehandle in one sub, use it in several
> others, and then close it in a different sub yet. I'd pass it as a
> parameter, but all the subs are actually called by XML::Parser, so I
> don't get to choose the paramet
A L wrote:
>
> Let's say there is a directory called Top. Within the Top
> directory, there are 26 subdirectories named A-Z. Within each
> of those A-Z subdirectories contain one or more filess that
> ends in .txt extension. Now, to print out the content within
> all those .txt files, what can
Ok, I'm writing an apxl to html converter and I have one little
problem: I need to open a filehandle in one sub, use it in several
others, and then close it in a different sub yet. I'd pass it as a
parameter, but all the subs are actually called by XML::Parser, so I
don't get to choose the par
> -Original Message-
> From: Harter, Douglas [mailto:[EMAIL PROTECTED]
> Sent: Friday, October 17, 2003 8:09 AM
> To: Beginners Mailing List Perl (E-mail)
> Subject: alias in the shell
>
>
> Is it possible to create an alias in the shell from within Perl?
>
> I have a command I want to u
On Fri, 17 Oct 2003 06:35:13 -0700, Gregg O'Donnell wrote:
> I have a form, and the data from that form is formatted in HTML and
> emailed to recipients. Is there a way to save the HTML-formatted message
> as a separate file? And have a web page "template" call this file as a
> server-side include
On Friday, October 17, 2003, at 10:13 AM, Nandita Mullapudi wrote:
I have a list of elements- and for every element in the
list, I want to carry out an operation with the previous
element or the next one, as the case might be, how do I tell
perl to look at the previous element?
I like:
for (my
Let's say there is a directory called Top. Within the Top directory, there are 26
subdirectories named A-Z. Within each of those A-Z subdirectories contain one or more
filess that ends in .txt extension. Now, to print out the content within all those
.txt files, what can you do to not type in
Nandita Mullapudi wrote:
>
> I have a list of elements- and for every element in the
> list, I want to carry out an operation with the previous
> element or the next one, as the case might be, how do I tell
> perl to look at the previous element?
Ni Nandita.
This isn't straightforward in Perl.
I have a list of elements- and for every element in the
list, I want to carry out an operation with the previous
element or the next one, as the case might be, how do I tell
perl to look at the previous element?
t.i.a
-Nandita
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands
On Thu, 2003-10-16 at 17:53, James Edward Gray II wrote:
> On Thursday, October 16, 2003, at 03:25 PM, Kevin Old wrote:
>
> > James, is it possible to ask for a little more help with this?
>
> Nope, you've used up all your free answer tokens.Oh,
> alright, just this once...
Help with my sc
Kevin Old wrote:
>
> Also, for example purposes, say the item you want to match on is a
> "Black Kettle" and your description is "Black Kettle", but their
> description is "BLK KTTL". Would there be occurrences like this?
>
Damn. You mean I could have bought my prosthetic black kettle
more cheapl
On Oct 17, Michael Weber said:
>When I try to find out what the spam score is I am getting a weird error.
It's not that weird an error. Perl is telling you exactly what's wrong,
exactly where it's wrong.
>if ( $msg[$line] =~ '^X-Spam-Level: ***' ) {
>
Is it possible to create an alias in the shell from within Perl?
I have a command I want to use in the shell after my Perl script executes. This
command can vary, so what I would prefer to do is set up an alias to execute it.
I realize aliases are created differently in different shells. I will
On Friday, October 17, 2003, at 09:19 AM, Michael Weber wrote:
Greetings!
Howdy.
I am attempting to parse emails on the fly after a spam filter adds a
score to the headers. (SpamAssassin, if you're curious.)
When I try to find out what the spam score is I am getting a weird
error. Here's th
Greetings!
I am attempting to parse emails on the fly after a spam filter adds a score to the
headers. (SpamAssassin, if you're curious.)
When I try to find out what the spam score is I am getting a weird error. Here's the
lines that error out:
if ( $msg[$line] =~ '^X-Spam-Le
On Fri, 2003-10-17 at 09:04, Paul D. Kraus wrote:
> Ok here is the scenioro I have two price lists that contain itemcode
> description cost list The important two are itemcode and description.
> One is our list the other is the price list of our major competitior. Of
> course they use differ
-Original Message-
From: Paul D. Kraus [mailto:[EMAIL PROTECTED]
Sent: Friday, October 17, 2003 3:32 PM
To: [EMAIL PROTECTED]
Subject: Re: Description Search
On Fri, 17 Oct 2003 15:24:09 +0200, <[EMAIL PROTECTED]> wrote:
> This seems my University project.
>
> Some years ago I did some
Greetings,
I have a form, and the data from that form is formatted in HTML and emailed to
recipients. Is there a way to save the HTML-formatted message as a separate file? And
have a web page "template" call this file as a server-side include file? The data also
goes into a CSV file; however, I
On Fri, 17 Oct 2003 15:24:09 +0200, <[EMAIL PROTECTED]> wrote:
This seems my University project.
Some years ago I did something more or less similar.
Insted of removing some words, I would just rate witch word. For instance
count each word in your description and give a coeficient to it like 1 /
This seems my University project.
Some years ago I did something more or less similar.
Insted of removing some words, I would just rate witch word. For instance
count each word in your description and give a coeficient to it like 1 /
(count * count). After for similarities you can consider to sum
Ok here is the scenioro I have two price lists that contain itemcode
description cost list The important two are itemcode and description.
One is our list the other is the price list of our major competitior. Of
course they use different itemcode to identify there items then we do. I
need a
Wiggins D'Anconia wrote:
> Dan Anderson wrote:
>
> > I have a package which I wanted to make an object, so I had something
> > like the following:
> >
> > sub new {
> > my $proto = shift;
> > my $class = ref($proto) || $proto;
> > my $self;
> > $self->{BOOL_1} = 0;
> > $self->{BOOL_2} =
Graham said:
> As you can probably tell, I'm looking for a script to convert ogg files to
> mp3 en-masse, while retaining filenames and important tag information.
Here's what I use to create mp3s from flac files. It's basically a quick
hack (doesn't check for errors, no docs or comments etc.),
51 matches
Mail list logo
