On Wed, 13 Dec 2000, Alloun, Jonathan wrote:
Hello,
I need to search an array and chop it up based on finding a search pattern.
For example:
@a = "date=12.10.2000"
if (@a =~ /"date"/) {
print("\nFound date in @a!\n");
}
But Perl does not find date enven though it is in the
You can use the Getopt module
myscript.pl
use Getopt::Long;
use vars qw($date);
GetOptions('D=s' = \$date);
print "\n date is $date";
***
$perl myscript.pl -D="12/21/00"
should print
date is 12/21/00
Hello,
There is a file with the following info:
H23234 2000.12.11 00.15.00 10.254.345.345
H54544 2000.12.12 06.15.00 10.254.345.456
---
some number .mm.dd hh.mm.ss ip address
= year
mm = month
dd = day
hh = hour
mm = minutes
ss = seconds
I'm writing a perl script to handle a CGI request. The script needs to
create a MS Word document on the fly so I'm using Win32::OLE to automate
Word. For the CGI part I use the CGI package.
I am able to make the script work just fine from the command line but when I
try to use it as a CGI
From: "Doug C. Fisher" [EMAIL PROTECTED]
use arrays and hashes.
From: Alloun, Jonathan [mailto:[EMAIL PROTECTED]]
Hello,
There is a file with the following info:
H23234 2000.12.11 00.15.00 10.254.345.345
H54544 2000.12.12 06.15.00 10.254.345.456
And pattern matching:
if ($line =~
"Alloun, Jonathan" wrote:
There is a file with the following info:
H23234 2000.12.11 00.15.00 10.254.345.345
H54544 2000.12.12 06.15.00 10.254.345.456
---
some number .mm.dd hh.mm.ss ip address
= year
mm = month
dd = day
hh
Hello,
I am facing the age-old problem of having my Perl-Tk
interface appear locked up because my read from a pipe is
blocking.
This is to say:
=
open(BPIPE, "command_name |");
while (BPIPE) {
LogMessage "LINE:$_\n";
$HMain-update();
i gave up trying to get fork to work reliably on windows a couple months back
at least until i see something that tells me it is working correctly
you might just pop up a "working" doalog while it is reading, then dismiss it when you
are done
---tom
*** REPLY SEPARATOR ***
On
"Doughty, Matt" wrote:
Umm.. I would suggest either using
select to create a non blocking file
handle or perhaps filevent() from Tk
but I really think you are best off
using non blocking IO.
something like this:
use IO::Select;
my $timer = 50;
my $s = IO::Select-new();
open(FH, "cmd
Dope... I guess I jumped the gun... I have only done it with sockets myself. :) and
Unfortunately, I
made the mistake of double checking myself on unix box. Oh well, it was a nice
thought. I guess that leaves
the option of fileevent maybe.
Matt Doughty BOT BSC Japan
-Original
When I try to verify installed modules this is what happens:
---START---
C:\ppm
PPM interactive shell (2.1.1) - type 'help' for available commands.
PPM verify
Package 'MIME-Lite' is up to date.
Package 'Class-Tom' is up to date.
Package 'MD5' is up to date.
Package 'DBD-Oracle' is up to date.
From: tphan [EMAIL PROTECTED] on 12/13/2000 12:30 PM
Please respond to [EMAIL PROTECTED]@SMTP@JVEXCHANGE
To: [EMAIL PROTECTED]@SMTP@JVEXCHANGE
cc:
bcc:
Subject:RE: use strict; w/example
Hi,
If I tried
I've written a routine using GD to make a hex map for a game I'm writing.
I build the image object and add a series of polygons to it. Works fine
even to a large size. I then needed to add text to each hex, the x and y
coordinates to each. When I make a large scale map that worked fine
My apologies. I shouldn't try to ask questions when I haven't had enough
sleep to phrase them properly. After rereading my question, I thought I
should clarify a few things.
I've written a routine using GD to make a hex map for a game I'm writing.
I build the image object and add a series
Hi and Happy Holidays -
Does anyone have experiences with Perlex that they would share? I'm
considering purchasing it to compile CGI scripts and enhance performance.
Are there any nasty surprises awaiting me, and are there any better
solutions?
Thanks for your input.
Steve Keith
15 matches
Mail list logo