I currently have 22 month contract position with AT&T in Raleigh.
Please let me know if you would be interested. If you are, send me a
copy of your resume or contact me at 630-364-4117, Siva@TalentedIT.com

Development position supporting internal and external at&t customers.
Candidate will work in the Chicago or Raleigh area supporting
development efforts. The candidate needs to be self motivated with the
ability to meet deadlines and adapt to rapid change

Skill Experience Need
1) Perl Expert Required
2) Perl-CGI Expert Required
3) Python Expert Required
4) Apache troubleshooting Expert Required

HTML
Strong SQL experience
Database Development experience (Oracle a plus)
PHP
Java
_Java Script

This is an excerpt from the latest version perlfaq1.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 .

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

1.4: What are perl4, perl5, or perl6?

(contributed by brian d foy)

In short, perl4 is the past, perl5 is the present, and perl6 is the
future.

The number after perl (i.e. the 5 after perl5) is the major release of
the perl interpreter as well as the version of the language. Each major
version has significant differences that earlier versions cannot
support.

The current major release of Perl is perl5, and was released in 1994. It
can run scripts from the previous major release, perl4 (March 1991), but
has significant differences. It introduced the concept of references,
complex data structures, and modules. The perl5 interpreter was a
complete re-write of the previous perl sources.

This:

use CGI qw(:standard);
print a({href=>'cats&dogs'},pets);

produces:

pets

How can I stop the & from being encoded to & ?

Is there any way to get "while (<>)" to use binmode? I can't figure it
out since binmode is supposed to be called after the file is already
open but before it is read for the first time, so you can't call it
before the loop, nor can you call it inside the loop.

I would also like to use binmode for 1-liners using -n or -p switches.

This is an excerpt from the latest version perlfaq3.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 .

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

3.4: How do I find which modules are installed on my system?

You can use the ExtUtils::Installed module to show all installed
distributions, although it can take awhile to do its magic. The standard
library which comes with Perl just shows up as "Perl" (although you can
get those with Module::CoreList).

use ExtUtils::Installed;

my $inst = ExtUtils::Installed->new();
my @modules = $inst->modules();

If you want a list of all of the Perl module filenames, you can use
File::Find::Rule.

use File::Find::Rule;

my @files = File::Find::Rule->file()->name( '*.pm' )->in( @INC );

This stinks I got banned somehow.

I have been charged with the task of authenticating against a Samba
server, and have found that Authen::Smb does the job just fine.
However, when trying to authenticate from a different network, I get an
error code of 1.

My first thought was that the SMB could not be routed, but have ruled
out any firewalling between the networks or on the hosts themselves.
Is it possible to authenticate through a routed network, or am I
spinning my wheels?

I have some strings that look like this:
info:sid/SOMECHAR:abc

The part of the string I am interested in is 'SOMECHAR' (the 'info:sid/'
will always be there). Is there a better way to extract this?

#! /usr/bin/perl
use strict;

my $out;
my $string = "info:sid/SOMECHAR:xyz";
if($string =~ m/:(.*):/) {
($out = $1) =~ s/sid\///;
print $out ;
}

# perl string.pl
SOMECHAR

Hi all!

How can I remove all words that have a length that is 3 or less?

"a lot of words in this text";

should become

"words this text"

Is it possible?

Leif

This is an excerpt from the latest version perlfaq4.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 .

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

4.57: How do I look up a hash element by value?

Create a reverse hash:

%%by_value = reverse %%by_key;
$key = $by_value{$value};

That's not particularly efficient. It would be more space-efficient to
use:

while (($key, $value) = each %%by_key) {
$by_value{$value} = $key;
}

If your hash could have repeated values, the methods above will only
find one of the associated keys. This may or may not worry you. If it
does worry you, you can always reverse the hash into a hash of arrays
instead: