Sorting a Two Dimensional Array

I've been through the Perl Cookbook and Programming Perl trying to figure this one out, now I'm ready for some help. I've been working with Perl for years but I can't make heads nor tails out of the explanations in either of these books on the subject of sorting. Sigh. I have a simple two-dimen

Re: map the same letter drive to multiple servers in a loop.

On Tue, 15 May 2001, Peter Lemus wrote: > How can I use a while loop to map a drive letter to > multiple servers. I would like to map an nt drive, > copy a file then unmap the drive and use the same > drive letter to map to a different server, copy the > file, disconnect and so on > > system

RE: Beginners Database Question

well .. assuming that you meant the iPlanet FastTrack server .. you should have a look at the online FastTrack documentation http://docs.iplanet.com/docs/manuals/enterprise/50/beta/pg/contents.htm it tells you how to setup a server side include mapping .. and it confirms that the syntax is th

map the same letter drive to multiple servers in a loop.

Hello all, Question: How can I use a while loop to map a drive letter to multiple servers. I would like to map an nt drive, copy a file then unmap the drive and use the same drive letter to map to a different server, copy the file, disconnect and so on system ("net use f: la_sys01\\cmso

RE: Another puzzle......??

With minimal quoting >I have a line that looks like this: > > TOXFY-1 LENDER: DISBURSEMENT DATE: RUN DATE: 05/01/2001 > >I want to pull off the 1st field and the date. How about ($first, $last) = (split /\s+/, $_)[0,-1]; This will give you the first and last entries

Another puzzle......??

Thanks to all who responded to previous query. Hopefully I will someday be a better Perl programmer for it.   Now on to another perplexing problem   I have a line that looks like this:    TOXFY-1   LENDER:    DISBURSEMENT DATE: 

[ADMIN] quotes

Hi everyone, It's great to see that this list is becoming so popular and that most, if not all, questions get a helpful answer. Not so great is it to see how many unnecessary quotes that are flying around though. Please everyone, read this: http://www.netmeister.org/news/learn2quote2.html h

RE: Can you print directly to the default printer?

"King, Jason" wrote: > > if I were you - I'd use Word (or some other printer enabled program) to > print .. notepad for example has a /p option .. so you can write a temporary > file and print it using notepad (which will use the default printer) > > none of the solutions are very tidy I'm the

Re: negative matching?

Yes, that is a good piece of code to know. Thank you, I will be using that in the future! -- Noah Sussman Senior Web Developer Deltathree, The IP Communications Network 75 Broad St, 31st Floor New York, NY 10004 tel 212-500-4845 fax 212-500-4888 [EMAIL PROTECTED] www.deltathree.com "Nature w

Re: negative matching?

a handy bit of code to use for that is the following: { local $/; $in= } that undefs $/, which is the line seperator in perl (defaults to \n), which means perl knows no longer a way to split lines, and will feed everything in FILEHANDLE to $in. local and the { } means that $/ original value wil

Re: formatting

--- Liger-dc <[EMAIL PROTECTED]> wrote: > What does the following formatting do? >$line =~ /^; .ot (\d+)/) ^ Gives you a compile error. Unmatched parens are bad. =o) Otherwise, this line would attempt to match the contents of $line, returning true if $line contai

Re: formatting

On May 15, Liger-dc said: >What does the following formatting do? > >$line =~ /^; .ot (\d+)/) I suggest you download YAPE::Regex and YAPE::Regex::Explain from CPAN -- the 'explain' program automatically generates an explanation for a regex: friday:~ $ echo '^; .ot (\d+)' | explain The regular

RE: Perplexing problem.........probably beginners luck??

On May 15, Paul said: > >--- Peter Cornelius <[EMAIL PROTECTED]> wrote: >> The doesn't read into $_. You can add a 'print $_;' in there >> to verify it. I think you're getting confused by the >>while(){...} >> structure. This puts the result of the readline into $_ for you if >> the is t

Re: formatting

This will match any line that begins with a semi-colon, is followed by any character, then ot and finally 1 or more digits. The digits are saved in the variable $1 and can be accessed later if desired. Of course, the final ) seems superfluous. At 01:14 PM 5/15/01 -0700, Liger-dc wrote: >Wha

Re: formatting

- Original Message - From: Liger-dc <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, May 15, 2001 10:14 PM Subject: formatting > What does the following formatting do? > > $line =~ /^; .ot (\d+)/) It has nothing to do with formatting. Is is a reg exp match statement. I sugg

Re: negative matching?

oops, I just said that: > Also, the regex I originally included will place alt attributes in _all_ IMG > tags, even if they already contain an alt attribute. Actually, the unless() stops that behavior, but creates a new problem in that, once it finds and IMG tag that has an ALT attribute, it sto

formatting

What does the following formatting do? $line =~ /^; .ot (\d+)/) __ Do You Yahoo!? Yahoo! Auctions - buy the things you want at great prices http://auctions.yahoo.com/

Re: negative matching?

> Why do you > want to slurp everything into $_ at once? Because I want to insert the alt attribute even if the IMG tag spans several newlines, as is often the case once one's code has been mangled by the server. Also, the regex I originally included will place alt attributes in _all_ IMG tags,

RE: Perplexing problem.........probably beginners luck??

--- Peter Cornelius <[EMAIL PROTECTED]> wrote: > The doesn't read into $_. You can add a 'print $_;' in there > to verify it. I think you're getting confused by the >while(){...} > structure. This puts the result of the readline into $_ for you if > the is the only thing in the '()'. Ot

Re: connecting to other perl programs

--- Adam Theo <[EMAIL PROTECTED]> wrote: > hello, all. I have been a user of a particular web-board discussion > forum script for a while now (Darryl C Burgdorf's WebBBS > http://www.awsd.com/scripts/webbbs), and am wanting to develop a perl > script that will pass information directly to it, for

Re: negative matching?

Will that find IMG tags even if they span multiple newlines, though? > From: "scott lutz" <[EMAIL PROTECTED]> > Reply-To: [EMAIL PROTECTED] > Date: Mon, 14 May 2001 23:36:55 > To: [EMAIL PROTECTED] > Subject: Re: negative matching? > > maybe something like > > foreach $line (@file_array){ > if

Re: negative matching?

Jeff, Thanks so much for sharing that regex! You've not only solved my problem but given me a lot of new tools to work with! I found the use of ! to tell Perl not to find particularly useful btw. Thanks again! -- Noah Sussman Senior Web Developer Deltathree, The IP Communications Network 75

RE: Perplexing problem.........probably beginners luck??

The doesn't read into $_. You can add a 'print $_;' in there to verify it. I think you're getting confused by the while(){...} structure. This puts the result of the readline into $_ for you if the is the only thing in the '()'. Otherwise, I believe just calling on a line by itself sends th

Re: Perplexing problem.........probably beginners luck??

: Why does reading into a variable instead of $_ make a difference? : Why does the read for the date work with $_ just fine?? In the second example, change ; to $_ = ;. The angle operator only assigns the next line to $_ when it's the only thing in the conditional of a while() statement. As a

Re: How can I get all error messages from this script, including system cmds.

from my experience, wintendo's print just about everything to STDOUT anyway.. its not a 'elegant way' but i found it rather effective the alternative is specifying your own debug subs and using those to print out things as you go Regards, Jos Boumans - Original Message - From: "Paul" <[

Re: connecting to other perl programs

On Tue, 15 May 2001, Adam Theo wrote: > hello, all. I have been a user of a particular web-board > discussion forum script for a while now (Darryl C Burgdorf's > WebBBS http://www.awsd.com/scripts/webbbs), and am wanting to > develop a perl script that will pass information directly to it, > for

connecting to other perl programs

hello, all. I have been a user of a particular web-board discussion forum script for a while now (Darryl C Burgdorf's WebBBS http://www.awsd.com/scripts/webbbs), and am wanting to develop a perl script that will pass information directly to it, for the web-board script to make posts and replies

Re: Sending UDP messages

a 'nice' way of sending information over sockets is to always include a package terminator at the end... the so called End Of Line (or EOL for short). iirc, thats usually "\015\012" just my 2 bits, Jos Boumans - Original Message - From: "Peter Scott" <[EMAIL PROTECTED]> To: "Steve Haig

Re: STDERR on Win32

RE: Collecting error output from child processes on Win32 == I think this will work: open STDERR,">$logfile" or die $!; That should close STDERR and reopen it to the specified output, which child processes will then inherit. Another tr

Re: Sending UDP messages

At 03:33 PM 5/15/01 +0100, Steve Haigh wrote: >I'm currently writing some scripts to send bytes to a UDP server. > > >use IO::Socket; > >$msg = '0xa'; > >$sock = IO::Socket::INET -> new(PeerAddr => '10.0.0.40', > PeerPort => 5525, >

Re: How can I get all error messages from this script, including system cmds.

well, you can always redirect it to a file like this; perl foo.pl > /null even on a wintendo... i suggest using a more apropriate place to 'store' your output tho ;-) Regards, Jos Boumans - Original Message - From: "Paul" <[EMAIL PROTECTED]> To: "Peter Lemus" <[EMAIL PROTECTED]>; <[

Perplexing problem.........probably beginners luck??

I have a test file that looks like this:    TAXFN   A GREAT BIG TITLE    PAGE:  1     A SMALL TITLE

STDERR on Win32 [was: Re: How can I get all error messages from this script, including system cmds.]

--- Jos I Boumans <[EMAIL PROTECTED]> wrote: > well, you can always redirect it to a file like this; > perl foo.pl > /null > even on a wintendo... Nope, doesn't work. Tested this way: C:\users\default>perl>x print STDOUT "stdout\n"; print STDERR "stderr\n"; ^D stderr C:\users\default>t

Re: How can I get all error messages from this script, including system cmds.

--- Jos I Boumans <[EMAIL PROTECTED]> wrote: > well, you can always redirect it to a file like this; >perl foo.pl > /null > even on a wintendo... Doesn't get STDERR, just STDOUT. Then again, I have real trouble in Win32 determining what's going to STDERR anyway = print "Just anoth

RE: Curses Module

I think I was hoping for a little more definition on the supported constants.. Doug -Original Message- From: Brett W. McCoy [mailto:[EMAIL PROTECTED]] Sent: Tuesday, May 15, 2001 1:44 PM To: Doug Johnson Cc: [EMAIL PROTECTED] Subject:RE: Curses Module > No, I done

RE: Curses Module

Your's works... Mine didn't. The link I used is also found on the CPAN site. It is below.. http://theoryx5.uwinnipeg.ca/CPAN/data/Curses/gen/make.Curses.html Thanks a million! Doug -Original Message- From: Brett W. McCoy [mailto:[EMAIL PROTECTED]] Sent: Tuesday, May 15, 2001 1

RE: Curses Module

> No, I done it the old fashion way of download untarr, (edit makefile, or any > other pertinent files) perl makefile, make test, make install.. I did > find the POD reference at the end of the Curses.pm file. I was hoping for a > little more but I think I can weed my way through it.. The l

RE: Curses Module

No, I done it the old fashion way of download untarr, (edit makefile, or any other pertinent files) perl makefile, make test, make install.. I did find the POD reference at the end of the Curses.pm file. I was hoping for a little more but I think I can weed my way through it.. Thanks, Doug

Re: How can I get all error messages from this script, including system cmds.

--- Peter Lemus <[EMAIL PROTECTED]> wrote: > Hi, folks, > > I need to get every possible error on this script > including errors from system commands. lol -- looks more like a batch file. ;o] Seriously, you might consider putting all this in one SOMEFILE.BAT and running that as an open3(), t

Re: Curses Module

> Does anyone know where I can find the documentation for the Curses module > that is to reside at CPAN? The documentation link is broken on the CPAN > site for this module and the header/c files are a little time consuming to > follow.. Also, there was no documentation included with the module.

RE: perl newbie

--- Peter <[EMAIL PROTECTED]> wrote: > when i append the &refresh=x, i get a software error: > Execution of cgi aborted due to compilation errors so what are the other errors? try posting the whole code if necessary, and the whole output to the screen when you try to run it. =o) = print

Curses Module

Does anyone know where I can find the documentation for the Curses module that is to reside at CPAN? The documentation link is broken on the CPAN site for this module and the header/c files are a little time consuming to follow.. Also, there was no documentation included with the module.. (perld

Re: perl newbie

I'm afraid that error is too general to make any comments about... maybe it's more precise if you run the script on the command line? and if you want to add a refresh option, you need not use javascript per se... a simple meta refresh tag might suffice in this case. anyway, i'm afraid i cant hel

How can I get all error messages from this script, including system cmds.

Hi, folks, I need to get every possible error on this script including errors from system commands. sub DEBUG () { 1 }; # set level of debugness. open (STDERR, ">c:/admin/errorcms.log") or die $!; select STDERR; print "File/s being copied now.\n"; use file::spec; sy

RE: perl newbie

i corrected the & before tickers. when i append the &refresh=x, i get a software error: Execution of cgi aborted due to compilation errors without the &refresh=x, the script runs fine. what i'm doing with the refresh value is attaching it to a javascript redirect window which sends the valu

RE: perl newbie

yes, semicolon is there. -Original Message- From: Jos Boumans [mailto:[EMAIL PROTECTED]] Sent: Tuesday, May 15, 2001 9:39 AM To: Peter Lee Cc: [EMAIL PROTECTED] Subject: Re: perl newbie A quick glance at your code shows a missing ; at the end of $refresh=$q->param('refresh') check if

Re: perl newbie

Ok, it's hard to help you without knowing the exact error that is generated. So it would help if you posted that too furthermore, that bit of code seems to be in order then, altho the first & in ..cgi?&tickers=yyy&refresh=x shouldnt be there... Regards, Jos Boumans Peter wrote: > yes ther

Re: perl newbie

A quick glance at your code shows a missing ; at the end of $refresh=$q->param('refresh') check if that's not the problem first! Regards, Jos Boumans Peter wrote: > hi, > > i just started learning perl and i'm kinda stuck > > i want to pass two querystrings from an asp page to a perl sc

perl newbie

hi, i just started learning perl and i'm kinda stuck i want to pass two querystrings from an asp page to a perl script. ie ..cgi?&tickers=yyy&refresh=x the script accepts the tickers by itself, but when i try to add the refresh it says i have a compile error, here's how its coded...

RE: Beginners Database Question

Title: RE: Beginners Database Question This looks like just what I am after doing, but we run Netscape fastback server can anyone point me in the right direction? TIA Terry ...Eric B. Leslie wrote .. ... ...>    I'm experimenting with putting a db backend on ...everything. ...everyone el

Re: passing part of an array to a function

Ok, let's hope i can shed some light on this situation. What's going wrong is that you are using a reference to an array slice... not sure why that's a big problem but it is apparently. in your case, there are 2 solutions: 1) do something like the following if you insist on using references

Re: passing part of an array to a function

--- Gary Stainburn <[EMAIL PROTECTED]> wrote: > Hi all, Hi, Gary. =o) > I have an array that holds the source code to a cobol program. I > then have a number of integers that hold the subscript for section and > division changes. > I then have subs that parse sections of that array. e.g. a sub

passing part of an array to a function

Hi all, I have an array that holds the source code to a cobol program. I then have a number of integers that hold the subscript for section and division changes. I then have subs that parse sections of that array. e.g. a sub called file_control will parse the file-control section and extract

Use of filters.................??

To Gary: Can you not filter by the "To:" header? That's what I do. As far as I know, it is always set to [EMAIL PROTECTED] Correct me if I am wrong. To the owner of the list: Is there some disadvantage or problem with having the "Reply-to" header set to [EMAIL PROTECTED]? As I say ear

debug

Is there a place where one ca ndebug his(or her...)Files on an apache server (i prefer). My webserver does not allow me to use Telnet. so I now have to get a bug out of my file without knowing where to look. So if anyone knows a place let me know. Gr Ber _ STRUIKDUIK IS VER

Re: Oracle Database...

- Original Message - From: Ang Sei Heng <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, May 15, 2001 7:18 PM Subject: Oracle Database... > Hello Everyone, > > Recently I did some database connection to Oracle via DBD::Oracle. > > I manage to conncec to server, the follow stat

Re: Use of filters.................??

I find information like this in the headers of messages I receive from the list: Mailing-List: contact [EMAIL PROTECTED]; run by ezmlm Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe:

Re: FW: delete files

--- "Porter, Chris" <[EMAIL PROTECTED]> wrote: > Any ideas??? > > me. I want to create a script that deletes uppercase words from a > > directory using the unlink command. Probably a very simple thing chdir $dir or die $!; opendir DIR, "." or die $!; for my $file (grep { -f $_ } read

RE: CR LF with UNIX and Windows (DOSish?)

--- David Falck <[EMAIL PROTECTED]> wrote: > I still haven't figured that one out. My record is 303 and length of > record returns 304. Why... I just don't know. Got a null on it? = print "Just another Perl Hacker\n"; # edited for readability =o) =

Re: CR LF with UNIX and Windows (DOSish?)

--- chris brown <[EMAIL PROTECTED]> wrote: > --- David Falck <[EMAIL PROTECTED]> wrote: > >--snip-- > > I am pretty new at Perl so don't know the syntax to do > this, but could you sidestep the issue and count the > number of bytes in \n, then subtract as appropriate? \n is just one byte, but y

Re: Oracle Database...

On Tue, 15 May 2001, Ang Sei Heng wrote: > Hello Everyone, > > Recently I did some database connection to Oracle via DBD::Oracle. > > I manage to conncec to server, the follow statement does not > work: > > -- ## Begin Perl Code ## -- > > my $sqlcmd = "select * from street"; > >

Re: flock

--- Peter Scott <[EMAIL PROTECTED]> wrote: > > A rather clever way to emulate locking is to use mkdir() and > > rmdir(). > > Although it requires you to create a lock file, it's atomic and > > safe. > > > > sub lock { > > 1 until mkdir "$_[0].lck", 0777; > > $locked{$_[0]}++; > > } On

RE: New to Perl

I have just finished my first "Perl Script" (actually I just adjusted a lot of other scripts to satisfy my needs), but I thought the combination of Learning Perl and Programming Perl from O'Reilley to be very good to get me into it. Although I am not a programmer, knowing Unix Shell Scripting ba

Re: New to Perl

Well, of course everyone has their own idea of 'best', so i'll just give you mine =) "Learning Perl" by randal schwartz is very good to start with, it teach many of the basics (its the so-called 'llama' book) and after that, you might want to try "Programming Perl" by Larray Wall (thats the 'Came

Folder Copy

Is there an established method (Core Perl) for copying folders and their contents (even if they're several levels deep) to a new location? I know I can do this by using File::Find and File::Copy together, but I was hoping for a ready-made solution that is platform independent, easy-to-use, and re

Re: FW: delete files

Chris, You might want to start by reading the documentation for 'opendir' (perldoc -f opendir) or view it online here: http://www.perl.com/pub/doc/manual/html/pod/perlfunc/opendir.html Now, you can then use a simple regexp (perldoc perlre) to see if you have any all-uppercase characters in your

New to Perl

Im new to Perl/programming. I know HTML pretty well but would like to get into Perl. What is the best book I can get for a beginner? = **R.S.** (pronounced R-dot S-dot) "Look at all the pretty C shells" __ Do You Yahoo!? Yahoo! Auctions - buy

Sending UDP messages

Hi, I'm currently writing some scripts to send bytes to a UDP server. use IO::Socket; $msg = '0xa'; $sock = IO::Socket::INET -> new(PeerAddr => '10.0.0.40', PeerPort => 5525, Proto=> 'udp', Typ

Re: Oracle Database...

The problem seems to be that the Oracle Driver does not implement the rows function. Quote from 'perldoc DBI': ""rows"" $rv = $sth->rows; Returns the number of rows affected by the last row affecting command, or -1 if the number of rows is not known or

Re: Use of filters.................??

On Tue, 15 May 2001, Gary Luther wrote: > I am trying to filter my email from [EMAIL PROTECTED] into a folder. All the >messages that have that email address in the header I can filter just fine BUT many, >many messages don't even have the work perl in them anywhere. Can the List Owner >insure

Re: Use of filters.................??

Hi Gary, I filter this list (and all others) just fine by checking the To and CC fields using Mail::Audit. Cheers, Kevin On Tue, May 15, 2001 at 07:46:39AM -0600, Gary Luther ([EMAIL PROTECTED]) spew-ed forth: > I am trying to filter my email from [EMAIL PROTECTED] into a folder. All the >me

FW: delete files

Any ideas??? > -Original Message- > From: Porter, Chris > Sent: Tuesday, May 15, 2001 9:20 AM > To: '[EMAIL PROTECTED]' > Subject: delete files > > Hello, > > How are you? Sorry to bother. I am very new to perl so please bear with > me. I want to create a script

Use of filters.................??

I am trying to filter my email from [EMAIL PROTECTED] into a folder. All the messages that have that email address in the header I can filter just fine BUT many, many messages don't even have the work perl in them anywhere. Can the List Owner insure that some kind of tag is always in the head

Re: Can you print directly to the default printer?

"King, Jason" wrote: > > if I were you - I'd use Word (or some other printer enabled program) to > print .. notepad for example has a /p option .. so you can write a temporary > file and print it using notepad (which will use the default printer) > > none of the solutions are very tidy I'm the

test

test

Oracle Database...

Hello Everyone, Recently I did some database connection to Oracle via DBD::Oracle. I manage to conncec to server, the follow statement does not work: -- ## Begin Perl Code ## -- my $sqlcmd = "select * from street"; my $tbh = $dbh->prepare($sqlcmd); $tbh

Re: DBI and MS Access????

On Mon, 14 May 2001, Mark Martin wrote: > Hi all, > > I'm looking for the quick and painless (idiots guide) instructions to > connect to an MS Access database running on NT from a Digital UNIX machine. > > Need to knows: > > What DBD:: ?? needs installing > > How should the database handle l

RE: Beginners Database Question

Eric B. Leslie wrote .. >I'm experimenting with putting a db backend on everything. What I've > learned I am able to make a perl script that can access it and > manipulate data for it but there's one key item I'm stumped on. What > I'm trying to do is have the main content of the website be

Re: DBI connecting to Informix DB

Here's just a quick thought: DBI connects to remote machines are expecting a port as argument too, which i'm not seeing in your statement. Furthermore, if the params to DBI connect are interpolated, you might want to check the contents of connect as well. You can read up on more DBI stuff at htt

Re: DBI and MS Access????

>From http://search.cpan.org/doc/ADESC/DBI-FAQ-0.38/FAQ.pm 3.4 Can I access Microsoft Access or SQL-Server databases with DBI? Yes, use the DBD::ODBC driver. ### Hope that helps, Jos Boumans - Original Message - From: "Mark Martin" <[EMAIL PROTECTED]> To: <[E

Re: Beginners Database Question

On Mon, 14 May 2001, Eric B. Leslie wrote: >I'm experimenting with putting a db backend on everything. What I've > learned I am able to make a perl script that can access it and > manipulate data for it but there's one key item I'm stumped on. What > I'm trying to do is have the main conten