I'm working on Win2003.
I installed my perl from cygwin instead of directly installing it myself. It
seems to work fine for the cgi files executed by Apache HTTPD (hurray!).
However, when I use the OpenPerlIDE 1.0.11 the debugger dies on the
following line inside perl5db.pl:
my $result =
Any one here use OptiPerl to make CGI??
I have questions if you do.
Lou
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Hi
I have two directories with a path as shown below
c:\test\result\... and d:\test2\result2\...
The directory stucture and files after these are the same. i.e if there is a directory
xyz within c:\test\result\, there will be a corresponding directory xyz within
d:\test2\result2\ with the
On Fri, 18 Jun 2004 12:38:43 -0400, [EMAIL PROTECTED] wrote:
All,
Does perl have built in variable names such as in awk? Here are the ones
in awk
I know perl uses ARGV, but what about:
ARGC # of command lines arguments - In the array @ARGV
FILENAME name of current input file - current input file
http://www.perl.com/pub/a/2004/06/18/variables.html
On Fri, 18 Jun 2004 12:38:43 -0400, [EMAIL PROTECTED] wrote:
All,
Does perl have built in variable names such as in awk? Here are the ones
in awk
I know perl uses ARGV, but what about:
ARGC # of command lines arguments
FILENAME name of current
Hi,
I have small problem.
I want to truncate a line in a text file using C file handling functions
and write new line in place of it. How do I do it?
e.g.
example.txt
Line 1: This is a text file.
Line 2: Second line of it.
Now I want to truncate first line and replace it with suppose following
Accidently chose a wrong News-Group.
but if you know ans. Your Welcome.
THANX,
AMIT K.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
This must do the job but there must be a more nice looking way of doing this
Code
___
compare(c:\\program files,d:\\program files); #Example call
sub compare($$){
my ($p1, $p2) [EMAIL PROTECTED];
print comparing $p1 with
Hi,
Has any body used Frontier::RPC2 to made XMLRPC CGI
server.
I need some example code.
Thanks in advance.
/Ashish/
__
Do you Yahoo!?
Yahoo! Mail Address AutoComplete - You start. We finish.
http://promotions.yahoo.com/new_mail
--
To
Thanks to all who responded. Much appreciated. It works, but please allow me
to sight an example. The data pattern looks like this;
Aword
Some Alphanumeric long string columnized format
Some Alphanumeric long string columnized format
Some Alphanumeric long string columnized format
Aword
Some
Problem:
I have a field $cusip that has to change from ABC123-XX-7 (9 characters with '-') to
ABC123XX (first 8 characters only without '-')
I have following lines of code:
:
:
$cusip =~ s/\-//g;
$cusip =~/.${8}$/$1/g;
:
:
Is there a shorter way to transform this.
- Amit
Virmani, Amit (GMI Debt Technology) wrote:
Problem:
I have a field $cusip that has to change from ABC123-XX-7 (9
characters with '-') to ABC123XX (first 8 characters only without
'-')
If the field is truly a constant as you state, then two substr would be just
as good:
Naser Ali wrote:
It works,
What is it that works?
The data pattern looks like this;
Aword
Yep, that's one word.
snip
Aword Anotherword
That's two words. None of the posted suggestions matches that line.
You said in your original post:
I want to only match those array elements which contain a
On Jun 16, 2004, at 2:25 PM, Naser Ali wrote:
Thanks James,
I totally agree with you and appreciate your comments.
I was going to refine the whole code by putting in better logic, naming
convention, and error handling. I just posted the code baically to
share the
basic logic of handling the
Hi List , I have this to print:
1
2
3
with this script but it didn't work:
#!/usr/bin/perl
use strict;
use warnings;
{
local $/;
my $file = DATA;
while ($file =~ /^\s+(\d+).(.+)$/) {
print $1\n if $2 =~ /extractStat/;
}
}
__DATA__
?tatID Jour
Hi,
Is there a way to explicitly open a handle to the console, or wherever
STDOUT/STDERR are directed to by default?
My process is running in an environment in which STDOUT and STDERR have
already been redirected. I want to intercept these streams when running
command line tools, then
Goncalves, Jorge (Ext) wrote:
Hi List , I have this to print:
1
2
3
with this script but it didn't work:
#!/usr/bin/perl
use strict;
use warnings;
{
local $/;
my $file = DATA;
while ($file =~ /^\s+(\d+).(.+)$/) {
print $1\n if $2 =~ /extractStat/;
}
Thank you for pointing me in the right direction. That did work.
Ahmer
-Original Message-
From: BOLCATO CHRIS (esm1cmb) [mailto:[EMAIL PROTECTED]
Sent: Monday, June 21, 2004 10:43 AM
To: Khan, Ahmer H; [EMAIL PROTECTED]
Subject: RE: Using regular expression as a variable.
Hello,
Jorge Goncalves wrote:
Hi List , I have this to print:
1
2
3
with this script but it didn't work:
No, it does not even compile. :(
while ($file =~ /^\s+(\d+).(.+)$/) {
You always need the /g modifier when using the m// operator that way
in a while loop. In this case you also need the /m
Hi,
I need to retrieve the following system Info from the current system.
1. Operating System
2. Localization
3. 32 Bit or 64 Bit
I searched but could get only this info $^O. This gives only MSWINNT
but nut much info.
Could anyone let me know where can I such info?
Thanks and
Check out the Win32::TieRegistry module. It's pretty easy to get that
info from the Registry.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 22, 2004 11:32 AM
To: [EMAIL PROTECTED]
Subject: [Doubt]: Retrieve System Info like Which OS and type
Hello. I am using variables that are local in my scripts by doing the my
$variable_name technique.
Can someone tell me if there is an official way to define a global variable?
Jason Corbett wrote:
Can someone tell me if there is an official way to define a global
variable?
use vars qw($global1 $global2);
or
our ($global1, $global2);
The latter cannot be used in Perl versions previous than 5.6.0. Note
that the two methods do not do exactly the same thing; see
Given this piece of code (where ${components[${i}]} is 'email'):
eval
{
my ${name} = 'IWAPI::ExternalTasks::' . ${components[${i}]};
no strict;
eval( ${name}( -files = [EMAIL PROTECTED], -area = ${area}, -wftask =
${wftask}, -wfworkflow = ${wfworkflow} ));
use
Naser Ali wrote:
Naser Ali wrote:
I have an array which was created by slurrping a whole text file. There
are certain element in the array after reading the files which contain
only one word. I want to only match those array elements which contain
a single word and print it. Tried every
Jason Corbett wrote:
Hello. I am using variables that are local in my scripts by doing the my
$variable_name technique.
Can someone tell me if there is an official way to define a global variable?
Perl doesn't really have global variables (like BASIC does), except
for some of the special
Jason Gray [EMAIL PROTECTED] wrote in message news:...
Could I do this?
sub check_fields {
my $q = shift;
my $match;
my @fields = ('name', 'email', 'city', 'state', 'message');
foreach my $field (@fields) {
next if ($q-param($field));
$match = 0;
print Please fill in your .
27 matches
Mail list logo