STDIN Formating

2002-01-03 Thread Hubert Ian M. Tabug
Hello, Say I have I loop while () { print .. } Is there a way for me to format whatever values/text are in STDIN so that I can ju

EDIT one column in table

2002-01-03 Thread nafiseh saberi
hi dear team. happy new year.. I want to edit only one column in table in postgres with perl script and sql. do we have the function that set permission for only one column in table ? thx for your time. Sincerely yours Nafiseh Saberi People will forget wh

Re: STDIN Formating

2002-01-03 Thread Frank
On Sat, Dec 08, 2001 at 04:22:44PM +0800, Hubert wrote: > Hello, > Say I have I loop > while () > { > print .. > } > Is there a wa

RE: Detect redirected URL as originally 404

2002-01-03 Thread Gary Hawkins
Resorted to overriding it with this line which causes $response-> code to be the first one: sub LWP::UserAgent::redirect_ok { 0 }; The only problem is the complaint while using -w. Somebody referred to that as a "nasty hack", others agreed. But it works. Instead of 200 OK on the redirected pa

Re: compare between two Associative Arrays

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Nisim, Amit said: >I need to compare between two Associative Arrays >How can I do it ? In what way(s) do you want to compare them? To see if they have the same keys? Same keys and values? -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia bro

RE: compare between two Associative Arrays

2002-01-03 Thread Bob Showalter
> -Original Message- > From: Nisim, Amit [mailto:[EMAIL PROTECTED]] > Sent: Thursday, January 03, 2002 2:52 AM > To: [EMAIL PROTECTED] > Subject: compare between two Associative Arrays > > > Hi All, > > I need to compare between two Associative Arrays > How can I do it ? > > Is there a

Squeezing a list

2002-01-03 Thread Busse, Rich
I have a list that contains some good data and some empty strings, like: ("Abiosdsk", "Afd", "", "", "", "Aha154x", "Aha174x", "aic78xx", "", "Alerter", "", "", "", "Always", ...) Is there a simple way to get rid of the empty strings and compress the list down to: ("Abiosdsk", "Afd", "Aha154x",

FW: Why can't this two programs be piping?

2002-01-03 Thread Mariana Añez
Do you mean I should use name pipes (using open function)? -Original Message- From: Matthew Lyon [mailto:[EMAIL PROTECTED]] Sent: Wednesday, January 02, 2002 3:53 PM To: John W. Krahn Cc: [EMAIL PROTECTED] Subject: Re: Why can't this two programs be piping? This goes beyond the scope o

explanation for *subroutine notation?

2002-01-03 Thread KAVANAGH, Michael
Hi there I've been re-working some code from another developer and I came across a line that has me stumped. I can't find an explanation in Programming Perl, but it's probably because I don't know what to look for. The line is: *random_subroutine_name = sub ( ) { 1 }; Is there a name for this k

Re: compare between two Associative Arrays

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Jeff 'japhy' Pinyan said: >On Jan 3, Nisim, Amit said: > >>I need to compare between two Associative Arrays >>How can I do it ? > >In what way(s) do you want to compare them? To see if they have the same >keys? Same keys and values? For comparing keys and values of two hashes: # a

Grep Help - Files - Leading Zeros ??

2002-01-03 Thread Jon Shoberg
The leading zero in some file names have been a pain in my side. They're dated in YMD.log format such as 010623.log (2001/June/23rd) 011212.log (2001/December/12th) Any suggestions on modding the block of code below so I can "print join" all of the year 01 files from 06 to 12 ? Its that

RE: Squeezing a list

2002-01-03 Thread Joshua Colson
For the sake of argument we'll assume that you've assigned your list to an array named @LIST. Try this. @NEWLIST = grep(!/^$/, @LIST); # Grep the list for any element that is not empty. Now @NEWLIST should only contain those entries that have some content to them. Hope this helps. -Origina

Re: Squeezing a list

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Busse, Rich said: >("Abiosdsk", "Afd", "", "", "", "Aha154x", "Aha174x", "aic78xx", "", >"Alerter", "", "", "", "Always", ...) > >Is there a simple way to get rid of the empty strings and compress the list >down to: > >("Abiosdsk", "Afd", "Aha154x", "Aha174x", "aic78xx", "Alerter", "Alw

remove spaces before and after . . . howdoi?

2002-01-03 Thread Booher Timothy B 1stLt AFRL/MNAC
o.k. my program finally works (thanks for the help yesterday) . . . but I am convinced I am doing this the long way . . . I am sure there is a more elegant solution (prob a one-liner). Any thoughts . . . thanks, tim #!/usr/bin/perl -w # This program is just to test my ability to parse open(MYF

Re: Grep Help - Files - Leading Zeros ??

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Jon Shoberg said: >print join("\n", grep(/^010[6-9]/i, @FILES)), "\n"; Your regex can be: /^01(0[6-9]|1[0-2])/ you don't need the /i modifier, since digits aren't subject to case sensitivity. -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acac

socket connection timeout problem

2002-01-03 Thread Jeff Liu
Happy new year to all. I am a new subscriber and wonder if you can give me a hand. I am using perl 5.004-05 and want to write a perl script to connect smtp server, somehow my script get stuck when connect one or two servers. I am using perl function as below, $socket = IO::Socket::INET->new(Pee

Re: remove spaces before and after . . . howdoi?

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Booher Timothy B 1stLt AFRL/MNAC said: >while (){ >$line = $_; Why use $line here when you can use $_ instead? >chomp($line); >next if $line =~ (/^\*+/)|(/^\s*$/); # no blank lines or lines that That is still busted. Pick one of these: next if $line =~ /^\*/ or $li

RE: remove spaces before and after . . . howdoi?

2002-01-03 Thread McCollum, Frank
>while (){ >$line = $_; >chomp($line); This can be shortened a few ways. i.e. chomp ($line = $_); There is probably a better way to get rid of the whitespace, but the only one that comes to mind is: s/^s+|s+$//; #replace any leading or ("|") trailing whitespace. -Frank -Original

RE: remove spaces before and after . . . howdoi?

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, McCollum, Frank said: >There is probably a better way to get rid of the whitespace, but the only >one that comes to mind is: > >s/^s+|s+$//; #replace any leading or ("|") trailing whitespace. First, that needs to be s/^\s+|\s+$//g. You forgot the \'s as well as the /g modifier. Secon

RE: remove spaces before and after (thanks)

2002-01-03 Thread Booher Timothy B 1stLt AFRL/MNAC
Thanks so much, but I am still confused on one point. I have: next if $line =~ (/^\*+/)|(/^\s*$/); and it seems to work, but you say: next if $line =~ /^(\*|\s*$)/; wouldn't this only find one "*" that the line starts with. i.e. * foo foo would both be skipped, what a

Re: FW: Why can't this two programs be piping?

2002-01-03 Thread Matthew Lyon
no. I'm not saying anything. I tend to like naming thnigs, however for clarity of thought. On Thu, 3 Jan 2002, Mariana Añez wrote: > > Do you mean I should use name pipes (using open function)? > > -Original Message- > From: Matthew Lyon [mailto:[EMAIL PROTECTED]] > Sent: Wednesday,

RE: remove spaces before and after (thanks)

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Booher Timothy B 1stLt AFRL/MNAC said: >next if $line =~ (/^\*+/)|(/^\s*$/); Wow. The reason that appears to work is a bizarre one indeed. while () { $line = $_; next if $line =~ (/foo/) | (/bar/); # ... } That code is the as while () { $line = $_; next if

Re: Squeezing a list

2002-01-03 Thread Matthew Lyon
wait! how does this grep trickery work? where's the circuitry? On Thu, 3 Jan 2002, Jeff 'japhy' Pinyan wrote: > On Jan 3, Busse, Rich said: > > >("Abiosdsk", "Afd", "", "", "", "Aha154x", "Aha174x", "aic78xx", "", > >"Alerter", "", "", "", "Always", ...) > > > >Is there a simple way to get rid

Re: Squeezing a list

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Matthew Lyon said: >On Thu, 3 Jan 2002, Jeff 'japhy' Pinyan wrote: > >> I'd use grep(): >> >> @compressed = grep length, @array; >> >> That only allows elements with a non-zero length to get through. > >wait! how does this grep trickery work? where's the circuitry? Uh... it's what

Re: remove spaces before and after (thanks)

2002-01-03 Thread Shawn
Hey Jeff, Off the of your head, do you have any idea how much '$line=$_' slows the script down since you are now performing 2 separate regex's? Or does it in fact speed it up? Shawn > while () { > $line = $_; > next if $line =~ (/foo/) | (/bar/); > # ... > } -- To unsubsc

Re: remove spaces before and after (thanks)

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Shawn said: > Off the of your head, do you have any idea how much '$line=$_' slows >the script down since you are now performing 2 separate regex's? Or >does it in fact speed it up? You should probably be using two regexes, since that's the most clear. The fact that you have two str

Re: Squeezing a list...

2002-01-03 Thread Matthew Lyon
Yes, I know what grep does... sorry. I was missing some of the programming compactness stuff... On Thu, 3 Jan 2002, Jeff 'japhy' Pinyan wrote: > On Jan 3, Matthew Lyon said: > > >On Thu, 3 Jan 2002, Jeff 'japhy' Pinyan wrote: > > > >> I'd use grep(): > >> > >> @compressed = grep length, @ar

cycle through buffer

2002-01-03 Thread Booher Timothy B 1stLt AFRL/MNAC
Why can't I do something like this? Load everything to a buffer then cycle through the buffer? Thanks, tim #!/usr/bin/perl -w open(MYFILE,'test2.txt'); while () { $buffer .= $_; } $lnum = 1; while ($buffer) { chomp; next if /^\*+/ or /^\s*$/; my ($field, $value) = split /\s*:\s

Re: cycle through buffer

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Booher Timothy B 1stLt AFRL/MNAC said: >Why can't I do something like this? Load everything to a buffer then cycle >through the buffer? Why would you want to? That requires you to store the ENTIRE file in memory! >#!/usr/bin/perl -w >open(MYFILE,'test2.txt'); >while () { >$buffer

Re: cycle through buffer

2002-01-03 Thread Shawn
Uh, you can... use strict; open(MYFILE,'test2.txt') or die "Can't open test2.txt: $!\n"; my @buffer=; close(MYFILE); for(@buffer) { chomp; But, be aware that if the file is of any size, you can run out of memory very fast and bog the system down... Why don't you just want to iterate

FW: question -- beginner's programmer's block (your answer)

2002-01-03 Thread Booher Timothy B 1stLt AFRL/MNAC
I hope this serves as an answer . . . The original file is of this form: * foo *** thingA: 12 thingB: 23 thingC: 21 trial 1 colAcolBcolCcolD 1 23 28 273 227

A Model for Perl-driven HTML/WML/XML Front-Ends???

2002-01-03 Thread David Simcik
Hello out there! I am currently trying to piece together a personal site for myself using Perl, MySQL, and Apache (alas, no mod_perl yet). I would like to seamlessly deliver content to both HTML and WML browsers, perhaps even going as far as deploying SOAP or XML-RPC as well (the differenc

Re: FW: question -- beginner's programmer's block (your answer)

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, Booher Timothy B 1stLt AFRL/MNAC said: >I hope this serves as an answer . . . Ok, I see. Then in your case, you'd probably want to do something like: for (split /\n/, $buffer) { ($field, $value) = split /\s*:\s+/; $field =~ s/^\s+//; $value =~ s/\s+$//; # do whateve

Re: explanation for *subroutine notation?

2002-01-03 Thread Jeff 'japhy' Pinyan
On Jan 3, KAVANAGH, Michael said: >*random_subroutine_name = sub ( ) { 1 }; > >Is there a name for this kind of operation? Typeglob assignment? Basically, you're assigning a code reference to a typeglob, which makes &random_subroutine_name be that function. Compare that with: *x = [1,2,3];

Re: question -- beginner's programmer's block (your answer)

2002-01-03 Thread Shawn
Would this not work for you? This way you would only have a portion of the file in memory... Shawn # UNTESTED use strict; open(FILE,'some_file.txt') or die "Can't open some_file.txt: $!\n"; my $state = 0; my $buffer = "; while () { $buffer.=$_; if (/^\*+/) { # this is the *** line dis

Re: A Model for Perl-driven HTML/WML/XML Front-Ends???

2002-01-03 Thread Adam Turoff
On Thu, Jan 03, 2002 at 10:51:15AM -0500, David Simcik wrote: > I am currently trying to piece together a personal site for myself using > Perl, MySQL, and Apache (alas, no mod_perl yet). I would like to seamlessly > deliver content to both HTML and WML browsers, perhaps even going as far as > dep

Re: Squeezing a list

2002-01-03 Thread Michael R. Wolf
Joshua Colson <[EMAIL PROTECTED]> writes: > @NEWLIST = grep(!/^$/, @LIST); Is there a reason you're using UPPER CASE? It's not *wrong*, it's just more perl-ish style to use lower case. @newlist = grep(!/^$/, @list); And it lets your Shift key last longer :-) -- Michael R. Wolf All

Weekly list FAQ posting

2002-01-03 Thread casey
NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to <[EMAIL PROTECTED]> You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address)

lexically scoped variables [was: use strict... and my auto-increment don't increase]

2002-01-03 Thread Michael R. Wolf
"Leon" <[EMAIL PROTECTED]> writes: > - Original Message - > From: "Oliver Manickum" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > > When you use the 'my' operator, you define your variable, > > resetting any data that was in it. Actually, you "declare" a new variable, which may or may

Re: Newbie - #include virtual in my .SHTML file just displays the contents of the CGI

2002-01-03 Thread Roger Peters
is disabled in IIS5 for security resons if it is left on it CAN be POSIBLE to format your sever from milisous code. or something like that for more infor look at http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q203064 and http://support.microsoft.com/default.aspx?scid=kb;en-us;Q233969

How to make selection

2002-01-03 Thread WANG, SHIPING [AG/1000]
Hi all, Normally if you want to set condition to select data, do if...and elsif...(or othet ways). However in my case if I want to only select one product from each customer based on their category in an order of B, C, A and D, how can I do that? Here is sample data: __DATA__ Customer ID:

Hello make tabled form

2002-01-03 Thread Naeemah Small
I am creating a table form. The reason why, is because I want it to be neat. I am using CGI.pm This is my first time making a form in perl. How do I do it. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Super Minimal Perl Win32 installation?

2002-01-03 Thread Mark Woodson
Is there an incredibly small installation for Win32? I've looked at the precompiled binaries listed and they are all a lot bigger than I need for my purpose. Which is rather small and simple. VPN's in Windows are tricky sorts of things, and split tunneling with them is a royal pain requiring

Re: Hello make tabled form

2002-01-03 Thread Christopher Solomon
On Thu, 3 Jan 2002, Naeemah Small wrote: > I am creating a table form. > The reason why, is because I want it to be neat. > I am using CGI.pm > > This is my first time making a form in perl. > How do I do it. read all about it with the command: perldoc CGI or search the web-> http://www.googl

Re: Question for those familiar with imagemagick for perl

2002-01-03 Thread zentara
On Wed, 2 Jan 2002 14:59:48 EST, [EMAIL PROTECTED] wrote: >Thank you for the reply. However, I get a broken image >I cannot avoid problems with text, it's really weird. Maybe the problem is I >need a full path to the font? I even tried '@font.ttf'. Should I install >ghostscript and only rely on

How do I automate an HTML form submission?

2002-01-03 Thread Adriano Rodrigues Ferreira
Well, I have found the answer to this with perldoc -q html but I still don't know how to (1) fill the fields of a form in a existing web page, (2) and then submit it. I need more code, examples and explanations. Can someone give me a clue. Thanks, Adriano. -- To unsubscribe, e-ma

Best perl on windows?

2002-01-03 Thread coe smythe
i recently moved and have not gotten my linux box back up yet, as before i do i plan to make some hardware changes and what not, but that's beside the point. i do have a couple windows machines up, and was wondering what windows adaptation to perl works best, and what, if any, the major diffe

Perl installation problem

2002-01-03 Thread ROry O'Connor
I'm running perl 5.6.0 that was installed when i installed redhat 7.2. I tried to install a few extra modules with CPAN and it also tried to upgrade me to 5.6.1, but for some reason could not complete. I can't really tell what's going on, but some of my modules (like DBI) don't work and I can

RE: Best perl on windows?

2002-01-03 Thread Aaron Shurts
I use ActivePerl on Windows and it is fine. http://www.activeperl.com/Products/Download/Get.plex?id=ActivePerl It is basically the same as programming on Linux, however you have to know all the funny little Windows nuances, but the PERL syntax is the same. For example you can't do @my_array = `ca

RE: Best perl on windows?

2002-01-03 Thread Wagner-David
I use ActiveState and have for about 4 to 5 years. It seems work well. I have another machine which I do Perl on, but will do it first on the pc and then tweak with changes for my other machine. Except for how a directory or file is named, they work the same. I used MKS ToolKit at one

Check for a process

2002-01-03 Thread Rajeev Nalluri
Hi, Is there any perl command/module to check if a certain process is running or not in Windows NT/2000? I need to check for the existance of that process and then kill it thru a scheduled job. Thanks Rajeev -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL P

Re: How do I automate an HTML form submission?

2002-01-03 Thread Randal L. Schwartz
> "Adriano" == Adriano Rodrigues Ferreira <[EMAIL PROTECTED]> writes: Adriano> Well, I have found the answer to this with Adriano>perldoc -q html Adriano> but I still don't know how to Adriano> (1) fill the fields of a form in a existing web page, Adriano> (2) and then submit it. Ad

Check for a process

2002-01-03 Thread Rajeev Nalluri
Hi, Is there any perl command/module to check if a certain process is running or not in Windows NT/2000? I need to check for the existance of that process and then kill it thru a scheduled job. Thanks Rajeev -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAI

Happy New Yr Y2K+2 =) Spliting Question

2002-01-03 Thread Connie Chan
say, $a = "1234:4321;abcde;fghij::;klmno"; In case, I want $x = "1234" , $y = "4321", $data = "abcde;fghij::;klmno" Then I do in this way : @dataLine = split(/;/, $a); ($x, $y) = split (/:/, $dataLine[0]); $data = join(";", shift(@dataLine)); So I can get the result what I want... but, anybody

Re: Happy New Yr Y2K+2 =) Spliting Question

2002-01-03 Thread Casey West
On Jan 04, 2002 at 05:24 +0800, Connie Chan took the soap box and proclaimed: : say, $a = "1234:4321;abcde;fghij::;klmno"; : In case, I want $x = "1234" , $y = "4321", $data = "abcde;fghij::;klmno" : Then I do in this way : : : @dataLine = split(/;/, $a); : ($x, $y) = split (/:/, $dataLine[0]);

Re: Happy New Yr Y2K+2 =) Spliting Question

2002-01-03 Thread Curtis Poe
--- Connie Chan <[EMAIL PROTECTED]> wrote: > say, $a = "1234:4321;abcde;fghij::;klmno"; > In case, I want $x = "1234" , $y = "4321", $data = "abcde;fghij::;klmno" > Then I do in this way : > > @dataLine = split(/;/, $a); > ($x, $y) = split (/:/, $dataLine[0]); > $data = join(";", shift(@dataLine

RE: Happy New Yr Y2K+2 =) Spliting Question

2002-01-03 Thread Stout, Joel R
$a = "1234:4321;abcde;fghij::;klmno"; @dataLine = split(/;/, $a, 2); ($x, $y) = split (/:/, $dataLine[0]); print "x: $x\n"; print "y: $y\n"; print "rest: $dataLine[1]\n"; see split in perldoc perlfunc > -Original Message- > From: Curtis Poe [mailto:[EMAIL PROTECTED]] > Sent: Thursday,

Re: Hello make tabled form

2002-01-03 Thread Peter Scott
At 11:12 AM 1/3/02 -0700, Naeemah Small wrote: >I am creating a table form. >The reason why, is because I want it to be neat. >I am using CGI.pm > >This is my first time making a form in perl. >How do I do it. This type of question isn't very useful on this list; let me see if I can explain. It

Re: lexically scoped variables [was: use strict... and my auto-increment don't increase]

2002-01-03 Thread Peter Scott
At 06:30 PM 1/2/02 -0500, Michael R. Wolf wrote: > > 1), Members, please correct me if I've read Oliver wrongly. > > > > Normally if we declare a my $variable on a previous my $variable, the > > previous value is taken over by the latest value like this eg :- > > my $d = 100; > > my $d = 2; > > pr

Re: Hello make tabled form

2002-01-03 Thread Curtis Poe
--- Peter Scott <[EMAIL PROTECTED]> wrote: > At 11:12 AM 1/3/02 -0700, Naeemah Small wrote: > >I am creating a table form. > >The reason why, is because I want it to be neat. > >I am using CGI.pm > > > >This is my first time making a form in perl. > >How do I do it. > > You can't avoid the tutori

another easy question (actually 3)

2002-01-03 Thread Booher Timothy B 1stLt AFRL/MNAC
o.k. here is another one: I still have a text file I am trying to get into a csv line, for example: cheese olives beans carrots So I put this into an array like: my @headers = split /\s+/; But now I want to print this in csv format: "cheese","olives","

Re: Perl installation problem

2002-01-03 Thread Christopher Solomon
On Thu, 3 Jan 2002, ROry O'Connor wrote: > I'm running perl 5.6.0 that was installed when i installed redhat > 7.2. I tried to install a few extra modules with CPAN and it also > tried to upgrade me to 5.6.1, but for some reason could not > complete. I can't really tell what's going on, but som

Re: Question for those familiar with imagemagick for perl

2002-01-03 Thread Patricko
- Original Message - From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, January 02, 2002 12:59 PM Subject: Re: Question for those familiar with imagemagick for perl > Thank you for the reply. However, I get a broken image > I cannot avoid problems with text, it's really

Anyone have a cross-reference program?

2002-01-03 Thread Richard.C.1
I'm new to PERL and I've been given a program to analyze - and it's BIG. I need to change and add some variables. What might help me greatly is if I could obtain a crossreference program that would tell me where all the variables are defined and used. I could use a search in wordpad or etc. but a

Re: Check for a process

2002-01-03 Thread Dinakar Desai
Hello: NT Resource Kit provides a TLIST.EXE which dumps a list of running processes to a console window. Then you can parse that list and you can kill the process. If you need more info, please let me know. Dinakar Rajeev Nalluri wrote: > Hi, > Is there any perl command/module to check if a

RE: another easy question (actually 3)

2002-01-03 Thread SathishDuraisamy
I find that I get a zero-length field for $headers[0] and don't understand why. Trim the leading and trailing spaces, like this: s/^\s+|\s+$//g; Lastly, does /\s+/ mean 2 or more spaces or does it mean one or more spaces, '+' "means one or more"; '*' means "zero or more"; They are post-fix.

RE: another easy question (actually 3)

2002-01-03 Thread SathishDuraisamy
But now I want to print this in csv format: "cheese","olives","beans","carrots". > Be careful. The CSV formated line can get trickier if it > already contains a comma or a double-quote. For example, > the line > chee,se oli"ves beans carrots > should be translated to > "chee,se","oli""ves",b

Re: another easy question (actually 3)

2002-01-03 Thread Curtis Poe
--- Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]> wrote: > o.k. here is another one: > > I still have a text file I am trying to get into a csv line, for example: > > cheese olives beans carrots > > So I put this into an array like: > > my @heade

newbie question

2002-01-03 Thread Pam Derks
I've been trying to understand program 6.21 in the Perl Cookbook, which changes URLs to html links here's a snippet: #!/usr/bin/perl $urls = '{http|telnet|gopher|file|wais|ftp'); $ltrs = '\w'; $gunk = '/#~:.?+=&%!\-'; $punc = '.:?@\-'; $any = "${ltrs}${gunk}${punc}"; I understand what

RE: another easy question (actually 3)

2002-01-03 Thread SathishDuraisamy
Timothy, I'd use a proper module for something like this. CSV data can get tricky, so see if you can install Text::CSV_XS. Here's some sample code: use strict; use Text::CSV_XS; > Curtis, > I couldn't find this module in my standard PERL lib path. I guess I should get this from c

RE: newbie question

2002-01-03 Thread Nestor Dutko
${ltrs} is a variable that you declared earlier. It denotes \w, which is a reg expression for any word character (alpha-numeric). The ${gunk} is uses to represent any not understood character which was declared two lines before it. I assume that $any is used thereafter someplace to represent a re

Thank for the help

2002-01-03 Thread Naeemah Small
I want see if I can did it on my own. I just need ref. thank you -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: newbie question

2002-01-03 Thread Christopher Solomon
On Thu, 3 Jan 2002, Pam Derks wrote: > I've been trying to understand program 6.21 in the Perl Cookbook, which changes URLs >to html links > here's a snippet: > > #!/usr/bin/perl > > $urls = '{http|telnet|gopher|file|wais|ftp'); > $ltrs = '\w'; > $gunk = '/#~:.?+=&%!\-'; > $punc = '.:?@\-'

Re: Anyone have a cross-reference program?

2002-01-03 Thread Connie Chan
Heehee.. I don't know if this script will work or not, I just *think* it will work =) || if you just want to find a text editor which cap. to edit and search around multiple pgs. I recommand the cuteHTML, which come with CuteFTP if you are using windows. #

RE: another easy question (actually 3)

2002-01-03 Thread Booher Timothy B 1stLt AFRL/MNAC
I can't get your implementation to work . . . What about s/^\s+|\s+$//g ? shouldn't it be s/(^\s+)|(\s+$)//g ? And why the if in: $_ = "\"$_\"" if ( $_ =~ /[,"]/ ); aren't you trying to keep that trailing comma off - I don't see where you add the comma. Tim __

RE: another easy question (actually 3)

2002-01-03 Thread Curtis Poe
--- [EMAIL PROTECTED] wrote: > > Curtis, > > I couldn't find this module in my standard PERL lib path. I guess I > should get this from cpan.org. Right? > > [sathish] Yes. You can get it from the mirror http://theoryx5.uwinnipeg.ca/mod_perl/cpan-search?dist=Text-CSV_XS-0.23 Note that this i

Print / overwrite line

2002-01-03 Thread Gary Hawkins
How can I clear a line before replacing it? Am doing \r and overwriting, but sometimes the text that was there previously is longer than the new text. gary -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Print / overwrite line

2002-01-03 Thread SathishDuraisamy
I couldn't understand what you are trying to do. Could you please attach the portion of your PERL code? [sathish] > How can I clear a line before replacing it? > > Am doing \r and overwriting, but sometimes the text that was there previously > is longer than the new text. > > gary -- To unsub

Re: Perl installation problem

2002-01-03 Thread Christopher Solomon
On Thu, 3 Jan 2002, Christopher Solomon wrote: > On Thu, 3 Jan 2002, ROry O'Connor wrote: > > > I'm running perl 5.6.0 that was installed when i installed redhat > > 7.2. I tried to install a few extra modules with CPAN and it also > > tried to upgrade me to 5.6.1, but for some reason could not

Re: Print / overwrite line

2002-01-03 Thread John W. Krahn
Gary Hawkins wrote: > > How can I clear a line before replacing it? > > Am doing \r and overwriting, but sometimes the text that was there previously > is longer than the new text. Pad the shorter lines with spaces. For example: printf "\r%-20s", $something; John -- use Perl; program fulf

Re: How do I automate an HTML form submission?

2002-01-03 Thread Connie Chan
Yet, I still don't know how to use any module.. heehee.. but from the point of view of HTML, I can give some of my ideas... first, if you are trying to fill the form as some values you pre-setted or, as you wish and then send automatically, you can do the "fill in" job by using value=yo

Resume after die?

2002-01-03 Thread Richard J. Barbalace
I'm looking into ways to do resumptive exception handling in Perl. For example, I have something equivalent to: eval { # Code where an error may occur die "Here's an exception"; # Code where I want to resume after handling the exception pri

mailing list for Object Oriented Perl

2002-01-03 Thread Pradeep Sethi
Hi All, I was wondering, is there a mailing list dedicated to Obejct Oriented Perl ? Thanks Prad -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Resume after die?

2002-01-03 Thread Agustin Rivera
I'm not too sure I understand, but if you want to resume after calling die, then don't call die. Why not put print "Here's an exception". Or, determine if the error is fatal and set fatal=1, if not fatal=0. Then die if fatal=1; Agustin Rivera Webmaster, Pollstar.com http://www.pollstar.com

Dumb hash question.

2002-01-03 Thread Dean Theophilou
Hello: I was wondering...I want to create (and later modify) a share with Win32::NetResource module. My question is: does the SHAREINFO hash structure need to be completely filled in (or at least initialized) before I use it, or can I just use only the key/value pairs that will be set?

RE: Resume after die?

2002-01-03 Thread Dean Theophilou
You can also use "warn" rather than "die". Dean Theophilou Genisar -Original Message- From: Agustin Rivera [mailto:[EMAIL PROTECTED]] Sent: Thursday, January 03, 2002 5:48 PM To: [EMAIL PROTECTED]; Richard J. Barbalace Subject: Re: Resume after die? I'm not too sure I understand, but i

Re: mailing list for Object Oriented Perl

2002-01-03 Thread Casey West
On Jan 03, 2002 at 05:46 -0800, Pradeep Sethi took the soap box and proclaimed: : Hi All, : : I was wondering, is there a mailing list dedicated to Obejct Oriented Perl ? Well, the short answer is no. The long answer is, see if http://lists.perl.org has what you want. And a good answer is, why

Packages in CGI

2002-01-03 Thread K Old
Hello all, I have a few questions about using packages in CGI.  First, here is my situation.  I am creating a account management and billing set of scripts and want to modularize it.  I have most (if not all of the code) scattered among several .pl files and not necessarily in subroutines, b

regex

2002-01-03 Thread Lawrence Liew
Hi, I would like to match the following text (of different lines but standrad text) using regex. How can I do that? Status of this document This document is from an electronic database of legislation maintained by the Parliamentary Counsel’s Office of Western Australia. Disclaimer (a)no warr

Calling a perl script with a perl script

2002-01-03 Thread Hubert Ian M. Tabug
Hi, Given that I have a perl script main.pl, and I want main.pl to "use/call" the script testprog.pl, and store testprog.pl's output into a variable that can be used within main.pl. How do I go about doing it? Your help would be greatly appreciated. Thanks, Hubert

RE: Best perl on windows?

2002-01-03 Thread Gary Hawkins
> is basically the same as programming on Linux, however you have to know > all the funny little Windows nuances, but the PERL syntax is the same. > For example you can't do @my_array = `cat $filename` because cat doesn't > exist on a Windows box. Then what he left unsaid is you would do @my_arra