Whis is difference between map and for-each?
Why the map function is fast than for-each? <== is it for all case?

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.44: How do I test whether two arrays or hashes are equal?

The following code works for single-level arrays. It uses a stringwise
comparison, and does not distinguish defined versus undefined empty
strings. Modify if you have other needs.

$are_equal = compare_arrays(\@frogs, \@toads);

Hello and thanks in advance for your help.
I have code below that posts form data to a perl cgi scripted shopping
cart and it works great on my mac/firefox browser, but it doesn't work
on ibm/netscape machines. what gives? apparently the data isn't being
recognized and so the cart defaults to it's home page.

Show full article (0.84Kb)

I'm looking for a utility that will scan a C++ file and list all the
functions under a preprocessing directive.

In the example code below:
Upon request to list all the files under the preprocessing directive
AAA
the utiltiy should report
foo1
foo2

Upon request to list all the files under the preprocessing directive
BBB
the utiltiy should report
foo3

Thanks,
Avi

main()
{
}

#ifdef AAA

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

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

5.24: How do I randomly update a binary file?

If you're just trying to patch a binary, in many cases something as
simple as this works:

perl -i -pe 's{window manager}{window mangler}g' /usr/bin/emacs

However, if you have fixed sized records, then you might do something
more like this:

I'm using IO::Socket to test a port on a remote server on the Internet from
our intranet. I need to make sure I go through the same proxy server each
time. I believe I can direct my port probe to use the proxy server as the
default gateway, which would solve my problem. From what I can tell,
IO::Socket does not allow me to do that.

Is there a module that will let me enter a value for a default gateway so I
can dictate which proxy server I want to pass through?

The following short module illustrates a puzzling bug:

use strict;
package Foo;
my $x = +{ 1 => 'one' };

sub foo {
keys %%$x if 0; # should do nothing
my $y = eval '$x'; die if $@;
printf "%%d\n", scalar keys %%$y;
}

1;
__END__

OK, now: the following one-liner produces the expected output:

%% perl -MFoo -e 'Foo::foo()'
1

...but if one comments-out the first line of Foo::foo, the output changes:

%% perl -MFoo -e 'Foo::foo()'
0

Hi,
WWW::Mechanize is a Perl module that simulates a web browser.
You can use HTTP::Recorder to write WWW::Mechanize code automatically as
you surf, see the article:
http://www.perl.com/pub/a/2004/06/04/recorder.html

Then you can improve this code with variables and loops and use it for
testing of web sites.

I saved the proxy server program in the article and started it:
./proxy.pl &

I reconfigured Firefox to use the proxy server in
Preferences/Advanced/Network/Connection Settings. It's on port 8080 on
localhost, and use this for all protocols. Remember to remove localhost
and 127.0.0.1 from 'No Proxy for' if you test against a local web server.

Then I test my web application using a newly reseted test database.

After that I stop the proxy:
kill -15 %%1

And reset the database.

#!/usr/bin/perl

# the main user to send the email to
$recip = 'mainuser@domain.org';

# a comma separated list of users to CC the email too
$cclist = 'ccuser1@domain.org,ccuser2@domain.org';

# open a pipe to the mailx utility and feed it a subject along with
# recipients and the cclist
open (FI, "|/usr/bin/mailx -s 'TEST: New email message' $recip -c
$cclist");

# send the body of the email message and close.
# note: the email is not sent until the pipe is closed.
printf (FI "blah\nblah blah\n");
close (FI);

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 Perl 4, Perl 5, or Perl 6?

(contributed by brian d foy)

In short, Perl 4 is the past, Perl 5 is the present, and Perl 6 is the
future.

The number after perl (i.e. the 5 after Perl 5) 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 Perl 5, and was released in 1994.
It can run scripts from the previous major release, Perl 4 (March 1991),
but has significant differences. It introduced the concept of
references, complex data structures, and modules. The Perl 5 interpreter
was a complete re-write of the previous perl sources.