On Tue, 09 Oct 2007 13:29:53 -0700
"John W. Krahn" <[EMAIL PROTECTED]> wrote:
PH>Dear John...
> $_ = $kontenurl->gogeturl( $assprm{'kwnya'}, $urlnya, $nohal );
> print $_;
>
> But why not just:
>
> print $kontenurl->gogeturl( $assprm{'kwnya'}, $urlnya, $nohal );
PH>Because I want to put the res
Patrik Hasibuan wrote:
Dear my friends...
Hello,
I want to take all the strings between "" and "" and put it
into array.
I do this way but it does not work properly:
Put these two lines at the start of your program:
use warnings;
use strict;
$kontenurl=eksekusi->baru();
eksekusi is
Dear my friends...
I want to take all the strings between "" and "" and put it
into array.
I do this way but it does not work properly:
$kontenurl=eksekusi->baru();
$_=$kontenurl->gogeturl("$assprm{'kwnya'}", "$urlnya", "$nohal");
print "$_";
print "";
print "";
$i=0;
while (<>){
@resul
On Fri, Sep 03, 2004 at 04:33:43PM +0200, Maurice Lucas wrote:
> $ ./count.pl /var/log/file text
> this works fine but sometimes the "text" is "foo(bar)" and then my scripts
> gives an error.
> syntax error near unexpected token `foo(b'
That's a shell issue, not a Perl issue. Escape your brackets
Hello,
I call my script with the following line
$ ./count.pl /var/log/file text
this works fine but sometimes the "text" is "foo(bar)" and then my
scripts
gives an error.
syntax error near unexpected token `foo(b'
I believe the syntax error is from your shell and you can get around
this by quoting
> Hello,
>
> I call my script with the following line
> $ ./count.pl /var/log/file text
> this works fine but sometimes the "text" is "foo(bar)" and then my
scripts
> gives an error.
> syntax error near unexpected token `foo(b'
>
I believe the syntax error is from your shell and you can get ar
Hello,
I call my script with the following line
$ ./count.pl /var/log/file text
this works fine but sometimes the "text" is "foo(bar)" and then my scripts
gives an error.
syntax error near unexpected token `foo(b'
Could somebody give me a hint?
I'm working on linux
My script
#!/usr/bin/perl
William M West wrote:
>
> David Dorward wrote:
> >
> >(my $action) = ($html =~ /action=\"(.*?)\"/);
> >
> >That gives the same as my example.
>
> using parentheses to capture matches is really neat :) i
> did not know that you could do that.
It is not the parentheses per se that capture matche
]>
Sent: Monday, February 25, 2002 8:07 PM
Subject: question about regex
> 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 = "h
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.*(
At 04:41 PM 7/2/01 -0400, Jeff 'japhy' Pinyan wrote:
>On Jul 2, Peter Cline said:
>
> >if (/^(.+)_(\d+)$/) {
> > $script_info[$2] = { 'id' => $2, } unless {
> >defined($script_info[$2]) };
> > $script_info[$2]->{$1} = $q->param("$_");
> > }
> >
> >and thereby eliminated my
On Jul 2, Peter Cline said:
>if (/^(.+)_(\d+)$/) {
> $script_info[$2] = { 'id' => $2, } unless {
>defined($script_info[$2]) };
> $script_info[$2]->{$1} = $q->param("$_");
> }
>
>and thereby eliminated my problem.
Or not.
print "foo" unless { 1 };
print "bar" unless
It seems that posting to the list is often the catalyst that provides
enough activation energy to prompt the revelation that gives me the answer
I need.
I now see the folly of
if (/^(.+)_(\d+)$/) {
$script_info[$2] = { 'id' => $2, }
$script_info[$2]->{$1} = $q->param("$_");
Hello all. I am using the following subroutine and it is exhibitng an
undesirable behavior that I can't figure out how to change.
The array @names consists of elements that alternate between domain_# and
product_# with # representing some positive integral value. Also, two
subsequent entries
14 matches
Mail list logo
