$var="{' venkat'}->{'no'}->{'yes'}";
i want to get the "yes" token;
if i use
$var=~/\{'( .* )\}$/
i get venkat'}->{'no'}->{'yes
how to get the "yes" token...

The latest developments in SQL server 2008 and an complete
encyclopedia of microsoft softwares. Know the methodology to capture
customers requirements for new products. Get the latest development in
C++ and other IT related tools. A complete tutor for all your IT
needs. visit

http://www.sqlserversoftware.blogspot.com

This is an excerpt from the latest version perlfaq7.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

7.6: What's an extension?

An extension is a way of calling compiled C code from Perl. Reading
perlxstut is a good place to learn more about extensions.

--------------------------------------------------------------------

The perlfaq-workers, a group of volunteers, maintain the perlfaq. They
are not necessarily experts in every domain where Perl might show up,
so please include as much information as possible and relevant in any
corrections. The perlfaq-workers also don't have access to every
operating system or platform, so please include relevant details for
corrections to examples that do not work on particular platforms.
Working code is greatly appreciated.

If you'd like to help maintain the perlfaq, see the details in
perlfaq.pod.

Please don't sneer and laugh, but I think I've found a bug in perl
itself.

I am trying to make, in my stumbling way, a database of homophones to
be the basis of a verifier similar to a spell checker, but for
homophones. I wrote this script as a crutch to help me with some logic.

It didn't work.

After many hours with and without the perl debugger I found the
proximate cause of my problem. But I'm at a loss to explain it.

Here is my source, showing the cure, followed by the output before and
after the fix.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ script before fix ~~~~~~~~~~

#!c:/strawberry/perl/bin/perl.exe
# perl 5.10.0 installed 3/3/2008
use strict; use warnings;
my %%ow = (
'a' => [qw/a b c/],
'b' => [qw/a b c/],
'c' => [qw/a b c/],
'r' => [qw/r s t u/...

This is an excerpt from the latest version perlfaq7.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

7.3: Do I always/never have to quote my strings or use semicolons and commas?

Normally, a bareword doesn't need to be quoted, but in most cases
probably should be (and must be under "use strict"). But a hash key
consisting of a simple word (that isn't the name of a defined
subroutine) and the left-hand operand to the "=>" operator both count as
though they were quoted:

This is like this
------------ ---------------
$foo{line} $foo{'line'}
bar => stuff 'bar' => stuff

The final semicolon in a block is optional, as is the final comma in a
list. Good style (see perlstyle) says to put them in except for
one-liners:

I am testing a program that is not yet in production that after a
while the program will segfault. There is no core left behind when
the segfault happens. How can I get a core from the segfault or is
there another way to diagnose the situation?

Mike

Fedora Core 5
perl 5.8.8

This is an excerpt from the latest version perlfaq6.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

6.14: How can I print out a word-frequency or line-frequency summary?

To do this, you have to parse out each word in the input stream. We'll
pretend that by word you mean chunk of alphabetics, hyphens, or
apostrophes, rather than the non-whitespace chunk idea of a word given
in the previous question:

while (<>) {
while ( /(\b[^\W_\d][\w'-]+\b)/g ) { # misses "`sheep'"
$seen{$1}++;
}
}

while ( ($word, $count) = each %%seen ) {
print "$count $word\n";
}

I have perl program which works just fine on the console, but started
in cron environment it prints "ps: don't know which terminal to
select" to stderr - btw I don't call ps explicitly at any point in my
scripts.

Now lets have a look at the details :

My script is written in perl, inside that script there is a call in
backquotes to an other perl script which starts too.
By printf-debugging I could find out that the "ps: don't know which
terminal to select" output occurs both in the parent and child script
before by first line of code. Does perl call ps before starting?? why
does it need a terminal? my script do not process stdin and stdout +
stderr are redirected into files. And for some reason this problem
occurs only when calling a perl script from an other perl script.

In interactive mode the script works just fine - I ran it from a ksh.
To execute it via cron I write a small ksh script, which reads the
environment from the .kshrc an the executes the per script sending
stdout and stderr to log-files.

Let me try to deconfuse it ;)

Cron -> ksh-Script -> perlA -> perlB -> perlC

Hi all,
This post is regarding XML parsing in perl.

I have written a handler for capturing Char named
characterData. when this handler is getting called up for parsing
""1667999478"" which is available in $data it should be able
to print "1667999478" replacing " with ", but it is only printing
".

Here is the code :

sub characterData {
my( $parseinst, $data ) = @_;
print "$data";
------------------>>> here i should get "1667999478" instead of "
}

Please help me.

Thanks,
Deepan

I wrote the following, trying to get it to print a block of
20 rows of 20 random characters from a 96-member character
set. But it doesn't work; just just prints a series of
20 "\n" characters, and that's all:

#!/usr/bin/perl

sub rand_int;

srand;

my $i;
my $j;
my $Lower = "abcdefghijklmnopqrstuvwxyz"; # lower-case (26)
my $Upper = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; # upper-case (26)
my $Digits = "0123456789"; # digits (10)
my $Symbols = "`~!@#$%%^&*()-_=+[{]}\\|;:\'\",<.>/?"; # symbols (32)
my $White = "\11\40"; # tab, space ( 2)
my $Charset = $Lower.$Upper.$Digits.$Symbols.$White; # total: (96)

#print ("$Charset\n");