Help on reading esc sequence

2007-06-11 Thread Amrita Roy
Hello, Actually i m running a process using perl script.so i want to do that if i press ESC from the keyboard it will come out of the loop n comes out of the function.I am trying to read the esc character using \ebut it is not responding.I have even tried with hex (1B) value of esc charcter but

Re: Help on reading esc sequence

2007-06-11 Thread Susheel Koushik
hi amrita, use if($var1 =~ '\e') inplace of if(var1 eq '\e') On 6/11/07, Amrita Roy [EMAIL PROTECTED] wrote: Hello, Actually i m running a process using perl script.so i want to do that if i press ESC from the keyboard it will come out of the loop n comes out of the function.I am trying to

Re: Help on reading esc sequence

2007-06-11 Thread Paul Archer
The reason this works is that when you read from STDIN, you are getting the newline from when the user of the program hits return. Using '=~' is implying a 'match', which will match the string/regexp supplied within the variable's value. 'eq' means the two strings have to be exactly equal to

Re: Help on reading esc sequence

2007-06-11 Thread Paul Lalli
On Jun 11, 9:23 am, [EMAIL PROTECTED] (Amrita Roy) wrote: Actually i m running a process using perl script.so i want to do that if i press ESC from the keyboard it will come out of the loop n comes out of the function.I am trying to read the esc character using \ebut it is not responding.I

Re: Help on reading esc sequence

2007-06-11 Thread Paul Lalli
On Jun 11, 11:05 am, [EMAIL PROTECTED] (Paul Archer) wrote: The reason this works is that when you read from STDIN, you are getting the newline from when the user of the program hits return. Using '=~' is implying a 'match', which will match the string/regexp supplied within the variable's

Re: Using SOAP::Lite

2007-06-11 Thread Beginner
Going to top post because I am not referring to your code Mike as I am not experienced enough to help directly. Have you tried the +trace switch? use SOAP::Lite +trace; Also there is the yahoo group to try. Sorry if I am stating the obvious. Thanx, Dp. On 8 Jun 2007 at 12:02, Mike Blezien

Please help with this code

2007-06-11 Thread Mr Ryerson
This code is in the config.pl file $config{'verifiedmembersfile'} = 'verifiedmembers.txt'; $config{'verifiedmember_html'} = ' bgcolor=f3f3f3 style=border-bottom: 2px solid gray; face=Tahoma size=2Verified PayPal Seller $config{'paypal1'} . ' '; my %verifiedmembers_data = (); open (DAT,

Is there a perl equivalent to PHP variables $_POST and $_GET?

2007-06-11 Thread On Ali
Is there a perl equivalent to PHP variables $_POST and $_GET? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Is there a perl equivalent to PHP variables $_POST and $_GET?

2007-06-11 Thread Xavier Noria
On Jun 10, 2007, at 9:18 PM, On Ali wrote: Is there a perl equivalent to PHP variables $_POST and $_GET? Perl is a general-purpose programming language and does not have web stuff builtin. To do web programming you need to pick some library/ framework like CGI.pm or Catalyst for example.

Re: Is there a perl equivalent to PHP variables $_POST and $_GET?

2007-06-11 Thread Ovid
- Original Message From: On Ali [EMAIL PROTECTED] Is there a perl equivalent to PHP variables $_POST and $_GET? It would be easy to create, but what you really want is the CGI module: #!/usr/bin/perl use strict; use warnings; use CGI ':standard'; my $id= param('id');

Re: Is there a perl equivalent to PHP variables $_POST and $_GET?

2007-06-11 Thread Tom Allison
use CGI: my $q = new CGI; my $method = $q-request_method(); Like the other guy said, Perl is a general purpose language. If you want specific HTTP stuff you'll have to load specific modules to do that. This is one example. You can do the same thing using Fast CGI and mod_perl as well.

Re: Usenet messages are appearing on beginners@perl.org

2007-06-11 Thread Randal L. Schwartz
kens == kens [EMAIL PROTECTED] writes: kens The group you are posting to is a Usenet group. Messages posted to kens this group will make your email address visible to anyone on the kens Internet. And Google Groups once again blurs the wrong lines. beginners@perl.org has *never* been a Usenet

Re: Usenet messages are appearing on beginners@perl.org [perl #43141]

2007-06-11 Thread Randal L. Schwartz
Mumia == Mumia W mumia.w.18.spam writes: Mumia I apologize to the list owner and everyone else. There are several Mumia news-to-mail gateways that place onto beginners[at]perl.org, and they've been Mumia doing it for at least a year. The problem is on my end. Mumia A few simple additional

Writing data row at a time using OLE

2007-06-11 Thread ash
Hi everyone! I am using Win32::OLE for writing data in existing Excel file. I would like to know how to write data one row at a time. Writing one cell at a time is too slow, it took 17mins to write 527KB file. Thank you all very much for your help :). -- To unsubscribe, e-mail: [EMAIL

Re: Writing data row at a time using OLE

2007-06-11 Thread Mumia W.
On 06/11/2007 08:59 AM, ash wrote: Hi everyone! I am using Win32::OLE for writing data in existing Excel file. I would like to know how to write data one row at a time. Writing one cell at a time is too slow, it took 17mins to write 527KB file. Thank you all very much for your help :). You

Re: new vs -new

2007-06-11 Thread Robert Hicks
Dr.Ruud wrote: Adriano Ferreira schreef: Definitely go with my $test = Some::Module-new; or even with: my $test = Some::Module::-new(); While I am sure that will work...I have never seen it with parens after the new. Robert -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

Re: new vs -new

2007-06-11 Thread Adriano Ferreira
On 6/11/07, Robert Hicks [EMAIL PROTECTED] wrote: Dr.Ruud wrote: Adriano Ferreira schreef: Definitely go with my $test = Some::Module-new; or even with: my $test = Some::Module::-new(); While I am sure that will work...I have never seen it with parens after the new. As the docs

flock question

2007-06-11 Thread oryann9
In this code: BEGIN { use Fcntl ':flock'; open( DATA, qq(C\:\\temp\\file.txt) ) or die file handle was not opened: $!; for my $foo (DATA) { print $foo; } flock DATA, LOCK_EX | LOCK_NB or exit 0; } Is there anything more one could add to this statement from the

Re: flock question

2007-06-11 Thread Chas Owens
On 6/11/07, oryann9 [EMAIL PROTECTED] wrote: snip If you use LOCK_NB and are refused a LOCK_SH, then you know that someone else has a LOCK_EX and is updating the file. If you are refused a LOCK_EX, then someone holds either a LOCK_SH or a LOCK_EX, so you shouldn't try to update the file. snip

Re: new vs -new

2007-06-11 Thread Dr.Ruud
Paul Lalli schreef: Dr.Ruud: Adriano Ferreira: Definitely go with my $test = Some::Module-new; or even with: my $test = Some::Module::-new(); For the love of $DEITY, why? quote src=Johan Vromans If you use A::B::-new(); you'll get a compile time check on whether module A::B is

Re: Writing data row at a time using OLE

2007-06-11 Thread ash
On Jun 11, 12:39 pm, [EMAIL PROTECTED] (Mumia W.) wrote: On 06/11/2007 08:59 AM, ash wrote: Hi everyone! I am using Win32::OLE for writing data in existing Excel file. I would like to know how to write data one row at a time. Writing one cell at a time is too slow, it took 17mins to

Is there an EXIF for video files ?

2007-06-11 Thread TDJ
I use a Perl script to download images from my digital camera, and rename according to my archive standards. I read the original capture date using EXIF headers in the JPEG file. But about the video.. is it possible to read similar information from a video file (in MJPEG format) ? Basically

Re: Is there an EXIF for video files ?

2007-06-11 Thread Tom Phoenix
On 11 Jun 2007 21:40:40 -, TDJ [EMAIL PROTECTED] wrote: But about the video.. is it possible to read similar information from a video file (in MJPEG format) ? Basically what is need is to know when f.ex MOV_0193.MPG was shot Have you looked on CPAN?