List of free people search engine -- people search, white page,
background check, people finder, find people, public record, lookup
phone number, find phone number, reverse address lookup, usa people
search, cell phone number search, look phone number up, cell phone
number look up, lookup cell phone number, address find number phone,
find people address, us people search
http://www.geocities.com/freefreepeople/

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.14: How can I compare two dates and find the difference?

(contributed by brian d foy)

You could just store all your dates as a number and then subtract. Life
isn't always that simple though. If you want to work with formatted
dates, the "Date::Manip", "Date::Calc", or "DateTime" modules can help
you.

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

Hi All,

I have an array that I form in Unix, KSH:

set -A fnames "daily_prices.fdp previous_prices.zprs eps_reports.ex3
Z_IND.DAT X_INDUSTRY.SEQ"

Then, I try and pass that to a Perl script: ./a.pl $fnames

I receive it in the Perl script: $x = $ARGV[0];

However, only the first element of the array is prevent......

What am I doing wrong?

Thanks!

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.47: How do I handle circular lists?

Circular lists could be handled in the traditional fashion with linked
lists, or you could just do something like this with an array:

unshift(@array, pop(@array)); # the last shall be first
push(@array, shift(@array)); # and vice versa

You can also use "Tie::Cycle":

use Tie::Cycle;

tie my $cycle, 'Tie::Cycle', [ qw( FFFFFF 000000 FFFF00 ) ];

print $cycle; # FFFFFF
print $cycle; # 000000
print $cycle; # FFFF00

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

In article <4759904e$0$11892$afc38c87@>,
Name withheld by request nyx3.nyx.net> wrote:

still not sure we the "1" is coming from

I was not thinking about the -p switch very clearly...
This works for me:

$ echo 'a b c Dec 9 d e f'|perl -lne 's/^(.*?)(Dec)(\s+)(\d+)(.*)$/printf "$1$2$3 %%d$5\n",$4 + 5/e;'
a b c Dec 14 d e f

Hi,

Is there anyway can I pass arguments to a shell (bash) script from
within a perl script and execute the shell script.

The reason I want to call a shell script is that I want to export
environmental variables. Since, we can't do it from a perl script, I
wanted to write the environmental variables in a shell script and
execute it.

Can anyone let me know how can I do this in perl.

Thanks,
doni

I love it.....Huge Selection of porn movies from your favorite stars.
Various plans. Discreetly delivered to your door. Think NetFlix for
Porn...TRY IT FREE! IT'S AWESOME!
http://in.urentdvds.com/c/dvdIn.cgi/3/1280876/F

AWESOME FREE TRIAL!
http://in.urentdvds.com/c/dvdIn.cgi/3/1280876/F

Here's how it works:

1. Create a XXX rental list online. There are 1,000's of movies to
choose from!

2. Your DVDs are delivered immediately via mail in a non-discript
envelope.

3. Keep each movie as long as you want, return it whenever you want,
no late fees!
Return the movie via the provided pre-paid envelope. Delivery and
return postage is always free.

TAKE MY ADVICE AND TRY IT NOW - FOR FREE!
http://in.urentdvds.com/c/dvdIn.cgi/3/1280876/F

On Dec 7, 9:15 am, Ben Morrow wrote:

Outline
Before posting to comp.lang.perl.misc
Must
- Check the Perl Frequently Asked Questions (FAQ)
- Check the other standard Perl docs (*.pod)
Really Really Should
- Lurk for a while before posting
- Search a Usenet archive
If You Like
- Check Other Resources
Posting to comp.lang.perl.misc
Is there a better place to ask your question?
- Question should be about Perl, not about the application area
How to participate (post) in the clpmisc community
- Carefully choose the contents of your Subject header
- Use an effective followup style
- Speak Perl rather than English, when possible
- Ask perl to help you
- Do not re-type Perl code
- Provide enough information ...

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);