JAPH wants to get banking data daily.
I have looked through LWP info but do not fully
understand use. I have been looking for examples
but no success.
How do I get this done?
Pseudo:
Load Modules ??
Define/Declare objects
Goto HTTPS with $username, $password and
It doesn't work because you check for the beginning and the end head tags
in the same line, but you have splitted the text in more lines, and the
head can be found in a line but the /head tag on another line probably.
You can use something like this:
$html =~ s|head[^]*.*?/head[^]*||si;
So you
Dawn Bradshaw wrote:
Hi!
Does anyone have experience with making a perl script run on the web?
Specifically, I'm having trouble collecting the answers the users give
on the web page and incorporating them into the script. The script
itself runs fine on the web server.
Any suggestions,
Dear All,
I am new to LWP and Perl, but I need them to extract
data from a website where I fill in some search
parameters and the website returns links to the actual
text I need. Since I am searching data of a long list
of companies, I want to automate the process with
Perl.
From the html
Sara == Sara [EMAIL PROTECTED] writes:
Sara I have a couple of text files with html code in them.. e.g.
Sara -- Text File --
Sara html
Sara head
Sara titleThis is Test File/title
Sara /head
Sara body
Sara font size=2 face=arialThis is the test file contentsbr
Hi all.
This may be very simple, however I am missing something. I want to pipe
information into a perl script. Yet, I can not figure out what type of
system variable it will use. $_ , @_ , or even %_.
The program is going to pipe the information into a PERL script which in
turn will use a
On Friday, Sep 5, 2003, at 07:45 US/Pacific,
[EMAIL PROTECTED] wrote:
[..]
This may be very simple, however I am missing something. I want to
pipe
information into a perl script. Yet, I can not figure out what type of
system variable it will use. $_ , @_ , or even %_.
do you mean pipe as in
Hello,
I have been trying a number of ways to determine whether a file exists in a particular
directory, but to no avail.
The perl books I have (and many web sites/forums I have checked) mention the '-e' test
on a filehandle or filename, but it returns false (the file does not exist) even if it
B. Fongo [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Hello
An argument passed to a subroutine returns wrong value.
Code example:
@x = (1..5);
$x = @x;
here, $x gets the number of elements in @x
showValue ($x); # or showValue (\$x);
sub showValue {
my $forwarded
Paul Archer wrote:
4:09pm, Ramprasad A Padmanabhan wrote:
And the problem is not simply a puzzle, nor is it homework. If you had read
my post more carefully, you would see that I am 1) *teaching* the class, and
2) want to be able to show off one concept (the range operator) before we
have
Hi,
Is there a way to get the information returned by the VC++ fn
GetVersionInfo( ); thru any of the perl structures / commands ?
PS : If this is too easy a question...plz pardon my ignorance but I'm really
new to perl !
Regards,
Shishir Saxena
--
Shishir Saxena [EMAIL PROTECTED] wrote:
: Is there a way to get the information returned by the VC++ fn
: GetVersionInfo(); thru any of the perl structures / commands?
What does GetVersionInfo() return?
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home
Hi,
It reads the resource of the file on which the function is used on and it
returns a
collective string that has everything that is part of the resource like,
copyright info,
build number (if a components or executable), date of creation etc. I intend
to
then creat a log of that information.
Hello all,
Suppose I have a huge array of filenames and I want to move them
I would like to move 1 chunk at a time on 'n' elements
How Can I efficiently do it ?
something like
@allfiles = () # 1 files
@smallchunks = split_to_chunks(@allfiles,100);
# This
I'm not sure if this is a bug.
I'm running Perl 5.8 on a Windows 2000 Pro system (with SP4 and all latest
hotfixes installed).
Running perl -v I get:
This is perl, v5.8.0 built for MSWin32-x86-multi-thread
~~
The problem is I do not get correct result from the following code:
Hi all,
When I use Mail::IMAPClient I am getting charachters encoded in the
following way
=?iso-8859-1?q?EDM=
How Can I decode them
Ram
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi ,
I am a beginner in perl I would like to know how to reset a file
pointer in perl. Is their a rewind command in perl
Sachin
Sachin Mathur said:
Hi ,
I am a beginner in perl I would like to know how to reset a file
pointer in perl. Is their a rewind command in perl
No. Use seek()
perldoc -f seek
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
On Fri, Sep 05, 2003 at 03:25:46PM +0530 Sachin Mathur wrote:
Hi ,
I am a beginner in perl I would like to know how to reset a file
pointer in perl. Is their a rewind command in perl
Yes, it's called seek():
use Fcntl qw/:seek/;
seek FILE, 0, SEEK_SET;
The first line is only for
Hi all,
I am currently learning perl reading all the material I can get my hands on, but have
no use for it on a daily basis.
Because of this I am not getting the practice I need on a day-to-day basis to gain
more knowledge.
Having covered all the questions in books like 'Learning Perl' etc I
Well since you've asked for it how about doing this,
I want to make a cross-platform utility that when provided with the location
of a directory structure generates the following log,
1) Date of creation
2) Size on Disk
3) Build number of the component / executable.
4) Copyright info (if
Hi!
Does anyone have experience with making a perl script run on the web?
Specifically, I'm having trouble collecting the answers the users give
on the web page and incorporating them into the script. The script
itself runs fine on the web server.
Any suggestions, advice or help would be
From: Ramprasad A Padmanabhan [EMAIL PROTECTED]
Suppose I have a huge array of filenames and I want to move them I
would like to move 1 chunk at a time on 'n' elements
How Can I efficiently do it ?
something like
@allfiles = () # 1 files
@smallchunks =
Quite the open-ended question there, my dear.
What you're looking for is a way to receive data through a web server, most
likely Apache (the most commonly used web server, but any would do), and
manipulate it and then send it out through the web server to the
requesting/submitting web browser,
Sounds interesting. I'll give it a whirl.
Hope you won't be waiting for me to code it though as it might take me a while to get
it running smoothly, esspeically with it being cross platform.
From: Shishir Saxena [EMAIL PROTECTED]
Date: 2003/09/05 Fri AM 10:33:56 GMT
To: Ged [EMAIL
Hi folks,
I've got a problem I hope you can help me with.
I've got to tidy some data, including converting case. I need to convert
ANOTHER COMPANY NAME LTD **
to
Another Company Name Ltd **
while retaining spaces.
I've tried using split / join / lc / ucfirst which does most of
Hi ,
I need some help me to extract a pattern. The delimiters is a pair of abcd and
efgh. Can some one help me with an efficient use of Greedy and non greedy matches,
look ahead and lookbehind features.
I want the smallest match involving the two delimiters. I want all the matches. i.e.
On Friday, September 5, 2003, at 08:14 AM, Gary Stainburn wrote:
Hi folks,
I've got a problem I hope you can help me with.
I've got to tidy some data, including converting case. I need to
convert
ANOTHER COMPANY NAME LTD **
to
Another Company Name Ltd **
while retaining spaces.
Does anyone already have a perl script that checks to see if a file exists
or not a Windows Platform?
Anthony J Segelhorst
Enterprise Systems Management Team
Phone: 937-495-1876
Email: [EMAIL PROTECTED]
This email has
From: Gary Stainburn [EMAIL PROTECTED]
I've got to tidy some data, including converting case. I need to
convert
ANOTHER COMPANY NAME LTD **
to
Another Company Name Ltd **
while retaining spaces.
$text =~ s/(\w+)/\L\u$1/g;$y
Jenda
= [EMAIL PROTECTED] ===
How can I kill a hash? I don't want to kill the entire hash just one
element.
$hash{key}=value - I just want to remove this one not all of %hash.
Paul Kraus
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
delete($hash{key})
-Original Message-
From: Paul Kraus [mailto:[EMAIL PROTECTED]
Sent: Friday, September 05, 2003 3:29 PM
To: [EMAIL PROTECTED]
Subject: Undef hash
How can I kill a hash? I don't want to kill the entire hash just one
element.
$hash{key}=value - I just want to remove
On Friday 05 Sep 2003 2:25 pm, Jenda Krynicky wrote:
From: Gary Stainburn [EMAIL PROTECTED]
I've got to tidy some data, including converting case. I need to
convert
ANOTHER COMPANY NAME LTD **
to
Another Company Name Ltd **
while retaining spaces.
$text =~
Jenda Krynicky said:
From: Gary Stainburn [EMAIL PROTECTED]
I've got to tidy some data, including converting case. I need to
convert
ANOTHER COMPANY NAME LTD **
to
Another Company Name Ltd **
while retaining spaces.
$text =~ s/(\w+)/\L\u$1/g;$y
\L\u -- isn't perl
On Friday, September 5, 2003, at 08:52 AM, Gary Stainburn wrote:
On Friday 05 Sep 2003 2:25 pm, Jenda Krynicky wrote:
From: Gary Stainburn [EMAIL PROTECTED]
I've got to tidy some data, including converting case. I need to
convert
ANOTHER COMPANY NAME LTD **
to
Another Company Name Ltd
I need to do some kind of generic log trow my code, this will be used just
in debug mode.
I has sinking something like.
sub prepareLog{
foreach my $functionName (xpto()) {
next if not toLog($functionName);
*$functionName = sub {
Anthony J Segelhorst [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Does anyone already have a perl script that checks to see if a file exists
or not a Windows Platform?
if (-e $filename) {print There it is\n}
Anthony J Segelhorst
Enterprise Systems Management Team
Phone:
Pandey Rajeev-A19514 [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Hi ,
Hello
I need some help me to extract a pattern. The delimiters is a pair of
abcd and efgh. Can some one help me with an efficient use of Greedy and
non greedy matches, look ahead and lookbehind features.
I
Hi,
I am trying to modify some file sin place usinh the -i switch of
perl. In each of the files however I need to replace certain strings with
file name it self.
When I try the following command
perl -i.orig -pe 's/NAME/$0/' `ls -1`
Will replace 'NAME' with '-e' in all the files
How can
Raj (Basavaraj) Karadakal said:
Hi,
I am trying to modify some file sin place usinh the -i switch of
perl. In each of the files however I need to replace certain strings with
file name it self.
When I try the following command
perl -i.orig -pe 's/NAME/$0/' `ls -1`
Will replace
Ramprasad == Ramprasad A Padmanabhan [EMAIL PROTECTED] writes:
Ramprasad Hello all,
Ramprasad Suppose I have a huge array of filenames and I want to move them
Ramprasad I would like to move 1 chunk at a time on 'n' elements
Ramprasad How Can I efficiently do it ?
Ramprasad something like
Marcos == Marcos Rebelo [EMAIL PROTECTED] writes:
Marcos I need to do some kind of generic log trow my code, this will
Marcos be used just in debug mode.
First, you might just consider running your code under the debugger.
You can make a custom debugger hook that traces exactly what you want,
Raj == Raj Karadakal [EMAIL PROTECTED] writes:
Raj Hi,
RajI am trying to modify some file sin place usinh the -i switch of
Raj perl. In each of the files however I need to replace certain strings with
Raj file name it self.
Raj When I try the following command
Raj perl -i.orig -pe
Shishir == Shishir Saxena [EMAIL PROTECTED] writes:
Shishir I want to make a cross-platform utility that when provided
Shishir with the location of a directory structure generates the
Shishir following log,
Shishir 1) Date of creation
Not possible in Unix.
--
Randal L. Schwartz - Stonehenge
On Thu, 4 Sep 2003 [EMAIL PROTECTED] wrote:
basename is more convenient i think. What do you say?
Only if you can load the module on the system. running into issues here at
work where I can load modules (security llama's)
Denis
Quoting [EMAIL PROTECTED]:
On Mon, 1 Sep 2003 [EMAIL
Ramprasad A Padmanabhan wrote:
Hello all,
Hello,
Suppose I have a huge array of filenames and I want to move them
I would like to move 1 chunk at a time on 'n' elements
How Can I efficiently do it ?
something like
@allfiles = () # 1 files
@smallchunks =
Sorry, lack of sleep.. but isn't File::Basename usally installed in the
standard Perl install?
Denis
On Fri, 5 Sep 2003 [EMAIL PROTECTED] wrote:
On Thu, 4 Sep 2003 [EMAIL PROTECTED] wrote:
basename is more convenient i think. What do you say?
Only if you can load the module on the
Then we have to install it. However, in activestate's distribution there is
the specific modul preinstalled.
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Cc: Perl Beginners [EMAIL PROTECTED]
Sent: Friday, September 05, 2003 7:33 PM
Subject: Re: cutting a string
I am trying to figure out how clever it actually is.
I reversed \L\u with \u\L expecting different results and got the same result.
Another Company Name Ltd
Why didn't reversing the metacharacters change the results.
the \L escape forces lowercase
When written in lowercase (\l and \u), they
Hi,
Does anyone have code, or are there modules out there, for calculating
probabilities for the bivariate normal distribution?
thanks,
sam cook
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi ,
case 1:
my $hostname = '10.10.2.45';
my $prompt1 = '/\$/';
my $name = 'administrator';
my $password = 'nn';
my $string = 'net start ';
my $session1 = Net::Telnet-new(Host = $hostname,) ; $session1-login(Name =
$name, Password = $password, Prompt = $prompt1,);
my @output =
On Fri, 5 Sep 2003 14:47:31 -0400 (EDT), Samantha Cook [EMAIL PROTECTED] wrote:
Hi,
Does anyone have code, or are there modules out there, for calculating
probabilities for the bivariate normal distribution?
Well a very quick look, and
I have a problem with hashes and trying to understand them, I have read
the perldoc intersection and looked into the Perl Cookbook, and still do
not understand how I should handle this problem.
I have a master file with part number and quantity in it. I also have a
file that has the same
John Fisher wrote:
I am trying to figure out how clever it actually is.
I reversed \L\u with \u\L expecting different results and got the same
result. Another Company Name Ltd
Why didn't reversing the metacharacters change the results.
[snip]
$pt=~s/(\w+)/\u\L$1/g
I am only a Perl beginner myself (there is probably much better ways to
do this) but I put this together, I did not use the $ARGV array but that
should be easy to change, I also manually deleted blank lines and spaces
from the input files so you might want to check for those when you are
looping
On Friday, September 5, 2003, at 02:07 PM, Larry Sandwick wrote:
I have a problem with hashes and trying to understand them, I have read
the perldoc intersection and looked into the Perl Cookbook, and still
do
not understand how I should handle this problem.
I have a master file with part
Larry Sandwick wrote:
I have a problem with hashes and trying to understand them, I have read
the perldoc intersection and looked into the Perl Cookbook, and still do
not understand how I should handle this problem.
perldoc perldata
I have a master file with part number and quantity in
John W. Krahn wrote:
I would read the data file first and then modify the master file:
my $fname = shift || 'scanned.file';
open DATA, $fname or die Could not open $fname: $!;
my %data = map /^([^,]+),\s*(\d+)/, DATA
Should be a semicolon at the end.
my %data = map /^([^,]+),\s*(\d+)/,
Hi all,
I always get three identical copies of a message all the time,
therefore, I just wonder if anyone has the same situation as mine!
Thanks!
BTW, it is a great ML!!! Happy knowledge sharing!
Nelson
On Fri, Sep 05, 2003 at 12:29:31PM -0700, david wrote:
John Fisher wrote:
I am trying to figure out how clever it actually is.
I reversed \L\u with \u\L expecting different results and got the same
result. Another Company Name Ltd
Why didn't reversing the metacharacters change the
Hello Edward,
At 05:07 PM 9/5/2003 +0800, Edward Yang wrote:
The problem is I do not get correct result from the following code:
print c:\program files\*.*;
or
print c:\\program files\\*.*;
I don't use perl in Windows, but I can simulate a similar result on Linux
or Mac OS X:
mkdir foo bar
Windows is a little weird here because of the way long filenames are
supported. You need to use the short name of the directory, which is the
first 6 letters - a tilda - and a number (always 1, unless there multiple
files with the same first 6 chars).
This works for me:
print c:/progra~1/*.*;
This also works and is more portable...
my $dir = 'C:/Program Files';
opendir DIR, $dir;
print map {$dir/$_} grep {/.+\..+/} readdir(DIR);
closedir DIR;
Rob
-Original Message-
From: Hanson, Rob
Sent: Friday, September 05, 2003 8:38 PM
To: [EMAIL PROTECTED]
Subject: RE: REPOST - print
Edward Yang wrote:
I'm not sure if this is a bug.
I'm running Perl 5.8 on a Windows 2000 Pro system (with SP4 and all
latest hotfixes installed).
Running perl -v I get:
This is perl, v5.8.0 built for MSWin32-x86-multi-thread
~~
The problem is I do not get correct result
B. Fongo [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Hello
An argument passed to a subroutine returns wrong value.
Code example:
@x = (1..5);
$x = @x;
here, $x gets the number of elements in @x
showValue ($x); # or showValue (\$x);
sub showValue {
my $forwarded
65 matches
Mail list logo