hello sir,
i am complete my project in perl but now i want to publish this
project on web.
so the problem is html page does not send information to my perl script.
my Problem is : -
In html page take a file through browse button or take a sequence(text) in
text box and these text
govinder singh wrote:
: so the problem is html page does not send information to my
: perl script.
You need a form to do this. In the form tag is an element
named action. IT should be set to the url of your script.
For example, if your script is located on the same server and
is in the
Hi,
I'm have the following multi-line variable:
$a = qw(
Date: Thu, 3 Jun 2004 16:59:26 -0400
Message-Id: [EMAIL PROTECTED]
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii );
When I split it with @b = split (/\n/, $a);
All I get in @b is the last word in the variable
I have no idea how to do this. I have tens of thousands of lines in a text
file that houses numbers for internal purposes. There are usually 20 on a
line, with a range of (01 - 80).
Example:
my @data = (
'08|10|13|16|19|22|28|32|33|37|41|46|47|50|51|52|53|55|71|76',
$a = qq~Date: Thu, 3 Jun 2004 16:59:26 -0400
Message-Id: [EMAIL PROTECTED]
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii~;
@b = split (/\n/, $a);
foreach (@b){
print $_\n
}
- Chris
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
steve silvers wrote:
I have no idea how to do this. I have tens of thousands of lines in a
text file that houses numbers for internal purposes. There are usually
20 on a line, with a range of (01 - 80).
Example:
my @data = (
'08|10|13|16|19|22|28|32|33|37|41|46|47|50|51|52|53|55|71|76',
You don't tell us what you want to do with it but this will find out how
many 10's and 11's... etc are in the block. You should be able to adapt it
to your specific needs.
==
my @data = (
'08|10|13|16|19|22|28|32|33|37|41|46|47|50|51|52|53|55|71|76',
-Ursprüngliche Nachricht-
Von: steve silvers [mailto:[EMAIL PROTECTED]
Gesendet: Mittwoch, 10. November 2004 17:02
An: [EMAIL PROTECTED]
Betreff: Probably need help with a hash to do this
I have no idea how to do this. I have tens of thousands of
lines in a text
file that
steve silvers wrote:
I have tens of thousands of lines in a text file that houses
numbers for internal purposes. There are usually 20 on a line,
with a range of (01 - 80).
my @data = (
'08|10|13|16|19|22|28|32|33|37|41|46|47|50|51|52|53|55|71|76',
Hi
Guys,
On my machine (AP
5.8.4), the following code runs fine when the use Win32::OLE line is commented,
but throws an exception at the end when it is not. Anybody know why? Am I doing
something silly, or is this module known to have problems with
threads?
Cheers,
Paul
use
Hi,
I am not sure if this is the right list for this question.
I suspect it belongs on a list about CPAN, but the CPAN
site doesn't appear to mention one.
I am working on Windows, and find I keep writing very
short Perl scripts to implement UNIX utilities. I call
them zap_grep, zap_wc,
Hi, List.
I'm trying to find a way of reading Internet Certificates from within a Perl program, instead of using the Certificates button (Internet Explorer/Tools/Internet Options/Content/Certificates). I'm unable to find much in the registry.
From the Perl Monastery I've gotten suggestions to
* Martin Leese [EMAIL PROTECTED] [10/11/04 20:51]:
Hi,
I am not sure if this is the right list for this question.
I suspect it belongs on a list about CPAN, but the CPAN
site doesn't appear to mention one.
I am working on Windows, and find I keep writing very
short Perl scripts to
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Martin Leese
Sent: Wednesday, November 10, 2004 1:40 PM
To: [EMAIL PROTECTED]
Subject: UNIX utilities in Perl
Hi,
I am not sure if this is the right list for this question.
I suspect it
Martin,
I suggest that you look at cygwin http://www.cygwin.com/ for a
Unix/Linux
like environment on Windows. All the commands you've mentioned are
available as precompiled windows binaries.
Alternatively, you could also try MKS Toolkit http://www.mks.com/ but
it's
not free and in my
Time::ParseDate
I lost it! I thought it was in the DdP repository.
Where did it go? I just installed this 2 weeks(?) ago with ppm.
Now a search is showing up nothing.
Thanks
[1] Roth Consulting
[2] ActiveState PPM2 Repository
[3] ActiveState Package Repository
[4] University of Winnipeg
[5]
My understanding of your problem is different from the other responders. I
believe what you want is the intersection of each row of numbers. If
this is correct, the following works:
#!perl -w
use strict;
use List::Compare;
my @data = (
I am not sure if this is the right list for this question.
Perl-Unix-Users would have been best.
I am working on Windows, and find I keep writing very
short Perl scripts to implement UNIX utilities. I call
them zap_grep, zap_wc, zap_unique, zap_diff, zap_sort.
My versions are very crude
Time::ParseDate
I lost it! I thought it was in the DdP repository.
Where did it go? I just installed this 2 weeks(?) ago with
ppm. Now a search is showing up nothing.
ppm install Time-modules
--
Mark Thomas
Internet Systems Architect
___
BAE SYSTEMS
Well, actuall none of the posts are right. Allthough I appreciate all the
responses. Were looking for I guess a way to put it, is patterns in the
lists. Take the below sample of only 7 lines:
my @data = (
'08|10|13|16|19|22|28|32|33|37|41|46|47|50|51|52|53|55|71|76', # row 1
Well, actuall none of the posts are right. Allthough I
appreciate all the responses.
What you describe is exactly what I gave you. Did it not work for you?
Here's the output using your two-row example:
Intersection: 16,19,50,71,76
Here's the output using your three-row example:
Sorry, you were right. What threw me off was you adding all the 99's to the
end of each row.. Thank you for the help, this will get me started.
Steve
From: Thomas, Mark - BLS CTR [EMAIL PROTECTED]
To: 'steve silvers' [EMAIL PROTECTED]
CC: [EMAIL PROTECTED]
Subject: RE: Probably need help with a
Title: RE: Probably need help with a hash to do this
List::Compare does look like a neat way to do this. If you want to do code it yourself you could also use this fairly simple code.
use strict;
my @data = "">
'08|10|13|16|19|22|28|32|33|37|41|46|47|50|51|52|53|55|71|76', # row 1
I'm trying to write a simple Win32::GUI wrapper to a command-line
program that requires both command line options and user interaction.
That is, I want to take the following:
C:\ myprog -d filename.txt.enc
Enter password for filename.txt.enc:
P4ssw0rd
Password OK, extracted to filename.txt
And
If you are looking to determine which numbers are on every line, the
following code will do that.
The data set you presented didn't have a number that appeared on every
line, so changed one of the numbers in your data set so there'd be some
output.
use strict;
use warnings;
my %hash;
my
Chris wrote:
$a = qq~Date: Thu, 3 Jun 2004 16:59:26 -0400
That should be q~ rather than qq~ to prevent @ interpolation below.
Message-Id: [EMAIL PROTECTED]
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii~;
@b = split (/\n/, $a);
foreach (@b){
print $_\n
}
I
Thomas, Mark - BLS CTR wrote:
I am not sure if this is the right list for this question.
Perl-Unix-Users would have been best.
I disagree. He's asking a Windoze Q that pure UNIX users are not going
to know anything about.
I am working on Windows, and find I keep writing very
short Perl
Paul Sobey wrote:
Hi Guys,
On my machine (AP 5.8.4), the following code runs fine when the use
Win32::OLE line is commented, but throws an exception at the end when it
is not. Anybody know why? Am I doing something silly, or is this module
known to have problems with threads?
Cheers,
Several years ago, Tom Christiansen started the Perl Power Tools project
with a goal of reimplementing all the Unix utilities in Perl. They got
reasonably far, but the project stagnated around 2001. However, this year a
new site was born for it, so they may have regained momentum:
If this is personal use on your machine, why don't you install cygwin? That
will give a bash shell on your Windows box you can use for most of the
shell work that you were accustomed to. (http://www.cygwin.com/)
Just a thought.
John Wunderlich
Project Manager
Ceridian
[EMAIL PROTECTED]
Tel:
Forgot to add that Windows Services for Unix is now a free download as well
from Microsoft. I haven't used it so can't speak to its utility.
Later,
John Wunderlich
Project Manager
Ceridian
[EMAIL PROTECTED]
Tel: 514-908-3094
Fax: 514-908-3094
Mob: 514-827-7305
216 3 (superscript: ieme
On Thu, 11 Nov 2004, Suresh Govindachar wrote:
Several years ago, Tom Christiansen started the Perl Power Tools project
with a goal of reimplementing all the Unix utilities in Perl. They got
reasonably far, but the project stagnated around 2001. However, this year a
new site was born for
[EMAIL PROTECTED] wrote:
If this is personal use on your machine, why don't you install cygwin? That
will give a bash shell on your Windows box you can use for most of the
shell work that you were accustomed to. (http://www.cygwin.com/)
The problem (for me) is that Cygwin has an emulation
33 matches
Mail list logo
