On Sat, 28 Jul 2001, Jeff 'japhy/Marillion' Pinyan wrote:
> On Jul 28, Dan Grossman said:
>
> >#!/usr/bin/perl -w
> >use strict;
> >
> >my $funcRef = \&otherDummyFunc;
> >
> >sub callTheReferredFunc {
> >my $returnVal = &$funcRef;
> >return $returnVal;
> >}
>
> >I don't pass $funcRef to
On Jul 28, Dan Grossman said:
>#!/usr/bin/perl -w
>use strict;
>
>my $funcRef = \&otherDummyFunc;
>
>sub callTheReferredFunc {
>my $returnVal = &$funcRef;
>return $returnVal;
>}
>I don't pass $funcRef to &callTheReferredFunc, and yet "-w" doesn't
>generate a warning for an undefined refe
On Sat, Jul 28, 2001 at 07:10:59PM -0700, Dan Grossman wrote:
> I'm wondering why Perl doesn't complain about the following code:
>
> --
> #!/usr/bin/perl -w
> use strict;
>
> my $funcRef = \&otherDummyFunc;
> my $oneVar = &callTheReferredFunc();
> print $oneVar;
>
> sub dummyFunc {
>
Hi,
I'm wondering why Perl doesn't complain about the following code:
--
#!/usr/bin/perl -w
use strict;
my $funcRef = \&otherDummyFunc;
my $oneVar = &callTheReferredFunc();
print $oneVar;
sub dummyFunc {
return 42;
}
sub otherDummyFunc {
return "your mom";
}
sub callTheReferr
On Sat, Jul 28, 2001 at 01:56:46PM +0200, Ackim Chisha wrote:
> Does any one already have a perl script for NT that I could use to run like
> a cron job in unix. Am writing a scrip that I need to have running every 5
> minuteseveryday. Or is there a way I can write my script so that it runs
> eve
You shoul check PerlMagick on CPAN.
It can modify any image in a lot of ways..
--
Agustin Bialet
Macaldia.com
Av del Libertador 498 - 6 piso Norte
(011) 4328-8844
> From: <[EMAIL PROTECTED]>
> Date: Fri, 27 Jul 2001 12:58:07 -0700 (PDT)
> To: <[EMAIL PROTECTED]>
> Subject: jpg resize
>
> I n
Hello, all.
I have put together a very rough draft of what I hope to be a very good
introduction and description of Perl's Original Artistic License. I've
just put it together using a variety of readily findable sources, and
has not been refined at all at this point.
I would like anyone here tha
AT is part of the standard installation on NT4. There is no need to install
it separately. If the schedule service is running on the remote machine, and
your account has rights on it, just designate the remote machine between the
AT and the time like this from command prompt:
at \\remotemachine
> search for 'efghmnop'
> in 'abcdefghijklmnopqrstuvwxyzabcdefghmnop'
>
> Take the last letter of the searched for substring, p.
>
> Pick a possible substring endpoint in the large string.
> This starts out at an offset from the beginning of the
> large string. The offset is the length o
Almost right. Windows 2000 has a scheduler in the control panel, and you can
set a single schedule to run every 5 minutes from a start time to a stop
time every day by using a weekly schedule. This has a front end GUI, but
still works with the legacy AT like in NT4. However using the AT may not be
I am trying to use L Stein's file locking subroutine from 'Official Guide
to Programming with CGI.pm' for a light duty cgi program I am writing. I'd
like to use 'use strict', but I can't get perl to agree with the return
at the end of the subroutine. (See return below)
Here is a sample program:
> Like I said I know I can use the module Similarity. But in
> order to do this I would need bot the query and the subject
> string. And to get the subject string I would need to 'slide'
> down the larger string and pull out all combinations 1 by 1.
> This is very slow with a 4.5 million character
Windows NT/2000 built-in scheduler, the "at" program, will work, I
believe, but if your script is to run every 5 minutes, you might
simply use Perl's sleep command to time iterations of some loop.
That way the script's process won't have to start and stop
repeatedly. It will simply wait in th
Hello again,
I have no background in genetic analysis but it looks like there is so
much effort going on in the Bio:: modules. There is a module called
Bio::SeqFeature::Similarity that might be doing just what you want. But
then again, it may not :-)
Hope this helps,,,
Aziz,,,
In article <
Why don't you try the built-in scheduling program in NT? best bet. Then
have it run the specified script when you want.
- Original Message -
From: "Ackim Chisha" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, July 28, 2001 7:56 AM
Subject: Script for Sheduling jobs on NT
Hello again,
I would suggest you look at Algorithm::Diff module (available at CPAN).
The function LCS, given 2 strings, gives you the "longest common
sequence" between the 2 strings. Once you have the longest common
sequence, you can probably decide whether it meets the 80% criterion you
set or
Aziz,
I guess I hadn't thought about it that way, so here is more info.
What I'm basically doing is randomly pulling a string of 500 from one string
and looking for it in another string. So I'm looking for a substring of the
larger string that matches my query string. In terms of how it matches
Hi all,
I've been handed a project where I have to read the contents of several
files, which looks like the following:
file.0001.rgb
file.0002.rgb
file.0003.rgb
file.0004.rgb
file.0005.rgb
file_2.0001.rgb
file_2.0002.rgb
file_2.0003.rgb
then replace the contents of those files with the same in
Hello,
I don't have a direct answer for your question since your question is a
little bit ambigious; let me explain:
Do you want to search for a substring in a long string, or you want true
regexp match?
If you want a true regexp match, then the question is even more
ambigious. For example, th
@temp=; #implies that TEMP is a read file handle
print TEMP @temp; #implies that TEMP is a write file handle.
I'm pretty sure that you can only do either read or write, but not both
to the same FILE HANDLE. You can open 2 handles to the same file (which
can cause a few problems...), but if you ar
Hello,
I believe you don't need the /g modifier in that regexp since a single
match to an unwanted character is enough.
Aziz,,,
In article
<[EMAIL PROTECTED]>,
"Wagner-David" <[EMAIL PROTECTED]> wrote:
> Here is some code which does what you want:
>
> #!perl -w
> # A-Za-z0-9_@.-
>
> while (
Hello,
I'm working on a program where I am searching for a short string within a
longer string. The catch is that the long string is about 4.5 million chars
long and the short string is about 500. Using a regex to do an exact match is
simple, but what if I want just a close match, like 80% or wha
Here is some code which does what you want:
#!perl -w
# A-Za-z0-9_@.-
while ( 1 ) {
printf "Please enter data: ";
chomp(my $Input = );
last if ( $Input=~ /^ex/i );
if ( $Input =~ /[^\w\d\_@.\-\s]/g ) {
printf "You entered something other than the following:\n";
pr
Let me rephrase what I want to do since I was so unclear the first
time: I want to output an error message every time the input
includes characters that are not the following: A-Za-z0-9_@.- or a
space(s).
At this point, I've tried:
if ($params{$i} !~ /[^\w\@.-\s]/g) {
print "
Hey Ackim,
The NT Resoure Kit provides an "AT" scheduler ...
Just install it, configure your command script and
identify the run times ...
Unless you do not have Local Admin access to this NT server,
there is no need to re-write a scheduler ...
regards
SunDog
===
Does any one already have a perl script for NT that I could use to run like
a cron job in unix. Am writing a scrip that I need to have running every 5
minuteseveryday. Or is there a way I can write my script so that it runs
every 5 minutes. Task sheduler on NT looks like it cant help run my scrip
nah that's quite alright... teaches me to go to BED rather then try and make
my hands type things my brain can't even grasp anymore ;-)
> On Sat, Jul 28, 2001 at 01:22:06AM +0200, Jos I. Boumans wrote:
>
> Hopefully my corrections below aren't insulting, but I felt it necessary
so
> that people d
27 matches
Mail list logo
