On 7/12/07, Chas Owens [EMAIL PROTECTED] wrote:
On 7/12/07, Gregory Machin [EMAIL PROTECTED] wrote:
Hi
I have a rusty memory of perl have the ability, where by you can load
perl code into an variable / array then execute it on demand, anyone
got an example of how to do this ..
Many Thanks
- Original Message -
From: Rob Dixon [EMAIL PROTECTED]
To: beginners@perl.org
Sent: Friday, July 13, 2007 7:47 AM
Subject: Re: [OT] Email Notifications
Mike Blezien wrote:
we have been using the Disposition-Notification-To: from in the mail
header(Request Read Receipt) to be
On Fri, 2007-07-13 at 08:37 -0400, Mr. Shawn H. Corey wrote:
If you want to run scripts, you should use system(). See `perldoc -f
system`
or:
open( PROG, '|-', 'myscript.sh options' ) or die ...
while( PROG ) {
}
close PROG
if( $? ) {
die I have failed;
}
--
Ken Foskey
FOSS developer
Mike Blezien wrote:
we have been using the Disposition-Notification-To: from in the mail
header(Request Read Receipt) to be notified when an email has been
received, but this does require the recipient to respond Yes or No to
send response.
I was just wondering if there was another way to
If you're using email, it can't be done.
What you /could/ do is set up a message system on a website and send
messages there. You can email them when a message gets sent and tell
them to log in to read the message.
In that scenario, you could monitor who read the message and who didn't.
--
To
Gregory Machin wrote:
What I want to do is to write a service monitoring daemon, where the
core or body of the script parses a directory, that contains the
config / perl scripts, and is loaded into the core script, if one of
the scripts has an unrecoverable error, it's dumped, thus preserving
- Original Message -
From: yitzle [EMAIL PROTECTED]
To: Mike Blezien [EMAIL PROTECTED]
Cc: beginners@perl.org
Sent: Friday, July 13, 2007 8:41 AM
Subject: Re: [OT] Email Notifications
If you're using email, it can't be done.
What you /could/ do is set up a message system on a
Jenda Krynicky wrote:
Date sent: Fri, 13 Jul 2007 08:53:56 +0200
From: Gregory Machin [EMAIL PROTECTED]
What I want to do is to write a service monitoring daemon, where the
core or body of the script parses a directory, that contains the
config / perl scripts, and is loaded into
Date sent: Fri, 13 Jul 2007 08:53:56 +0200
From: Gregory Machin [EMAIL PROTECTED]
What I want to do is to write a service monitoring daemon, where the
core or body of the script parses a directory, that contains the
config / perl scripts, and is loaded into the core script, if one
On Jul 12, 4:09 pm, [EMAIL PROTECTED] (Mike Blezien) wrote:
I was just wondering if there was another way to track a mailing to see if it
was read, automatically
or other means of tracking email that has been received/read without the
recipient intervention?
Nope, can't be done. (well, it
Hello All,
I am a beginner and I am trying to install a bioinformatics
utility(Interproscan) on a Sun Solaris machine. This software is based
on Perl packages and I am having problems installing some specific
perl modules. Can someone help??
I need to install the following perl modules:
Module
Hi,
In the following script, I am inserting a time stamp.
The problem is that the time stamp ($sec) is not
incrementing.
What am I doing wrong?
snip
open (PORT, +COM1) || die Can't Open Port\n;
open (LOG, c:\\temp\\logdata.txt) || die Can't
Open File\n;
while ( PORT ) {
#print $_;
#sleep 1;
Hi,
Thanks for helping with my question the other day, now I have
another. In my class I have an array of hashes and it seems to work
just fine. I use the zeroth element to store individual variables and
all the other elements to store variables that change over time. For
example, i have the
On 7/13/07, Inventor [EMAIL PROTECTED] wrote:
snip
$self-[0]{'teams'} = @teams;
and
@self-[0]{'teams'} = @teams;
but when I try to access the array with
foreach $team ($self-[0]{'teams'}) {
print $team.' ';
}
or
foreach $team (@self-[0]('teams')) {
print $team.' ':
}
i get nothing
Inventor wrote:
Hi,
Thanks for helping with my question the other day, now I have
another. In my class I have an array of hashes and it seems to work
just fine. I use the zeroth element to store individual variables and
all the other elements to store variables that change over time. For
On 7/13/07, CM Analyst [EMAIL PROTECTED] wrote:
snip
What am I doing wrong?
snip
As far as I can see from the code you posted $hour, $min, and $sec
shouldn't even have values. Scalars don't magically change value
(unless they are tied, but that is magic), so you must put something
inside the
CM Analyst wrote:
Hi,
In the following script, I am inserting a time stamp.
The problem is that the time stamp ($sec) is not
incrementing.
What am I doing wrong?
snip
open (PORT, +COM1) || die Can't Open Port\n;
open (LOG, c:\\temp\\logdata.txt) || die Can't
Open File\n;
while ( PORT ) {
Dear All,
The following works for me.
#
use strict;
use warnings;
use Win32::SerialPort;
use IO::Select;
use IO::File;
use IO::Handle;
use Time::Local;
# Serial Settings
open (PORT, +COM1) || die Can't Open Port\n;
open (LOG, c:\\temp\\logdata.txt) || die Can't
Open File\n;
On 7/13/07, Vivek Menon [EMAIL PROTECTED] wrote:
Hello All,
I am a beginner and I am trying to install a bioinformatics
utility(Interproscan) on a Sun Solaris machine. This software is based
on Perl packages and I am having problems installing some specific
perl modules. Can someone help??
I
CM Analyst schreef:
my ($sec, $min, $hour,
$mday, $mon, $year,
$wday, $yday, $isdst) = localtime();
You don't have to allocate variables for the values that you don't need,
so in your case this might be sufficient:
my ($sec, $min, $hour) = localtime;
If you need
On 7/13/07, Vivek Menon [EMAIL PROTECTED] wrote:
I am using the CPAN method and I have done the following:
Install from source expat-1.95.5
export PATH=$PATH:/opt/SUNWspro/bin: /usr/sfw/bin:/usr/ccs/bin
export CC=cc
export CPPFLAGS=-l/usr/local/include -I/usr/sfw/include
Dr.Ruud wrote:
Chas Owens schreef:
[put an array @teams into the 0th element of $self]
The proper syntax is
$self-[0]{teams} = [ @teams ];
That makes a copy. If you don't want that, for example because it could
contain millions of items, you can use
$self-[0]{teams} = [EMAIL
On Jul 13, 4:27 pm, [EMAIL PROTECTED] (Vivek Menon) wrote:
Hello All,
I am a beginner and I am trying to install a bioinformatics
utility(Interproscan) on a Sun Solaris machine. This software is based
on Perl packages and I am having problems installing some specific
perl modules. Can someone
On Jul 13, 12:03 pm, [EMAIL PROTECTED] (Inventor) wrote:
Thanks for helping with my question the other day, now I have
another. In my class I have an array of hashes
In Perl, when we say array of hashes we are using it as shorthand
for array of references to hashes.
99% of the time everyone
On Jul 8, 6:14 pm, [EMAIL PROTECTED] (Ken Foskey) wrote:
# Since you are use strict you must declare all variables before using
# them.
The before in that statement may be missleading. 95% of the time
the best place to declare variable is _when_ you first use them.
my ($var1, $var2);
Chas Owens schreef:
[put an array @teams into the 0th element of $self]
The proper syntax is
$self-[0]{teams} = [ @teams ];
That makes a copy. If you don't want that, for example because it could
contain millions of items, you can use
$self-[0]{teams} = [EMAIL PROTECTED];
--
Hi all. Like it says, I need to extract the content of a PDF file.
I installed the tool pdftotext, and it works fine for my needs. I
recall there was a very simple module that used this to extract text,
but for the life of me, I can't find it on CPAN! Any leads? Using a
command-line script
I did the installation without using CPAN and it's worked somehow.
there's lot of env variables I set up:
# setenv PATH \
/usr/sfw/bin:/usr/local/bin:/usr/bin:/bin
# setenv PATH \
${PATH}:/usr/ccs/bin:/usr/sbin:/opt/sfw/bin:.
# setenv LD_LIBRARY_PATH \
One of these scripts has a loop like this:
for my $line (@lines){
my $line2 = $line;
$line =~ s/(\S+)\s+(\S+)\s+(\S+)/X$1 Y$2/;
print FILEOUT $line;
$line2 =~ s/(\S+)\s+(\S+)\s+(\S+)/Z[$3+DPad]/;
print FILEOUT $line2;
print FILEOUT M98PDRILL.SUBL1\n;
print FILEOUT G90\n;
print FILEOUT G00
On 7/13/07, Joseph L. Casale [EMAIL PROTECTED] wrote:
What would be a wise way of trapping a condition such as the line read and
passed
into the loop is not 3 sets of numbers and if so, skip?
Use the 'next' operator. It's documented in perlfunc.
Hope this helps!
--Tom Phoenix
Stonehenge
Joseph L. Casale wrote:
One of these scripts has a loop like this:
for my $line (@lines){
my $line2 = $line;
$line =~ s/(\S+)\s+(\S+)\s+(\S+)/X$1 Y$2/;
print FILEOUT $line;
$line2 =~ s/(\S+)\s+(\S+)\s+(\S+)/Z[$3+DPad]/;
print FILEOUT $line2;
print FILEOUT M98PDRILL.SUBL1\n;
print FILEOUT
Joseph L. Casale wrote:
One of these scripts has a loop like this:
for my $line (@lines){
my $line2 = $line;
$line =~ s/(\S+)\s+(\S+)\s+(\S+)/X$1 Y$2/;
print FILEOUT $line;
$line2 =~ s/(\S+)\s+(\S+)\s+(\S+)/Z[$3+DPad]/;
print FILEOUT $line2;
print FILEOUT M98PDRILL.SUBL1\n;
print FILEOUT
--- Mike Lesser [EMAIL PROTECTED] wrote:
Hi all. Like it says, I need to extract the content
of a PDF file.
I installed the tool pdftotext, and it works fine
for my needs. I
recall there was a very simple module that used this
to extract text,
but for the life of me, I can't find it
OK, I saw your example and noted it. I intended on using next time as I know
there will be:)
But now I am convinced, as the lack of error checking in my script worries me.
I'll take yours and fit it in!
I do need to read up on what you're doing as I am not clear on its syntax in
this email. I
On 7/13/07, Joseph L. Casale [EMAIL PROTECTED] wrote:
snip
open (FILEIN, $ARGV[0]) or die $!;
my @lines = FILEIN;
snip
In list context the operatot returns all lines, but in scalar
context it returns on line at a time. This can be used with a while
loop to walk over the file in pieces (a
35 matches
Mail list logo