Re: Problem with READDIR

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; > $act

Re: Problem with READDIR

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 f

Dinesh Kumar/NCE/AMADEUS is out of the office.

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: [

Re: Can I set '$!' ?

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 an

Re: Escape regex harmful characters

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 "upp

Problem with READDIR

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 th

Re: wannabie asks Mail::POP3Client && Mail::Audit

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 mu

Re: Compiling problem with Math-GMP-2.03

On Dec 30, 2003, at 4:53 PM, Mike Bernhardt wrote: [..] ELF and ELFCLASS64, [..] ELF _ Executable and Linkable Format 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

Re: command line search and replace

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/file:*<\/provider-url>/REPLACED/g" testfile.txt you might want to revisit perldoc perlretut

Compiling problem with Math-GMP-2.03

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 /usr/local/lib/perl5/5.8.0/Ex

command line search and replace

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/file:*<\/provider-url>/REPLACED/g" testfile.txt In the file testfile.txt, the line will be something like this: file:/opt/usr/bin/so

Re: $_

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 construct. Is there a way to back > the counter up or back up one line before I go into the while loop?

wannabie asks Mail::POP3Client && Mail::Audit

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 =>

Re: piped system commands

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 pr

Re: Help with extracting text

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| G530.T6B4941988Q|

RE: piped system commands

> 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

Re: piped system commands

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 sc

piped system commands

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, my

Re: $_

Eric Walker wrote: > > I am going through a file and when I enter a certain routine, I am > entering a while loop with the 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,

Re: make problem with xs file (Time::Object)

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

RE: Pure Perl df

> > 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 com

RE: Pure Perl df

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

RE: modify JPEG on the fly

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

Re: Pure Perl df

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, e-ma

Re: Pure Perl df

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. I

RE: Pure Perl df

> >> 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 lea

RE: checking duplicates

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

Re: Pure Perl df

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

modify JPEG on the fly

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

checking duplicates

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 c

Help with extracting text

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 P27|text6|text

RE: Pure Perl df

>> 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

Re: mass-replacing large block of text

Charles K. Clarkson wrote: Andrew Gaffney <[EMAIL PROTECTED]> wrote: : : Dan Muey wrote: : >> Dan Muey wrote: : >>> Andrew Gaffney wrote: : >>> : : : How can I replace everything *after* that : particular line with a custom block of text? [emphasis added] [snip] : I don't un

RE: Pure Perl df

> 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: http://www.openbsd.org/cgi-bin/cvsweb/src/bin/df/df.c

RE: mass-replacing large block of text

Andrew Gaffney <[EMAIL PROTECTED]> wrote: : : Dan Muey wrote: : >> Dan Muey wrote: : >>> Andrew Gaffney wrote: : >>> : : : How can I replace everything *after* that : particular line with a custom block of text? [emphasis added] [snip] : I don't understand why you include $s

Pure Perl df

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,

Re: Cosolidate multiple regular expression

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

Re: mass-replacing large block of text

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: How can I replace everything after that

RE: My stupidity! (WAS RE: Mail::Sender weirdness)

> --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

RE: My stupidity! (WAS RE: Mail::Sender weirdness)

--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 requ

RE: Art Gallery Perl Script

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 Gal

RE: My stupidity! (WAS RE: Mail::Sender weirdness)

> [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

RE: My stupidity! (WAS RE: Mail::Sender weirdness)

[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 t

RE: mass-replacing large block of text

> 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: > >> > >> > >> > >>How can I replace

Re: mass-replacing large block of text

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: How can I replace everything after that particular line

RE: My stupidity! (WAS RE: Mail::Sender weirdness)

> > > 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 perso

RE: $_

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);

Re: My stupidity! (WAS RE: Mail::Sender weirdness)

--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

My stupidity! (WAS RE: Mail::Sender weirdness)

> > > 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($@

inquiry-perltk

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 c

Re: Escape regex harmful characters

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

Re: mass-replacing large block of text

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

RE: mass-replacing large block of text

> > > > 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 die "can't edit $file: $!";

RE: mass-replacing large block of text

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 al

Re: Escape regex harmful characters

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 quest

Re: mass-replacing large block of text

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: How can I replace everythi

Escape regex harmful characters

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 quest

RE: mass-replacing large block of text

> 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: > > > > How can I replace everything after that particular li

RE: $_

> > 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 $_

Re: $_

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 this

RE: $_

> 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 act

Re: $_

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 wrote

RE: $_

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

Re: $_

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 a

RE: $_

> 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 ite

Re: $_

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 a

Cosolidate multiple regular expression

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 \

Re: $_

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 cert

Re: $_

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 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 wh

mass-replacing large block of text

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: How can I replace everything after that particular line with a custom blo

$_

I am going through a file and when I enter a certain routine, I am entering a while loop with the 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. per

Re: perlTk/inquiry

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: > http://xbeams.chem.yale.edu/~lor

perlTk/inquiry

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 c

beginners@perl.org

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

beginners@perl.org

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 &IO::