RE: No access to /etc/protocols

2002-02-28 Thread Paul Murphy
This *is* my new ISP. I understand their stance, they work are working from a standard security perspective. "Don't open it unless you need to". This is an admirable stance, although misapplied in this case. You always have to strike a balance between security and funcionality and I feel t

Re: making phone calls using a perl module

2002-02-28 Thread Joe Echavarria
It is not phone spam. Is for a proyect. --- "Brett W. McCoy" <[EMAIL PROTECTED]> wrote: > On Wed, 27 Feb 2002, Joe Echavarria wrote: > > >I am looking for a perl module that can be used > to > > make phone calls using a voice modem so when the > phone > > is picked up the user can hear a reco

RE: No access to /etc/protocols

2002-02-28 Thread Jenda Krynicky
From: "Paul Murphy" <[EMAIL PROTECTED]> > This *is* my new ISP. I understand their stance, they work are > working from a standard security perspective. "Don't open it unless > you need to". This is an admirable stance, although misapplied in > this case. You always have to s

Dereferencing a referenced hash.

2002-02-28 Thread Tor Hildrum
Is this a bug or a feature? Or is it just me? :) !/usr/bin/perl -w use strict; use warnings; my $variable = "variable"; my @array = qw(this is an array); my %hash = qw(1 this 2 is 3 a 4 hash); ## correct syntax my $rvariable = \$variable; my $rhash = \%hash; ## correct syntax my $rarray = \@ar

Re: Sorting a hash table - Advanced;)

2002-02-28 Thread Tor Hildrum
On 27/2/02 17:33, "Steven M. Klass" <[EMAIL PROTECTED]> wrote: > Hi all, > > ok here is the fundamental code > > print "\n\n**Summary**\n"; > foreach my $key (keys %runset){ > printf ( "%-20s %-20s\n",$key, $runset{$key}); > } > > Now I want to sort this hash for example > print "\n\n**Summa

RE: Dereferencing a referenced hash.

2002-02-28 Thread Hanson, Robert
The trick is to use {$ref} where you would normally put the variable name: So $array[0] becomes ${$ref}[0] (not @$ref[0] which is a "slice"). And $hash{key} becomes ${ref}{key}. Or you can use the little arrow syntax... ${$ref}[0] is the same as $ref->[0]. And ${$ref}{key} is the same as $ref->

Re: Sorting a hash table - Advanced;)

2002-02-28 Thread Tor Hildrum
>> Basically I want to format this so certain keys get printed in a certain >> order, but there may be some remaining keys that I want printed that I really >> don't care about. (a "catch-all" if you will) >> >> Thanks > > print "\n\n**Summary**\n"; > foreach my $key (keys %runset){ > print "N

Re: Dereferencing a referenced hash.

2002-02-28 Thread Tor Hildrum
> The trick is to use {$ref} where you would normally put the variable name: print "${$rhash}{1}\n"; worked like a charm :) > So $array[0] becomes ${$ref}[0] (not @$ref[0] which is a "slice"). > And $hash{key} becomes ${ref}{key}. It seems somewhat inconsistent to me. While I can dereference s

Re: Sorting a hash table - Advanced;)

2002-02-28 Thread Vitali
Dear friends! Please consult me! How I must change the code ,so that "Raport page" prints on the begining of file,not in the end? Code reads the lines,count $env and $page and print those to the report page... Thank you, VItali Pokrovski -- Here is input file: 10Arve

How to print firstly Raport page ,and after data from input file

2002-02-28 Thread Vitali
Dear friends! Please consult me! How I must change the code ,so that "Raport page" prints on the begining of file,not in the end? Code reads the lines,count $env and $page and print those to the report page... Thank you, VItali Pokrovski -- Here is input file: 10Arve

Re: making phone calls using a perl module

2002-02-28 Thread Johnathan Kupferer
I would also be interested if anyone knows how to do this. We have several system monitors that would be much more efficient if they could actually call us when there is a problem rather than just sending email. We have a pager that can recieve email, but that only helps whoever has the page

RE: making phone calls using a perl module

2002-02-28 Thread Nikola Janceski
Actually I am sure John knows phone spam is illegal, no ifs and buts about it. I am sure we all saw that Simpsons episode when Homer got Prof. Frink's Dial-o-matic. -Original Message- From: Brett W. McCoy [mailto:[EMAIL PROTECTED]] Sent: Wednesday, February 27, 2002 10:44 PM To: [EMAIL P

Re: making phone calls using a perl module

2002-02-28 Thread Papo Napolitano
I'm making a guess here... But I think voice modems use the (standart) AT commands even for the voice commands. So if you know what to send, just use something like Device::SerialPort to dial via the modem and for the mp3 play, you could "inject" the audio signal coming from your soundcard to the

Re: making phone calls using a perl module

2002-02-28 Thread Brett W. McCoy
On Thu, 28 Feb 2002, Johnathan Kupferer wrote: > I would also be interested if anyone knows how to do this. We have > several system monitors that would be much more efficient if they could > actually call us when there is a problem rather than just sending email. > We have a pager that can rec

Re: making phone calls using a perl module

2002-02-28 Thread Brett W. McCoy
A followup: I found some modules on CPAN regarding Perl & Telephony: Module Telephone::Number (G/GI/GIULIENK/WWW-SMS-0.06.tar.gz) Module Telephony::CTPort (V/VO/VOICET/ctserver-0.3.tar.gz) Module Telephony::Phonedev (Contact Author David Huggins-Daines <[EMAIL PROTECT

Re: making phone calls using a perl module

2002-02-28 Thread Tyler Longren
That dial-o-matic episode was on lastnight here in Iowa. :) Tyler - Original Message - From: "Nikola Janceski" <[EMAIL PROTECTED]> To: "'Brett W. McCoy'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Thursday, February 28, 2002 8:32 AM Subject: RE: making phone calls using a perl modul

Re: making phone calls using a perl module

2002-02-28 Thread Papo Napolitano
Yes, I think you're wrong. Try this from a DOS box echo ATDT11 > com1 If you have your modem in com1 of course... ;) - Original Message - From: Tor Hildrum To: Papo Napolitano Sent: Thursday, February 28, 2002 11:53 Subject: Re: making phone calls using a

Re: [Going OT] Re: making phone calls using a perl module

2002-02-28 Thread Papo Napolitano
Heh, I was right ;) Check this: http://www.zoltrix.com/PUBLIC/MODEM/ATmanual/ATVROCK.HTM Quoting: 8.1.3. Voice Transmit Mode Voice Transmit Mode is entered when the DTE issues the #VTX command because it wants to transmit voice data. This mode is typically used when playing back greeting messag

Crypt::RSA / Math::Pari problem

2002-02-28 Thread Jon Molin
4Hi list, I've been trying to install Crypt::RSA for a couple of hours now and I've run out of ideas. perl Makefile.PL and make runs smoothly but make test shows this: PARI: *** precision loss in truncation at /usr/lib/perl5/site_perl/Crypt/Primes.pm line 580. on that line of Crypt::Prime

What's up with STDOUT in a function call?

2002-02-28 Thread Steven M. Klass
Hi all, Heres a simple one &PrintSummary ("STDOUT", /%runset); sub PrintSummary { $prtout = shift; print $prtout "This is a test" } Why doesn't this work? I get the error Can't use string ("STDOUT") as a symbol ref while "strict refs" is in use at foo.pl line 5. How can I get

Re: making phone calls using a perl module

2002-02-28 Thread Jenda Krynicky
From: Johnathan Kupferer <[EMAIL PROTECTED]> > I would also be interested if anyone knows how to do this. We have > several system monitors that would be much more efficient if they > could actually call us when there is a problem rather than just > sending email. > We have a

RE: What's up with STDOUT in a function call?

2002-02-28 Thread Nikola Janceski
you need to pass the reference to the glob type of a filehandle. \STDOUT isn't a ref (errors everywhere). \*STDOUT is. This will work: &PrintSummary (\*STDOUT); sub PrintSummary { $prtout = shift; print $prtout "This is a test" } -Original Message- From: Steven M. Klass [mailto:

Re: Regex...

2002-02-28 Thread zentara
On Wed, 27 Feb 2002 16:11:55 -0800, [EMAIL PROTECTED] (John W. Krahn) wrote: >Daniel Falkenberg wrote: >> Would this be the best way of going about this? If so where do I start > > >my $text = Pre-paid hours: 744 Hours

RE: Looping Code ?

2002-02-28 Thread Grant Hansen
Here is the entire code: What I am trying to do is change the default page length in format from 60 to what ever the page length is for the data I am reading. This way the header will print at the top of each file instead of at the beginning of each 60 line page, which is what it is currently do

pattern matching question

2002-02-28 Thread richard noel fell
I have the following bit of code: #!/usr/bin/perl -w open In2,"/home/rfell/tutoring/beaven/webproject/tmp/maxima_log" or die "Cannot open maxima_log:$!"; my $Line; while (defined($Line=)){ if($Line=~/(\(D\d+\))\s*(\w*)/){ print "==> $2\n"; }; }; #close In2; maxima_log is the following GCL (

RE: No access to /etc/protocols

2002-02-28 Thread Luke Bakken
On Thu, 28 Feb 2002, Paul Murphy wrote: > > This *is* my new ISP. I understand their stance, they work are working > from a standard security perspective. "Don't open it unless you need > to". This is an admirable stance, although misapplied in this case. > You always have to strike a balance

RE: No access to /etc/protocols

2002-02-28 Thread Paul Murphy
Thanks for the advice Luke, but I don't quite get what you are saying. If I copy the contents of /etc/protocols into my Perl script, then surely it will just fail to compile? Paul. >From: Luke Bakken Reply-To: [EMAIL PROTECTED] To: Paul Murphy CC: >[EMAIL PROTECTED] Subject: RE: No access t

PSA - unsubscribing from this list

2002-02-28 Thread Elaine -HFB- Ashton
PUBLIC SERVICE ANNOUNCEMENT - UNSUBSCRIBING FROM THIS LIST I've gotten about 20 requests at [EMAIL PROTECTED] asking to be unsusbscribed from these lists so let me say the following: listmast@ any domain is not going to reach the person you want or have the desired effect so lean in and read c

RE: What's up with STDOUT in a function call?

2002-02-28 Thread Wagner-David
I ran it as is and it worked for me under AS build 623. I do this in a number of scripts when I need to print to a file, etc. Wags ;) -Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 07:48 To: 'Steven M. Klass'; [EMAIL

Image Gallery

2002-02-28 Thread meyersac
I am designing and creating an image gallery for a class. I am having users upload images, but I need the ability resize these uploads, and save them, for the use in thumbnails, using ImageMagick (PERL) but I have no clue where to start. I am invisioning that this would be accomplished on the se

Searching for words in a specific location

2002-02-28 Thread Steven M. Klass
Hi all I want to create an array of names I don't yet know. Basically I have a text file that does this ..SUBCKT FOO blah blah blah blah ..ENDS ..SUBCKT BAR blah blah blah blah ..ENDS I want my array to capture FOO BAR I am not sure how to do this.. Thanks so much -- Steven

Re: Searching for words in a specific location

2002-02-28 Thread Jeff 'japhy' Pinyan
On Feb 28, Steven M. Klass said: >I want to create an array of names I don't yet know. Basically I have a >text file that does this > >.SUBCKT FOO blah blah >blah >blah >.ENDS > >.SUBCKT BAR blah blah >blah >blah >.ENDS > >I want my array to capture FOO BAR I'd suggest using "\n.ENDS\n" as yo

searching a large file

2002-02-28 Thread Hans Holtan
I am having a problem searching a large (600 mb) text file. What I need to do is find a match with a short bit of text and then look up to 200 characters forwards and backwards for other matches to different short bits of text. I tried reading the file to memory first and then doing the search

Re: Searching for words in a specific location

2002-02-28 Thread Jeff 'japhy' Pinyan
On Feb 28, Jeff 'japhy' Pinyan said: >And then extracting the first chunk of non-whitespace after ".SUBCKT": > > push @names, /^\.SUBCKT\s+(\S+)/; Sorry, that regex should have an /m modifier on it. push @names, /^\.SUBCKT\s+(\S+)/m; >} > } > close FILE; -- Jeff "japhy" Pinyan

Re: Image Gallery

2002-02-28 Thread Elaine -HFB- Ashton
meyersac [[EMAIL PROTECTED]] quoth: *>I am designing and creating an image gallery for a class. I *>am having users upload images, but I need the ability resize *>these uploads, and save them, for the use in thumbnails, *>using ImageMagick (PERL) but I have no clue where to start. *>I am invisio

RE: No access to /etc/protocols

2002-02-28 Thread Luke Bakken
OK ok I should have expounded! I would set up a hash from the files contents with the name as the key and the value as the number! On Thu, 28 Feb 2002, Paul Murphy wrote: > > Thanks for the advice Luke, but I don't quite get what you are saying. > > If I copy the contents of /etc/protocols into

Re: pattern matching question

2002-02-28 Thread bob ackerman
On Thursday, February 28, 2002, at 08:37 AM, richard noel fell wrote: > while (defined($Line=)){ > if($Line=~/(\(D\d+\))\s*(\w*)/){ > print "==> $2\n"; > }; > }; > disclaimer: i am a rank newbot if i replace '/w*' with '.*$' i get desired text. looks like \w* doesn't do what we expect. probl

RE: How to print firstly Raport page ,and after data from input file

2002-02-28 Thread Mark Anderson
I'll help what I can. You need to store the input and not print it out until after you've printed out your raport. I'm not sure what you are doing, so I haven't tried to fix anything except the printing of the report. If this code is going to be in use for a while, it would be good for you to ad

Re: searching a large file

2002-02-28 Thread Agustin Rivera
How about something like this... open(IN, "hogfile.txt") or die $!; while() { $oldestline=$line; $line=$newestline; $newestline=$_; if ($line =~ "terms you want") { ## process oldestline and newestline for more matches } } Agustin Rivera Webmaster, Pollstar.com

RE: searching a large file

2002-02-28 Thread Nikola Janceski
you could always use seek and tell also. A little more difficult to code but better at looking around the file. You can move forward and backward with seek. -Original Message- From: Agustin Rivera [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 12:35 PM To: [EMAIL PROTECTED];

RE: searching a large file

2002-02-28 Thread Mark Anderson
I would suggest using something like the following, where INFILE is the filehandle of your textfile: my $NewLine = ""; my $TheLine = ""; #read in 500 characters from INFILE until INFILE is exhausted while (read(INFILE,$NewLine,500)) { # concat $NewLine to the end of the existing $TheLine

Re: searching a large file

2002-02-28 Thread Curtis Poe
--- Hans Holtan <[EMAIL PROTECTED]> wrote: > I am having a problem searching a large (600 mb) text file. What I > need to do is find a match with a short bit of text and then look up > to 200 characters forwards and backwards for other matches to > different short bits of text. I tried reading

RE: searching a large file

2002-02-28 Thread Nikola Janceski
I still like Mark Anderson's way... you can use a pattern to match across multiple lines. ie /some crap\ncrap on the next line\nand more crap/s; -Original Message- From: Curtis Poe [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 1:09 PM To: Hans Holtan; [EMAIL PROTECTED] Sub

RE: pattern matching question

2002-02-28 Thread Jason Larson
-Original Message- From: richard noel fell [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 10:38 AM To: [EMAIL PROTECTED] Subject: pattern matching question I have the following bit of code: #!/usr/bin/perl -w open In2,"/home/rfell/tutoring/beaven/webproject/tmp/maxima_log" o

Re: Searching for words in a specific location

2002-02-28 Thread Steven M. Klass
Hi all, That only seems to grab the first one. I also have comments(denoted by * foobar) and white space lines, and other .BAR where .BAR is any number of things I want to ignore. sub GetSchCellName { my ($SchCell, $strName, @SchCells, %seen); my $SchDesign = $_[0]; print ".. Examinin

RE: pattern matching question

2002-02-28 Thread Jason Larson
-Original Message- From: bob ackerman [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 11:32 AM To: richard noel fell Cc: [EMAIL PROTECTED] Subject: Re: pattern matching question On Thursday, February 28, 2002, at 08:37 AM, richard noel fell wrote: > while (defined($Line=)){

Re: What's up with STDOUT in a function call?

2002-02-28 Thread Brett W. McCoy
On Thu, 28 Feb 2002, Steven M. Klass wrote: > Heres a simple one > > &PrintSummary ("STDOUT", /%runset); > > sub PrintSummary { >$prtout = shift; >print $prtout "This is a test" > } > > Why doesn't this work? STDOUT is a filehandle, and has to be handled differently. The safest wa

Re: Regex...

2002-02-28 Thread John W. Krahn
Zentara wrote: > > On Wed, 27 Feb 2002 16:11:55 -0800, [EMAIL PROTECTED] (John W. Krahn) wrote: > > > >my $text = < >User data query User data query Time utilization for this billing period > >Pre-paid hours: 744 Hours used so far: 29.55 Excess hours billed at: > >$1.00 per hour Traffic util

ftp module

2002-02-28 Thread Lyon, Justin
I was reading in the O'Reilly Advanced Perl Programming book, and it told of a Net::FTP module... but I can't find it on my Solaris 8 system... has it been deprecated, and if so, does anyone know the latest stuff to use for that? Thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addition

In line editing? Streaming through perl directly into anotherapp?

2002-02-28 Thread Steven M. Klass
Hi all Ok, my tool is comming along nicely, but here is where I am stuck at. I currently am opening a file and reading the contents. Then I open a second file, where I put my modification to the first file. Then this file is fed to the destination tool. I think this is a BIT redunda

RE: ftp module

2002-02-28 Thread Wagner-David
I believe it is part of the libnet, but usually comes as part of the base Perl install. If wrong the Perl gurus will let us know. Wags ;) -Original Message- From: Lyon, Justin [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 12:09 To: '[EMAIL PROTECTED]' Subject: ftp

net::telnet and ActivePerl

2002-02-28 Thread Craig Williams
Running ActivePerl 5.6.1 and using the net::telnet module i get the following error: Argument "" isn't numeric in numeric gt (>) at C:/Perl/lib/Net/Telnet.pm line 2569. The script generating this is : #!perl -w use Net::Telnet; $telnet = new Net::Telnet ( Timeout=>10,

Problem : @INC

2002-02-28 Thread Sailaja Gudipati
Hi All, Please find below the error, when I am executing a simple script which tries to use a package as follows: use use Getopt::Long; Error :: Can't locate File/Basename.pm in @INC at DirPath.pl line 1. BEGIN failed--compilation aborted at DirPath.pl line 1. Can some body throw some light an

Re: Problem : @INC

2002-02-28 Thread Joseph Bajin
Hello, You have to make sure that File/Basename.pmis somewhere that the perl knows how to get to. It can't find that PM. So your path might be messed up. [EMAIL PROTECTED] wrote: >Hi All, > >Please find below the error, when I am executing a >simple script which tries to use a pa

network file directories and directory names with spaces

2002-02-28 Thread Eric Peers
Based on a lack of replies to my post of yesterday, I'm assuming that perl running on a Windows machine can not access a Windows directory with spaces in the directory path (i.e. D:\scripts\perl script files\). I've been given permission to change the spaces to underscores, so for the moment that

RE: network file directories and directory names with spaces

2002-02-28 Thread Timothy Johnson
Perl CAN access windows directories with spaces in the directory path. You can test it out like this: opendir(DIR,"testmachine\\c\$\\program files"); my @files = readdir(DIR); print @files; I'm afraid I can't help you too much with your code, however, because I know next to nothing about C

RE: network file directories and directory names with spaces

2002-02-28 Thread Eric Peers
Hmmm, no I haven't. And so obvious! Will give it a try shortly. Eric -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: making phone calls using a perl module

2002-02-28 Thread Balint, Jess
I don't know about with a voice modem, but the folks over at Asterisk PBX, www.asterisk.org had released an FXO (foreign exchange office) PCI card called the X100P that supports 1 POTS (plain old telephone service) line. I know most of their coding is done in C, but there is probably some way to l

RE: network file directories and directory names with spaces

2002-02-28 Thread Stout, Joel R
again with all the backslashes... This works on windows: opendir(DIR,"C:/program files"); my @files = readdir(DIR); print @files; J:) > -Original Message- > From: Timothy Johnson [mailto:[EMAIL PROTECTED]] > Sent: Thursday, February 28, 2002 12:58 PM > To: 'Eric Peers'; [EMAIL PROTECTE

RE: network file directories and directory names with spaces

2002-02-28 Thread Timothy Johnson
Oh, sure, if you actually want to READ it later... :} -Original Message- From: Stout, Joel R [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 1:22 PM To: 'Timothy Johnson'; 'Eric Peers'; [EMAIL PROTECTED] Subject: RE: network file directories and directory names with spaces

Re: network file directories and directory names with spaces

2002-02-28 Thread Jenda Krynicky
From: "Eric Peers" <[EMAIL PROTECTED]> > Based on a lack of replies to my post of yesterday, I'm assuming that > perl running on a Windows machine can not access a Windows directory > with spaces in the directory path (i.e. D:\scripts\perl script > files\). Based on lack of i

Re: Does Perl have "Case" Statements?

2002-02-28 Thread Michael Kelly
On 2/28/02 1:41 PM, Chris <[EMAIL PROTECTED]> wrote: > I have been looking in the Learning Perl book, and cannot find it. > > I am sure that it is just a terminology thing. > > In VB {Yeah the old VB again :P) I could do: > > Select Case $Junk > Case 1 > Do Something > Case 2 > Do Something >

Re: Does Perl have "Case" Statements?

2002-02-28 Thread John W. Krahn
Chris wrote: > > I have been looking in the Learning Perl book, and cannot find it. > I am sure that it is just a terminology thing. > In VB {Yeah the old VB again :P) I could do: > > Select Case $Junk > Case 1 > Do Something > Case 2 > Do Something > Case 3 >

perl serial port program

2002-02-28 Thread Jeff Liu
Hi there, I need to cook a perl script talking to /dev/ttyS0, it will be used to monitor a RAID device via serial port. But even spending the whole day I was still not lucky enough to be successful. Could you please show me a way to deal with it? Many thanks, Jeff Liu -- To unsubscribe, e-ma

Re : Problem : @INC

2002-02-28 Thread Sailaja Gudipati
Hi, I looked at the path and it is showing correctly (C:\Perl\Bin). Next, even some times, the error is mentioning that it is trying to find the packages at C:\Perl\lib or C:\Perl\sites\lib. Still, the problem/error persists. Any help is appreciated. Thanks Sudarsan _

RE: Re : Problem : @INC

2002-02-28 Thread Timothy Johnson
If you are using ActiveState, then most modules should be installed at \(perldirectory)\site\lib -Original Message- From: Sailaja Gudipati [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 2:15 PM To: [EMAIL PROTECTED] Subject: Re : Problem : @INC Hi, I looked at the path

Re: perl serial port program

2002-02-28 Thread Papo Napolitano
I'm using the Device::SerialPort to monitor the logs from our Panasonic phone system ;) Take a look at CPAN. It's as easy as: use Device::SerialPort; $port = new Device::SerialPort("/dev/ttyS0"); $port->baudrate(9600); $port->parity("none"); $port->databits(8); $port->stopbits(1); $port->handsha

Re: ftp module

2002-02-28 Thread Elaine -HFB- Ashton
Wagner-David [[EMAIL PROTECTED]] quoth: *> I believe it is part of the libnet, but usually comes as part of the base Perl install. If wrong the Perl gurus will let us know. libnet is not part of the core perl package and will not be until perl 5.8.0 http://search.cpan.org/search?dist=libn

Re: Image Gallery

2002-02-28 Thread Randal L. Schwartz
> "Elaine" == Elaine -Hfb- Ashton <[EMAIL PROTECTED]> writes: Elaine> http://www.stonehenge.com/merlyn/WebTechniques/col29.html for thumbnails Elaine> http://www.stonehenge.com/merlyn/WebTechniques/col33.html for web gallery Elaine> As much as I hate to give Randal's ego any more help, after

Re: In line editing? Streaming through perl directly into another app?

2002-02-28 Thread Randal L. Schwartz
> "Steven" == Steven M Klass <[EMAIL PROTECTED]> writes: Steven> Open file open FILE, " Start tool open TOOL, "|my_tool with params here" or die; Steven> Read line by line, edit as neccessary while () { s/this/that/; Steven> Feed line by line my data into the tool print TOOL $_; }

Re: Image Gallery

2002-02-28 Thread Elaine -HFB- Ashton
Randal L. Schwartz [[EMAIL PROTECTED]] quoth: *> *>On my near-term todo list is to re-write that little image handler to *>get the descriptions from a database and to display the data using *>Template Toolkit for much greater flexibility. People keep wanting *>"next 5"/"next 20"/"all" buttons, an

Re: Question about EXE Versions...

2002-02-28 Thread Jenda Krynicky
From: Chris <[EMAIL PROTECTED]> > Is there an easy way to get the version of an EXE with > Perl? > > I know in VB I would just create a hook into an API, but > am not sure how to do it in Perl. Win32::AdminMisc contains a function for this I believe. Or you could create a hoo

Question about EXE Versions...

2002-02-28 Thread Chris
Is there an easy way to get the version of an EXE with Perl? I know in VB I would just create a hook into an API, but am not sure how to do it in Perl. TIA! Chris Anderson -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Question about EXE Versions...

2002-02-28 Thread Chris
Jenda Krynicky wrote: > From: Chris <[EMAIL PROTECTED]> > >>Is there an easy way to get the version of an EXE with >>Perl? >> >>I know in VB I would just create a hook into an API, but >>am not sure how to do it in Perl. >> > > Win32::AdminMisc contains a function for this I beli

Does Perl have "Case" Statements?

2002-02-28 Thread Chris
I have been looking in the Learning Perl book, and cannot find it. I am sure that it is just a terminology thing. In VB {Yeah the old VB again :P) I could do: Select Case $Junk Case 1 Do Something Case 2 Do Something Case 3 Do Something Case 4

Re: Does Perl have "Case" Statements?

2002-02-28 Thread Brett W. McCoy
On Thu, 28 Feb 2002, Chris wrote: > I have been looking in the Learning Perl book, and cannot find it. There isn't a syntactical element in Perl to do case statements (aka switch in C/C++ & Java). However, they can be done in a variety of ways: use the Switch.pm module or use the aliasing for

Re: Does Perl have "Case" Statements?

2002-02-28 Thread Jenda Krynicky
From: Chris <[EMAIL PROTECTED]> > I have been looking in the Learning Perl book, and cannot find it. > > I am sure that it is just a terminology thing. > > In VB {Yeah the old VB again :P) I could do: > > Select Case $Junk > Case 1 > Do Something > Case 2 > Do Somethi

Re: Does Perl have "Case" Statements?

2002-02-28 Thread Brett W. McCoy
> On Thu, 28 Feb 2002, Chris wrote: > > > I have been looking in the Learning Perl book, and cannot find it. > > There isn't a syntactical element in Perl to do case statements (aka > switch in C/C++ & Java). However, they can be done in a variety of ways: I forgot to add that there is also a FA

Re: Does Perl have "Case" Statements?

2002-02-28 Thread Chris
Jenda Krynicky wrote: > From: Chris <[EMAIL PROTECTED]> > >>I have been looking in the Learning Perl book, and cannot find it. >> >>I am sure that it is just a terminology thing. >> >>In VB {Yeah the old VB again :P) I could do: >> >>Select Case $Junk >> Case 1 >>Do Something >> C

Re: Does Perl have "Case" Statements?

2002-02-28 Thread sachin balsekar
Hi, Perl as such doesnt have support case structures u cud try using block which is almost similar to case struct.. A BLOCK by itself (labeled or not) is semantically equivalent to a loop that executes once. Thus you can use any of the loop control statements in it to leave or restart the

Write statement ?

2002-02-28 Thread slhgkh5
Does the write statement call the format statement each time it writes when used in a while loop or does it only call it once and hold it in memory? What I am trying to do is change the page length each time the write statement writes to a file, but it does not appear to be working quite rig

RE: Write statement ?

2002-02-28 Thread Timothy Johnson
any chance you could post part of your code? -Original Message- From: [EMAIL PROTECTED] To: Perl Beg Sent: 2/28/02 8:23 PM Subject: Write statement ? Does the write statement call the format statement each time it writes when used in a while loop or does it only call it once and hold

problems after upgraded perl

2002-02-28 Thread Chan, Raymond
Dear All, I have installed perl 5.004, DBI and MySQL-DBD on a Linux server. All the web-based MySQL systems are running properly. Since I have to develop web-based oracle system, I need to install oracle-DBD. But when I tried to install oracle-DBD, it said that I need to have newer version of

Chaning case

2002-02-28 Thread Daniel Falkenberg
G'day All, Quick question I want to be able to change all folders in a directory to lower case? Does any one know how I could do this using Perl? Would I go something like this? system('lc *'); well something like that... :) Regards, Dan == -- To unsubscribe,

Re: Chaning case

2002-02-28 Thread Michael Kelly
On 2/28/02 9:33 PM, Daniel Falkenberg <[EMAIL PROTECTED]> wrote: > G'day All, > > Quick question I want to be able to change all folders in a directory to > lower case? Does any one know how I could do this using Perl? > > Would I go something like this? > > system('lc *'); > > well somethin

How can I distrubit a Perl execute envrioment

2002-02-28 Thread Ricky
I program a perl Tk program to access MySQL database. The distribution I use is Active Perl. When I work with my program, I use Active State Perl's PPM download DBI, PerlTK and MySQL DBD. Now I want to make this program working on other computer which can't access internet. How can I distribute my

RE: How can I distrubit a Perl execute envrioment

2002-02-28 Thread Timothy Johnson
You have a couple of options. You can use PerlApp or Perl2exe to create an executable package that includes your script, the interpreter, and all required modules if all you need to run is that script. If you want to make sure that the second computer can run all of your future scripts, then y

RE: Re : Problem : @INC

2002-02-28 Thread Sailaja Gudipati
I think the modules are installed at the said path only. Next, atleast how to set @INC? or otherwise, how do I specify that the modules are in a particular path. Thanks Sailaja --- Timothy Johnson <[EMAIL PROTECTED]> wrote: > > If you are using ActiveState, then most modules > should be instal

RE: Chaning case

2002-02-28 Thread Timothy Johnson
The current directory notation in Windows is also ".", but I'd be interested to see if Windows will let you do it that way, since to the OS "MyDir", "MYDIR", and "mydir" are all the same name. If you are using Windows you might end up having to do it in two steps; one changing the name to a tem

Re: Crypt::RSA / Math::Pari problem [SOLVED]

2002-02-28 Thread Jon Molin
Jon Molin wrote: > > Hi list, > > I've been trying to install Crypt::RSA for a couple of hours now and > I've run out of ideas. > > perl Makefile.PL and make runs smoothly but make test shows this: > > PARI: *** precision loss in truncation at > /usr/lib/perl5/site_perl/Crypt/Primes.pm lin