RE: quote problem and mysql

2005-07-15 Thread Bob Showalter
Andrew Kennard wrote: Hi all Done lots of googling but this simple thing still has me stumped The perl code to insert stuff into an mysql table is this my $Vals; for ( my $i=1;$i=32;$i++ ) { $Vals.='?,'; } Hmm, that seems like it would give you an extra comma at

RE: CGI.pm internals question

2005-07-14 Thread Bob Showalter
Scott R. Godin wrote: [snip] So if I were to say, override it thusly: package CGI; sub STORE { my $self = shift; my $tag = shift; my $vals = shift; #my @vals = index($vals,\0)!=-1 ? split(\0,$vals) : $vals; my @vals = @{$vals};

RE: CGI.pm internals question

2005-07-13 Thread Bob Showalter
Scott R. Godin wrote: under what circumstances is the CGI.pm's STORE autoloaded method called? is it used only when you assign values to the object, or is it only used when receiving values (or multi-values) from the webserver query? It is part of the tied hash interface returned by the

RE: initialize array of pointers to (0,0) arrays

2005-07-12 Thread Bob Showalter
Bryan R Harris wrote: Is it possible to easily initialize an array so that: $index[0] is a pointer to a new anonymous (?) array (0,0) $index[1] is a pointer to a new anonymous (?) array (0,0) ... $index[$#params] is a pointer to a new anonymous (?) array (0,0) I tried:

RE: perl on HP-UX

2005-07-11 Thread Bob Showalter
Ken Killer wrote: perl on HP-UX doesn't include the strict.pm into the core modules list? Can't locate strict.pm in @INC (@INC contains: /opt/perl5/lib/5.00502/PA-RISC1.1 /opt/perl5/lib/5.00502 /opt/perl5/lib/site_perl/5.005/PA-RISC1.1 /opt/perl5/lib/site_perl/5.005 . lib) at ./main.pl

RE: How to find out what are modules included in perl

2005-07-06 Thread Bob Showalter
Muthukumar wrote: Hi, How to find out the modules included in perl? To show the core modules included with a given Perl version: perldoc perlmodlib To show locally installed additional modules: perldoc perllocal -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands,

RE: A scope question

2005-07-05 Thread Bob Showalter
Andrew Kennard wrote: Hi all I've got the basic hang of scope of vars in Perl which is a bit different to other languages I've used. Having split a large program into packages I would like to use a global var across multiple packages. Perl does not seem to have a 'C' type 'extern'

RE: Active Perl Script to delete 4 hours old files on Windows

2005-06-13 Thread Bob Showalter
Asad wrote: All: I need to write a script to delete 4 hours old files and directories on Windows. I am planning to use Perl to accomplish this. I understand the -M would delete at least a day old files, but is there a way to delete 4 hours old files and directories. Thank you.

RE: References

2005-06-13 Thread Bob Showalter
radhika wrote: Hi, I am trying to create this data structure as below: $perl = [ { fname = 'Fred', lname = 'Flintstone', residence = 'Bedrock' }, { fname = 'Barney',

RE: References

2005-06-13 Thread Bob Showalter
radhika wrote: You could do it like this: while (@row = fetchrow_array()) { push @$perl, { TRADE_DATE = $row[0], TRADE_TIME = $row[1], FIRSTNAME = $row[2], LASTNAME= $row[3], EXCHANGE

RE: host id

2005-06-10 Thread Bob Showalter
Ryan Frantz wrote: For the purposes of this list, I shall always post intelligently as has been stated ... For continuity, I would suggest everyone does the same. Excellent suggestion. For those who would like to post replies in the preferred conversational style or inline style (or whatever

RE: host id

2005-06-10 Thread Bob Showalter
[EMAIL PROTECTED] wrote: Ryan Frantz wrote: Spot the flaw. Please get Outlook-QuoteFix. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response

RE: Help using one-liner and HTML::Entities to decode string?

2005-06-10 Thread Bob Showalter
KEVIN ZEMBOWER wrote: Can I use a perl one-liner and the module HTML::Entities to decode a string like this from the command line?: select%7Bsp%7D*%7Bsp%7Dfrom%7Bsp%7Dcore_links Those aren't HTML entities. It looks more like URI escaping It's the beginning of a very long SQL statement.

RE: perl question - unused variables

2005-06-08 Thread Bob Showalter
Troy S wrote: How can i automatically detect unused variables in Perl? i delcrae variables like: my $abc; but don't use $abc within the subroutine. how can i get perl to autmatically tell me that $abc is not being used (other than the declaration) Possibly use the output of

RE: Simple communication between VB and Perl

2005-06-07 Thread Bob Showalter
Daniel Kasak wrote: Hi all. I'm porting various database front-ends from Access to Gtk2-Perl, and I'd like a way of communicating between VB and Perl. I want to bring various forms into production as I finish them, so I'd like to be able to send a simple request from VB to Perl ( and it

RE: $p{Bryan}{age} = 31

2005-05-31 Thread Bob Showalter
Bryan R Harris wrote: Is there anything wrong with out of the blue making a statement like this: $p{Bryan}{age} = 31; That's fine, as long as $p{Bryan} doesn't exist or is already a hashref. See: http://c2.com/cgi/wiki?AutoVivification. For safety, be sure to use strict so you don't end

RE: :Oracle problems

2005-05-31 Thread Bob Showalter
[EMAIL PROTECTED] wrote: All, I am getting the following error while trying to use DBD::Oracle: DBD::Oracle::st execute failed: ORA-00900: invalid SQL statement (DBD ERROR: OCIStmtExecute) [for Statement describe ALL_USERS] at ./oracleTest.pl line 69. DESCRIBE is a SQL*Plus command. It

Re: please help me to check why this perl script does not work!

2005-05-29 Thread Bob Showalter
Fei Li wrote: I wish to submit some protein sequences via LWP:UserAgent to the http://www.cbs.dtu.dk/services/ChloroP/ The error message is given as follows: HTMLHEADTITLEWebface Error/TITLE/HEADfont color=redh1Webface Error: /h1h4 Read: Field not declared; 'seqpaste'/h4 br /font/HTML

Re: count rows without count(*)

2005-05-28 Thread Bob Showalter
Ing. Branislav Gerzo wrote: Hi all, I get data from DB with: while (my ($id, $post_text) = $getpost-fetchrow_array) { is there a way how much columns are selected wihout select (fetch) them all, or using count(*) function ? In the general case, no. DBI provides the rows() method: my

RE: To Thread or not?

2005-05-24 Thread Bob Showalter
Tielman Koekemoer (TNE) wrote: Hi all, I need to execute a shell command in a loop but the shell command takes about 1 minute to complete. I want to execute the shell command but but then continue processing. Usually I would background the process with but this does not work as Perl waits

RE: Problems accessing oracle via cgi and apache

2005-05-19 Thread Bob Showalter
[EMAIL PROTECTED] wrote: Hi all. I think I have some sort of permissions problem here i'm hoping to get help for. I'm running apache on HP-UX. I have a perl script that accesses a database (local) and displays the results in a HTML table format. Pretty simple. I've done lots of database

RE: Create Excel spreadsheets

2005-05-16 Thread Bob Showalter
Peter Rabbitson wrote: I am about to start on a project that will be creating various excel files. Cpan yields quite a number of posibilities, among which Spreadsheet::WriteExcel looks most promising. I just wanted to hear some opinions on the best tool for the job before I delve into a

RE: How to output in HTML?

2005-05-11 Thread Bob Showalter
Roger Grosswiler wrote: Hi, i just wrote a very small perl-file, which opens a file, reads the content, adds a 1 and closes it. It's a veery simple hitcounter. (counter.pl, code see below) I would like now to print this in an existing html-sheet, say, when opening index.html,

RE: Reading multi line input from user

2005-04-25 Thread Bob Showalter
[EMAIL PROTECTED] wrote: I wish to read input from a user that has multiple lines with carriage returns from stdin but not actually stop reading until a single # on a line by itself. You can use perl's $/ variable to define an record separator. The default is \n, but you can change it. Try

RE: GetOpt::Long

2005-04-21 Thread Bob Showalter
Olivier, Wim W wrote: Hi Bob, Hi. Don't top-post please. If I comment out this if statement, I don't get the error anymore. An clues as to the correct syntax??? I run the subroutine as follows: if ($conf{'pnl_check_for_analytics_email'} =~ 'ON') { notify_email -r [EMAIL

RE: GetOpt::Long

2005-04-20 Thread Bob Showalter
Olivier, Wim W wrote: Hi all, Is it possible to use GetOpt::Long (or something similar) in a subroutine using @_ instead of in the standard way (using @ARGV)? This should work: sub foo { local @ARGV = @_; GetOptions(...blah...); ... } -- To unsubscribe,

RE: Perl and visual Basic

2005-04-14 Thread Bob Showalter
DiGregorio, Dave wrote: Could anyone help me? I need to start a PERL script from within my visual basic program. I have tried the shell command without success. To further compound the problem I also want to provide command line parameters. I don't know VB, but I'm assuming the shell

Re: AutoIncrement Database Fields for MySQL and PostGreSQL

2005-04-11 Thread Bob Showalter
Siegfried Heintze wrote: If I use the auto-increment feature for a couple of normalized relations, how do I insert into them? Specifically, when I insert into a relation with the autoincrement feature on the primary key, how do I get the value of the index on the newly created row so I can use

Re: AutoIncrement Database Fields for MySQL and PostGreSQL

2005-04-11 Thread Bob Showalter
Siegfried Heintze wrote: Thanks. I see that works for mysql. my $lastid = $dbh-{mysql_insertid}; Is this a feature of MySQL or DBI? It's a feature of MySQL, via the DBD::mysql driver. If it is not a feature of DBI, will it work for PostGreSQL? No, but there is a similar feature. Read the docs for

RE: DBI object version 1.32 does not match $DBI::VERSION 1.48

2005-04-06 Thread Bob Showalter
[EMAIL PROTECTED] wrote: 1. Why does CPAN only make the module directories accessible only by root ? (permissions set to 700 ) It's probably just respecting your umask. Is your umask 077? It needs to be something like 022 instead. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

RE: Many SQL clauses executing

2005-04-04 Thread Bob Showalter
Nicolay Vasiliev wrote: Hello there! I tried to execute many SQL-clauses ; separated by DBI::do() method but got an error message about SQL syntax mistake. You must execute statements one at a time with do(). Don't add semicolons at the end. If I execute the same SQL from MySQL shell or

RE: regular expressions with and do { ?

2005-04-04 Thread Bob Showalter
Michael Gale wrote: ... m|output:DISK (\w+) \[(\d+) kB \((\d+)%\) free on (\S+)\]| and do { my $status = $1; my $kb_free = $2; my $pct_free = $3; my $mount= $4; push @s, [ $mount, [ blockpct, GAUGE, $pct_free ] ]; }; I do not understand the and do option. do here

RE: Attempting OO with Perl - New() method in subclass not workin g

2005-04-01 Thread Bob Showalter
[EMAIL PROTECTED] wrote: I am trying to build an inheritable object, and I am using examples from the Perl Cookbook, 2nd edition, mostly Recipe 13.1, using the new and _init methods. Your subclass does not need (and should not have) a new() method; it can use the one from the base class. As

RE: db handles with fork()

2005-03-30 Thread Bob Showalter
Ramprasad A Padmanabhan wrote: Hi, I am writing a perl application that connect to a database and then does a fork() The child completes the process and does a exit(), but the problem is it closes the database connection which the parent would like to use. Can I exit the child process

Re: cgi form generates a cronjob

2005-03-25 Thread Bob Showalter
FRANK DELATORRE wrote: Hello, I hope this is the right forum to ask this question: Is it possible to generate a crontab file from a perl driven CGI script? If so, what are the key steps? I've been thinking about how to develop this but for some reason I cannot rectify, in my head, how to edit a

RE: removing dupes from fetchrow_array()?

2005-03-23 Thread Bob Showalter
Sara wrote: Following is the code used in my CGI script. my $query = $dbh - prepare(SELECT * FROM invoices WHERE ID = '$ID'); $query - execute(); while (my @row = $query - fetchrow_array()){ print $row[1] - $row[2] - $row[3]br; } What If I want to remove dupes from @row? like if $row[2]

Re: ActivePerl repositories

2005-03-17 Thread Bob Showalter
Peter Rabbitson wrote: I have a general question concerning module availability for ActiveState Perl. I asked on this list several month ago where to get the DateTime suite modules, and somebody pointed me to a certain repository at the University of Winnipeg. Now I am in need of HTTP::Cookies and

RE: DBI query

2005-03-15 Thread Bob Showalter
mike wrote: Anyone got any any idea what is happening here $dbh=DBI-connect(dbi:Pg:dbname=data_cc,$user,$pw); $dump_dir='/home/data_cc/dump'; @names=$dbh-tables(); #$dbh-execute; #print @names; foreach $names(@names){ if (substr($names,0,9) eq public.tb) { $file1= $dump_dir\/$names;

RE: System o/p to a varaible

2005-03-15 Thread Bob Showalter
Anish Kumar K. wrote: Hi This program I use to get the last line from the log file cipe.log. and then write the line onto a text file a.txt system(tail -1 cipe.log a.txt); open INPUT,a.txt; my $line=INPUT; then I open the text file and read the value from the file handle. This

RE: array of numbers with padded zeroes

2005-03-15 Thread Bob Showalter
Bryan R Harris wrote: I'm having trouble with this, and I'm sure someone out there has a really clever solution-- I have a hash, %data, with, say, 32 elements. From that, I need an array going from 01 to 32, i.e. 01, 02, 03, 04, etc. But if my hash had 750 elements, I'd want it to go

RE: Dead-module etiquette

2005-03-10 Thread Bob Showalter
Jeff Eggen wrote: Hey all, I'm not sure if this question is germane here, but I'll give it a shot anyways. I have a module in use in my environment, Time::Period. I haven't seen any other module with similar functionality. I would like to put some improvements into the code, so I

RE: Testing for a '\' in a string

2005-03-09 Thread Bob Showalter
Bret Goodfellow wrote: Hi all, I am trying to evaluate a string, and determine if the last charater of the string has a backslash '\' . The piece of code I am using doesn't appear to work. What I've found with this peice of code is that if the string does contain a \, then the following

RE: execute 1 actions after die

2005-03-09 Thread Bob Showalter
susan lam wrote: Is it possible to execute two actions such as a print statement and a subroutine after die? open(FILE, $file) || die Cannot open file email()??? open(FILE, $file) or email(), die Cannot open file; or, perhaps more readable: unless(open(FILE, $file)) {

RE: :FTP problems

2005-02-24 Thread Bob Showalter
John wrote: Hi all I tried to chroot the perl and when i am trying to run a Net::FTP script I receive the error Net::FTP: Bad protocol 'tcp' Do you know what is going on? /etc/protocols doesn't exist in your chroot environment? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

RE: Read from a Linux pipe hangs.

2005-02-23 Thread Bob Showalter
David Moron wrote: Hi everybody, I'm testing a simple IPC implementation that uses Linux pipes to communicate a producer script and a consumer. The producer script looks like: while(1){ print Hello\n; sleep(2); } And the consumer: my @lines; while(1){

RE: Read from a Linux pipe hangs.

2005-02-23 Thread Bob Showalter
David Moron wrote: The consumer has only to read lines from its STDIN and print them to the STDOUT. print while(); These scripts are a simplified version of the producer/consumer problem and they try to emulate a multithreaded perl program. IMHO It's not important what I want to do with

Re: Delete an element in an array

2005-02-21 Thread Bob Showalter
Oliver Fuchs wrote: Hi, I want to save names from STDIN to an array. Afterwards I want to delete a single name in the array received again from STDIN. This is what I have: #!/usr/bin/perl use warnings; We always recommend: use strict; print Some names please: \n; @names = STDIN; print Delete one

Re: Re: Perl versus EXPECT(tcl)

2005-02-12 Thread Bob Showalter
Xiaofang Zhou wrote: Hi, Bob, Sounds the expert.pm is cool. But when I try to install the pre-required io::pty, I got a fatal error. Is it possible to install io::tty and expert on xp? No. ptys are a Unix only thing. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail:

Re: Accessing https pages

2005-02-12 Thread Bob Showalter
[EMAIL PROTECTED] wrote: I am very new to Perl - a few days. I am running Windows XP. I downloaded and installed ActivePerl to c:\perl. I also downloaded www::mechanize to make my life easier to access web pages. I wrote a perl program to access http://www.tab.co.nz (via mechanize) which works

RE: CGI/DBI - Can anyone work out why this fails

2005-02-11 Thread Bob Showalter
mike wrote: I have the following code $cat1; if ($cat1){ my $cat1=%$category%; The my here is scoped to this if { } block, so you aren't changing the outer $cat1 } else { $cat1=$category; } $row=$dbh-prepare(SELECT contact_id,first_name,last_name,organisation FROM tb_contacts

RE: how to share DB connection

2005-02-11 Thread Bob Showalter
Ing. Branislav Gerzo wrote: Hi, I have script: use strict; use warnings; use lib '/data/home/2ge/perl/modules'; use Foo::Bar; my $dbh = DBI-connect(DBI:mysql:database=foo;host=localhost;port=3306, , ) or die Can't connect: , $DBI::errstr; ... now I want to share this

RE: how to share DB connection

2005-02-11 Thread Bob Showalter
Ing. Branislav Gerzo wrote: Bob Showalter [BS], on Friday, February 11, 2005 at 08:07 (-0500) typed the following: c) Have $dbh live in Bar.pm and use Exporter to export it back to the main program, or I want set $dbh in main script. You can still do that. You would do something like

Re: Perl versus EXPECT(tcl)

2005-02-11 Thread Bob Showalter
Chris Devers wrote: Several programming languages have mechanisms for building wrappers around Expect, including Perl. In this case, you need a module like Expect.pm or Expect::Simple, as described here: Pedantic point: Expect.pm is perhaps best thought of as an Expect clone or workalike. It does

RE: Processing a string containing an HTML response.

2005-02-09 Thread Bob Showalter
Tham, Philip wrote: Hi I am using LWP to send an HTTP Get and I receive the http response in a variable which I named resp. I would like to process the string resp-content token by token and modify the output. I see that HTML::TokeParser allows for this kind of processing but I have

RE: DBI problem

2005-02-09 Thread Bob Showalter
mike wrote: I have the following query which works in psql SELECT to_char('05 Feb 2005'::date,'-MM-DD') However when I run it in DBI I get $row6=$dbh-prepare(SELECT to_char('2005-02-05'::date,'-MM-DD')); #$row6-bind_param(1,'2005-02-05'); $row6-execute(); Can't call method

RE: entering text w/o echoing

2005-02-09 Thread Bob Showalter
Joe Mecklin wrote: i need the ability to accept keyboard input without echoing it back to the screen (passwords, etc.) and have not yet found anything that will accomplish that. is there something in Perl that will do that, do i need a module, ...? thanks in advance for any/all help. Take

RE: Premature end of script headers

2005-02-08 Thread Bob Showalter
vishwas bhakit wrote: hello, I am getting following error. Premature end of script headers Can anybody plz tell me what is the cause of this. When the webserver runs your CGI script, it parses the output, looking for the MIME headers, followed by a blank line, followed by the response

RE: Apache needs permissions to create file

2005-02-07 Thread Bob Showalter
Elliot Holden wrote: This is my script open(OUTFILE, , survey.txt) or die $!; I am runing this script through the webserver using a browswer, (action=http://localhost/pathtothecgiscript/cgiscript.cgi;) and the file, survey.txt, does NOT get created. When running from the command

RE: A way to use map?

2005-02-04 Thread Bob Showalter
Kent, Mr. John (Contractor) wrote: Greetings, Trying to be cool and apply map to the following lines of code (which work fine as shown) @TIMES is an array of lines that look like Time: Thu Feb 3 15:10:39.290 GMT 2005 End: Default.2.def-edtp0.on Time: user 0.29 sec Delta:

RE: Addendum: Content_Length.

2005-02-03 Thread Bob Showalter
Sara wrote: Why the length is not coming out? Any ideas? # my @aho = (fgfgfgf, fgfgfgfgf, fgfgfgfg); my $length += length($_) for @aho; A perl gotcha. The 'for' modifier creates a loop, and the 'my' is scoped to the body of that loop (I

RE: Different key in 2 hashes

2005-02-01 Thread Bob Showalter
Mark Martin wrote: Hi, okay - straight out of the coobook : my @different = () foreach (keys %hash1) { delete $hash1{$_} unless exists $hash2$_}; push(@this_not_that,$_) unless exists $registered{$_}; } easy to remove the different key from hash one and record the removed item

RE: File is not getting created in perl CGI

2005-01-31 Thread Bob Showalter
Anish Kumar K. wrote: File is not getting created in perl CGI mode... It is surprising that the file is not created in the CGI I tried this from the command line it is getting created there... Most likely explanation is that the web server user does not have write privilege in the

Re: CGI upload problem on IE

2005-01-29 Thread Bob Showalter
Alfred Vahau wrote: Hi, My workaround in Windows to the space in file names (which the *nix don't allow) are the following: Huh? Unix allows spaces in file names. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: CGI upload problem on IE

2005-01-29 Thread Bob Showalter
Yw Chan ( Cai Lun e-Business ) wrote: However, the situation is that ehe spaces not from my filename but from the Windows XP default of C:\Documents and Settings\Default user\. etc. I guess in an overwhelming web-based environment using Windows at the browser side, most people would come

Re: CGI upload problem on IE

2005-01-29 Thread Bob Showalter
Yw Chan ( Cai Lun e-Business ) wrote: However, the situation is that ehe spaces not from my filename but from the Windows XP default of C:\Documents and Settings\Default user\. etc. I guess in an overwhelming web-based environment using Windows at the browser side, most people would come

RE: or die question

2005-01-25 Thread Bob Showalter
Rod Jenkins wrote: After a failed open, I want to run two statements for an or die. Code Quesiton: open (TEST, /tmp/test) or { die Could not open test file\n; syslog(LOG_ALERT,Could not open test file); }; This does not work, but what is

RE: unable to include .pm file

2005-01-24 Thread Bob Showalter
Mark Henry wrote: All, going to try this one again, sorry..! --- Hi, I'm trying to use a perl module that a tool I got, ccmeter.pl, requires and I can't no matter what I do.. I'm on hpux11.11, and the script was written for 5.005_03 so that's what I'm including at the top of the

RE: embedding dynamic images in html output

2005-01-21 Thread Bob Showalter
Chad Gard wrote: and I really don't want to write images to files on disk. I think you should reconsider. This is really your best bet. Web clients and servers are really optimized for this kind of thing. You should write all the images out to disk files accessible through URL's and then emit

RE: parsing gzipped log files

2005-01-19 Thread Bob Showalter
Mariano Cunietti wrote: Hi all, can anyone address me to a Perl module/function to parse gzipped log files without uncompressing them via gzip/gunzip? Thanks This search will turn up some modules: http://search.cpan.org/search?query=gzipmode=module You might also just read from the output of

RE: PERL with grep

2005-01-19 Thread Bob Showalter
Danny Fang wrote: Hi I'm a newbie in PERL and wish to seek some help with regards to pattern matching PERL and grep. Hi, and welcome. First, perl is the interpreter for the Perl language. PERL is considered gauche. :~) I would like the script to do the following: [ snip specification

RE: dynamically calling a subroutine

2005-01-18 Thread Bob Showalter
Absolut Newbie wrote: I have a program that generates a random number between 1 and 6. based on the outcome I want to run a subroutine that corresponds to the result. i.e if the result is 1 then the program should run sub F1. my question is how can I dynamically call the subroutine. i tried

RE: xml and perl help

2005-01-14 Thread Bob Showalter
johnny yu wrote: hello. i am new with perl and working on a program to sort and manage my dvds instead of using windows program. i export the windows data using built in function to make it xml, how can i read this with perl so i can put in mysql? i try xml::simple but it doesn't work.

RE: A Beginner's problem

2005-01-13 Thread Bob Showalter
Doug Essinger-Hileman wrote: I am just learning Perl, and am having a problem with something which seems like it should be so easy. Still . . . . I have read through a couple of books, including _Beginning Perl_ and _Picking Up Perl_, to no avail. Welcome! I am trying to read a file, then

RE: linked list

2005-01-10 Thread Bob Showalter
Christian Stalp wrote: Does anybody has any experience with making liked lists in perl. There is an example in Mastering Alogrithms in Perl by Orwant, Hietaniemi and Macdonald. But this works does'nt work: #!/usr/bin/perl use warnings; use strict; use constant NEXT = 0; use constant

RE: How do I distinguish between no value and false? (was RE: Ho w does defined work?)

2005-01-05 Thread Bob Showalter
Siegfried Heintze wrote: How do I distinguish between no value and false? I thought defined was supposed to do that. So if I call $q-param(xyz), how do I distinguish between xyz=0abc and xyz=abc and xyz being absent all together? param() will return undef in scalar context, or an empty list

RE: How do I distinguish between no value and false? (was RE: Ho w does defined work?)

2005-01-05 Thread Bob Showalter
Bob Showalter wrote: Siegfried Heintze wrote: How do I distinguish between no value and false? I thought defined was supposed to do that. So if I call $q-param(xyz), how do I distinguish between xyz=0abc and xyz=abc and xyz being absent all together? param() will return undef

Re: GD vs Image::Magick

2005-01-02 Thread Bob Showalter
Octavian Rasnita wrote: Hi, Can you tell me what's the difference between GD and Image::Magick perl libraries? Can you do something with one and cannot do with the other? Which is working better? Which is more advanced? What do you recommend? (GD, Image::Magick, both)? GD provides an API for image

RE: Browser times out

2004-12-30 Thread Bob Showalter
Denzil Kruse wrote: Hi all, I think I'm having a problem with my browser timing out because my cgi script is taking too long. The script processes some database records. When it does 250 of them, it takes about a minute or so, and the browser has no problem. But when I do more, the

RE: xml module

2004-12-30 Thread Bob Showalter
Patricio Bruna V wrote: i need to parse out one big xml file, 592K, but the only thing i need to do its eliminate some tags, where the lang attribute is not es (name xml:lang=ar, fox example). I think its a simple thing to do, so here its the question, what perl module do you recommend for

RE: Trouble running a script with cron

2004-12-29 Thread Bob Showalter
Rafael Morales wrote: Hi list. I need to put a script in cron, but this script needs exec some Oracle variables for work fine, these variables are: export ORACLE_HOME=/oracle/app/product/9.2.0 export ORACLE_SID=galdb export LD_LIBRARY_PATH=/oracle/app/product/9.2.0/lib32 export

RE: Running a perl script thru a perl script

2004-12-21 Thread Bob Showalter
Dave Kettmann wrote: Hello, I have built a script that has 2 environment variables passed to it and it will take that data and return a value. This script works fine, but there are many possibilites that can be passed to it. I want to build a test case of sorts to pass to this script. In

RE: A very simple example program Comparing Perl, Python and Java

2004-12-21 Thread Bob Showalter
Richard Monson-Haefel wrote: Here is the Perl program http://www.rafb.net/paste/results/4px8PI74.html Here it is: #!/usr/bin/perl -w @l = @ARGV; print @l\n; @r = (); foreach $x(@l){ if(length($x) = 3){ push(@r, $x); } } $y = @r; print $y; foreach

Re: subclassing (?) package

2004-12-19 Thread Bob Showalter
JupiterHost.Net wrote: Hello group, I'm trying to subclass a module (at least I think its what is called subclassing...) This example below works but I'd like to package GD::Image::Foo in its own module, how would I go about doing that? perldoc perlmod and perlmodlib didn't seem to address that

RE: Is there a time module to help with this...

2004-12-17 Thread Bob Showalter
[EMAIL PROTECTED] wrote: ... So i'm hoping there is some sort of time module that will perform a list of tasks at a timed interval. While one server may be timing out, it's still making sure that the others are being checked within the 5 minute time frame. If there is no module to help me

RE: find sub {}

2004-12-16 Thread Bob Showalter
Bill Adams wrote: Hi All, I've inherited a perl application. Can anyone explain to me the code below, particularly find sub { find sub { $chambers{$_} = $File::Find::name . /passwd if -r $_/passwd}, @ARGV; Jonathan gave you a detailed answer, so I'll add just a bit more. This line is

RE: Deleting the records from a table

2004-12-14 Thread Bob Showalter
Mallik wrote: Hi Friends, I need a help from you in implementation of purging functionality. I am given a hash of table(s), each having millions of records. i need to delete those records keeping latest 5 days records in the tables. I know the delete query like: delete from $tableName

RE: regexp for a blank line

2004-12-13 Thread Bob Showalter
Christopher Spears wrote: I have to write a script that processes text in a file. The text includes lots of blank lines. How can I tell Perl to skip the lines? I thought maybe something like: next if ($line =~ /\s+/); However, what if the line simply happens to have more than one

RE: Setting a Cookie...

2004-12-08 Thread Bob Showalter
Bill Stephenson wrote: How can I set a cookie when someone visits my home page? I've tried using a server side include like so # code # #!/usr/bin/perl -w # This is in my html page: # !--#exec cgi=/cgi-bin/ezInvoice2/ssi.cgi-- [snip

RE: XML::RSS::Parser - ns_qualify failure

2004-12-08 Thread Bob Showalter
Craig Moynes wrote: I installed XML::RSS:Parser from CPAN. When I try to run a simple script I get (from the sample code): Can't locate object method ns_qualify via package XML::RSS::Parser at testrss3.pl line 11 (#1) (F) You called a method correctly, and it correctly indicated a

RE: Help with cookies

2004-12-08 Thread Bob Showalter
Moon, John wrote: Does anyone know if I should be able to write a cookie like : [ snip complex data structure ] You can do this if you serialize the complex structure into a scalar and then deserialize it when you read the cookie back. For an example of how to do this see the module

RE: ip4 check

2004-12-07 Thread Bob Showalter
[EMAIL PROTECTED] wrote: if ( $var = ipv4_checkip ($var)) { Should be ipv4_chkip, not ipv4_checkip You should contact the module author to see if he's interested in improving the error handling for this kind of thing... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands,

RE: Need Help Installing DBI-1.46

2004-12-07 Thread Bob Showalter
john williams wrote: Hi, I am having a problem installing the DBI-1.46 module on AIX 5.1 server. I have downloaded the tar file from www.CPAN.orb and uncompressed it and first ran the perl Makefile.PL command and it ran successfully, next when i run make command I get the following error

RE: Need help with Curses

2004-12-07 Thread Bob Showalter
[EMAIL PROTECTED] wrote: I am attempting to use the Curses module for the first time, and really have no idea how to use it. Every example I've been able to find uses a variety of different keywords, but I haven't been able to locate any documentation of the available routines. If someone

RE: close (...) or die $!

2004-12-06 Thread Bob Showalter
Felix Li wrote: Greetings, It's fairly well known that one should use open with an or die. Is there really any condition where close fails, making the or die necessary? If the handle you're closing is a pipe, close() captures the exit status of the child process. You should check the

RE: a warning which i can't understand

2004-12-06 Thread Bob Showalter
Hameed U. Khan wrote: print (('January', 'Fubruary', 'March', 'April', 'May ', 'June', 'July', 'August', 'September', 'Ooctber', 'November', 'December')[-1]); following is the warning and output i am getting. [EMAIL PROTECTED] ./backwards.pl print (...) interpreted as function at

RE: CGI

2004-12-06 Thread Bob Showalter
Brent Clark wrote: Chris Devers wrote: Please, just one copy of the email. Thanks. On Mon, 6 Dec 2004, Brent Clark wrote: In my apache log files, I keep getting this: [Mon Dec 6 17:51:35 2004] [error] [client 192.168.111.214]

RE: Should be a simple substitution?

2004-12-06 Thread Bob Showalter
Bryan R Harris wrote: I can usually figure out regexes, and this one seems simple, but it still eludes me-- I'm looking for a regex (or a couple of regexes) to do the following: blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah blahblah{a,b,c}blah -- blahblah(a|b|c)blah Well, you

RE: Why are Date::Time wierd and chart wierd?

2004-12-03 Thread Bob Showalter
Siegfried Heintze wrote: Why does not ppm Date::Time work? I also tried perl -MCPAN -e 'install Date::Time' and that does not work either! These are both invalid syntax. Check out http://perl.plover.com/Questions4.html Also, even if you fix the syntax, Date::Time appears to be vaporware.

RE: Change ctime of a file ?

2004-12-03 Thread Bob Showalter
Jeff Westman wrote: Is it possible to change the 'create timestamp' (ctime) of a file, and if so, how? This would be the perl equivalent of Unix' touch command. Common misconception. ctime is inode change time. There is no creation time in Unix. See your stat(2) manpage for more info. -- To

RE: FTP automatic

2004-12-03 Thread Bob Showalter
Adamiec, Larry wrote: -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] I'm waiting for solutions. You are going to be waiting for a very long time. English is probably not the OP's first language. I wouldn't assume he's being rude or presumptuous (yet :~) ...

<    1   2   3   4   5   6   7   8   9   10   >