Hi ppl,
I have one HTML file per News story...i got to fetch some data (first
few lines) out from a HTML file and display it as an abstract for the
said story...
The HTML file have the following issues...
1. There could be a HTML table at the very beginning..(can i strip out
the whole table..i
You need to use the g option to your regex to tell it that you want all the
matches in the string.
So
my @result = $html =~ /.*$index.*(.*)<\/blockquote>/g;
should get you closer.
- Original Message -
From: "Yuan Cheng" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, February
Hi everybody, I'm trying to help this guy out but know NOTHING about Oracle
DB or how they work. Here is his message:
"Hi,
I think I need to explain to you my problem in detail.
WebServer: Apache 1.3.22
WTC ProductCenter Server 7.5 (www.workgroup.com)
Using PERL-CGI
>From the web page there i
Hi, All:
I have problem with regex. I try to get some content
from a html source and print it out on the screen.
the following is my code:
use LWP::Simple qw(get);
my $url = "http://www.somewebsite.com";;
my $html = get($url);
my $index = "some index number";
my @result = $html =~
/.*$index.*(
Try this simplistic sequence...
$content=~ s/\n/RETURN/g;
$content=~ s/<.*?>//g;
$content=~ s/RETURN/\n/g;
print $content;
Agustin Rivera
Webmaster, Pollstar.com
http://www.pollstar.com
- Original Message -
From: "Daniel Falkenberg" <[EMAIL PROTECTED]>
To: "Agustin Rivera" <[EMAIL PR
Agustin,
Does the following code actually contain all the html code in $address?
Is there a way I could strip all the html from $content?
$address = "URL";
my $content = LWP::Simple::get($address);
Regards,
Dan
==
VINTEK CONSULTING PTY LTD
(ACN 088 825 209)
email:
Thanks for all your help, I got working.
Thanks again.
-Original Message-
From: Luke Bakken [mailto:[EMAIL PROTECTED]]
Sent: Monday, February 25, 2002 6:11 PM
To: Lyon, Justin
Cc: '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; [EMAIL PROTECTED]
Subject: RE: Uninitialized Value Error
use str
Ok, maybe I should restate the problem. I have a bunch of scripts which
have a couple of lines that chuck some configuration stuff into some
variables. I'm sick of editing the scripts each time the config changes.
I realise that I could use a modules and do stuff like:
$path = &Config::getPath(
Yeah, of course that works... That's what I was saying. I just wanted to
make sure that the original guy who asked the question knew that he had to
declare the variables in the same scope as the format code and remove the
"my" declarations from the format code. Otherwise he would get the same
e
Yes, modules are it. Here is an example...
require 'plibs.pm';
plibs::cat("readme.txt");
---
then in the module
---
package plibs;
use strict;
sub cat
{
my $file=shift(@_);
my $data;
open(IN, "$file") or die $!;
while() {$data.=$_;}
close(IN);
return $data;
}
1;
Agustin River
i just went through this last week.
put a line at top of file to be included like;
package Util;
at end of file put:
1;
name the file Util.pm
to include it in another file say:
use Util;
assume a subroutine in included file called 'foo'.
to call it:
&Util::foo();
this is the simple version of
This conversation just came up. Look in the archives for the subject
"sharing subroutines". Summary: Yes, modules are the way to do it, but
simple ones are not that hard to write. Look for the thread for the
example.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED
use strict;
my $field1;
while (<>) {
$field1 = $_;
write STDOUT;
}
format STDOUT =
---
@<<
$field1
..
How does the above "not work"?
On Mon, 25 Feb 2002, Lyon, Justin wrote:
> Nope, that won't work because "my" by definition is only good in the current
> scope.
I'm looking for an equivalent to C's #include or shell's . in perl, and I
can't find it. Can anyone tell me how to include a second file at runtime
without writing a module?
If writing a module is the only way to do it, can someone give a a very
simple example of a module?
Andrew Clark
90East (
Hi,
I am trying to make a linguistic database app. for the web. As I am new to
Perl and not a programmer this is proving to be quite a challenge. My
original idea was to use Perl's DBMs and a hash of arrays that looks like
this :
{ phrase1 => ["meaning1", "meaning2",..."meaningN","note1",
"no
--On Montag, 25. Februar 2002 10:24 -0900 Michael Fowler
<[EMAIL PROTECTED]> wrote:
> On Mon, Feb 25, 2002 at 07:45:30PM +0100, Birgit Kellner wrote:
>> for (@array) { # contains a bunch of numbers
>> my %hash = &get_record($_);
>> }
> Are you under the mistaken impression that 'for' is no
--On Montag, 25. Februar 2002 10:24 -0900 Michael Fowler
<[EMAIL PROTECTED]> wrote:
> On Mon, Feb 25, 2002 at 07:45:30PM +0100, Birgit Kellner wrote:
>> for (@array) { # contains a bunch of numbers
>> my %hash = &get_record($_);
>> }
> Are you under the mistaken impression that 'for' is no
I'm not sure that's it, because this code just ran fine on my Windows 2000
box...
use LWP::Simple;
use strict;
my $address="http://www.pollstar.com";;
my $html_file='temp';
LWP::Simple::is_success(LWP::Simple::getstore($address, $html_file));
Agustin Rivera
Webmaster, Pollstar.com
http://www.po
On Mon, Feb 25, 2002 at 02:52:05PM -0800, Peter Scott wrote:
> Which doesn't have anything to do with using a higher-level module.
Correct.
> Do you do your CGI programming by hand as well, or use CGI.pm?
What makes you think I do any CGI programming?
Oh, okay then. Since there's something o
Aqustin,
Yes that code works perfectly. The problem (I think) I am having is at
this line here...
LWP::Simple::is_success(LWP::Simple::getstore($address, $html_file).
It just doesn't seem to be storing it as a file? Any other ideas?
Thx,
Dan
-Original Message-
From: Agustin Rivera
I'm getting a ton of errors just trying to get your code to work. But since
you are addressing the simple grabbing of a web page, does this code work...
use LWP::Simple;
use strict;
my $address="http://www.pollstar.com";;
my $content = get($address);
print $content;
Agustin Rivera
Webmaster,
Hey All,
Is there any reason why I can't seem to get...
LWP::Simple::is_success(LWP::Simple::getstore($address, $html_file)
to write to a file. I have used the exact same code on a Linux box but
when I go to run it on a Windows box it doesn't seem to download it and
save it to a dir? Is this
At 12:23 AM 2/26/02 +0100, Paul Johnson wrote:
>On Mon, Feb 25, 2002 at 01:41:34PM -0800, Peter Scott wrote:
> > At 11:15 PM 2/25/02 +0100, Paul Johnson wrote:
> > >On Mon, Feb 25, 2002 at 10:01:25PM +0200, Mohammed A. Hassan wrote:
> > >
> > > > How can I use sockets in Perl?
> > >
> > >I would s
At 04:48 PM 2/25/02 -0800, David Gerler wrote:
>Peter,
> Thanks for that implementation. That helps with that part. I am
> still not
>clear on how to get the URL into the variable to begin with. When I login
>manually, it sends me to a page that looks like this (
>http://www.thissite.com/
On Mon, Feb 25, 2002 at 01:41:34PM -0800, Peter Scott wrote:
> At 11:15 PM 2/25/02 +0100, Paul Johnson wrote:
> >On Mon, Feb 25, 2002 at 10:01:25PM +0200, Mohammed A. Hassan wrote:
> >
> > > How can I use sockets in Perl?
> >
> >I would suggest starting off with
> >
> > perldoc -f socket
> > p
On Feb 25, Carlo Sayegh said:
>print "\nPlease state below your duties as $function
>adminstrator. Press then<^D> twice when done.\n\n";
>
>while (<>) {
>if ( (/^DONE/) ) {
>last;
>}
>}
>
>@data1 = ;
>chomp (@data1);
Uh do you know what that while loo
Peter,
Thanks for that implementation. That helps with that part. I am still not
clear on how to get the URL into the variable to begin with. When I login
manually, it sends me to a page that looks like this (
http://www.thissite.com/Welcome.asp?4A9BDA7AD78140 )
The part I want to pull ou
Hello All,
I'm trying to do three things in this step.
1. I can't figuer out how to make this part of the script end
with a new line and then ^D once to end.
2. How can I get the LOGFILE to read and print "@arrays" into
a filebe.
When I check the ../../../../DRlogs/current file all I see are
At 11:15 PM 2/25/02 +0100, Paul Johnson wrote:
>On Mon, Feb 25, 2002 at 10:01:25PM +0200, Mohammed A. Hassan wrote:
>
> > How can I use sockets in Perl?
>
>I would suggest starting off with
>
> perldoc -f socket
> perldoc Socket
Ooh, how low-level.
I'd suggest rather IO::Socket. And if the
Nope, that won't work because "my" by definition is only good in the current
scope. format is outside of your scope, no matter what you do, so you'll
have to use something other than "my".
Of course, you can always put the format code inside the scope of "my", and
then it should be fine (don't
Getting rid of 'my' is not your only option. Among other things, you can
put the code for getting info from filehandles in a subroutine and pass the
variable by reference or return the value so that you can still have it to
use for your format command.
Example 1:
my $var;
$var = &mysub($var);
d
> Small question: I thought when doing a for loop over an array, I can simply
> do this:
> for (@array) { # do stuff with $_ }
for my $ele (@array) { # stuff with $ele }
In 99.99% of the perl programs you write you'll use my instead of local.
In fact, if you think you need to use local with a va
Predeclare all of the variables you're using in your format at the top of
the script with my:
my ($field1, $field2, $field3);
this way you can still keep the benefits of use strict
On Mon, 25 Feb 2002, Lyon, Justin wrote:
> H. Well, I think the problem is that you're using too strict
> g
On Mon, Feb 25, 2002 at 10:01:25PM +0200, Mohammed A. Hassan wrote:
> How can I use sockets in Perl?
I would suggest starting off with
perldoc -f socket
perldoc Socket
and following the pointers from there, then coming back if you have more
specific questions.
--
Paul Johnson - [EMAIL PR
H. Well, I think the problem is that you're using too strict
guidelines. "my" will restrict you from using a variable outside the
current scope, so you won't be able to access it come time to format. The
quickest way arround that is to get rid of your "use strict;" line, and then
get rid of
How can I use sockets in Perl?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi all,
I was looking for a module to help facilitate
receiving a email message into a script and
putting attachments in various directories
depending on the subject heading or the attachment
extension.
Basically the configuration as follows:
mail recipient is a pipe to the perl script
ins
sachin balsekar a écrit :
>
> hi joyce,
>
> i would suggest you use PHP for the same...even client side validation
> using javascript could help...but if you need to compare with
> databases..you cud use php itself and pass the parameters to the same
> page ($PHP_SELF) and get things working...
From: Richard Smith <[EMAIL PROTECTED]>
> I have had problems using "my" when refering to File Handles,
> especially when I wish to pass them to subroutines. I have also had
> problems declaring them with $ or @, and have been forced to use:
> local *logHandle; Is this because
I don't know if this is the problem, but are you missing a } somewhere? I
couldn't find one for your second while loop.
Justin
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Monday, February 25, 2002 10:15 AM
> To: [EMAIL PROTECTED]
> Subject: Uniniti
On Mon, Feb 25, 2002 at 07:45:30PM +0100, Birgit Kellner wrote:
> for (@array) { # contains a bunch of numbers
> my %hash = &get_record($_);
> }
> foreach (@array) { print "$_\n";\ # problem - $_ is not the array element anymore
It isn't?
$\ = "\n";
my @array = qw(foo bar baz qux);
At 07:45 PM 2/25/02 +0100, Birgit Kellner wrote:
>Small question: I thought when doing a for loop over an array, I can
>simply do this:
>for (@array) { # do stuff with $_ }
>
>Now I have this situation:
>
>for (@array) { # contains a bunch of numbers
> my %hash = &get_record($_);
>}
>fore
On Mon, Feb 25, 2002 at 07:45:30PM +0100, Birgit Kellner wrote:
> Small question: I thought when doing a for loop over an array, I can simply
> do this:
> for (@array) { # do stuff with $_ }
>
> Now I have this situation:
>
> for (@array) { # contains a bunch of numbers
> my %hash = &get_
I am not sure how that second period got, there but it
is not there is the original source, therefore I still
get the same error.
Any other recommendations are greatly appreciated.
Thanks
> When closing your format code, use a single dot, not two of them.
>
> -Original Message-
> From
Yeah, for normal variables, you can declare them "local", but I'm not sure
you can do that with $_. Try it by adding "local($_);" to the first line of
your subroutine. Otherwise, it will get overwritten, and you may have to
declare a variable to do what you want to do.
Justin
-Original Mes
At 11:00 AM 2/25/02 -0800, Lyon, Justin wrote:
>When closing your format code, use a single dot, not two of them.
I will bet that the original posting contained a single dot. Many MTAs
prepend a line starting with a dot with another dot, and many MUAs don't
reverse this operation. Your postin
When closing your format code, use a single dot, not two of them.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Monday, February 25, 2002 10:15 AM
To: [EMAIL PROTECTED]
Subject: Uninitialized Value Error
When I run the following script, I get the following
I am trying to read in a data file, sort it by a particular column and then
output the results column by column to an HTML document. I have the below
code which is only printing out my first record. Can someone try and point
me in the right direction where I can get it sorted and then output the
Hi Jenda,
I have had problems using "my" when refering to File Handles, especially
when I wish to pass them to subroutines. I have also had problems
declaring them with $ or @, and have been
forced to use:
local *logHandle;
Is this because I am declaring the actual filehandle, and not a refer
Small question: I thought when doing a for loop over an array, I can simply
do this:
for (@array) { # do stuff with $_ }
Now I have this situation:
for (@array) { # contains a bunch of numbers
my %hash = &get_record($_);
}
foreach (@array) { print "$_\n";\ # problem - $_ is not the arra
When I run the following script, I get the following
error. Being new to perl, I am having trouble
identifying where the error is at.
Thanks for your help.
Error:
Use of uninitialized value at user_access1.pl line 43,
chunk 29.
Here is the code:
#!/usr/bin/perl -w
use strict;
use consta
From: Richard Smith <[EMAIL PROTECTED]>
> > $newsocket[$i] = IO::Socket::INET->new("$address") or die $@;
>
> How are you declaring "newsocket"? I would probably decare it as
> "local" rather than as "my". Worth a try anyway. Unfortunately I
> can't try it here. Thanks, Smiddy
Please don't.
At 11:18 PM 2/24/02 -0800, David Gerler wrote:
>I can't figure out the terminology for what I want to do. I have searched my
>resources for what I think it is with no luck.
>
>Here's what I want.
>
>I want the script to login to a web site. The website will redirect to
>another site with a session
I would appreciate it if someone could provide an
example of using the format() within a script.
Thanks for your help
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
actually i could just count the number of files in the dir and update the big fcgi
file only if the number of files have increased!
hm yeah, that must be it
so the script checks the directory and counts the files. if the number of files have
increased the big fcgi file is wiped and rebuild by
> $newsocket[$i] = IO::Socket::INET->new("$address") or die $@;
How are you declaring "newsocket"? I would probably decare it as "local" rather than
as "my".
Worth a try anyway. Unfortunately I can't try it here.
Thanks,
Smiddy
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
I would write out a file that gives the files included in the big .fcgi file
as well as their checksums. Then you could check against the database to
see if it needs to be updated ( if you will never change an old file, then
the checksum is not needed, but be sure to plan ahead!)
Tanton
- O
Unless you do some type of check, then on the data, you will not know if you
have updated data or not. I can change a H to J in the file and the size of the file
has not changed, but it is not the same file. You will have to come up with some way
either within your database or on the Pe
interesting, but no.
i can download these .fcgi files from a database and they are quite generic (they
contains loads of records). all i wanted is to collect all therecords in one big fcgi
file for outputting and sorting. but i may download new .fcgi files regularly and i
want them included in
Might be better off using a hash with the filename and say last mod time. Then
if a new file or the last mod time is different, then rebuild your data.
Wags ;)
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Monday, February 25, 2002 06:11
To: [EMAIL
My library includes this book, the SAMS, the O'Reilly books and others.
Personally, I prefer the SAMS book (Teach yourself Perl in 21 days). Other
users who have borrowed these two books, always return the "Quigley" book
first.
Do not get me wrong, the "Quigley" book is good, but the SAMS book
Being a beginning PERL writer myself with no
programming background, I found the book very helpful
as a start.
--- Anidil Rajendran-Raj <[EMAIL PROTECTED]> wrote:
> Hi team,
>
> I am unix admin trying to learn perl. How is the
> book "LEARNING PERL BY
> EXAMPLE" by Ellie Quigley
> regs
>
>
>
Thank you very much for your help, I did not have nmake.exe and had no idea
where to get it. I do decompress in a temp folder -- I just did not mention
that step.
"Jenda Krynicky" <[EMAIL PROTECTED]> wrote in message
3C7A3554.18894.963BCDE@localhost">news:3C7A3554.18894.963BCDE@localhost...
>
Oliver,
Your guess was correct--I did not h ave the nmake exe file and had no idea
where to get it, so thank you very much for the link. It saved me a lot of
time.
"Oliver Andrich" <[EMAIL PROTECTED]> wrote in message
E16fKKX-00012S-00@fitheach">news:E16fKKX-00012S-00@fitheach...
> Hi Thomas,
I do extract it in a temp folder and then move it to \perl\site\lib. ( I
forgot to put in that step.
)
Sure enough I was missing the nmake.exe program.
Thanks for the link. I had no idea where to get it.
"Jenda Krynicky" <[EMAIL PROTECTED]> wrote in message
3C7A3554.18894.963BCDE@localhost">new
hi
i have this very interesting task, and i need some inspiration.
i have a directory with say 10 fcgi files (text files):
now i would like to have a temp.fcgi file which contains all of the date from the
.fcgi files (appended). however, i want my program to update the temp.fcgi file if new
.
On Mon, Feb 25, 2002 at 02:29:58PM +1030, Daniel Falkenberg wrote:
> my $content = $response->content;
> $p = HTML::TokeParser->new($content) || die "Can't open: $!";
> while ($stream->get_tag("h1")) { $data = get_trimmed_text("/h1");}
To start with, I think I'd use LWP::Simple. It saves a lot o
> personally I would extract the archive in the perl lib path, but
> somewhere else, cause nmake install we do the required magic to install
> the stuff.
And now in more or less correct english. ;)
I wouldn'd extract the source package in the lib path but somewhere else.
nmake install will do t
Hi Thomas,
> I am attempting to install a module on a Win2K machine using Active State
> Perl v5.6.0 build 615.
>
> I decompress the module and extract its contents to a new folder in
> \perl\site\lib. Then in the command prompt I 'cd' into that new
> directory and type 'perl makefile.pl' --eve
hi group
well, i ve gotta file that doesnt ve uniform structure. i wud like to extract the
values by using the key.
Ex
name xxx
Ed.q yyy
Add zzz bbb
aaa ccc
bbb ddd
in this ex, i want to extract the name and the address, if i use /t then i can ext
Hi ppl,
I have one HTML file per News story...i got to fetch some data (first
few lines) out from a HTML file and display it as an abstract for the
said story...
The HTML file have the following issues...
1. There could be a HTML table at the very beginning..(can i strip out
the whole table.
From: "Thomas Whitney" <[EMAIL PROTECTED]>
> I am attempting to install a module on a Win2K machine using Active
> State Perl v5.6.0 build 615.
>
> I decompress the module and extract its contents to a new folder in
> \perl\site\lib.
You should decompress it into a temporar
I can't figure out the terminology for what I want to do. I have searched my
resources for what I think it is with no luck.
Here's what I want.
I want the script to login to a web site. The website will redirect to
another site with a session id in the url. I need to parse the session id
out of
I am attempting to install a module on a Win2K machine using Active State
Perl v5.6.0 build 615.
I decompress the module and extract its contents to a new folder in
\perl\site\lib. Then in the command prompt I 'cd' into that new directory
and type 'perl makefile.pl' --everything goes fine, ther
> Hi All,
>
> The code below works fine on a Unix box but for some
> reason it doesn't work on a Windows box. My code
> compiles ok on the Windows box but when I go to run
> it the code never actually downloads the WWW page.
> Is there something I have to do to be able to use
> this on a Windows
> > I need some help badly on this slight technicality
> > I am facing. I am reading every line of input
> > into a scalar variable, spllitting on null, to get
> > every character into an array, and then splicing.
> > When I print the array elements of interest, a
> > space is appended to the inp
76 matches
Mail list logo