Hey,
When I run the following programme:
#! c:\Perl\bin\perl.exe -w -i
use strict;
use warnings;
use Bio::Perl;
use Bio::SeqIO;
my $seq_object= get_sequence('swissprot',EAEA_HAFAL);
write_sequence(intimin.fasta,'fasta',$seq_object);
I receive the following error:
Undefined subroutine
On 12/30/2003 3:42 AM, Tim wrote:
Hey,
When I run the following programme:
#! c:\Perl\bin\perl.exe -w -i
use strict;
use warnings;
use Bio::Perl;
use Bio::SeqIO;
my $seq_object= get_sequence('swissprot',EAEA_HAFAL);
write_sequence(intimin.fasta,'fasta',$seq_object);
I receive the following
I am running linux redhat ver 8. perl v5.8.0. I downloaded perltk from:
http://xbeams.chem.yale.edu/~loria/perltk.html and rpm it. I then tried
to run the example script from http://www.pconline.com/~erc/perltk.htm
but I am getting this error msg:
Can't locate auto/Tk/findINC.al in @INC (@INC
I know that RH 9 has major problems running TK. Something to do with the
way the lib's where linked. Try a google search for more info.
HTH..
Denis
On Wed, 31 Dec 2003, awongxi wrote:
I am running linux redhat ver 8. perl v5.8.0. I downloaded perltk from:
I am going through a file and when I enter a certain routine, I am
entering a while loop with the IN construct. Is there a way to back
the counter up or back up one line before I go into the while loop?
a
b
c
d
Instead of seeing b when I enter the while loop, adjust some option and
see the a.
I have ~97 HTML documents that I need to strip the footer (about 15 lines) from and
replace with a different block of text. The footer is formatted differently in some of the
HTML files, but they all start with the line:
table border=0 width=100% height=5%
How can I replace everything after
On Dec 30, 2003, at 10:36 AM, Eric Walker wrote:
I am going through a file and when I enter a certain routine, I am
entering a while loop with the IN construct. Is there a way to back
the counter up or back up one line before I go into the while loop?
a
b
c
d
Instead of seeing b when I enter the
The lines will always be defined but I need to process that previous
line. I am still kinda in the closet on what you mean.
..
On Tue, 2003-12-30 at 09:42, James Edward Gray II wrote:
On Dec 30, 2003, at 10:36 AM, Eric Walker wrote:
I am going through a file and when I enter a
Hello everyone,
I have the following regular expressions that I'm performing on a block
of text and was wondering if anyone saw a way to consolidate the 9
regex's into a few?
$ko =~ s/\r/\\page/g; # change returns to \page
$ko =~ s/\f//g; # remove formfeeds
$ko =~ s/\t/\\tab/g; # change tabs to
Once I get into the while loop the previous line I had is lost. As this
while is underneath another while that I am using in another routine.
thanks
On Tue, 2003-12-30 at 09:42, James Edward Gray II wrote:
On Dec 30, 2003, at 10:36 AM, Eric Walker wrote:
I am going through a file
The lines will always be defined but I need to process that
previous line. I am still kinda in the closet on what you mean.
He means the variable $last he used. I've tried to do an exqample that may help clear
it up for you:
my $prev;
for(qw(a b c d e f g)) {
print Previous item
On Dec 30, 2003, at 10:45 AM, Eric Walker wrote:
The lines will always be defined but I need to process that previous
line. I am still kinda in the closet on what you mean.
my $current = $_;
# process $current here...
Other choices: If file size isn't an issue, just slurp the whole think
into
ok with that can I still continue through the loop and process the next
line?
will I not loose the second line now?
On Tue, 2003-12-30 at 09:49, Dan Muey wrote:
The lines will always be defined but I need to process that
previous line. I am still kinda in the closet on what you mean.
No size is not an issue. I am writing a compare routine and the file
has different sections that all need to be split up differently
depending on the section to parse out the key value pairs so I can
compare.
Thanks for the suggestions.
On Tue, 2003-12-30 at 09:53, James Edward Gray II
Once I get into the while loop the previous line I had is lost. As this
while is underneath another while that I am using in another routine.
It doesn't make any sense to read.
Why?
Please don't top post.
:)
I was using an array and for() in my example so you could see the principle in
On Dec 30, 2003, at 10:55 AM, Eric Walker wrote:
No size is not an issue. I am writing a compare routine and the file
has different sections that all need to be split up differently
depending on the section to parse out the key value pairs so I can
compare.
I bet that if you post a sample of
ok with that can I still continue through the loop and
process the next line?
You can use $_ :
for(qw(1 2 3)) {
print Processing files - iteration number $_\n;
my @files = qw(foo.txt bar.html);
for(@files) {
open(FH,$_) or die Can not open $_ : $!;
I have ~97 HTML documents that I need to strip the footer
(about 15 lines) from and
replace with a different block of text. The footer is
formatted differently in some of the
HTML files, but they all start with the line:
table border=0 width=100% height=5%
How can I replace
Hello everyone,
I found the subroutine below from a script that takes a string of text
and builds a regular expression out of it and incorporates that into a
rule for SpamAssassin. It's worked quite well for my needs, but the
script has led to a few questions about the code and regex's.
My
On 12/30/2003 11:30 AM, Andrew Gaffney wrote:
I have ~97 HTML documents that I need to strip the footer (about 15
lines) from and replace with a different block of text. The footer is
formatted differently in some of the HTML files, but they all start with
the line:
table border=0 width=100%
On 12/30/2003 12:22 PM, Kevin Old wrote:
Hello everyone,
I found the subroutine below from a script that takes a string of text
and builds a regular expression out of it and incorporates that into a
rule for SpamAssassin. It's worked quite well for my needs, but the
script has led to a few
Dan Muey [EMAIL PROTECTED] wrote:
:
: Andrew Gaffney [EMAIL PROTECTED] wrote:
:
: I have ~97 HTML documents that I need to strip the
: footer (about 15 lines) from and replace with a
: different block of text. The footer is formatted
: differently in some of the HTML files, but they all
:
table border=0 width=100% height=5%
How can I replace everything after that particular line with
a custom block of text? Thanks.
Maybe using tell() and truncate() on the file?, then an inline edit/insert.
--
$file = 'yourfile';
open (FH, + $file) or
Charles K. Clarkson wrote:
Dan Muey [EMAIL PROTECTED] wrote:
:
: Andrew Gaffney [EMAIL PROTECTED] wrote:
:
: I have ~97 HTML documents that I need to strip the
: footer (about 15 lines) from and replace with a
: different block of text. The footer is formatted
: differently in some of the
On Dec 30, 2003, at 12:30 PM, Randy W. Sims wrote:
If you have a string that is going to need escaping, consider
using /\Q$string\U/ to handle quoting regex special chars.
Right -- but that should be \E (for end) instead of \U (the
mnemonic for which is uppercase, not unquote).
% perl -le
I am running linux redhat ver 8. perl v5.8.0. I downloaded perltk from:
http://xbeams.chem.yale.edu/~loria/perltk.html and rpm it. I then tried
to run the example script from http://www.pconline.com/~erc/perltk.htm
but I am getting this error msg:
Can't locate auto/Tk/findINC.al in @INC (@INC
The thing is I get Sending...Done everytime but never a
dleivery and
no hinf tof it in the logs. On one server I needed to use smtp
authentication but that set $@ and said connection
This part of it was completely stupid on my part:
I was doing if($@) { ...
I added if($@ ||
--As off Tuesday, December 30, 2003 11:58 AM -0600, Dan Muey is
alleged to have said:
So now it said Connection not established for
the local sending to remote, which I would think would
be the easiest one, especially since:
Local to local is ok.
Remote to local is ok.
I'm not doing any remote
On Tue, 2003-12-30 at 10:04, Dan Muey wrote:
ok with that can I still continue through the loop and
process the next line?
You can use $_ :
for(qw(1 2 3)) {
print Processing files - iteration number $_\n;
my @files = qw(foo.txt bar.html);
They are doing the Right Thing and not being an open relay.
Basically the server says *one* of the persons involved has to be
In both cases one is always a local user. But only in one case is authentication
required.
known to it. If the email is for a local user it knows that person.
Dan Muey wrote:
I have ~97 HTML documents that I need to strip the footer
(about 15 lines) from and
replace with a different block of text. The footer is
formatted differently in some of the
HTML files, but they all start with the line:
table border=0 width=100% height=5%
How can I replace
Dan Muey wrote:
I have ~97 HTML documents that I need to strip the footer
(about 15 lines) from and
replace with a different block of text. The footer is
formatted differently in some of the
HTML files, but they all start with the line:
table border=0 width=100% height=5%
How can I
[snip]
Right, but my question is why do I need to authenticate local
to remote and not remote to local not why do I have to
authenticate at all. I'm well aware of the spam relay fun! :)
[snip]
If you are going to authenticate remote to local, that would mean
every email server trying to
[snip]
Right, but my question is why do I need to authenticate local
to remote and not remote to local not why do I have to
authenticate at all. I'm well aware of the spam relay fun! :)
[snip]
If you are going to authenticate remote to local, that would
mean every email server
I have a dandy one I'm developing. Webbased admin, very configurable, fast, etc...
Shall I let you know about it when it's done?
Dan
-Original Message-
From: Joe Echavarria [mailto:[EMAIL PROTECTED]
Sent: Friday, December 26, 2003 12:32 PM
To: [EMAIL PROTECTED]
Subject: Art Gallery
--As off Tuesday, December 30, 2003 12:33 PM -0600, Dan Muey is
alleged to have said:
They are doing the Right Thing and not being an open relay.
Basically the server says *one* of the persons involved has to be
In both cases one is always a local user. But only in one case is
authentication
--As off Tuesday, December 30, 2003 12:33 PM -0600, Dan Muey is
alleged to have said:
They are doing the Right Thing and not being an open
relay. Basically
the server says *one* of the persons involved has to be
In both cases one is always a local user. But only in one case is
Dan Muey wrote:
Dan Muey wrote:
I have ~97 HTML documents that I need to strip the footer
(about 15 lines) from and
replace with a different block of text. The footer is
formatted differently in some of the
HTML files, but they all start with the line:
table border=0 width=100% height=5%
How
On Dec 30, 2003, at 8:45 AM, Kevin Old wrote:
[..]
$ko =~ s/\r/\\page/g; # change returns to \page
$ko =~ s/\f//g; # remove formfeeds
$ko =~ s/\t/\\tab/g; # change tabs to \tab
$ko =~ s//\\/g; # escape backslashes
$ko =~ s/{/\\{/g; # escape left curly
$ko =~ s/}/\\}/g; # escape right curly
$ko
Okay, I'm at a loss and need help. A friend of mine is working with a
Perl script. It has a system call to df in it, he would like to
replace with something a little more portable.
The script is used in a 32 server environment that I know has at least
four operating systems: HP-UX, Solaris,
Andrew Gaffney [EMAIL PROTECTED] wrote:
:
: Dan Muey wrote:
: Dan Muey wrote:
: Andrew Gaffney wrote:
:
: table border=0 width=100% height=5%
:
: How can I replace everything *after* that
: particular line with a custom block of text?
[emphasis added]
[snip]
: I don't understand why you
Okay, I'm at a loss and need help. A friend of mine is
working with a
Perl script. It has a system call to df in it, he would like to
replace with something a little more portable.
Well, looking here at the source to df on OpenBSD:
Charles K. Clarkson wrote:
Andrew Gaffney [EMAIL PROTECTED] wrote:
:
: Dan Muey wrote:
: Dan Muey wrote:
: Andrew Gaffney wrote:
:
: table border=0 width=100% height=5%
:
: How can I replace everything *after* that
: particular line with a custom block of text?
[emphasis added]
[snip]
:
I browsed the CPAN a bit, but wasn't too happy with the
aside from the fact that any module installs would pretty much defeat
the purpose here.
Why is that? That is the point of modules.
Note that if the module is pure perl without a lot of dependencies, you can
ship it with your final tarbull
Hi everyone,
How can I extract the text before the first occurrence of dot (.) or
single space from the first field.
This is my file
LB1571 5TH .W43 1993|text1|text1|
FICT. V.12|text2|text2|
FICT.|text3|text3|
HQ806 .B35 1995|text4|text4|
G530.T6B4941988Q|text5|text5|
MPCD11 .B42
Hi all, i'm trying to figure out how I can check for duplicates entries in
an array and remove the duplicate.
Example:
23,23,39,40,44,44
should result in:
23,39,40,44
I'm reading from a file and assigning it to an array.
Silver Fox
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
Hello all,
I'm using Apache 1.3.27, Perl 5.6.1 with DBI-DBD::Interbase on Linux
2.4 machine.
I have a CGI script which display a JPEG from an Interbase Blob. Now,
what I would like to do is modify the JPEG to make it into a useful
thumbnail.
here is the code that converts the blob (Thanks to
On Dec 30, 2003, at 3:56 PM, Bakken, Luke wrote:
I browsed the CPAN a bit, but wasn't too happy with the
choices there,
aside from the fact that any module installs would pretty much defeat
the purpose here.
Why is that? That is the point of modules.
Well, as I said we're talking about 32 servers
SilverFox [EMAIL PROTECTED] wrote:
:
: Hi all, i'm trying to figure out how I can check
: for duplicates entries in an array and remove
: the duplicate.
Read perlfaq4:
How can I remove duplicate elements from a list or array?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson
I browsed the CPAN a bit, but wasn't too happy with the
choices there,
aside from the fact that any module installs would pretty
much defeat
the purpose here.
Why is that? That is the point of modules.
Well, as I said we're talking about 32 servers running at least 4
different
On Dec 30, 2003, at 4:07 PM, Morbus Iff wrote:
Note that if the module is pure perl without a lot of dependencies,
you can
ship it with your final tarbull
I looked at three modules. Two didn't support Windows and I have no
idea about the third, which I couldn't figure out what it was up to.
On Dec 30, 2003, at 4:30 PM, Bakken, Luke wrote:
That's your answer. Use $^O and other OS indicators and set up df's
args
appropriately then.
Which gets us back to my other question: Is there a Windows equivalent?
James
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
Scott Taylor [EMAIL PROTECTED] wrote:
:
: I'm using Apache 1.3.27, Perl 5.6.1 with DBI-DBD::Interbase
: on Linux 2.4 machine.
:
: I have a CGI script which display a JPEG from an Interbase
: Blob. Now, what I would like to do is modify the JPEG to
: make it into a useful thumbnail.
:
: here is
James Edward Gray II wrote:
On Dec 30, 2003, at 4:30 PM, Bakken, Luke wrote:
That's your answer. Use $^O and other OS indicators and set up df's
args appropriately then.
Which gets us back to my other question: Is there a Windows
equivalent?
James
At a command prompt under w2k I
That's your answer. Use $^O and other OS indicators and set up df's
args
appropriately then.
Which gets us back to my other question: Is there a Windows
equivalent?
Sure, look at the output of the 'dir' command.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
On Dec 29, 2003, at 11:00 AM, Will Glass-Husain wrote:
[..]
P.S. In case anyone else has hit this error, this was pulled directly
from
cpan install Time::Object.
[EMAIL PROTECTED] Time-Object-1.00]# make
gcc -c -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING
-fno-str
ict-aliasing
Eric Walker wrote:
I am going through a file and when I enter a certain routine, I am
entering a while loop with the IN construct. Is there a way to back
the counter up or back up one line before I go into the while loop?
a
b
c
d
Instead of seeing b when I enter the while loop, adjust
Happy Almost New Year!
I want to run a command inside a script. From the shell, here's the command:
% ps -ef | /bin/egrep '/usr/lib/sendmail' | /bin/grep -v grep | /bin/awk '{print $2}'
19460
What is returned is the pid of the process being grep'd.
But, when I put this into a test script,
deb wrote:
Happy Almost New Year!
I want to run a command inside a script. From the shell, here's the command:
% ps -ef | /bin/egrep '/usr/lib/sendmail' | /bin/grep -v grep | /bin/awk '{print $2}'
19460
What is returned is the pid of the process being grep'd.
But, when I put this into a test
I want to run a command inside a script. From the shell,
here's the command:
% ps -ef | /bin/egrep '/usr/lib/sendmail' | /bin/grep -v grep
| /bin/awk '{print $2}'
19460
Instead of the useless 'grep -v grep', do this:
% ps -ef | egrep '[/]usr/lib/sendmail' | awk '{print $2}'
But, when
On Dec 30, 2003, at 1:35 PM, Zary Necheva wrote:
[..]
How can I extract the text before the first occurrence
of dot (.) or single space from the first field.
This is my file
LB1571 5TH .W43 1993|text1|text1|
FICT. V.12|text2|text2|
FICT.|text3|text3|
HQ806 .B35 1995|text4|text4|
On Dec 30, 2003, at 3:54 PM, deb wrote:
Happy Almost New Year!
[..]
It seems to be only going as far as dropping off the grep, and not
doing the
awk '{print $2}'. I've tried this with the system() call, with the
same
results.
What am I missing? :-(
you have a shell interpret who to which
Hi,
Im new (here|to perl) and would like to start of with that:
My script should replace attachmends in mails: however, i cant find any atts.
Script first:
--
#! /usr/bin/perl
use strict;
use warnings;
use Mail::POP3Client;
use Mail::Audit qw(Attach);
my $pop=new Mail::POP3Client(USER =
On Tue, 2003-12-30 at 16:39, Rob Dixon wrote:
Eric Walker wrote:
I am going through a file and when I enter a certain routine, I am
entering a while loop with the IN construct. Is there a way to back
the counter up or back up one line before I go into the while loop?
Hi all,
When I try the following, perl reads the * as a literal character, instead of my
intent as a global value. Anyone see what I am missing?
perl -pi -e s/provider-urlfile:*\/provider-url/REPLACED/g testfile.txt
In the file testfile.txt, the line will be something like this:
I have a Sun Enterprise running Solaris 2.9. I installed Perl 5.8. I am now
trying to compile Math-GMP-2.03 and I get the following output on make:
cp lib/Math/GMP.pm blib/lib/Math/GMP.pm
AutoSplitting blib/lib/Math/GMP.pm (blib/lib/auto/Math/GMP)
/usr/local/bin/perl
On Dec 30, 2003, at 4:51 PM, Randy Brown wrote:
When I try the following, perl reads the * as a literal character,
instead of my intent as a global value. Anyone see what I am missing?
perl -pi -e s/provider-urlfile:*\/provider-url/REPLACED/g
testfile.txt
you might want to revisit
perldoc
On Dec 30, 2003, at 4:53 PM, Mike Bernhardt wrote:
[..]
ELF and ELFCLASS64,
[..]
ELF _ Executable and Linkable Format
http://dict.die.net/elf/
It appears that your library that you are trying to
link to was build with solaris64, and you are trying
to build in the 32 bit mode - they all need to
Follow-up:
The problem:
even though a print join (\n,[EMAIL PROTECTED]); shows me there are
Content-type: multipart\mixed headers my first attempt to find them
manually fails and gives me only the Content-type: text/plain or
..application/blabla lines from the mail body of multi part
I have a problem with the following block of code. It works fine when
there isn't a *.log file in the same directory as the script but when
there is, it always returns that log as the newest file and ignores the
list of files it retrieves from the remote server.
I debugged this and found that
Steve Grazzini wrote:
On Dec 30, 2003, at 12:30 PM, Randy W. Sims wrote:
If you have a string that is going to need escaping, consider
using /\Q$string\U/ to handle quoting regex special chars.
Right -- but that should be \E (for end) instead of \U (the
mnemonic for which is uppercase,
Dan Muey wrote:
I want to be able to return a true or false value from a
function in a module and populate the $! variable with the
specific errors. Is this possible? Is there documentation on
how to do this? I can find docs on how to use $! but not how
to set it. Thanks for any help
I will be out of the office starting 22/12/2003 and will not return until
19/01/2004.
I am on vacation and will respond to your message when I return. For all
urgent matters please contact Fabien FELIX.
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
Perl wrote:
I have a problem with the following block of code. It works fine when
there isn't a *.log file in the same directory as the script but when
there is, it always returns that log as the newest file and ignores the
list of files it retrieves from the remote server.
I debugged this and
On Tue, 30 Dec 2003 19:07:26 -0800
Perl [EMAIL PROTECTED] wrote:
$iisdir = '\\\server01\c$\winnt\system32\logfiles\W3SVC1';
opendir LOGS, $iisdir or die Directory error for IIS LOGS: $!\n;
my @files = grep /\.log$/, readdir LOGS;
@files = sort { -M $a = -M $b } @files;
$active_log =
75 matches
Mail list logo