Recent content by tchatzi

the fast load after the first load is probably your browser cache. as for the slow part of the first response, is probably your php code not written having speed as a primary goal, or your apache server serves both your slow php code along with any other scripts like css/js and the images of...

something like the following maybe? unless you mean something else <VirtualHost 192.168.0.1:80> ServerAdmin webmaster@example1.com DocumentRoot /var/www/example1.com ServerName www.example1.com </VirtualHost> <VirtualHost 192.168.0.2:80> ServerAdmin webmaster@example2.com DocumentRoot...

it looks like you should check your server's locale and regenerate it with locale-gen maybe to something like en_US.UTF-8 or the equivalent for GB but the UTF-8 one. Then you should restart your web and db servers. all these of course if you have ssh access on your server. Perl internal does...

if you still have a problem with it please share some more light, as for example the script with which you are trying to connect ``The wise man doesn't give the right answers, he poses the right questions.'' TIMTOWTDI

why would wanna do that? ``The wise man doesn't give the right answers, he poses the right questions.'' TIMTOWTDI

yea Kevin is right about windows path in single quotes...I just copied the line from lillyth code..the point was not the path really, but to show the use of File::Find. there are many ways of getting a list of the files in the dir.. if all the files that you need are in that one directory, you...

you are right you have to use lib and point it to the directory where the TCO.pm sits if by debugging you mean check your code before you run it, then the answer is the following perl -wc myscript.pl this will give any syntax or logical errors in your script if there are any. ``The wise...

you said do you mean something like the following? $line = 'before[within]after'; $split= '\[|\]'; @values = split(/$split/,$line1); foreach $val (@values) { print "$val\n"; }; this will give before within after ``The wise man doesn't give the right answers, he poses the right...

is it Tk or Win32 modules that you use to create your windows and dialog boxes? ``The wise man doesn't give the right answers, he poses the right questions.'' TIMTOWTDI

I think you should have a look at Win32 modules at cpan... also you might get somewhere with this X11 GUI one. What you are trying to achieve is not so promising though... Good Luck ``The wise man doesn't give the right answers, he poses the right questions.'' TIMTOWTDI

I'm not sure if I follow...do you want the result to be @columns = ('PDH-CSV 4.0','Idle','System') if yes then the following will do the job... $string = qq["(PDH-CSV 4.0)","\\pps01\Process(Idle)\ID Process","\\pps01\Process(System)\ID Process"]; @columns = map { /\((.*?)\)/; $1 } split...

maybe my request was not clear enough...anyway... in order to do a in depth directory search for files you can use use strict; use File::Find; my $dir = 'C:\Documents and Settings\Usr1\Desktop\L\textFiles\'; find(\&do_what_ever_I_want, $dir); # do_what_ever_I_want will run for every file in...

sorry mate...I didn't know you wanted it in one line.. there you go $string = qq["08/26/2008","0.000000","4.000000","332.000000"]; @columns = map { s/^"//; $_ } map { s/"$//; $_ } split ',', $string; ``The wise man doesn't give the right answers, he poses the right questions.'' TIMTOWTDI

could you post a sample of a file before you run the script and also the result file that you want to get.. this way we might be able to be of more help ``The wise man doesn't give the right answers, he poses the right questions.'' TIMTOWTDI

there are two ways of doing this.. no map needed 1. use strict; use Text::CSV; my $csv = Text::CSV->new (); my $string = qq["08/26/2008","0.000000","4.000000","332.000000"]; my $status = $csv->parse($string); my @columns = $csv->fields(); foreach ( @columns ) { print "$_\n"; } the result...