You figured that out quick! :-)))
Invisible INK?
Frank J. Schmuck wrote:
Curtis,
Is this the book? There doesn't appear to be any code on the cover?
http://perlcgi-book.com/
Thanks
Frank
-Original Message-
From: Curtis Poe [mailto:[EMAIL PROTECTED]]
Sent: Friday, July
--- Frank J. Schmuck [EMAIL PROTECTED] wrote:
Curtis,
Is this the book? There doesn't appear to be any code on the cover?
http://perlcgi-book.com/
Thanks
Frank
Yes, that's the book. The code on the cover is in a small, dark font and I assume
that it simply
doesn't render in the
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
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
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
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
Here is some code which does what you want:
#!perl -w
# A-Za-z0-9_@.-
while ( 1 ) {
printf Please enter data: ;
chomp(my $Input = STDIN);
last if ( $Input=~ /^ex/i );
if ( $Input =~ /[^\w\d\_@.\-\s]/g ) {
printf You entered something other than the following:\n;
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
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 ( 1 ) {
@temp=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
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,
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
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
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
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 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
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 the
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
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:
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
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 of the
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
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
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 need to
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
every
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
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 {
return 42;
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 reference. Are
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 callTheReferredFunc,
29 matches
Mail list logo
