On Wed, Aug 24, 2011 at 12:31 AM, Jim Gibson wrote:
> On 8/23/11 Tue Aug 23, 2011 3:04 PM, "Emeka"
> scribbled:
>
> > Hello All
> > I tried this in order to install Perl-tk cpan>install tk... But it
> > failed to work.
>
> You need to let us know what exactly what went wrong when you tri
still does not work
$_ = "zzabtable";
/(.)(?!.*\1)/ && print "$1\n";
Output is z
On 8/24/11, Chris Charley wrote:
>>Assume I have to find the first unique character in a string
>>
>>$string = "abtable";
>>
>># t is the first unique string
>>
>>I tried using a negative backtrace lookup to get the
On 22/08/2011 10:29, Shlomi Fish wrote:
Hi Alan,
On Mon, 22 Aug 2011 14:43:48 +0530
Alan Haggai Alavi wrote:
Hello Shlomi,
It's a good idea to always use "last LABEL;" instead of "last;" (as well as
"next LABEL;" etc. in case more loops are added in between.
⋮
http://perl-begin.org/tutorial
On 8/24/11 Wed Aug 24, 2011 8:32 AM, "Emeka"
scribbled:
> Do we really need "goto" here?
>
> Emeka
No, we don't need a goto here. The statement 'last' is effectively a 'goto'
but with the restriction that it will only work inside a loop and only
transfer control out of the loop. This avoids m
On Wed, 24 Aug 2011 16:32:30 +0100
Emeka wrote:
> Do we really need "goto" here?
>
Where do you see a "goto"? Perl 5 has a goto statement (see
http://perldoc.perl.org/functions/goto.html ) and it's pretty flexible, but we
did not use it here, and instead used "last LABEL" or "next LABEL" which
Do we really need "goto" here?
Emeka
On Mon, Aug 22, 2011 at 10:03 AM, Shlomi Fish wrote:
> Hi Alan,
>
> On Mon, 22 Aug 2011 13:10:05 +0530
> Alan Haggai Alavi wrote:
>
> > Hello Anant,
> >
> > > i want to input some numbers via in while loop.And loop should
> be
> > > broken if any nonnumeric
Assume I have to find the first unique character in a string
$string = "abtable";
# t is the first unique string
I tried using a negative backtrace lookup to get the answer in a
single regex ... But something is missing.
/(.).(?!\1)/ && print $1;
it seems fine ... But doesn't work
--
Sent fr
On 24/08/2011 15:54, Ramprasad Prasad wrote:
Assume I have to find the first unique character in a string
$string = "abtable";
# t is the first unique string
I tried using a negative backtrace lookup to get the answer in a
single regex ... But something is missing.
/(.).(?!\1)/&& print $1;
Hi Ram,
On Wed, 24 Aug 2011 20:24:00 +0530
Ramprasad Prasad wrote:
> Assume I have to find the first unique character in a string
>
In that case, use a hash. Is there any reason you want to do it using a regex?
Regards,
Shlomi Fish
> $string = "abtable";
>
> # t is the first uniqu
On Wed, 24 Aug 2011 09:30:35 -0400
"Bob McConnell" wrote:
> From: Sisyphus
> > From: "Bob McConnell"
> >
> >>I am using Strawberry on WinXP. I need to test some IPv6 connectivity
> >> but can't get Socket6 to install. It all boils down to two errors
> during
> >> the compile stage.
> >>
> >> So
Assume I have to find the first unique character in a string
$string = "abtable";
# t is the first unique string
I tried using a negative backtrace lookup to get the answer in a
single regex ... But something is missing.
/(.).(?!\1)/ && print $1;
it seems fine ... But doesn't work
--
Sent fr
From: Sisyphus
> From: "Bob McConnell"
>
>>I am using Strawberry on WinXP. I need to test some IPv6 connectivity
>> but can't get Socket6 to install. It all boils down to two errors
during
>> the compile stage.
>>
>> Socket6.o:Socket6.c:(.text+0xa47): undefined reference to `inet_pton'
>> Socket6
When you shift off a variable you pop it out of the argument . Just try and
get the first variable of the argument another way by copying to an array
first or something .
from perldoc
Shift :
Shifts the first value of the array off and returns it, shortening the array
by 1 and moving everything do
Emeka, I assumed you are using ActivePerl on Win OS.
Thanks.
Hello Emeka,
>>Hello All
>>I tried this in order to install Perl-tk cpan>install tk... But it
>>failed to work.
cpan> install Tk
should work as Praga and Jim mentioned, but if you don't have a C complier
and a make utility installed, your installation will evetually fail. Tkx
module may be
Hi All,
I am working on the below code to traverse through a hash, but it throws an
error which states "Can't coerce array into hash at temp.pl line 6."
Code:
===
sub hash_walk {
my $self = shift;
my ($hash, $key_list, $ca
16 matches
Mail list logo
