Perl

Trying to catch invalid emails
Hello, I use the following regular expression to catch typical invalid email addresses: ------------ my @Email=("sam._\@abc.org", "sam_.\@abc.org", "sam_.\@abc.org"); foreach (@Email) { if(/^[A-z0-9]+([_\.][A-z0-9\-]+)*[@][A-z0-9_\-]+([.][A-z0-9_\-]+)?\.[A-z]{2,3}$/) { print "$_ is a valid email id\n"; ... 7 May 2008 04:53

FAQ 4.23 How do I find matching/nesting anything?
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 . --------... 7 May 2008 02:31

Error in Handling Unicode(UTF16-LE) File & String
In most cases, I converted utf-16le files into utf-8 encoding. But, I want to handle utf-16le files directly. My first source is "read a line from utf-16le file and write it in utf-16le encoding". It works well. ========================================================== use utf8; use Encode; open ($infile... 7 May 2008 00:56

IPC::Open3 : Why can't I catch program output here?
I try to use the program below to catch standard output and standard error of a process. The program itself runs well, and it *does* write at least to standard output, but in the code below, the line saying "### READING" is never printed and @msg is still empty afterwards. This means that $selector->can_read() mu... 6 May 2008 22:26

interacting with another program that requires input
Hi, I have a perl script which executes a command which will in term requires input, I have the following program: my $cmd = "ipa add"; print "Executing -> $cmd\n\n"; my $pid = open(H, "$cmd |") or die("\n$cmd failed\n"); my($stat, $data); my $str; ... 6 May 2008 22:26

maximum hash/array keys/values
What's the maximum hash/array in Perl can hold for keys and values? Thanks. ... 6 May 2008 22:26

Process to fix a broken CPAN module?
I have found a major flaw in a CPAN package. The package is File::Binary and it has big endian and little endian unpack-ing backwards. Likewise, all the test files are reversed so that the tests all pass! Why do I believe this is true? From the perl manual on pack: n,N unpacks a 16 or 32 bit integer in "net... 6 May 2008 22:26

FAQ 4.8 How do I perform an operation on a series of integers?
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 . --------... 6 May 2008 22:26

FAQ 4.2 Why is int() broken?
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 . --------... 6 May 2008 22:26

retrieve info from searching site
there is a website that cotains 2 search input fields: ID and Lastname i can input to search using either one but lastname uses fuzzy logic. if more than one result comes back (like if i pass in % for last name), i get a selection list of all the people. i can then click on a single person and click the 'info... 6 May 2008 22:26