Seek string to time module

Hiya Is there a module to parse time. I.e. 00:01:20. The idea was to convert a string, i.e. time, and then to see if the time given is greater than a threshold, for example 1 hour. Hope I make sense. If anyone could help, it would be appreciated. Kind Regards Brent Clark -- To unsubscribe

perl cookbook?

Hiya Im looking to buy perl cookbook. I see the second edition was released 2003. Before I go off and buy it, does anyone know if perl cookbook 3rd edition, is ever going to be published? Regards Brent Clark -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e

Regex to array woes

my @h2ip = ($tmp{ $opt_H2 } =~ /(?:Interfaces\s:\s(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}))/gi ); If someone could help, I would be most appreciative. Kind Regards Brent Clark -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org

Re: module for accessing MSSQL

need DBD::Sybase. For Freetds, just edit the /etc/freetds/freetds.conf. there is an example at the bottom. Profiles called MyServer2k. HTH Regards Brent Clark -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Regex problem, #.*# on new line

quot;\n", split(/#.*#/, "#aaa#message:details;extra:info;variable:times;#bbb#message:details;extra:info;variable:times;#ccc#not:always;the:same;ts:14:00.00;")) if anyone can help, it would so appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: beginners-unsubscr...@perl.

Re: OO -> Cgi->param not working with inheritance

Chas. Owens wrote: On Tue, Feb 24, 2009 at 03:20, Brent Clark wrote: snip Thank you. I understand and its working now ( even a few lines less ;) ). Kind Regards Brent Clark -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org

OO -> Cgi->param not working with inheritance

itance I can achieve to use the methods of CGI. As said header() works, but param() does not. If someone can help me understand this, or please show me where I am going wrong, I would appreciate it. Kind Regards Brent Clark -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional

Project request : ajax chat with perl backend

Hiya Ive been tasked with building a ajax chat but it has to be with a perl backend. Anyone know of any existing projects to help with rapid dev. I looked at the various PHP projects out there, but Management wants Perl. TIA Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED

Re: Regex path

Jeff P. wrote: use File::Basename; my $path = dirname("/home/brent/cgi-bin/scripts/common/ticktaktoe"); my ($var) = $path =~ /.*\/(.+)$/; Thank You Worked like a bomb. Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTE

Regex path

Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

beginners@perl.org

Rob Coops wrote: What the (? Thank you so much, Regards Brent -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

beginners@perl.org

this right. TIA. Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

dbdimp.c:1: error:

Dear all We have a 64bit machine running SLES10 on which I would like to install Bugzilla, I downloaded it and ran the ./checksetup.pl –check-modules script. I then ran 'perl –MCPAN –eshell' and did a install Bundle::Bugzilla It then did the lot of install and questions which I cannot remember.

Redhat/Centos users

I suggest you read this. http://weblog.infoworld.com/fatalexception/archives/2008/08/bitten_by_the_r.html and http://blog.vipul.net/2008/08/24/redhat-perl-what-a-tragedy/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: cgi upload -> XMLin

tting this message. read on filehandle failed: Undefined subroutine Fh::read at /usr/lib/perl5/XML/LibXML.pm line 531 at /usr/lib/perl5/XML/LibXML/SAX.pm line 64 at /usr/share/perl5/XML/Simple.pm line 366 I dont mind creating the tmp file, I just think its a very crappy way of doing things.

cgi upload -> XMLin

Hi Heres my silly Q for the day I would like to upload a xml file, and would like the file to sent directly to XMLin(). Im trying to find a way of not have to create the file in /tmp, and heres my working code. my $filename = $cgi->param("filename"); #my $filename =~ s/.*[\/\

need to extract attachments

Hey all Would anyone know of a perl script to extract an attachment. If anyone could assist it would greatfully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Mail::Sender

Mail::Sender to do this. You feedback, would greatfully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Can't test without successful make

made any difference, if someone could assist, I would me most greatful. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Coding Styles

ed to look from his side, but still I cant escape how old school this all is. Maybe he's trying to make it soo that the project does not diffirentiate too much. Will be easier for the next employee. But I think im going to settle with Ron Goral's option 3. Thanks to all who replied.

Coding Styles

rking with a real tosser. So my question is, for those out there working a dev environment, would anyone care to share if my way of thinking is wrong etc. Or anything for that matter Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL

split on "."

Hi all I have a string like so 01.01.04 I need to split and add it to an array my method of ($abc) = $test =~ /\./g; does not seem to provide me with a satisfying result and I get back is the period. If anyone could assit, it would be most helpful Kind Regards Brent Clark -- To

cant process string in system()

t;'); } exit; Basically what happening is, when I pass the variable to system() the spaces are not escaped etc, and therefore fetchmail only processing only half the string. If anyone knows how I can achieve in processing the string as is, would be most grateful Kind Regards Brent Cla

purpose of /? at the end of a link

Hi all I came across a link where there was just a ? at the end of the link. e.g. http://www.gmx.net/? Is there a particular reason or purpose for this. Just something I was wondering. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail

Re: foreach woes

sc_links'}->{$linkName}}; Which gives me a answer of one, not the correct answer, but its answer at least for now. Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

foreach woes

f I have two or more elements, then its work, but its only if I have one, then I get nothing. If anyone could assist me, I would be most grateful. Kind Regards Brent Clark = Data :: Dumper -== $VAR1 = { 'picture_comments&#

package name

package name at sql_handler.pm line 48. Ig someone would so kind as to point out to me, where im going wrong and to maybe share some tips, I would be most grateful. Kind Regards Brent Clark #- Code below package sql_handler; BEGIN {

Re: perl modules woes

John Doe wrote: @EXPORT = qw( $html &world_body_top &labels; ); typo: ";" after &labels and don't forget to also include use warnings; hth, joe AArghh I cant believe I didnt see that. Thanks for thi

perl modules woes

s, I would be most grateful Kind Regards Brent Clark - #!/usr/bin/perl -w use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use header; use body; my $html = new CGI; print $html->header(); print &world_header; print &

Archive

Hi Anyone know if theres an archive link for this mailing list. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

PHP help to execute to .pl

t); while (!feof($fp)) { echo fgets($fp, 128); } print $pos; fclose($fp); } ?> Im trying to have my PHP fire the value to the perl script. If anyome has any tips or advise, I would be most grateful. Kind Regards and thanks in advance. Brent Clark -- To unsubscribe, e-ma

perl compilers

Hi all Just a thought, is it possible to compile perl code in to some type of binary format file, and then perl can execute the bin file. Just somthing I was thinking. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED

keys of hash of hashes

;, Luxury Safari Tent etc. If anyone would could assist me, I would be most grateful. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Distance learning

my CV. Any tips or advice would be most appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: open and edit file to prevent race conditions

just use flock as well as the modules Fcntl. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

edit / seek woes

Hi List This whole, using seek has kind put me off for the day. Would someone be so kind as to please over look me code and if possible, point out where I am going wrong. Kind Regards Brent Clark === open(HDATFILE, "+< $file

open and edit file to prevent race conditions

open to race condition. So my question is, whats the best what to update / amend a file. Your tips and or advice, would great fully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.

class regex

Hi list I have im trying to enhance my regex skill. My questions is, would m/^p11[016]/io match like m/^(p110|p111|p116)/io Any tips or advice, would greatfully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL

Re: regex remove of strings etc

Muthukumar wrote: It is correct. You can try as, # echo " hi this is a room ok" | perl -ne 'if ( /\s*.*\sroom.*\s*/ ) { s/ room//;}print;' # hi this is a ok Hi you the man I cant believe I was sooo stupid in not thinking of your solution. thanks again Brent Clark -- To

regex remove of strings etc

Hi all I need to remove the string "room" (notice the check for a space too) and also to check for spaces in the beginnig and then maybe at the end of the total string. $p110rm01 =~ s/(\sroom|^\s*|\s*$)//igo; Would someone be so kind as to check this for me. Kind Regards Brent Cl

not using strict problems

ne 103. so my question is, is there any way I can use local or something to stop strict from moaning about this varibles. Any tips etc would greatfully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http

Re: date

Brent Clark wrote: Hi all I have a date as the example format 01.01.06 (I know, but thats how I got it) anyway I need to check that this date is greater than current days date. Would anyone have any solutions to this problem. I have looked at the cpan repository, but from what I see they

date

second aswell. If anyone can help your advice would greatfully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

reference to subroutines

'deliveries' => \&_delivery_html, 'unknown' => \&_unknown_html, 'queue' => \&_queue_html }; The following code comes from the Tom Kistner's exilog (http://duncanthrax.net/exilog/). Would someone ple

compare speed problem

the value to a new array. Also I need to state, please dont shoot me on this code, I just got passed on too. If anyone can help, it would be most appreciated. Kind Regards Brent Clark #-- sub

Re: weird return

Brent Clark wrote: Brent Clark wrote: Hi list I have my code as so: for my $roomCode ( keys %{ $ref_hash->{$fileName} } ){ my $roomName = $ref_hash->{$fileName}{$roomCode}; if( $pCode eq 'p110'){ if ($p110rm01 eq $roomName ){ $finalHash{$fileName

Re: weird return

Brent Clark wrote: Hi list I have my code as so: for my $roomCode ( keys %{ $ref_hash->{$fileName} } ){ my $roomName = $ref_hash->{$fileName}{$roomCode}; if( $pCode eq 'p110'){ if ($p110rm01 eq $roomName ){ $finalHash{$fileName}[0] = $roomNam

weird return

hy I get this back I tried print just after I have my $roomName = $ref_hash->{$fileName}{$roomCode}; and the print is fine. its just when I add the name to the hash or arrays. If anyone could point out where im going wrong, I would greatfully appreciate your help. Kind Regards Brent

Re: ref / hash

Hi List A big thanks to all. I really appreciate your assistance in this. Kind Regards and a big thanks again. Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

ref / hash

'Grac01' => { 'StndRm' => 'Standard Room', 'Suite' => 'Suite', 'Pent' => 'Penthouse' }, If anyone could be so ki

ref / hash problem

I cant seem to get my second foreach to display the data of Standard Room, or Suite etc. If anyone would be kind to help me, it would be most appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

passing hash data from one subroutine to another using refs

anyone be so kind as to share how I would go about this. I can pass the whole hash, but that would not be right. Kind Regards and thanks in advance Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/>

search and replace

would greatfully be appreciated. I tried googling and the perldoc, but I havent found a decent answer. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: to () or not to (), that is the question.

u're creating a list of values (even if it's one, or even zero values). If the pattern match has the /g modifier on it (for global matching), the context changes how it behaves as well. Thanks so much. I cant believe I did know, realise that. Thanks again Brent Clark -- T

Re: to () or not to (), that is the question.

Sorry I for got to add. In the second statement I only get a "1" Thanks Brent -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

to () or not to (), that is the question.

. Any tips / feedback would greatfully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

get value (name of file)

look something like so /^*\|/ # Get the beginning of the CSV file, extract the filename, to #the first pipe but I need to extract and pass the value to a variable. Would anyone have any tips or advise on this. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Re: Limit memory used by perl

Beast wrote: Hi all, Is it possible to limit memory used by perl? I don't want perl program to eat all memory causing OS to freeze. Hi Maybe you should relook / think yout app and see where you can make it more effienct Kind Regards Brent Clark P.s. How much memory is the ma

Re: xml::simple, $hash ?

one step closer to gettting this right. the problem is I have not one agentnames. but a few I need to try and get it as so 12:51:59 ZAR tbrink etc tags for agent two etc tags for agent three A big thanks to replying to me. Really appreciate this. Kind

Re: xml::simple, $hash ?

or someone will be able to understand. Again, thank for your reply Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

xml::simple, $hash ?

ata; But for some funny reason I still get the same output. Would anyone have any idea or clue as to where im going wrong. Kind Regards and thanks in advance Brent Clark P.s. My xml output is like so $xml->XMLout(\%fullXmlHash, noattr => 1,xmldecl => ''); -- To unsubscribe

XML

getXmlAgents.pl line 104 So obviously it looking for the file and not making a http connection. If anyone has any tips or advice, it would be great fully be appreciated Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] &

Re: cgi link

Graeme St.Clair wrote: Try something like:- $html .= start_html( -title => "Rhubarb", -style => { 'src' => '../rhubarb.css' }, -script => [ { 'src' => '../rhubarb.js' }, $jscript ] );

cgi link

Hi all keep getting this message below. Undefined subroutine &main::Link called at C:/Program Files/Apache Group/Apache2/cgi-bin/ecco/scripts/common/getXmlAgents.pl line 24. Here is my code print $html->header(), $html->start_html('Get REMOTE BOOKINGS', -head=>Link({-rel=>'STYLESHE

trying up date a hash

Hi all Would anyone be so kind as to look at my code. Im trying to create a hash of hashes Thanks in advance Brent Clark while(){ chomp; @linex = split(/\|/); my %xmlData

Re: before -

John W. Krahn wrote: Brent Clark wrote: Yes you could: $ perl -le' my $string = "75664545-bookings"; my $pre_hyphen = substr $string, 0, index $string, "-"; print $pre_hyphen; ' 75664545 Hi thanks for this Cant believed I struggled, for / with something so simp

before -

Hi all Im trying to get the numbers before the hyphen e.g. 75664545-bookings Can I use index() for this ? If anyone has any tips or advice, it would be greatfully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL

mail header split

e has a nice elegant method / solution it would great fully be appreciated. Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Crystal Reports

$username","$ibookref","$outputfile"); Although it works, I dont really like this solution. I would prefer that perl talks to crystal it self. If anyone has any advice or tips, it would greatfully be appreciated Kind Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL

jscript help

this mailing list that most others would appreciate that it be taken of the list, taken in a of the list manner. If anyone would be so kind as to help, it would be greatly be appreciated. Kind Regards Brent Clark = Cape Town

convert image sizes

Hi would anyone know of a perl script to convert image resolutions. But I have a whole host of pics to convert Kind Regards Brent -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

pointers - references ??

when or why I would use it. Just something I was thinking. Kind Regards and thanks in advance Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

xml

Hi I have been trying to get my perl to work with an xml doc (about 2 hours new to xml). I basically just want all the elements would anyone be so kind as too share a link of doc etc as how I can takle this. Kind Regards and thanks in advance Brent Clark

Re: CGI

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] Premature end of script headers: /home/abc/cgi-bin

CGI

nd of script headers: /home/abc/cgi-bin/xyz/scripts/agent/logon.pl If anyone could be of any assistants, it would be so appreciated. Kind Regards and thanks in advance Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http:/

CGI

nd of script headers: /home/abc/cgi-bin/xyz/scripts/agent/logon.pl If anyone could be of any assistants, it would be so appreciated. Kind Regards and thanks in advance Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http:/

Re: Why Perl

Have a look at these links well wort it, I i was quite sad to see how PHP performed http://www.bagley.org/~doug/shootout/index2.shtml http://www.bagley.org/~doug/shootout/bench/ary3/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

[PHP] PHP vs PERL? HOPE THIS HELPS

http://www.bagley.org/~doug/shootout/index2.shtml http://www.bagley.org/~doug/shootout/bench/ary3/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]