Dr. Claus-Peter Becke wrote:
dear mumia w.,
thank you for your support. i have chosen the simplest solution you
recommanded. i still have one problem. i would like to print every word
in a new line.
push @woerter,/[a-zäöüß]/ig;
print$q->li(@woerter);
it's unfortunaltely impossible to ch
Dr. Claus-Peter Becke wrote:
[...]
foreach (/(\w+)/i) {
push @words,$&;
}
print$q->popup_menu('to_thesaurus', @words);
[...]
Use the /g (global) option to the match operator, and push $_ onto
@words rather than $&:
foreach (/(\w+)/ig) {
push @words, $_;
}
Or ditch the 'foreach'
Chern Jian Leaw wrote:
> HI,
> I have a script attached in this mail which reads the output of rpcinfo and
> tokenizes its outputs. This problem is similar to my earlier posting a few
> days ago. However, in this scenario, the some outputs of rpcinfo response
> i.e. "rpcinfo: RPC: Timed out progr
Francesco del Vecchio wrote:
> Maybe I can explain better showing you the real problem.
>
> I have an HTML form and I'm parsing it looking for tags
>
> When I find one I need to catch the "ACTION" value.
>
> i.e.
>
> http://www.somedomain.com method=post>
>
> I need to catch "http://www.somedomai
Francesco Del Vecchio wrote:
> Maybe I can explain better showing you the real problem.
>
> I have an HTML form and I'm parsing it looking for tags
>
> When I find one I need to catch the "ACTION" value.
>
> i.e.
>
> http://www.somedomain.com method=post>
>
> I need to catch "http://www.somedomain
Maybe I can explain better showing you the real problem.
I have an HTML form and I'm parsing it looking for tags
When I find one I need to catch the "ACTION" value.
i.e.
http://www.somedomain.com method=post>
I need to catch "http://www.somedomain.com";. Obiouvsly the "method" can also not t
Francesco Del Vecchio wrote:
>
> String " bb=somestuff someotherstuff"
>
> I don't know what "somestuff" and "someotherstuff" are...I only know
> that they are two words separed by a space.
>
> How can I extract 'somestuff' from the string?
Hi Francesco .
It depends how you want to define wh
#!/usr/bin/perl -w
use strict;
my $string = q();
my $string2 = 'a xxbxxx b a xxaxx b';
print "$1\n" if $string =~ m!kiwpg=(.*?)'!; #'
my @array = $string2 =~ m/a(.*?)b/g;
print "@array\n";
__END__
. match one of anything
* match what is before it 0 or more
On Thu, 2003-03-06 at 09:32, Francesco del Vecchio wrote:
> If I have a string as the following:
> a xx b a x b
> and I try a m/a(.*)b/g
> $1 = xx b a x
> what have I to do to obtain two matches each of one give me
> $1 = x
#!/usr/bin/perl -w
u
