Re: 1 doubt.

2003-12-10 Thread R. Joseph Newton
Ajey Kulkarni wrote: > perl t.pl > Name "main::FH" used only once: possible typo at t.pl line 6. > > cat t.pl > > #!/usr/bin/perl > > use strict; > use warnings; > > open FH, "out.dat"; > > Why am i getting this warning? Because the compiler thinks that you are probably doing something pointless.

Re: dbmopen problem

2003-12-10 Thread Robert Brown
Joel Newkirk writes: > Well, I guess I'll reply since nobody else has... Problem is I still > have no clue what's wrong here... :^) > > Surely somebody here can offer a hint? Please? :^) > > j I experienced a very similar problem last week. In fact, it was the reason I joined this mail

Re: dbmopen problem

2003-12-10 Thread drieux
On Dec 10, 2003, at 5:58 PM, Joel Newkirk wrote: [..] whenever I reach: dbmopen (%PLRULES, "/var/szs/rules.dbm", undef) or die $!; I die, with "No such file or directory". [..] are you sure about that dbmopen() line? eg: perldoc -f dbmopen seems to suggest that DBNAME shoudl be the 'name' with

Re: dbmopen problem

2003-12-10 Thread Owen
On Mon, 08 Dec 2003 01:06:04 -0500 Joel Newkirk <[EMAIL PROTECTED]> wrote: > dbmopen (%PLRULES, "/var/szs/rules.dbm", undef) or die $!; > I die, with "No such file or directory". No idea but; I would tend to beleive the "No such file or directory" statement. you can do an ls -la /var/szs/rules.d

Re: installing DBD::mysql

2003-12-10 Thread drieux
On Dec 10, 2003, at 5:28 PM, Ing. Carlos Alberto De Jesus Velasquez wrote: [..] I´m trying to install DBD:mysql from CPAN and i get the next message which one? Warning: pre

Re: Pattern Match

2003-12-10 Thread Robert Brown
R. Joseph Newton writes: > When used consciously, with at least a general awareness of the processing > load being invoked, regexes can do some really incredible things. Thanks! I especially appreciate the example you gave showing how to trim both ends of a string: that it is more efficient to

Re: Problems forking -- fork DOSes my comp

2003-12-10 Thread George Schlossnagle
On Dec 10, 2003, at 4:52 PM, Dan Anderson wrote: I am learning about forks, so I tried the following code to make sure I had everything down: #! /usr/bin/perl use strict; use warnings; my $counter = 1; my $pid = 0; while ($counter < 50) { if ($pid = fork) { open ("FORKED", ">./fork/$counter

RE: splitting a string

2003-12-10 Thread Tim Johnson
For those of you that are interested, I benchmarked a few of the suggestions. Drieux is by a significant margin the winner speed-wise. What I did was split the scalar into an array and then define the four variables by join()ing the result using an array slice instead of making a new array. Runn

Re: simple link checker...

2003-12-10 Thread david
Simran wrote: > Hi All, > > Can someone suggest a really simple CPAN module that will validate links > on a website. > > I need something like linklint - except that it needs to be on very very > simple, and i'm sure there is a CPAN module out there i can use (i just > can't seem to find a good

Re: adding path to $PATH

2003-12-10 Thread drieux
On Dec 10, 2003, at 3:06 PM, drieux wrote: On Dec 9, 2003, at 10:09 PM, Pablo Cusnir wrote: Is there a way using Perl to add to the environment variable PATH a new path, and that addition will be valid after the script is ran and not only for the script's scope. I'm working in cshell in Solaris 5.

Re: First module!!! YAAAAY!!! :)

2003-12-10 Thread R. Joseph Newton
Ben Crane wrote: > Hi all, > > Just sat done and put together my FIRST MODULE > I went through an edited/modifyed text::parsewords and > after lots of testing, editing and playing around > with...I got it to work! I didn't realize it could be > THIS easy! I have been playing around with h2xs a

Re: dbmopen problem

2003-12-10 Thread Joel Newkirk
Well, I guess I'll reply since nobody else has... Problem is I still have no clue what's wrong here... :^) Surely somebody here can offer a hint? Please? :^) j On Mon, 2003-12-08 at 01:06, Joel Newkirk wrote: > I've run into a problem. I have been working on a webmin module that, > among oth

Re: Help needed on perl wrappers

2003-12-10 Thread R. Joseph Newton
Pandey Rajeev-A19514 wrote: > Hi, > > I was interested in formatted display on screen. > > I can display ONE text paragraph in any part of the screen with Text::wrap. My > question was how to adjust MANY such independent paragraphs in one screen (exactly > in a newspaper format where you have 8-

Re: sorter script with *MANY* unique records

2003-12-10 Thread drieux
On Dec 10, 2003, at 4:02 PM, R. Joseph Newton wrote: [..] Most CPUs in use average about 99% idle time, at least on the computers [some running up to 20 open windows] on which I have checked these stats. Not wishing to get us bogged down in a convention of the IEEE Transactions of Distributed Proce

simple link checker...

2003-12-10 Thread simran
Hi All, Can someone suggest a really simple CPAN module that will validate links on a website. I need something like linklint - except that it needs to be on very very simple, and i'm sure there is a CPAN module out there i can use (i just can't seem to find a good one)... All i need to do is

installing DBD::mysql

2003-12-10 Thread Ing. Carlos Alberto De Jesus Velasquez
Hi everybody: I´m trying to install DBD:mysql from CPAN and i get the next message Warning: prerequisite DBI failed to load: Can't locate DBI.pm in @INC (@INC contains: /usr/perl5/5.6 .1/lib/sun4-solaris-64int /usr/perl5/5.6.1/lib /usr/perl5/site_perl/5.6.1/sun4-solaris-64int /usr

Re: Pattern Match

2003-12-10 Thread R. Joseph Newton
Robert Brown wrote: > Casey West writes: > Sorry again for my confusing way of expressing myself. Although I > wrote my example in C, that was because I am a novice perl programmer, > but an experienced C programmer, so I expressed my algorithm in C. > > The idea was to compare the execution effe

RE: splitting a string

2003-12-10 Thread Wagner, David --- Senior Programmer Analyst --- WGO
Ravi Malghan wrote: > Hi: I want to split the string > 0.0.0.0.1.10.1.30.1.10.1.30.1 > > into 4 variables: 0.0.0.0, 1, 10.1.30.1 and 10.1.30.1 > > any suggestions? > > TIA > ravi Here is one approach: #!perl -w use strict $_ = '0.0.0.0.1.10.1.30.1.10.1.30.1'; my @MyWorka = (); @MyWorka = spl

Re: splitting a string

2003-12-10 Thread drieux
On Dec 10, 2003, at 4:49 PM, Ravi Malghan wrote: Hi: I want to split the string 0.0.0.0.1.10.1.30.1.10.1.30.1 into 4 variables: 0.0.0.0, 1, 10.1.30.1 and 10.1.30.1 any suggestions? yes, get better data. a part of the problem you have is the that you could do this with a regEx my $input =

Re: sorter script [was: Frustrated newbie question]

2003-12-10 Thread drieux
On Dec 9, 2003, at 4:20 PM, R. Joseph Newton wrote: [..] To me hashes are like sausage to a carnivore--I love the end product, but have no desire to look too closely at the process. [..] first the last, the schwartzian transformation I included was from the "perldoc -q sort" as a way of noting th

splitting a string

2003-12-10 Thread Ravi Malghan
Hi: I want to split the string 0.0.0.0.1.10.1.30.1.10.1.30.1 into 4 variables: 0.0.0.0, 1, 10.1.30.1 and 10.1.30.1 any suggestions? TIA ravi __ Do you Yahoo!? New Yahoo! Photos - easier uploading and sharing. http://photos.yahoo.com/ -- To unsubscribe, e-mail:

Re: sorter script with *MANY* unique records

2003-12-10 Thread Robert Brown
R. Joseph Newton writes: > Most CPUs in use average about 99% idle time, at least on the computers [some > running up to 20 open windows] on which I have checked these stats. To me, the > more important issues in normal practice have to do with comprehensibility, and > thus maintainability, t

Re: sorter script with *MANY* unique records

2003-12-10 Thread R. Joseph Newton
Robert Brown wrote: > > But how do they compare when the heash is too big to fit in main > memory? If the has starts swapping, you loose! I do not know, > however, whether using a database based hash would be faster or slower > than the sort -u approach. It would make for an interesting test. >

Re: -e with single quotes

2003-12-10 Thread perl-beginners
On Wed, Dec 10, 2003 at 05:05:26PM -0600, Dan Muey wrote: > perl -e 'print "joe's mama";' > Obvo=iously won't work > perl -e 'print "joe\'s mama";' > And any other versions of \\' all fail. As you were told, this is a question of your shell. If you are using a bourne shell (zsh, bash, ksh, etc...)

RE: -e with single quotes

2003-12-10 Thread Dan Muey
> Dan Muey <[EMAIL PROTECTED]> wrote: > > > Hello group. > > > > I'm tryign to do a perl -e '' command and am wondering if it is > > possible to do single quotes inside the single quotes. > > IE > > > > perl -e 'print "joe's mama";' > > Obvo=iously won't work > > perl -e 'print "joe\'s mama";' >

Re: -e with single quotes

2003-12-10 Thread Jeff Westman
Dan Muey <[EMAIL PROTECTED]> wrote: > Hello group. > > I'm tryign to do a perl -e '' command and am wondering if it is > possible to do single quotes inside the single quotes. > IE > > perl -e 'print "joe's mama";' > Obvo=iously won't work > perl -e 'print "joe\'s mama";' > And any other versio

Re: Recommendations?

2003-12-10 Thread R. Joseph Newton
Derek Brinson wrote: > Where might I find reference (conceptual) stuff about how to launch a > JAVA app via CGI (or vice versa)? > Still working it out, but it appears that I may need to get some CGI > variables into a JAVA App. > > Surely this is too difficult to be encapsulated in a website or t

RE: -e with single quotes

2003-12-10 Thread Dan Muey
> Guessing here but maybe you don't want to use *Perl's* > escape, but instead use your *shell's* escape. Oh yeah, duh. I thought \ was my shell's escape character(bash) > > Whatchu running from? Nothing, just want to be able to use single quotes :) > > -Tom Kinzer > -- To unsubscribe, e-m

Re: How do I set up bidirectional pipes over a network connection?

2003-12-10 Thread drieux
On Dec 10, 2003, at 5:54 AM, Dan Anderson wrote: [..] Actually, that's a good idea too. Thanks for your suggestions! -Dan while I like the NFS idea, you might want to look into the idea of a SAN/NAS device that is already hardened with fail over CPU's, etc, etc, etc... then as long as you keep al

RE: adding path to $PATH

2003-12-10 Thread Tom Kinzer
in korn it would be: export PATH=$(add_path):$PATH -Original Message- From: Robert Brown [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 10, 2003 3:20 PM To: drieux Cc: Perl Perl Subject: Re: adding path to $PATH drieux writes: > > On Dec 9, 2003, at 10:09 PM, Pablo Cusnir wrote

Re: -e with single quotes

2003-12-10 Thread Jenda Krynicky
From: "Dan Muey" <[EMAIL PROTECTED]> > I'm tryign to do a perl -e '' command and am wondering if it is > possible to do single quotes inside the single quotes. > IE > > perl -e 'print "joe's mama";' > Obvo=iously won't work > perl -e 'print "joe\'s mama";' > And any other versions of \\' all fail

RE: -e with single quotes

2003-12-10 Thread Tim Johnson
Hmmm, that's a tough one. Normally you can still escape a single quote inside single quotes, but maybe in this case it would be just easier to do a: C:\> perl print 'joe\'s mama'; ^Z (for windows anyway) -Original Message- From: Dan Muey [mailto:[EMAIL PROTECTED] Sent: Wednesday, Dec

Re: adding path to $PATH

2003-12-10 Thread Robert Brown
drieux writes: > > On Dec 9, 2003, at 10:09 PM, Pablo Cusnir wrote: > > > Is there a way using Perl to add to the environment > > variable PATH a new path, and that addition will be > > valid after the script is ran and not only for the script's scope. > > I'm working in cshell in Solaris

RE: -e with single quotes

2003-12-10 Thread Tom Kinzer
Guessing here but maybe you don't want to use *Perl's* escape, but instead use your *shell's* escape. Whatchu running from? -Tom Kinzer -Original Message- From: Dan Muey [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 10, 2003 3:05 PM To: beginners Subject: -e with single quotes He

-e with single quotes

2003-12-10 Thread Dan Muey
Hello group. I'm tryign to do a perl -e '' command and am wondering if it is possible to do single quotes inside the single quotes. IE perl -e 'print "joe's mama";' Obvo=iously won't work perl -e 'print "joe\'s mama";' And any other versions of \\' all fail. Is there a way to use a single quote

Re: adding path to $PATH

2003-12-10 Thread drieux
On Dec 9, 2003, at 10:09 PM, Pablo Cusnir wrote: Is there a way using Perl to add to the environment variable PATH a new path, and that addition will be valid after the script is ran and not only for the script's scope. I'm working in cshell in Solaris 5.8 let me see IF I get your idea. I have a

Re: removing duplicate lines

2003-12-10 Thread R. Joseph Newton
Andrew Gaffney wrote: > John W. Krahn wrote: > > Whenever you want unique values think "hash". > > Well, it would have been weird to have a hash with keys named 'NET USE F: > SKYLINE\\SKYLINEF\r\n'. No. It is not at all wierd to use hash for any of the puroses for which it is well-suited. A

Re: First module!!! YAAAAY!!! :)

2003-12-10 Thread drieux
On Dec 10, 2003, at 4:39 AM, Ben Crane wrote: Just sat done and put together my FIRST MODULE congratulations. [..] I have been playing around with h2xs and getting really confused. If I understand this, the *.pm file is standalone and will work on pretty much any platform?? So if I write ano

Re: Problems forking -- fork DOSes my comp

2003-12-10 Thread david
Dan Anderson wrote: > I am learning about forks, so I tried the following code to make sure I > had everything down: > > #! /usr/bin/perl > > use strict; > use warnings; > > my $counter = 1; > my $pid = 0; > > while ($counter < 50) { > if ($pid = fork) { > open ("FORKED", ">./fork/$count

Re: Problems forking -- fork DOSes my comp

2003-12-10 Thread Dan Anderson
On Wed, 2003-12-10 at 17:04, James Edward Gray II wrote: > On Dec 10, 2003, at 3:52 PM, Dan Anderson wrote: > > > I am learning about forks, so I tried the following code to make sure I > > had everything down: > > Still don't believe me about Network Programming with Perl, eh? Did I > mention

Re: Problems forking -- fork DOSes my comp

2003-12-10 Thread James Edward Gray II
On Dec 10, 2003, at 3:52 PM, Dan Anderson wrote: I am learning about forks, so I tried the following code to make sure I had everything down: Still don't believe me about Network Programming with Perl, eh? Did I mention that it covers forking well? Basic idea of fork: if ($pid = fork()) {

Problems forking -- fork DOSes my comp

2003-12-10 Thread Robert Brown
Dan Anderson writes: > I am learning about forks, so I tried the following code to make sure I > had everything down: > > #! /usr/bin/perl > > use strict; > use warnings; > > my $counter = 1; > my $pid = 0; > > while ($counter < 50) { > if ($pid = fork) { > open ("FORKED", "

Problems forking -- fork DOSes my comp

2003-12-10 Thread Dan Anderson
I am learning about forks, so I tried the following code to make sure I had everything down: #! /usr/bin/perl use strict; use warnings; my $counter = 1; my $pid = 0; while ($counter < 50) { if ($pid = fork) { open ("FORKED", ">./fork/$counter") or die("COULD NOT OPEN FORK"); pri

Re: file path pattern matching problem.

2003-12-10 Thread B. Fongo
The best way to do it; is using the standard module File::Basename. For instance use File::Basename; # This should return "somefile". $file_name = basename (c:\test\abc\what\somefile.txt); # This should also return "c:\test\abc\what\" $dir_name = dir (c:\test\abc\what\somefile.txt); # filepars

RE: Match the first 3 characters of 2 words?

2003-12-10 Thread Bob Showalter
Rod wrote: > What is the easiest way to test the first 3 characters of two words > for a match. > > IE: "dasf" test "dasg" to return positive. substr($word1, 0, 3) eq substr($word2, 0, 3) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Match the first 3 characters of 2 words?

2003-12-10 Thread Tom Kinzer
perldoc -f substr would be one way. "easiest" is a loaded word, depends on the context and the individual... -Tom Kinzer -Original Message- From: Rod [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 10, 2003 12:19 PM To: '[EMAIL PROTECTED]' Subject: Match the first 3 characters of 2

Re: Match the first 3 characters of 2 words?

2003-12-10 Thread James Edward Gray II
On Dec 10, 2003, at 2:19 PM, Rod wrote: What is the easiest way to test the first 3 characters of two words for a match. IE: "dasf" test "dasg" to return positive. substr("dasf", 0, 3) eq substr("dasg", 0, 3) James -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail:

RE: Match the first 3 characters of 2 words?

2003-12-10 Thread Mark Anderson
Response at end of message... -Original Message- From: Rod [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 10, 2003 12:19 PM To: '[EMAIL PROTECTED]' Subject: Match the first 3 characters of 2 words? What is the easiest way to test the first 3 characters of two words for a match. IE

Match the first 3 characters of 2 words?

2003-12-10 Thread Rod
What is the easiest way to test the first 3 characters of two words for a match. IE: "dasf" test "dasg" to return positive. rod. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: file path pattern matching problem.

2003-12-10 Thread Tom Kinzer
Yes! And use Basename too. these will also give you the advantage of making your programs more portable! -Tom Kinzer -Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 10, 2003 11:37 AM To: [EMAIL PROTECTED] Subject: Re: file path pattern matching

Re: file path pattern matching problem.

2003-12-10 Thread John W. Krahn
Ben Crane wrote: > > Hi all, Hello, > I'm trying to split apart a filepath...e.g: > c:\test\abc\what\somefile.txt > The length of the filepath will never be constant... $ perl -le' use File::Spec; my $path = q[c:\test\abc\what\somefile.txt]; my ( $vol, $dir, $file ) = File::Spec->splitpath(

Re: Pattern Match

2003-12-10 Thread Robert Brown
On Wed, 10 Dec 2003 20:11:26 +0100, "Jenda Krynicky" <[EMAIL PROTECTED]> wrote: > > 1. Perl builtins and especialy the regular expression engine is > heavily optimized. So it might very well be quicker to use a regexp > from Perl than to implement the same stuff in C. Unless you spend a >

Re: pick N random lines from a file

2003-12-10 Thread Robert Brown
Kevin Old writes: > On Wed, 2003-12-10 at 11:12, David Garamond wrote: > > I'm trying to extend the Perl cookbook recipe on how to pick a random > > line from a file: > > > > #!/usr/bin/perl > > rand($.) < 1 && ($line = $_) while <>; > > print $line; > > > > for picking up to N ra

Re: Pattern Match

2003-12-10 Thread Jenda Krynicky
From: Robert Brown <[EMAIL PROTECTED]> > Casey West writes: > > : "Does the regular expression mechanism in perl optimize regular > > : expressions such as the one you used earlier in this thread so that > > : the execution overhead is nearly as good as the C approach I > outlined > : earlier i

RE: 2nd doubt.

2003-12-10 Thread Paul Kraus
Not to be a pest but try and be more descriptive in your subject. It saves everyone time in trying to decide on what they can help you with. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: pick N random lines from a file

2003-12-10 Thread Kevin Old
On Wed, 2003-12-10 at 11:12, David Garamond wrote: > I'm trying to extend the Perl cookbook recipe on how to pick a random > line from a file: > > #!/usr/bin/perl > rand($.) < 1 && ($line = $_) while <>; > print $line; > > for picking up to N random lines from a file: > > star

2nd doubt.

2003-12-10 Thread Ajey Kulkarni
HI again. I'm tryign to modify the .procmailrc file Initially the file looks liek this -- :0: * ^X-Spam-Status: Yes | dmail +mail/junk :0: * ^X-Spam-Status: Yes | dmail +mail/junk :0: * ^X-Spam-Status: Yes | dmail +mail/junk :0: * ^X-Spam-Status: Yes | dmail +mail/junk :0: *

RE: 1 doubt.

2003-12-10 Thread Ned Cunningham
It's a warning. If you turn it off you wont get it :) Ned Cunningham POS Systems Development Monro Muffler Brake 200 Holleder Parkway Rochester, NY 14615 (585) 647-6400 ext. 310 [EMAIL PROTECTED] -Original Message- From: Ajey Kulkarni [mailto:[EMAIL PR

Re: [ADMIN] Re: Pattern Match

2003-12-10 Thread Casey West
It was Wednesday, December 10, 2003 when Rob Dixon took the soap box, saying: : Casey West wrote: : > : > : Before I finally burst my cyanide capsule, may I.. ? : > : > No, you may not. : > : > I find walking around the block a good way to cool off. Counting to ten : > has never done it for me, but

Re: [ADMIN] Re: Pattern Match

2003-12-10 Thread Rob Dixon
Casey West wrote: > > : Before I finally burst my cyanide capsule, may I.. ? > > No, you may not. > > I find walking around the block a good way to cool off. Counting to ten > has never done it for me, but you may try. *Both* of you. > > Thanks for killing the personal tension between you two, on t

Re: 1 doubt.

2003-12-10 Thread perl-beginners
On Thu, Dec 11, 2003 at 09:27:48AM +, Ajey Kulkarni wrote: > perl t.pl > Name "main::FH" used only once: possible typo at t.pl line 6. You opened a file, but you do not read from the file. Just opened it. This doesn't make much sense. So you get a warning. > cat t.pl > > #!/usr/bin/perl > >

Re: 1 doubt.

2003-12-10 Thread James Edward Gray II
On Dec 11, 2003, at 3:27 AM, Ajey Kulkarni wrote: perl t.pl Name "main::FH" used only once: possible typo at t.pl line 6. cat t.pl #!/usr/bin/perl use strict; use warnings; open FH, "out.dat"; Why am i getting this warning? When i remove the warnings,this goes off? Is there any problem if i no

RE: 1 doubt.

2003-12-10 Thread Stephen Hardisty
> Name "main::FH" used only once: possible typo at t.pl line 6. It's because it's used only once ;o) . If you just declare something (variable, filehandle etc.) but don't use it, something's probably wrong with your code (such as a typo). If you try reading or writing using that filehandle the e

UML meets eXtreme v. BDUF v. SEC

2003-12-10 Thread Robert Brown
(I am deliberately TOP POSTING my reply to this because it seems most appropriate.) B E A U T I F U L L Y S A I D ! ! ! Drieux writes: > > On Dec 9, 2003, at 7:08 PM, R. Joseph Newton wrote: > [..] > > UML? Isn't that the stuff the once-long-ago-knew-how-to-code > > professional sycophan

1 doubt.

2003-12-10 Thread Ajey Kulkarni
perl t.pl Name "main::FH" used only once: possible typo at t.pl line 6. cat t.pl #!/usr/bin/perl use strict; use warnings; open FH, "out.dat"; Why am i getting this warning? When i remove the warnings,this goes off? Is there any problem if i not include "use warnings" line? Quick reply is hi

[ADMIN] Re: Pattern Match

2003-12-10 Thread Casey West
It was Wednesday, December 10, 2003 when Rob Dixon took the soap box, saying: : Before I finally burst my cyanide capsule, may I.. ? No, you may not. I find walking around the block a good way to cool off. Counting to ten has never done it for me, but you may try. *Both* of you. Thanks for killi

Re: Pattern Match

2003-12-10 Thread Rob Dixon
Before I finally burst my cyanide capsule, may I.. ? Rj wrote: > > Rob Dixon writes: > > > > I didn't think it was slick at all. In fact I was > > disappointed that it looked such a mess, but I don't see > > a better way. > > Yes, it is indeed a mess, not only syntacticly, but also > semantically.

UML meets eXtreme v. BDUF v. SEC

2003-12-10 Thread drieux
On Dec 9, 2003, at 7:08 PM, R. Joseph Newton wrote: [..] UML? Isn't that the stuff the once-long-ago-knew-how-to-code professional sycophants use to make pretty pictures for execs, so that the execs can go to bed in the warm contented illusion that they actually understand something about the syst

RE: Get file size without downloading

2003-12-10 Thread Jeff Westman
Dan Anderson <[EMAIL PROTECTED]> wrote: > On Wed, 2003-12-10 at 09:42, Bob Showalter wrote: > > usef wrote: > > > > Hi, > > > > FTP or HTTP? > > > > > > > > > > HTTP, but I want to know the method for FTP as well. Thanks -u > > > > I think that will work for FTP as well. Give it a try. > > If

RE: Help needed on perl wrappers

2003-12-10 Thread Tom Kinzer
Hmmm, yes I don't know of anything off the top of my head, but if you are doing terminal stuff, I would dig around (starting with CPAN of course) for anything with text based menus where you can map areas of the screen. Perl Tk is pretty cool (and well-named, I might add) and not too difficult in

pick N random lines from a file

2003-12-10 Thread David Garamond
I'm trying to extend the Perl cookbook recipe on how to pick a random line from a file: #!/usr/bin/perl rand($.) < 1 && ($line = $_) while <>; print $line; for picking up to N random lines from a file: start code-- #!/usr/bin/perl die "Usage: $0 , where N is the number

RE: Get file size without downloading

2003-12-10 Thread Dan Anderson
On Wed, 2003-12-10 at 09:42, Bob Showalter wrote: > usef wrote: > > > Hi, > > > FTP or HTTP? > > > > > > > HTTP, but I want to know the method for FTP as well. Thanks -u > > I think that will work for FTP as well. Give it a try. If I type ls when I FTP into somewhere I get a listing of files an

Re: How do I set up bidirectional pipes over a network connection?

2003-12-10 Thread Peter Scott
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Dan Anderson) writes: >I'm writing a perl daemon to do two things: back up important files on >multiple boxen so if one gets taken out another will survive, and sync >files in users directory from a main server -- i.e. I want to be able to >do som

Re: wildcard File::Copy

2003-12-10 Thread drieux
On Dec 10, 2003, at 2:11 AM, Ben Crane wrote: Drieux, I'm not passing the filehandle, I want to pass a variable that contains the file path...I'm getting the path from a text file, but that text file doesn't contain extensions and each file has multiple extensions. So I need to copy all files wit

RE: Get file size without downloading

2003-12-10 Thread Morbus Iff
>> Is there any way to get the size of a file without downloading it? >> I want to write a program using LWP to download a file only >> if it is bigger than 3K but smaller than 500K. >> So I need to know the file size in the first place. > >Try making a HEAD request - that should return >file size

RE: Get file size without downloading

2003-12-10 Thread Thomas Bätzler
Hello, usef <[EMAIL PROTECTED]> asked: > Is there any way to get the size of a file without downloading it? > I want to write a program using LWP to download a file only > if it is bigger than 3K but smaller than 500K. > So I need to know the file size in the first place. Try making a HEAD reque

Re: Get file size without downloading

2003-12-10 Thread Rus Foster
On Wed, 10 Dec 2003, usef wrote: > Hi, > Is there any way to get the size of a file without downloading it? > I want to write a program using LWP to download a file only if it is bigger > than 3K but smaller than 500K. > So I need to know the file size in the first place. > Hi, FTP or HTTP? Rgds

RE: Help needed on perl wrappers

2003-12-10 Thread Wiggins d Anconia
Please bottom post... > Hi, > > I was interested in formatted display on screen. > > I can display ONE text paragraph in any part of the screen with Text::wrap. My question was how to adjust MANY such independent paragraphs in one screen (exactly in a newspaper format where you have 8-10 columns

Re: How to print "..." during download

2003-12-10 Thread James Edward Gray II
On Dec 10, 2003, at 8:25 AM, usef wrote: Thank you guys for quick answers, What if I want to print a "..." and calculate the percentage and amount of currently downloaded size during the download process? (wget style), should I create another process to do that? or is there any other alternati

Re: opening files on remote computers

2003-12-10 Thread Ohad Ohad
This seems good for COPYing files, I really don't to go there unless I realize I have to . . . I was checking this one : http://search.cpan.org/~nwiger/File-Remote-1.16/Remote.pm But it give me probelms, it complains on ':No such file or directory' for files I know for sure that exists. From:

RE: Get file size without downloading

2003-12-10 Thread Bob Showalter
usef wrote: > > Hi, > > FTP or HTTP? > > > > HTTP, but I want to know the method for FTP as well. Thanks -u I think that will work for FTP as well. Give it a try. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: file path pattern matching problem.

2003-12-10 Thread Balint, Jess
Ben - You can use the File::Basename module for this: Your program would be akin to: foreach $line (@Path_Filename) { chomp($line); $filename = basename($line); # gives you the filename with the extension $location = dirname($line); # gives you the location with no trail

Re: How to print "..." during download

2003-12-10 Thread Morbus Iff
>What if I want to print a "..." and calculate the percentage and amount of >currently downloaded size during the download process? (wget style), should >I create another process to do that? or is there any other alternative? (I >will choose the later). I chatted about this in my book, SPIDERING HA

Re: Help with manipulating a string.

2003-12-10 Thread James Edward Gray II
On Dec 10, 2003, at 1:39 AM, Mark Weisman wrote: I've got a multiline text box that will feed the ^M at the end of each line. I want to capture it into a single line (which is done), but how do I get it back? Not knowing how many lines there may be with the ^M between them. Currently, I use the ol

Re: opening files on remote computers

2003-12-10 Thread Andrew Gaffney
Ohad Ohad wrote: Well, I just want to open the file for reading. somthing like open(FILE, ":") will be great. Even better if it uses ssh. This module from CPAN looks promising: http://search.cpan.org/~ivan/Net-SCP-0.06/SCP.pm -- Andrew Gaffney -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addi

file path pattern matching problem.

2003-12-10 Thread Ben Crane
Hi all, I'm trying to split apart a filepath...e.g: c:\test\abc\what\somefile.txt The length of the filepath will never be constant... e.g: foreach $line (@Path_Filename) { chomp($line); (@Path_Breakdown) = split(/(\w+\W)(\w+\W)/, $line); } but my biggest problem is how to match a

RE: passing an array

2003-12-10 Thread Bob Showalter
Mike Blezien wrote: > Hello, > > what is the best way to pass an array to a sub routine, IE. You can't pass an array to a sub. You can only pass a list of scalars. > > my @fields = qw(one two three); > > send_array(@fields); > > > sub send_array { >my @ary = @_; Whatever you passed ends

How to print "..." during download

2003-12-10 Thread usef
Thank you guys for quick answers, What if I want to print a "..." and calculate the percentage and amount of currently downloaded size during the download process? (wget style), should I create another process to do that? or is there any other alternative? (I will choose the later). Thanks -u -

Re: adding path to $PATH

2003-12-10 Thread Dan Anderson
On Wed, 2003-12-10 at 01:09, Pablo Cusnir wrote: > Hi, > > Is there a way using Perl to add to the environment variable PATH a new path, and > that addition will be valid after the script is ran and not only for the script's > scope. > I'm working in cshell in Solaris 5.8 > The regular way to d

Re: Get file size without downloading

2003-12-10 Thread usef
> > Hi, > FTP or HTTP? > HTTP, but I want to know the method for FTP as well. Thanks -u PS. Sorry Rus for multiple copy *smacks forehead* -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Get file size without downloading

2003-12-10 Thread Bob Showalter
usef wrote: > Hi, > Is there any way to get the size of a file without downloading it? > I want to write a program using LWP to download a file only > if it is bigger > than 3K but smaller than 500K. > So I need to know the file size in the first place. You issue a HEAD request to the server and l

Get file size without downloading

2003-12-10 Thread usef
Hi, Is there any way to get the size of a file without downloading it? I want to write a program using LWP to download a file only if it is bigger than 3K but smaller than 500K. So I need to know the file size in the first place. Thank you. -u -- To unsubscribe, e-mail: [EMAIL PROTECTED] For ad

Re: opening files on remote computers

2003-12-10 Thread Ohad Ohad
Well, I just want to open the file for reading. somthing like open(FILE, ":") will be great. Even better if it uses ssh. From: Andrew Gaffney <[EMAIL PROTECTED]> To: Ohad Ohad <[EMAIL PROTECTED]> CC: [EMAIL PROTECTED] Subject: Re: opening files on remote computers Date: Wed, 10 Dec 2003 07:43:31 -

Re: How do I set up bidirectional pipes over a network connection?

2003-12-10 Thread Dan Anderson
On Tue, 2003-12-09 at 20:38, John W. Krahn wrote: > Dan Anderson wrote: > > > > On Tue, 2003-12-09 at 16:31, James Edward Gray II wrote: > > > On Dec 9, 2003, at 3:19 PM, Dan Anderson wrote: > > > > > > > I have 2 Linux boxes I want to talk to each other over the local > > > > network > > > > usin

Re: How do I set up bidirectional pipes over a network connection?

2003-12-10 Thread Dan Anderson
On Tue, 2003-12-09 at 17:41, James Edward Gray II wrote: > On Dec 9, 2003, at 4:12 PM, Dan Anderson wrote: > > > Well, I was planning to implement the file transfers using Net::FTP or > > something similar to keep the problems down. But I want every node to > > be able to talk to other nodes, i.e

Re: opening files on remote computers

2003-12-10 Thread Andrew Gaffney
Ohad Ohad wrote: Hi, What's the best way to open (for reading) a file on remote computer (in perl) ? Well, what do you need to open the file for? You can do something like mounting the remote FS via NFS, SMB, etc. You can also have an FTP server running on the remote box. You can write client a

opening files on remote computers

2003-12-10 Thread Ohad Ohad
Hi, What's the best way to open (for reading) a file on remote computer (in perl) ? Thanks. _ MSN 8 helps eliminate e-mail viruses. Get 2 months FREE*. http://join.msn.com/?page=features/virus -- To unsubscribe, e-mail: [EMAIL PR

First module!!! YAAAAY!!! :)

2003-12-10 Thread Ben Crane
Hi all, Just sat done and put together my FIRST MODULE I went through an edited/modifyed text::parsewords and after lots of testing, editing and playing around with...I got it to work! I didn't realize it could be THIS easy! I have been playing around with h2xs and getting really confused. If

Re: adding path to $PATH

2003-12-10 Thread Helgi Briem
Pablo Cusnir wrote: > Hi, > > Is there a way using Perl to add to the environment variable PATH a > new path, and that addition will be valid after the script is ran and > not only for the script's scope. > I'm working in cshell in Solaris 5.8 > The regular way to do it in the shell is: Yours i

Help with manipulating a string.

2003-12-10 Thread Mark Weisman
I've got a multiline text box that will feed the ^M at the end of each line. I want to capture it into a single line (which is done), but how do I get it back? Not knowing how many lines there may be with the ^M between them. Currently, I use the old standby: >foreach my $rec (@post) { > cho

  1   2   >